' *** PERQUACKEY, VERSION 2.2 -- 14 MAY 1979 ***
 ' *** BASED ON "PERQUACKEY" (C) HOLLINGSWORTH BROS., 1956 ***
 ' *** AND ON "PERQUACKEY, THE DIFFERENT WORD GAME" (C) LEISURE DYNAMICS, INC.,1970 ***
 ' *** PUBLISHED BY LAKESIDE INDUSTRIES, A DIVISION OF LEISURE DYNAMICS, INC., MINNEAPOLIS, MINN. ***
 ' *** PROGRAM BY DAVID E. POWERS         ***
 ' ***            10 WILBEN CT            ***
 ' ***            NEW HYDE PARK, NY 11040 ***
 ' ***            516-437-8320            ***

ON ERROR GOTO Error1
    XX$ = STRING$(64, " ")
    DEFINT B, E-F, I, L, N, P, R-S, V-W
    CLS
    LOCATE 4, 29: PRINT "*** SCRAMBLE ***"
    LOCATE 11, 19: PRINT "DO YOU WANT INSTRUCTIONS? "
    PRINT
    LINE INPUT a$
    IF a$ = "Y" OR a$ = "y" THEN 240 ELSE 940
240 CLS
    PRINT TAB(28); "PERQUACKEY"
    PRINT : PRINT CHR$(34); "PERQUACKEY"; CHR$(34); " IS THE DIFFERENT WORD GAME, FUN FOR ALL, ESPECIALLY THOSE": PRINT "WHO LOVE TO HUNT FOR WORDS AND MEET THE CHALLENGE OF AN EVER-TICKING CLOCK."
    PRINT
    PRINT "THIS VERSION OF "; CHR$(34); "PERQUACKEY"; CHR$(34); " MAY BE PLAYED BY UP TO FOUR PLAYEERS.": PRINT "YOU CAN EVEN PLAY IT SOLITAIRE, ALWAYS TRYING TO BETTER YOUR SCORE FROM": PRINT "PREVIOUS GAMES AND ROUNDS.  THE COMPUTER WILL SET UP YOUR GAMES,"
    PRINT "TALLY YOUR SCORES, AND EVEN MAKE SURE THAT YOU ARE PLAYING FAIRLY."
    GOSUB 4050
    PRINT : PRINT "THE OBJECT OF THE GAME IS TO FIND AND SPELL AS MANY WORDS AS": PRINT "POOSSIBLE FROM A LIST OF LETTERS THE COMPUTER WILL GENERATE FOR YOU,": PRINT "ALL IN A THREE-MINUTE TIME LIMIT.  AT FIRST, THE COMPUTER WILL GIVE"
    PRINT "YOU TEN LETTERS WITH WHICH TO WORK.  AS YOUR SCORE INCREASES AND"
    PRINT "YOU BECOME "; CHR$(34); "VULNURABLE"; CHR$(34); " YOU WILL BE ALLOTTED": PRINT "THIRTEEN LETTERS.  BUT YOU WILL HAVE TO ACHIEVE BETTER SCORES OR BE": PRINT "SET POINTS FOR NON-SUPERIOR PLAY!"
    GOSUB 4050
    PRINT "THE COMPUTER WILL PROMPT YOU AS YOU GO, IN CASE YOU SHOULD NEED": PRINT "ANY HELP IN THE MECHANICS OF THE GAME.  BUT FOR YOUR INFORMATION YOU": PRINT "SHOULD KNOW IN ADVANCE THAT ONLY WORDS IN A STANDARD DICTIONARY"
    PRINT "ARE ACCEPTABLE.  ALL THE PLAYERS SHOULD AGREE ON ONE BEFORE PLAY": PRINT "IS BEGUN.  OF COURSE, LIKE MOST WORD GAMES, PROPER NAMES, FOREIGN": PRINT "WORDS, ABBREVIATIONS OR CAPITALIZED WORDS ARE NOT ALLOWED."
    PRINT "ALSO, YOU MUST RESIST THE TEMPTATION TO USE PUNCTUUATION MARKS.": PRINT "THE COMPUTER WILL NOT ALLOW THEM.  THEY ARE NOT PART OF THE": PRINT "PERQUACKEY VOCABULARY!"
    GOSUB 4050
    PRINT "YOU MAY NOT MAKE A WORD ENDING IN "; CHR$(34); "S"; CHR$(34); " IF": PRINT "THAT WORD ALSO APPEARS WITHOUT THE "; CHR$(34); "S"; CHR$(34); " DURING": PRINT "TTHE SAME TURN."
    PRINT
    PRINT "ALL WORDS MUST BE AT LEAST THREE LETTERS LONG.  YOU MAY NOT ENTER": PRINT "MORE THAN FIVE WORDS CONTAINING THE SAME NUMBER OF LETTERS IN ANY ONE": PRINT "TURN.  TO ENTER A WORD, SIMPLY TYPE IT IN.  OF COURSE, YOUR ERRORS"
    PRINT "CAN BE RECOVERED. TO DELETE THE LAST WORD YOU ENTERED, JUST ENTER": PRINT "ZZ.  TO DELETE ANY OTHER WORD, TYPE ZZ FOLLOWED, WITHOUT A SPACE, BY": PRINT "THAT WORD (FOR EXAMPLE, ZZBIGBUG WOULD DELETE THE ENTRY "; CHR$(34); "BIGBUG"; CHR$(34); "."
    GOSUB 4050
    PRINT
    PRINT "SCORING IS A LITTLE COMPLICATED, BUT THE COMPUTER HANDLES IT JUST": PRINT "FINE.   YOU'LL GET ALL THHE DETAILS RIGHT AWAY, BUT UP FRONT YOU SHOULD": PRINT "KNOW ABOUT THE BONUSES, BECAUSE THEY CAN REALLY ADD UP."
    GOSUB 4050
    PRINT "REMEMBER, YOU COULD ONLY ENTER FIVE WORDS OF EACH LENGTH?  WELL,": PRINT "ONCE YOU DO ENTER FIVE WORDS IN EACH OF TWO ADJOINING CATEGORIES": PRINT "(FOR EXAMPLE, FIVE THREE-LETTER WORDS AND FIVE FOUR-LETTER WORDS (AHEM!)),"
    PRINT "YOU GET A RATHER FAT BONUS": PRINT : PRINT TAB(10); "300 POINTS FOR 5 THREES AND 5 FOURS": PRINT TAB(10); "500 POINTS FOR 5 FOURS AND 5 FIVES": PRINT TAB(10); "800 POINTS FOR 5 FIVES AND 5 SIXES"
    PRINT TAB(10); "1200 POINTS FOR 5 SIXES AND 5 SEVEENS": PRINT TAAB(10); "1850 POINTS FOR 5 SEVENS AND 5 EIGHTS": PRINT TAB(10); "2700 POINTS FOR 5 EIGHTS AND 5 NINES"
    GOSUB 4050
    PRINT "NOW, HERE'S THE COMPLICATED PART.  SKIP IT IF YOU WISH, BUT IF YOU": PRINT "BECOME A REAL EXPERT, YOU'LL WANT THIS INFORMATION.  SO HERE IT IS": PRINT "FOR YOU, ANYWAY.": PRINT
    PRINT "FOR THE FIRST THREE-LETTER WORD YOU GET 60 POINTS, AND TEN MORE": PRINT "FOR EACH THEREAFTER.  60, 70, 80, 90, 100 POINTS TOTAL FOR 1, 2, 3,": PRINT "4 OR 5 THREE-LETTER WORDS."
    PRINT : PRINT "FOR THE FIRST FOUR-LETTER WORD YOU GET 120 POINTS, AND 20": PRINT "MORE FOR EACH THEREAFTER.  120, 140, 160, 180, 2000 POINTS FOR 1, 2,": PRINT "3, 4 OR 5 FOUR-LETTER WORDS."
    GOSUB 4050
    PRINT "AS THE FIVE-LETTER CATEGORY GROWS YOU GET 200, 250, 300, 350 AND": PRINT "400 POINTS."
    PRINT : PRINT "SIX LETTER WORDS BRING 300, 400, 500, 600 OR 700 POINTS FOR": PRINT "ONE THROUGH FIVE ENTRIES.": PRINT : PRINT "GET SEVEN LEETTER WORDS AND YOU'LL WIPE OUT YOUR OPPONENTS."
    PRINT "AS THAT CATEGORY FILLS YOU GET 500, 650, 800, 950 AND 1100 POINTS.": PRINT "BUT LOOK AT THE EIGHTS:  750, 1000, 1250, 1500, AND 1750 POINTS."
    GOSUB 4050
    PRINT "NINE- AND TEN-LETTER WORDS ARE THE SUREST WAY TO DRIVE YOUR": PRINT "OPPONENTS TO DISTRACTION.  NINES BRING 1000, 1500, 2000, 2500, OR": PRINT "3000 POINTS FOR ONE TO FIVE ENTRIES."
    PRINT : PRINT "AND TENS ? ? ? - - - FORGET THE REST OF THE PLAYERS AND LOOK!"
    PRINT : PRINT TAB(10); "<<<<< 1500, 3000, 5000, 7500, OR 13000 POINTS"
    PRINT TAB(15); "FOR ONE THROUGH FIVE ENTRIES.>>>>>"
    GOSUB 4050
    PRINT
    PRINT "NOW SOME VERY IMPORTANT DETAILS, DON'T SKIP THESE ! ! "
    XX$ = STRING$(32, " ")
    GOSUB 4050
    XX$ = STRING$(64, " ")
    PRINT : PRINT "ONCE YOU HAVE ACCUMULATED 2000 POINTS YOU BECOME VULNERABLE!": PRINT "THAT'S FINE, BECAUSE THEN YOU'LL GET 13 LETTERS TO WORK WITH, BUT": PRINT "ALSO YOU MUST SCORE A MINIMUM OF 500 POINTS.  IF YOU DON'T"
    PRINT "SCORE THE MINIMUM, 500 POINTS WILL BE DEDUCTED FROM YOUR SCORE,": PRINT "AND THE POINTS YOU DID MAKE IN THAT ROUND WILL BE DISALLOWED."
    PRINT : PRINT "WHEN YOU ARE VULNERABLE, YOU MAY NOT MAKE THREE-LETTER WORDS"
    PRINT : PRINT "THE GAME IS OVER AT THE END OF THE ROUND IN WHICH ANY PLAYER": PRINT "REACHES A TOTAL OF 5000 POINTS."
    GOSUB 4050
    PRINT "A WORD ABOUT THE DISPLAY..."
    PRINT : PRINT "THE DISPLAY IS SELF-PROMPTING AND WILL HELP YOU A LOT.": PRINT "IT IS ALSO SELF-EXPLANATORY, LISTING YOUR WORDS BY LENGTH.  WORDS": PRINT "ENTERED AFTER THREE MINUTES WILL AUTOMATICALLY BE DISALLOWED, AND"
    PRINT "THE TURN WILL BE ENDED.  TO END YOUR TURN BEFORE THE TIME LIMIT": PRINT "EXPIRES, ENTER XX.  WHEN YOUR TURN IS ENDED, THE COMPUTER WILL": PRINT "EXAMINE ALL THE ENTRIES AND DISALLOW WORDS MADE BY ADDING S TO OTHER"
    PRINT "ENTRIES, DUPLICATE ENTRIES, AND WORDS INCONSISTENT WITH THE LETTER": PRINT "LIST."
    GOSUB 4050
    PRINT "DISALLOWED WORDS WILL BE BRACKETED AS IN THE FOLLOWING EXAMPLES:": PRINT : PRINT "WORDS MADE BY ADDING S:            ++EXAMPLES++S": PRINT "DUPLICATE WORDS:                   ++EXAMPLE++2": PRINT "WORDS INCONSISTENT WITH LETTERS:   ++EXAMPLE++?"
    GOSUB 4050
    PRINT "AFTER THE COMPUTER DISALLOWS WORDS, YOUR OPPONENTS MAY DO SO, TOO.": PRINT "THEY MAY CHECK WORDS IN A STANDARD DICTIONARY AND THEN ENTER ANY": PRINT "CHALLENGES WHICH THE COMPUTER WILL BRACKET WITH ++  ++C."
    PRINT : PRINT "AFTER ALL CHALLENGES ARE MADE, ENTER XX, AND THE COMPUTER": PRINT "WILL CALCULATE AND DISPLAY YOUR SCORE AND THEN DISPLAY A SCOREBOARD": PRINT "FOR ALL PLAYERS."
    PRINT : PRINT "DURING PLAY, THE LOWER RIGHT CORNER OF THE SCREEN WILL SHOW": PRINT "THE PLAYER'S SCORE UP TO THE END OF HIS LAST TURN.  THE UPPER RIGHT": PRINT "WILL DISPLAY THE TIMER."
    GOSUB 4050
    PRINT "YOU CAN PROBABLY COME UP WITH ALL SORTS OF REFINEMENTS TO THE": PRINT "BASIC GAME.  WHAT WONDERFUL DEVELOPMENTS THEY COULD BE!  LIKE THEME": PRINT "GAMES.  MAYBE DEVOTE ONE WHOLE GAME TO COMPUTER-SCIENCE WORDS."
    PRINT : PRINT "OR SCI-FI": PRINT TAB(10); "OR WHO KNOWS": PRINT TAB(22); "WHERE YOUR": PRINT TAB(32); "IMAGINATION": PRINT TAB(43); "WILL LEAD?"
    GOSUB 4050
