1 Q=Q+1:ONQGOTO3,4,5
2 GOTO10
3 LOAD"WB.FNT",8,1
4 LOAD"UTL",8,1
5 POKE53281,14:PRINT"[147]":IFPEEK(53265)<>27THENSYS51459
10 IFA3=0THENPOKE20480,0:POKE20481,0
20 RB=256*PEEK(20480)+PEEK(20481)
30 IFA2THENRB=RB+1:GOTO2680
40 IFA1THEN1170
50 POKE52,56:POKE56,56:POKE55,0:POKE51,0
60 GOTO1080
62 PRINT"":POKE646,CL
63 PRINTTAB(26)"[176][192][192][192][192][192][192][192][174]"
64 PRINTTAB(26)"[221]W[146] O[146] R[146] D[146][221]"
65 PRINTTAB(26)"[221]       [221]"
66 PRINTTAB(26)"[221]B[146] O[146] W[146] L[146][221]"
67 PRINTTAB(26)"[173][192][192][192][192][192][192][192][189]"
68 RETURN
70 :
80 :REM         ===ENDING===
90 :
100 PRINT"[147][149]"SPC(13)"DO YOU WANT TO:"
110 PRINTSPC(10)"P[151][146]LAY ANOTHER GAME?"
120 PRINTSPC(10)"R[151][146]ETURN TO FIRST MENU?"
130 PRINTSPC(10)"E[151][146]XIT TO LOADSTAR?"
135 POKE198,0
140 GETA$
150 IFA$="P"THEN1170
160 IFA$="R"THEN2280
170 IFA$<>"E"THEN140
180 PRINT"[147]"SPC(10)"[149]RETURNING TO LOADSTAR"
190 POKE55,0:POKE56,160:POKE53272,21
200 LOAD"HELLO CONNECT",8
222 PRINT"":FORT=0TO20:PRINT:NEXT
224 PRINT"  PRESS ANY KEY TO PLAY ANOTHER GAME  "
226 PRINT"                                      [145]"
228 RETURN
230 :
240 :REM         ===SCREEN===
250 :
260 IFD=0THENPP%(FR)=221:RETURN
270 IFD=1THENPP%(FR)=220:RETURN
280 PP%(FR)=48+(11-D):RETURN
290 PRINT"[144]":FORI=1TO19:PRINT:NEXT
300 PRINTSPC(15);:FORI=1TOR:PRINT"-";:NEXT:PRINT:PRINT
310 PRINT"   F1 [151]REVEAL A LETTER      F3 [151]SCORES"
320 PRINT"  F7 [151]INSTRUCTIONS    F8 [151]NEW GAME/QUIT [145]"
325 CL=6:GOSUB62
330 RETURN
340 :
350 :REM         ===TRIANGLE===
360 :
370 FORI=0TOR-1:Q%(I)=0:NEXT
380 FORI=0TOR-1
390 F=INT(RND(1)*R)
400 IFQ%(F)THEN390
410 F$(I)=MID$(G$(FR),F+1,1)
420 Q%(F)=1
430 NEXT:RETURN
440 :
450 :REM       ===SCORE SHEET===
460 :
470 PRINT"";
480 PRINT"  [144][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
490 PRINT"  [180] [219][146][180] [219][146][180] [219][146][180] [219][146][180] [219][146][180] [219][146][180] [219][146][180] [219][146][180] [219][146][180] [219][146][180]    [170]"
500 PRINT"  [180]  [180]  [180]  [180]  [180]  [180]  [180]  [180]  [180]  [180]  [180]    [170]"
510 PRINT"  [204][175][175][204][175][175][204][175][175][204][175][175][204][175][175][204][175][175][204][175][175][204][175][175][204][175][175][204][175][175][204][175][175][175][175][186][151]"
520 RETURN
530 :
540 :REM         ===GET WORD===
550 :
560 FORI=1TO10:G$(I)="":CJ=CJ+1
570 RA=INT(RND(1)*RB):IFCJ<RB-10THENIFRQ%(RA)THEN570
580 FORJ=0TOR-1
590 G$(I)=G$(I)+CHR$(PEEK(BF+J+RA*R))
600 IFCJ<RB-10THENRQ%(RA)=1
610 NEXT:NEXT
620 RETURN
630 :
640 :REM        ===LOAD SCORES===
650 :
660 OPEN15,8,15
665 OPEN2,8,2,"0:SCO,P,R"
670 FORI=10TO4STEP-1:FORJ=0TO3
680 INPUT#2,HS%(I,J)
690 INPUT#2,NA$(I,J)
700 NEXT:NEXT:CLOSE2
710 GOSUB792:RETURN
720 :
730 :REM        ===SAVE SCORES===
740 :
750 OPEN15,8,15
755 OPEN2,8,2,"@0:SCO,P,W"
760 FORI=10TO4STEP-1:FORJ=0TO3
765 IFBQTHENHS%(I,J)=10:NA$(I,J)="------"
770 PRINT#2,HS%(I,J)
780 PRINT#2,NA$(I,J)
790 NEXT:NEXT:CLOSE2:GOSUB792:RETURN
792 INPUT#15,ER,ER$
794 IFER$<>"OK"THENPRINT"[145][145]"ER$
796 PRINT#15,"I0"
800 CLOSE15:RETURN
810 :
820 :REM        ===SHOW WORDS===
830 :
840 CL=15:GOSUB62:PRINT"":FORI=1TO10
850 L=25:IFI=10THENL=24
860 PRINTTAB(L)""I" [151]"G$(I)
870 NEXT
880 IFFLTHENFL=0:RETURN
885 POKE198,0
890 GETA$:IFA$=""THEN890
900 RETURN
910 :
920 :REM        ===BIG FOUR===
930 :
940 SYS828,4,64:SYS828,216,68
950 POKECB,0:POKECB+1,0
960 PRINT"[147]"TAB(14)"THE BIG[146] FOUR"
970 FORI=10TO4STEP-1
975 PRINT"[152]      "R$(I)"PINS[146]"
978 FORJ=0TO3
980 PRINT"[154]"TAB(25-LEN(NA$(I,J)))NA$(I,J)
990 PRINT"[145][159]"TAB(28)HS%(I,J)
992 NEXT
995 IFI<>7THEN1005
1000 PRINT"   [158]PRESS ANY KEY FOR MORE SCORES[145]"
1002 POKE198,0
1003 GETA$:IFA$=""THEN1003
1004 PRINT"[147]"TAB(14)"THE BIG[146] FOUR"
1005 NEXT
1010 PRINT"  [158]PRESS ANY KEY TO RETURN TO THE GAME"
1015 POKE198,0
1020 GETA$:IFA$=""THEN1020
1030 POKECB,15:POKECB+1,15
1040 SYS828,64:SYS828,68,216:RETURN
1050 :
1060 :REM    ===INITIALIZATION===
1070 :
1080 CB=53280:POKE53272,31
1090 PRINTCHR$(8)
1100 DIMRQ%(308),M%(11),F$(11),G$(11),P%(11),PP%(13),Y%(11),U%(11)
1105 DIMHS%(11,4),NA$(11,4),MH%(3)
1110 S=1024:C=54272:W=775:Z=40:T=RND(-TI):BF=20482:RB=0:A3=1
1115 MH%(0)=10:MH%(1)=2:MH%(2)=9
1118 SP$="                                       "
1120 FORI=0TO9:READM%(I):NEXT
1130 FORI=10TO4STEP-1:READR$(I):NEXT
1140 FORI=1TO10:P%(I)=S+121+I*3:U%(I)=P%(I)+39:NEXT
1150 GOSUB660
1160 GOTO2280
1170 PRINT"[147]"
1180 POKECB+1,15:POKECB,15
1190 FR=0:SC=0
1200 GOSUB560:GOSUB470
1210 FORI=1TO10:POKEP%(I)+C,0:NEXT
1220 FR=FR+1:QZ=0:D=0
1230 FORI=0TOR-1:POKES+W+I,32:POKES+W+I+C,9:NEXT
1240 GOSUB290:GOSUB370
1250 FORI=0TOR-1:POKES+M%(I),ASC(F$(I))+64
1260 POKES+M%(I)+C,6:NEXT
1270 PRINT"  ";
1280 FORI=1TO10
1290 IFI=FRANDFR=10THENPRINTI;"[157][157][157][157]>[146]"SPC(2)"?[146]";:GOTO1320
1300 IFI=FRTHENPRINTI;"[157][157][157]>[146]"SPC(1)"?[146]";:GOTO1320
1310 PRINTI;"[157] ";
1320 NEXT:PRINT"TOTAL"
1330 K=0
1340 IFK<0THENK=0
1350 IFK>R-1THENK=R-1
1360 V2=PEEK(S+W+K+C)AND15
1370 V=S+W+K:V1=PEEK(V):GOSUB260:POKEU%(FR),PP%(FR):POKEU%(FR)+C,1
1380 IFPP%(FR)=220THENPOKEU%(FR)-Z,100:POKEU%(FR)-Z+C,1
1390 IFV1>128THENV1=V1-128:POKEV+C,V2:GOTO1410
1400 IFV1<128THENV1=V1+128:POKEV+C,1
1410 POKEV,V1:POKES+825+C,15
1420 GETA$:IFA$=""THEN1370
1430 IFV1>128THENV1=V1-128:POKEV,V1:POKEV+C,V2
1440 IFA$<>CHR$(133)THEN1530
1450 IFV2<>1ANDV2<>9THEN1420
1460 POKEV,ASC(MID$(G$(FR),V-(S+W-1),1))-64:POKES+W-1+V-(S+W-1)+C,6:V2=6
1500 D=D+1:IFR-D<0THEND=D-1
1510 POKEU%(FR),32:IFPEEK(U%(FR)-Z)=100THENPOKEU%(FR)-Z,32
1520 GOTO1420
1530 IFA$=CHR$(13)THEN1710
1540 IFA$=CHR$(140)THEN100
1550 IFA$=CHR$(134)THENGOSUB940:GOTO1420
1551 IFA$<>CHR$(135)THEN1560
1552 SYS828,4,64:SYS828,216,68:PRINT"":FORI=0TO21:PRINT:NEXT
1553 PRINT"[145]  [149]DO YOU REALLY WANT TO CLEAR THE    "
1554 PRINT"      HIGH SCORES?  Y[151]ES OR N[151]O        ":POKE198,0
1555 GETA$:IFA$<>"Y"ANDA$<>"N"THEN1555
1556 IFA$="N"THEN1558
1557 BQ=1:GOSUB750:BQ=0
1558 SYS828,64,4:SYS828,68,216
1559 GOTO1420
1560 IFA$<>CHR$(136)THEN1620
1580 GOSUB5000
1610 GOTO1420
1620 IFA$="[157]"THENPOKEV,V1:K=K-1:GOTO1340
1630 IFA$=""THENPOKEV,V1:K=K+1:GOTO1340
1640 IFA$=CHR$(20)THENIF(PEEK(V+C)AND15)<>6THENPOKEV,32:K=K-1:GOTO1340
1650 IFA$=CHR$(20)THENK=K-1:GOTO1340
1660 IFA$<"A"ORA$>"Z"THEN1420
1670 IFV1<>32ANDV2=6THEN1690
1680 POKEV,ASC(A$)-64
1690 K=K+1
1700 GOTO1340
1710 E$="":FORI=0TOR-1:IFPEEK(S+W+I)>128THENPOKES+W+I,PEEK(S+W+I)-128
1720 E$=E$+CHR$(PEEK(S+W+I)+64):NEXT
1730 POKEU%(FR),32:IFPEEK(U%(FR)-Z)=100THENPOKEU%(FR)-Z,32
1733 QW=0
1735 CL=1:GOSUB62:CL=6:GOSUB62:QW=QW+1:IFQW<3THEN1735
1740 IFE$<>G$(FR)THEN1800
1750 POKEP%(FR),PP%(FR)
1770 PRINTSPC(27)"[145][145][145][145]       [157][157][157][157][157][157]RIGHT[157][157][157][157][157][157]       "
1772 FORT=1TO2000:NEXT:CL=6:GOSUB62
1780 IFFR=10THEN1840
1790 GOTO1220
1800 D=D+1:IFR-D<0THEND=D-1
1810 PRINTSPC(27)"[145][145][145][145]       [157][157][157][157][157][157]SORRY[157][157][157][157][157][157]       "
1820 FORT=1TO2000:NEXT:CL=6:GOSUB62
1830 GOTO1270
1840 SC=0:PP%(11)=221:PP%(12)=221
1850 FORI=1TO10
1860 IFPP%(I)<>221THEN1930
1870 IFPP%(I+1)<>221THEN1910
1880 IFPP%(I+2)=221THENSC=SC+30:GOTO1980
1890 IFPP%(I+2)=220THENSC=SC+29:GOTO1980
1900 SC=SC+20+PP%(I+2)-48:GOTO1980
1910 IFPP%(I+1)=220THENSC=SC+20:GOTO1980
1920 SC=SC+10+PP%(I+1)-48:GOTO1980
1930 IFPP%(I)<>220THEN1970
1940 IFPP%(I+1)=221THENSC=SC+20:GOTO1980
1950 IFPP%(I+1)=220THENSC=SC+19:GOTO1980
1960 SC=SC+10+PP%(I+1)-48:GOTO1980
1970 SC=SC+PP%(I)-48
1980 NEXT
1990 FL=1:GOSUB840
2000 FORI=0TO9:IFSC>HS%(R,I)THEN2020
2010 NEXT
2015 GOSUB222:GOTO2247
2020 PRINT"":FORT=0TO20:PRINT:NEXT
2030 PRINT"  [149]DO YOU WANT TO REGISTER YOUR SCORE?  "
2040 PRINT"              Y[151]ES  OR  N[151]O            ":POKE198,0
2080 PRINT""TAB(33)SC
2090 FORT=1TO50:NEXT
2100 PRINT"[149]"TAB(33)SC
2110 FORT=1TO50:NEXT
2120 GETA$:IFA$=""THEN2080
2130 IFA$="Y"THEN2170
2140 IFA$="N"THEN2245
2160 GOTO2120
2170 PRINT"":FORT=0TO21:PRINT:NEXT
2180 PRINT"         YOUR NAME                    [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
2190 SF=1:LN=16:GOSUB4000:N$=A$:SF=0
2200 FORJ=3TOI+1STEP-1
2210 HS%(R,J)=HS%(R,J-1):NA$(R,J)=NA$(R,J-1)
2220 NEXT
2230 HS%(R,I)=SC:NA$(R,I)=N$
2240 GOSUB750:GOSUB660
2245 GOSUB222
2246 POKE198,0
2247 GETA$:IFA$=""THEN2247
2250 GOTO1170
2260 DATA690,572,568,450,446,454,328,332,336,324
2270 DATATEN,NINE,EIGHT,SEVEN,SIX,FIVE,FOUR
2280 POKECB+1,0:POKECB,0:PRINT"[147]"
2290 FORI=25TO0STEP-1:FORJ=2TO0STEP-1
2300 POKES+87+I+J*Z,161+I+J*32
2310 NEXT:NEXT
2320 FORI=0TO25:FORJ=0TO2
2330 POKES+87+I+J*Z+C,MH%(J)
2340 NEXT:NEXT
2350 PRINT""SPC(16)"[154]TENPINS"
2360 PRINTSPC(16)"NINEPINS"
2370 PRINTSPC(16)"EIGHTPINS"
2380 PRINTSPC(16)"SEVENPINS"
2390 PRINTSPC(16)"SIXPINS"
2400 PRINTSPC(16)"FIVEPINS"
2410 PRINTSPC(16)"FOURPINS"
2420 PRINT"[151]     USE CURSOR[146] KEYS[146] [151]THEN RETURN"
2430 Y=5:ZV=0:A1=0:A2=0
2440 PRINT"":FORI=1TOY:PRINT:NEXT
2450 PRINTSPC(13)"?[157][146]";
2455 POKE198,0
2460 GETA$:IFA$=""THEN2460
2462 IFA$=CHR$(13)THEN2510
2465 IFA$<>""THEN2475
2470 PRINT" ":Y=Y+2:IFZVTHENIFY>21THENY=19
2473 IFZV=0THENIFY>17THENY=5
2475 IFA$<>""THEN2500
2480 PRINT" ":Y=Y-2:IFZVTHENIFY<19THENY=21
2485 IFZV=0THENIFY<5THENY=17
2500 GOTO2440
2510 PRINT"?[146]":IFZVTHEN2580
2520 R=11-(Y-3)/2
2530 PRINT"":FORI=1TO19:PRINT:NEXT
2540 PRINTSPC(16)"[159]PLAY THE GAME"
2550 PRINTSPC(16)"ADD TO THE WORD LIST"
2560 ZV=1:Y=19
2570 GOTO2440
2580 A1=1
2585 PRINT"":FORI=0TO22:PRINT:NEXT:PRINT"        LOADING "R$(R)"-LETTER WORDS   [145]"
2590 IFY=21THENA2=1
2600 ONR-3GOSUB2610,2620,2630,2640,2650,2660,2670
2610 LOAD"FOUR",8,1
2620 LOAD"FIVE",8,1
2630 LOAD"SIX",8,1
2640 LOAD"SEVEN",8,1
2650 LOAD"EIGHT",8,1
2660 LOAD"NINE",8,1
2670 LOAD"TEN",8,1
2680 POKECB,15:POKECB+1,15
2700 PRINT"[147]":FORI=0TO19:PRINT:NEXT
2710 PRINTSPC(7)"L[146][151]IST      M[146][151]ENU      S[146][151]AVE"
2715 PRINTSPC(14)"I[146][151]NSTRUCTIONS"
2720 PRINT"[144]"SPC(17);:FORI=1TOR:PRINT"-";:NEXT:PRINT
2730 PRINT"[145][145][151]      WORD "RB+1
2740 PRINTSPC(11)"[145]#"SPC(3)"[154]  ";
2750 B$="":LN=R:GOSUB4000:B$=A$
2755 IFB$<>"I"THEN2760
2758 GOSUB5000:GOTO2700
2760 IFB$="L"THEN2830
2765 IFB$="S"THENGOSUB2990:GOTO2700
2770 IFB$<>"M"THEN2810
2772 PRINT"":FORI=0TO21:PRINT:NEXT
2774 PRINT"DO YOU WANT TO SAVE FIRST? Y[151]ES OR N[151]O[145]"
2775 POKE198,0
2776 GETA$:IFA$<>"Y"ANDA$<>"N"THEN2776
2778 IFA$="N"THEN2280
2780 GOSUB2990:GOTO2280
2810 FORI=1TOR:POKEBF+(RB)*R+I-1,ASC(MID$(B$,I,1)):NEXT
2815 RB=RB+1
2820 GOTO2700
2830 PRINT"[147]":POKECB,0:POKECB+1,0
2840 FORI=0TO21:PRINT:NEXT:PRINTSPC(6)"[158]PRESS [159]SHIFT[158][146] TO HALT LISTING[155]  ";
2850 FORI=1TORB:A$=""
2860 IFPEEK(653)=1THEN2860
2870 FORJ=0TOR-1
2880 A$=A$+CHR$(PEEK(BF+J+(I-1)*R))
2890 NEXT
2900 IFPOS(0)>37-RTHENPRINT:PRINT"  ";
2910 IFPEEK(214)<22THEN2940
2920 PRINT:PRINTSP$:PRINT
2930 PRINTSPC(6)"[158][145]PRESS [159]SHIFT[158][146] TO HALT LISTING[155]  [145][145][145]";:GOTO2950
2940 PRINT" "A$" ";
2950 NEXT
2960 PRINT"":FORI=0TO21:PRINT:NEXT:PRINTSPC(6)"[158] PRESS ANY KEY TO CONTINUE  "
2965 POKE198,0
2970 GETA$:IFA$=""THEN2970
2980 GOTO2680
2990 POKEBF-2,INT(RB/256)
3000 POKEBF-1,RB-256*INT(RB/256)
3010 OPEN15,8,15,"I0"
3020 FR$=R$(R)
3030 SYS57812"@0:"+FR$,8
3040 POKE193,0:POKE194,80
3050 POKE174,0:POKE175,INT((BF+RB*R)/256)+1:SYS62954
3060 INPUT#15,A$,A$
3070 IFA$="OK"THENA$="SAVED"
3080 PRINTTAB(15)""A$:FORT=1TO3000:NEXT
3085 IFA$<>"SAVED"THENPRINT#15,"I0"
3090 CLOSE15
3100 RETURN
4000 POKE198,0:K$=""
4010 PRINT" [157][146]";
4020 FORT=1TO10:NEXT
4030 PRINT" [157][149]";
4040 FORT=1TO10:NEXT
4050 GETA$:IFA$=""THEN4010
4060 L=LEN(K$)
4070 IFA$=CHR$(13)THENA$=K$:PRINT:RETURN
4080 IFA$=CHR$(20)ANDLTHENPRINT" [157][157]";:K$=LEFT$(K$,L-1):GOTO4010
4085 IFA$=" "ANDSFTHEN4100
4090 IF(A$<"A"ORA$>"Z")THEN4010
4100 IFL>=LNTHEN4010
4110 PRINTA$;:K$=K$+A$
4120 GOTO4010
5000 SYS828,4,64:SYS828,216,68
5001 POKE53281,0:POKE53281,0
5002 PRINT"[147]"TAB(12)"W[146] O[146] R[146] D[146]    B[146] O[146] W[146] L"
5005 PRINT"             [154]PLAYING THE GAME"
5010 PRINT"   [159]UNSCRAMBLE THE LETTERS ON  THE PINS"
5020 PRINT" AND ENTER THE WORD ON THE DOTTED LINE."
5030 PRINT" IF YOU ARE CORRECT, YOU MAKE THE SCORE"
5040 PRINT" THAT'S IN THE FRAME ON THE SCOREBOARD"
5050 PRINT" IF YOU'RE WRONG, YOU LOSE A PIN."
5070 PRINT"   IF YOU WANT TO REVEAL A LETTER,"
5080 PRINT" POSITION THE CURSOR ON THE DOTTED LINE"
5090 PRINT" AND PRESS F1[159].  IT COSTS YOU A PIN."
5100 PRINT"   PRESS F3[159] TO SEE THE BIG[146] FOUR[146][159] OF"
5110 PRINT" EACH LEVEL."
5115 PRINT"   PRESS F7[159] TO SEE THESE INSTRUCTIONS."
5117 PRINT" PRESS F5[159] TO CLEAR THE HIGH SCORES."
5120 PRINT"   TO QUIT THE GAME, PRESS F8"
5130 PRINT"        [158]PRESS ANY KEY TO CONTINUE[145]"
5135 POKE198,0
5140 GETA$:IFA$=""THEN5140
5150 POKE53272,31:POKE53281,0:PRINT"[147]"TAB(12)"W[146] O[146] R[146] D[146]    B[146] O[146] W[146] L"
5160 PRINT"         [154]ADDING TO THE WORD LIST"
5170 PRINT"   [159]ENTER YOUR WORDS ON THE DOTTED"
5180 PRINT" LINE.  TRY NOT TO ENTER WORDS THAT CAN"
5190 PRINT" BE ANAGRAMMED TWO OR MORE DIFFERENT"
5195 PRINT" WAYS."
5200 PRINT"   WHEN YOU'RE THROUGH, PRESS RETURN[159]"
5210 PRINT" WITHOUT ENTERING ANYTHING."
5220 PRINT"   TO SEE THE LIST, ENTER L[146][159]."
5222 PRINT"   TO SAVE YOUR LIST, ENTER S[146][159]."
5225 PRINT"   TO RETURN TO THE MENU, ENTER M[146][159]."
5230 PRINT"   ALWAYS SAVE YOUR NEW LIST BEFORE"
5240 PRINT" RETURNING TO THE MENU."
5250 PRINT"        [158]PRESS ANY KEY TO CONTINUE[145]"
5255 POKE198,0
5260 GETA$:IFA$=""THEN5260
5265 SYS828,64,4:SYS828,68,216:POKECB,15:POKECB+1,15
5270 RETURN