900 PRINT "NOW...IF YOU'D LIKE TO REVIEW INSTRUCTIONS, JUST TYPE AN 'R'."
    PRINT "BUT IF YOU'RE READY TO PLAY JUST HIT THE 'SPACE BAR'."
910 a$ = INKEY$: IF a$ = "" THEN 910
    IF a$ = "R" THEN 240
    a$ = ""
940 RANDOMIZE (VAL(LEFT$(TIME$, 2)) + VAL(RIGHT$(TIME$, 2)) + VAL(MID$(TIME$, 4, 2)))
    DATA FUNIPT,LTORDN,MUSRIG,BYWOLO,VEJQZX,WOPOMC,BRHIKT,SRHIFU,AAAEEE,VSYQWS, FHLPBN,JGDKCM
    READ C1$, C2$, C3$, C4$, C5$, C6$, C7$, C8$, C9$, VA$, VB$, VC$
    CLS
990 INPUT "HOW MANY PLAYERS FOR SCRAMBLE (1-4)"; N
     IF N < 1 OR N > 4 THEN 990
     DIM W$(7, 5), WT(7), WC(7), WD(7), F(7, 5), I$(N), V(N), S(N), S1(N)
     FOR LP = 1 TO N
      PRINT "TELL ME PLAYER "; LP; "'S NAME"
      LINE INPUT "==> "; I$(LP)
     NEXT
1055 PRINT : INPUT "ENTER TIME LIMIT 3-9 (DEFAULT IS 3):  "; A5
     IF A5 = 0 THEN TIME1 = 3: GOTO 1060
     IF A5 < 3 OR A5 > 9 THEN GOTO 1055 ELSE TIME1 = A5
1060 P = 1
     R = 1
1080 CLS
     LOCATE 1, 13: PRINT I$(P); " PLAYING AND";
     IF V(P) = 1 THEN PRINT " VULNERABLE" ELSE PRINT " NOT VULNERABLE"
     LOCATE 15, 55: PRINT S(P)
     IF V(P) = 1 THEN LOCATE 5, 2: PRINT "NO 3'S"
     LOCATE 4, 4: PRINT ":3:"
     LOCATE 4, 15: PRINT ":4:"
     LOCATE 4, 26: PRINT ":5:"
     LOCATE 4, 39: PRINT ":6:"
     LOCATE 4, 52: PRINT ":7:"; ""
     LOCATE 10, 7: PRINT ":8:"
     LOCATE 10, 22: PRINT ":9:"
     LOCATE 10, 38: PRINT ":10:"
     IF V(P) = 0 THEN 1260:  ' *** CHECK FOR VULNERABILITY ***
     V1$ = MID$(VA$, INT(RND * 6 + 1), 1)
     V2$ = MID$(VB$, INT(RND * 6 + 1), 1)
     V3$ = MID$(VC$, INT(RND * 6 + 1), 1)
     LY$ = V1$ + V2$ + V3$
1260 L1$ = MID$(C1$, INT(RND * 6 + 1), 1)
     L2$ = MID$(C2$, INT(RND * 6 + 1), 1)
     L3$ = MID$(C3$, INT(RND * 6 + 1), 1)
     L4$ = MID$(C4$, INT(RND * 6 + 1), 1)
     L5$ = MID$(C5$, INT(RND * 6 + 1), 1)
     L6$ = MID$(C6$, INT(RND * 6 + 1), 1)
     L7$ = MID$(C7$, INT(RND * 6 + 1), 1)
     L8$ = MID$(C8$, INT(RND * 6 + 1), 1)
     L9$ = MID$(C9$, INT(RND * 6 + 1), 1)
     L0$ = MID$(C9$, INT(RND * 6 + 1), 1)
     LY$ = LY$ + L1$ + L2$ + L3$ + L4$ + L5$ + L6$ + L7$ + L8$ + L9$ + L0$
     LOCATE 2, 1: PRINT "PRESS ANY KEY WHEN READY."
     LOCATE 2, 1: PRINT XX$
     LOCATE 2, 1: PRINT XX$
     LY1$ = "": FOR X1 = 1 TO LEN(LY$): LY1$ = LY1$ + MID$(LY$, X1, 1) + " ": NEXT
     LY1$ = LEFT$(LY1$, LEN(LY1$) - 1)
     LOCATE 3, 9: PRINT "YOUR LETTERS ARE:  "; LY1$
     MIN = 0: SEC = 0
1445 a$ = ""
1447 LOCATE 2, 63: PRINT USING "##"; MIN; : PRINT ":"; : PRINT USING "##"; SEC
     FOR I = 1 TO 150: AA$ = INKEY$: IF AA$ = "" THEN 1490
     IF ASC(AA$) = 13 THEN 1500
     IF ASC(AA$) = 8 AND LEN(a$) > 0 THEN a$ = LEFT$(a$, LEN(a$) - 1): GOTO 1470
     a$ = a$ + AA$
1470 LOCATE 1, 49: PRINT a$; " "
1490 NEXT: SEC = SEC + 1: IF SEC > 59 THEN MIN = MIN + 1: SEC = 0
     IF MIN = TIME1 - 1 AND SEC = 30 THEN PRINT CHR$(7); CHR$(7); CHR$(7)
     IF MIN < TIME1 THEN 1447
1500 LOCATE 1, 1: PRINT XX$
     IF MIN >= TIME1 THEN LOCATE 1, 1: PRINT XX$ ELSE GOTO 1540
     LOCATE 1, 21: PRINT "* * OVERTIME * *"
     GOTO 1760
1540 IF LEFT$(a$, 2) = "XX" THEN 1760
     IF LEFT$(a$, 2) = "ZZ" AND LEN(a$) = 2 THEN 3320
     IF LEFT$(a$, 2) = "ZZ" THEN 3340
     L = LEN(a$) - 3
     IF V(P) = 1 AND L < 1 THEN 1445
     IF L < 0 THEN 1445
     IF L > 7 THEN L = 7
     W$(L, WC(L)) = a$
     WC(L) = WC(L) + 1
     IF WC(L) > 5 THEN LOCATE 1, 1: PRINT "CATEGORY FULL.  DISALLOWED." ELSE GOTO 1670
     WC(L) = WC(L) - 1
     GOTO 1445
1670 B = WC(L) - 1
1680 IF L = 0 THEN LOCATE 5 + B, 4: PRINT a$: GOTO 1445
     IF L = 1 THEN LOCATE 5 + B, 14: PRINT a$: GOTO 1445
     IF L = 2 THEN LOCATE 5 + B, 25: PRINT a$: GOTO 1445
     IF L = 3 THEN LOCATE 5 + B, 37: PRINT a$: GOTO 1445
     IF L = 4 THEN LOCATE 5 + B, 50: PRINT a$: GOTO 1445
     IF L = 5 THEN LOCATE 11 + B, 4: PRINT a$: GOTO 1445
     IF L = 6 THEN LOCATE 11 + B, 19: PRINT a$: GOTO 1445
     LOCATE 11 + B, 35: PRINT a$: GOTO 1445
1760 LOCATE 1, 1: PRINT XX$
     LOCATE 1, 21: PRINT "INSPECTING ENTRIES"
     FOR LP = 0 TO 7
      WT(LP) = WC(LP)
      IF WC(LP) > 4 THEN WC(LP) = 4
     NEXT
' *** CHECKS FOR WORDS MADE BY ADDING S ***
     PP$ = "++": PQ$ = "++S"
     FOR LP = 1 TO 7
      GOSUB 4030
      FOR LQ = 0 TO WCC(LP)
       IF RIGHT$(W$(LP, LQ), 1) <> "S" THEN 1930
       FOR LR = 0 TO WC(LP - 1)
        IF W$(LP - 1, LR) <> LEFT$(W$(LP, LQ), 2 + LP) THEN 1920
        F(LP, LQ) = 1
        ON LP GOSUB 3860, 3880, 3900, 3920, 3940, 3960, 3980
1920   NEXT LR
1930  NEXT LQ
      GOSUB 4040
     NEXT LP
' *** ELIMINATES WORDS INCONSISTENT WITH LETTER LIST ***
     PP$ = "++": PQ$ = "++?"
     FOR LP = 0 TO 7
      GOSUB 4030
      LX$ = LY$
      FOR LQ = 0 TO WC(LP)
       IF W$(LP, LQ) = "" THEN 2160
       IF F(LP, LQ) = 1 THEN 2140
       LX$ = LY$
       FOR LR = 1 TO LP + 3
        T$ = MID$(W$(LP, LQ), LR, 1)
        IN = INSTR(LX$, T$)
        IF IN = 0 THEN 2110
        MID$(LX$, IN, 1) = " "
        GOTO 2130
2110    F(LP, LQ) = 1
        ON LP + 1 GOSUB 3840, 3860, 3880, 3900, 3920, 3940, 3960, 3980
2130   NEXT LR
2140  NEXT LQ
      GOSUB 4040
2160 NEXT LP
' *** ELIMINATES DUPLICATE ENTRIES ***
     PP$ = "++": PQ$ = "++2"
     FOR LP = 0 TO 7
      GOSUB 4030
      FOR LQ = 0 TO WC(LP)
       IF W$(LP, LQ) = "" THEN 2320
       FOR LR = 0 TO WC(LP)
        IF LQ <> LR AND W$(LP, LQ) = W$(LP, LR) THEN 2270
       NEXT LR
       GOTO 2300
2270   IF F(LP, LQ) = 1 THEN 2300
       F(LP, LR) = 1
       ON LP + 1 GOSUB 3840, 3860, 3880, 3900, 3920, 3940, 3960, 3980
2300  NEXT LQ
      GOSUB 4040
2320 NEXT LP
     a$ = ""
' ELIMINATES CHALLENGED ENTRIES ***
     PP$ = "++": PQ$ = "++C"
     a$ = ""
     LOCATE 1, 1: PRINT XX$
     LOCATE 1, 1: PRINT "ENTER CHALLENGES, THEN XX"
2400 LINE INPUT a$
     LOCATE 1, 1: PRINT XX$
IF a$ = "q" THEN PRINT "Please Wait...": CHAIN "moneycga"
     IF a$ = "XX" THEN 2600
     IF LEN(a$) < 3 THEN 2400
     L = LEN(a$) - 3
     FOR LP = 0 TO WC(L)
      IF a$ = W$(L, LP) THEN 2510
     NEXT
     LOCATE 1, 1: PRINT "CHALLENGED WORD NOT FOUND                  "
     GOTO 2400
2510 IF F(L, LP) = 1 THEN 2580
     F(L, LP) = 1
     LQ = LP
     LP = L
     ON L + 1 GOSUB 3840, 3860, 3880, 3900, 3920, 3940, 3960, 3980
     LOCATE 1, 1: PRINT XX$
     GOTO 2400
2580 PRINT 1, 0: PRINT "ENTRY ALREADY DISALLOWED "
     GOTO 2400
2600 LOCATE 1, 1: PRINT XX$
     FOR LP = 0 TO 7
      WWT(LP) = WT(LP) - WD(LP)
     NEXT
' *** SCORING ***
     IF WT(0) > 0 THEN S = 50 + 10 * WT(0)
     IF WT(1) > 0 THEN S = S + 100 + 20 * WT(1)
     IF WT(2) > 0 THEN S = S + 150 + 50 * WT(2)
     IF WT(3) > 0 THEN S = S + 200 + 100 * WT(3)
     IF WT(4) > 0 THEN S = S + 350 + 150 * WT(4)
     IF WT(5) > 0 THEN S = S + 500 + 250 * WT(5)
     IF WT(6) > 0 THEN S = S + 500 + 500 * WT(6)
     IF WT(7) = 1 THEN S = S + 1500
     IF WT(7) = 2 THEN S = S + 3000
     IF WT(7) = 3 THEN S = S + 5000
     IF WT(7) = 4 THEN S = S + 7500
     IF WT(7) = 5 THEN S = S + 13000
     IF WT(0) = 5 AND WT(1) = 5 THEN S = S + 300
     IF WT(1) = 5 AND WT(2) = 5 THEN S = S + 500
     IF WT(2) = 5 AND WT(3) = 5 THEN S = S + 800
     IF WT(3) = 5 AND WT(4) = 5 THEN S = S + 1200
     IF WT(4) = 5 AND WT(5) = 5 THEN S = S + 1850
     IF WT(5) = 5 AND WT(6) = 5 THEN S = S + 2700
     IF V(P) = 1 AND S < 500 THEN S = -500
     LOCATE 1, 14: PRINT "SCORE FOR "; I$(P); " FOR THIS ROUND: "; S
     S1(P) = S
     S(P) = S(P) + S
     FOR LP = 0 TO 1500: NEXT
     CLS
     PRINT
     PRINT TAB(20); "TOTAL SCORE, ROUND "; R
     PRINT
     PRINT "PLAYER", "LAST SCORE", "TOTAL SCORE", "VULNERABLE?"
     FOR LP = 1 TO N
      PRINT I$(LP),
      PRINT USING "  #####"; S1(LP);
      PRINT USING "            #####"; S(LP);
      IF S(LP) >= 2000 THEN PRINT "             YES" ELSE PRINT "             NO"
      IF S(LP) >= 2000 THEN V(LP) = 1 ELSE V(LP) = 0
      IF S(LP) >= 5000 THEN E = 1
     NEXT
     PRINT : PRINT : PRINT
     IF E = 1 AND P < N THEN PRINT "GAME OVER AT CONCLUSION OF THIS ROUND"
     IF E = 1 AND P = N THEN 3250
     P = P + 1
     IF P = N + 1 THEN R = R + 1
     IF P = N + 1 THEN P = 1
     GOSUB 4050
     PRINT "STAND BY, PLEASE...";
     FOR LP = 0 TO 7
      WT(LP) = 0
      WC(LP) = 0
      WD(LP) = 0
      FOR LQ = 0 TO 4
       W$(LP, LQ) = ""
       F(LP, LQ) = 0
      NEXT LQ, LP
     LX$ = ""
     LY$ = ""
     S = 0
     W0$ = ""
     X1$ = ""
     S1 = 0
     A1$ = ""
     GOTO 1080
3250 PRINT "GAME NOW OVER!!"
     PRINT "PLAY AGAIN? (Y/N)"
3270 Z$ = INKEY$
     IF Z$ = "" THEN 3270
     IF Z$ = "Y" THEN RUN
     IF Z$ = "N" THEN CLS : PRINT "Please Wait...": CHAIN "moneycga"
     GOTO 900
' *** ROUTINE TO DELETE ENTRIES BY PLAYER ***
3320 a$ = A1$
     GOTO 3350
3340 a$ = RIGHT$(a$, LEN(a$) - 2)
3350 LOCATE 1, 4: PRINT "DELETING "; a$; "                     "
     IF LEN(a$) < 3 THEN 3430
     X1$ = STRING$(LEN(a$), " ")
     L = LEN(a$) - 3
     IF L > 7 THEN L = 7
     FOR LP = 0 TO WC(L) - 1
      IF a$ = W$(L, LP) THEN 3450
     NEXT
3430 LOCATE 1, 25: PRINT "                    NOT FOUND"
     GOTO 3480
3450 W$(L, LP) = ""
     W$(L, LP) = W$(L, WC(L) - 1)
     W$(L, WC(L) - 1) = ""
3480 W0$ = W$(L, LP)
     ON L + 1 GOTO 3500, 3540, 3580, 3620, 3660, 3700, 3740, 3780
3500 LOCATE 5 + LP, 4: PRINT X1$
     LOCATE 5 + LP, 4: PRINT W0$
     LOCATE 4 + WC(L), 4: PRINT X1$
     GOTO 3810
3540 LOCATE 5 + LP, 14: PRINT X1$
     LOCATE 5 + LP, 14: PRINT W0$
     LOCATE 4 + WC(L), 14: PRINT X1$
     GOTO 3810
3580 LOCATE 5 + LP, 25: PRINT X1$
     LOCATE 5 + LP, 25: PRINT W0$
     LOCATE 4 + WC(L), 25: PRINT X1$
     GOTO 3810
3620 LOCATE 5 + LP, 37: PRINT X1$
     LOCATE 5 + LP, 37: PRINT W0$
     LOCATE 4 + WC(L), 37: PRINT X1$
     GOTO 3810
3660 LOCATE 5 + LP, 50: PRINT X1$
     LOCATE 5 + LP, 50: PRINT W0$
     LOCATE 4 + WC(L), 50: PRINT X1$
     GOTO 3810
3700 LOCATE 11 + LP, 4: PRINT X1$
     LOCATE 11 + LP, 4: PRINT W0$
     LOCATE 10 + WC(L), 4: PRINT X1$
     GOTO 3810
3740 LOCATE 11 + LP, 19: PRINT X1$
     LOCATE 11 + LP, 19: PRINT W0$
     LOCATE 10 + WC(L), 19: PRINT X1$
     GOTO 3810
3780 LOCATE 11 + LP, 35: PRINT X1$
     LOCATE 11 + LP, 35: PRINT W0$
     LOCATE 10 + WC(L), 35: PRINT STRING$(LEN(W0$), " ")
3810 WC(L) = WC(L) - 1
     GOTO 1680
' *** S/R TO DELETE INVALID ENTRIES ***
3840 PP = 6: PQ = 3: PR = 8
     GOTO 3990
3860 PP = 6: PQ = 13: PR = 19
     GOTO 3990
3880 PP = 6: PQ = 24: PR = 31
     GOTO 3990
3900 PP = 6: PQ = 36: PR = 44
     GOTO 3990
3920 PP = 6: PQ = 49: PR = 58
     GOTO 3990
3940 PP = 12: PQ = 3: PR = 13
     GOTO 3990
3960 PP = 12: PQ = 18: PR = 29
     GOTO 3990
3980 PP = 12: PQ = 34: PR = 46
3990 LOCATE PP + LQ - 1, PQ - 1: PRINT PP$
     LOCATE PP + LQ - 1, PR - 1: PRINT PQ$
     WD(LP) = WD(LP) + 1
     RETURN
4030 LOCATE 1, 43: PRINT CHR$(31) + CHR$(0): RETURN
4040 LOCATE 1, 43: PRINT " ": RETURN
4050 LOCATE 14, 1: PRINT "TO CONTINUE, PRESS ANY KEY."
     LOCATE 14, 1: PRINT XX$
     LOCATE 14, 1: PRINT "TO CONTINUE, PRESS ANY KEY.": SLEEP 100
     CLS
     PRINT
     RETURN
Error1:
CLS : PRINT "ERROR - reson (?)..."
PRINT
PRINT "Please Wait...": CHAIN "MoneyCga"