10 GOTO3090
20 REM -- GAME SCREEN --
30 POKE53269,0:PRINT"[147]";:POKE53275,0
40 POKE53265,PEEK(53265)OR64
50 POKE53281,4:POKE53280,6:POKE53282,1:POKE53283,0:POKE53284,7
60 FORI=.TO23:PRINT"[154]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[157][148]@":NEXT
70 PRINT"[160][160][200][189][200][197][204][208][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][209][189][209][213][201][212][160][157][148][160]"
80 PRINTTAB(15)"[150]#$#$#$[150]#$#$"
90 PRINTTAB(15)"[150]%&%&%&[150]%&%&@"
100 PRINTTAB(15)"[150]#$@@[150]#$@@[150]#$@"
110 PRINTTAB(15)"[150]%&@[150]%&@[150]%&@"
120 FORI=1TO2
130 PRINTTAB(15)"[150]#$@[150]#$@[150]#$@":PRINTTAB(15)"[150]%&@[150]%&@[150]%&@"
140 NEXT
150 PRINTTAB(3)"[150]#$#$#$#$#$#$#$@[150]#$@#$[150]#$#$#$#$#$#$"
160 PRINTTAB(3)"[150]%&%&%&%&%&%&%&@[150]%&@%&[150]%&%&%&%&%&%&@"
170 PRINTTAB(3)"#$@@@@@@@@@@@@@[153]#$@@@@@@@@@@@@#$@"
180 PRINTTAB(3)"%&@"TAB(19)"[153]%&@"TAB(35)"%&@"
190 PRINTTAB(3)"[150]#$#$#$#$#$#$#$[150]#$@#$[150]#$#$#$#$#$#$@"
200 PRINTTAB(3)"[150]%&%&%&%&%&%&%&@[150]%&@%&[150]%&%&%&%&%&%&@"
210 PRINTTAB(4)"@@@@@@@@@@@[150]#$@[150]#$@[150]#$@@@@@@@@@@@@@"
220 PRINTTAB(15)"[150]%&@[150]%&@[150]%&@"
230 FORI=1TO2
240 PRINTTAB(15)"[150]#$@[150]#$@[150]#$@":PRINTTAB(15)"[150]%&@[150]%&@[150]%&@"
250 NEXT
260 PRINTTAB(15)"[150]#$#$#$[150]#$#$@"
270 PRINTTAB(15)"[150]%&%&%&[150]%&%&@"
280 PRINTTAB(16)"@@@@@@@@@@"
290 PRINTTAB(2)"           "TAB(27)"           "
300 FORI=.TO3:PRINTTAB(2)"[144]           [146]@"TAB(27)"[144]           [146]@":NEXT
310 PRINTTAB(3)"@@@@@@@@@@@"TAB(28)"@@@@@@@@@@@"
320 POKE214,16:PRINT
330 PRINTTAB(2)"[144]           "TAB(27)"           "
340 FORI=.TO3:PRINTTAB(2)"[144]           [146]@"TAB(27)"[144]           [146]@":NEXT
350 PRINTTAB(3)"@@@@@@@@@@@"TAB(28)"@@@@@@@@@@@"
360 POKE214,2:PRINT
370 PRINTTAB(3)"[156]STAR RACE":PRINTTAB(3)"A GAME BY":PRINTTAB(3)"TONY ROSE"
380 POKE214,17:PRINT""
390 PRINTTAB(31)D$(5)""
400 REM -- SPRITES --
410 POKE51192,128:POKE53285,14:POKE53286,10:POKE53276,1
420 FORI=.TO3:POKE53287+I,0:NEXT
430 POKE53250,184:POKE53251,135:POKE53252,160:POKE53253,135
440 POKE53254,172:POKE53255,156:POKE53256,172:POKE53257,114
450 POKE53258,184:POKE53259,135:POKE53260,160:POKE53261,135
460 POKE53262,172:POKE53263,156
470 REM -- MAIN --
480 IFD<>6ANDD<>1THENPL=PL+1:IFPL>2THENPL=1
490 POKE214,2:PRINT
500 PRINTTAB(30)C$(-(PL=2))"KNEES"
510 PRINTTAB(31)""NP(2)
520 POKE214,17:PRINT
530 PRINTTAB(6)C$(-(PL=1))"YOU"
540 PRINTTAB(6)""NP(1)
550 POKE214,23:PRINT:PRINTTAB(13)TN$(PL)""
560 GOSUB1040
570 IFPL=2THEN1320
580 GOSUB1190:IFF=0THEN480
590 REM -- MOVE THE HAND --
600 GETA$:J=PEEK(JY)AND15
610 IFA$=""ORJ=7THEN650
620 IFA$="[157]"ORJ=11THEN670
630 IFA$=CHR$(13)OR(PEEK(JY)AND16)=.THEN730
640 GOTO600
650 HP=HP+1:IFHP>57THENHP=1
660 GOTO680
670 HP=HP-1:IFHP<1THENHP=57
680 YP=BD(HP,1)*8+64:XP=BD(HP,2)*8+32
690 IFXP>255THENPOKE53264,1
700 POKE53248,XPAND255:POKE53249,YP:IFXP<256THENPOKE53264,0
710 GOTO600
720 REM -- MOVE --
730 IFBD(HP,0)=1THEN600
740 IFBD(HP,0)=2ANDBD(HP,3)=2THEN600
750 F=0:FORI=1TO4
760 IFMP(I)=0ANDHP>1THEN780
770 IFMP(I)+D=HPTHENF=I
780 NEXT
790 IFF=0THEN600
800 REM -- ERASE --
810 IFMP(F)=0THENNP(1)=NP(1)-1:GOTO860
820 BD(MP(F),0)=0
830 POKE214,BD(MP(F),1):PRINT
840 POKE646,BD(MP(F),3):PRINTTAB(BD(MP(F),2))"#$[157][157]%&"
850 REM -- PLACE --
860 GOSUB2570:POKE214,BD(HP,1):PRINT
870 POKE646,BD(HP,3):PRINTTAB(BD(HP,2))M$(1)
880 MP(F)=HP:F=0:IFBD(HP,0)THENF=1
890 BD(HP,0)=1:GOSUB2620
900 REM -- REACH HOME? --
910 IFHP<>57THEN970
920 BD(57,0)=0:GOSUB2800
930 POKE214,BD(57,1):PRINT
940 POKE646,BD(57,3):PRINTTAB(BD(57,2))"#$[157][157]%&"
950 W(PL)=W(PL)+1:IFW(PL)=4THEN1870
960 GOTO480
970 IFF=0THEN480
980 REM -- WHICH PIECE --
990 FORI=1TO4
1000 IFK(I)=KB(HP)THENK(I)=0:I=4
1010 NEXT
1020 NP(2)=NP(2)+1:GOSUB2710:GOTO480
1030 REM -- ROLL THE DIE --
1040 POKE53269,0:POKE53248,42:POKE53249,200:POKE53264,1:POKE53269,1
1050 GETA$:IFA$=CHR$(13)OR(PEEK(JY)AND16)=.THEN1090
1060 IFA$="H"THENGOSUB2460:POKE53269,.:GOSUB4030:GOSUB2500:POKE53269,1
1070 IFA$="Q"THENGOSUB2460:POKE53269,.:GOSUB2310:GOSUB2500:POKE53269,1
1080 GOTO1050
1090 FORI=1TO4:D=INT(RND(1)*6)+1
1100 POKE214,17:PRINT""
1110 PRINTTAB(34-I)L$D$(D):GOSUB2660
1120 NEXT
1130 FORI=1TO4:D=INT(RND(1)*6)+1
1140 POKE214,17:PRINT
1150 PRINTTAB(26+I)R$D$(D):GOSUB2660
1160 NEXT
1170 RETURN
1180 REM -- CAN YOU MOVE? --
1190 F=0:FORI=1TO4
1200 IFMP(I)=0ANDD<>1THEN1240
1210 IFMP(I)+D>57THEN1240
1220 IFBD(MP(I)+D,0)=0THENF=1:I=4:GOTO1240
1230 IFBD(MP(I)+D,0)=2ANDBD(MP(I)+D,3)<>2THENF=1:I=4
1240 NEXT
1250 IFF=0THENRETURN
1260 XP=BD(HP,2)*8+32:YP=BD(HP,1)*8+64
1270 POKE53269,0:POKE53248,XPAND255:POKE53249,YP
1280 IFXP>255THENPOKE53264,1:GOTO1300
1290 POKE53264,0
1300 POKE53269,1:RETURN
1310 REM -- COMPUTER --
1320 FORI=1TO4
1330 X=K(I)+D:MV(I)=0
1340 IFK(I)=0ANDD<>1THEN1420
1350 IFX>57THEN1420
1360 IFBD(KB(X),0)=1THENIFBD(KB(X),3)=10THENMV(I)=5:GOTO1420
1370 IFX=1ANDK(I)=0THENIFBD(KB(X),0)<>2THENMV(I)=4:GOTO1420
1380 IFK(I)=1THENIFBD(KB(X),0)=0THENMV(I)=3:GOTO1420
1390 IFX=57THENMV(I)=2:GOTO1420
1400 IFBD(KB(X),0)=0THENIFBD(KB(X),3)=2THENMV(I)=1:GOTO1420
1410 IFBD(KB(X),0)=0THENMV(I)=RND(1)
1420 NEXT
1430 F=0:M=0:FORI=1TO4
1440 IFMV(I)>MTHENM=MV(I):F=I
1450 NEXT:M=K(F)+D
1460 IFF=0THEN480
1470 XP=BD(KB(KP),2)*8+32:YP=BD(KB(KP),1)*8+64
1480 GOSUB1270
1490 REM -- KNEES MOVES --
1500 IFK(F)+D<=KPTHEN1560
1510 KP=KP+1:XP=BD(KB(KP),2)*8+32:YP=BD(KB(KP),1)*8+64
1520 IFXP>255THENPOKE53264,1
1530 POKE53248,XPAND255:POKE53249,YP
1540 IFXP<256THENPOKE53264,0
1550 GOTO1500
1560 IFK(F)+D=KPTHEN1630
1570 KP=KP-1:XP=BD(KB(KP),2)*8+32:YP=BD(KB(KP),1)*8+64
1580 IFXP>255THENPOKE53264,1
1590 POKE53248,XPAND255:POKE53249,YP
1600 IFXP<256THENPOKE53264,0
1610 GOTO1560
1620 REM -- ERASE KNEES --
1630 IFK(F)=0THENNP(2)=NP(2)-1:GOTO1690
1640 BD(KB(K(F)),0)=0
1650 POKE214,BD(KB(K(F)),1):PRINT
1660 POKE646,BD(KB(K(F)),3)
1670 PRINTTAB(BD(KB(K(F)),2))"#$[157][157]%&"
1680 REM -- PLACE KNEES --
1690 GOSUB2570:POKE214,BD(KB(M),1):PRINT
1700 POKE646,BD(KB(M),3):PRINTTAB(BD(KB(M),2))M$(2)
1710 K(F)=K(F)+D:F=0:IFBD(KB(M),0)THENF=1
1720 BD(KB(M),0)=2:GOSUB2620
1730 REM -- REACH HOME? --
1740 IFKP<>57THEN1800
1750 BD(57,0)=0:GOSUB2800
1760 POKE214,BD(57,1):PRINT
1770 POKE646,BD(57,3):PRINTTAB(BD(57,2))"#$[157][157]%&"
1780 W(PL)=W(PL)+1:IFW(PL)=4THEN1870
1790 GOTO480
1800 IFF=0THEN480
1810 REM -- WHICH PIECE --
1820 FORI=1TO4
1830 IFMP(I)=KB(M)THENMP(I)=0:I=4
1840 NEXT
1850 NP(1)=NP(1)+1:GOSUB2710:GOTO480
1860 REM -- GAME OVER --
1870 GOSUB2460:FORI=.TO2:GOSUB3010:NEXT
1880 POKE53269,0:POKE53276,240:POKE53264,0:POKE53248,172:POKE53249,114
1890 IFPL=2THEN1920
1900 FORI=.TO7:POKE51192+I,129+I:NEXT
1910 POKE53291,7:POKE53292,2:POKE53293,2:POKE53294,1:GOTO1960
1920 FORI=.TO7:POKE51192+I,137+I:NEXT
1930 POKE53291,8:POKE53292,3:POKE53293,3:POKE53294,1
1940 POKE214,8:PRINT
1950 PRINTTAB(19)"[156][160][160][157][157][170][170]"
1960 POKE53269,255:GOSUB2950
1970 POKE214,1:PRINT
1980 FORI=1TO5:PRINTTAB(2)"                                    ":NEXT
1990 PRINTTAB(14)"@@@@@@@@"
2000 POKE55591,2:POKE55592,2:POKE55595,2:POKE55596,2:POKE55599,2:POKE55600,2
2010 POKE214,16:PRINT
2020 FORI=1TO5:PRINTTAB(2)"                                    ":NEXT
2030 PRINTTAB(14)"@@@@"
2040 POKE56191,2:POKE56192,2:POKE56193,2:POKE56194,2:POKE56195,4:POKE56196,4
2050 POKE56197,2:POKE56198,2:POKE56199,2:POKE56200,2
2060 IFPL=2THEN2110
2070 REM -- HUMAN WIN --
2080 PRINTTAB(5)"[156]YOU HAVE BEATEN KNEES CALHOON!"
2090 PRINTTAB(9)"WAY TO GO, STAR RACER!":GOTO2140
2100 REM -- KNEES WIN --
2110 PRINTTAB(6)"[156]KNEES CALHOON WINS THE RACE!"
2120 PRINTTAB(11)"(BUT IT WAS CLOSE)"
2130 REM -- PLAY AGAIN? --
2140 POKE214,17:PRINT
2150 PRINTTAB(7)"DO YOU WANT TO PLAY AGAIN?"
2160 PRINTTAB(15)"(Y[156]) OR (N[156])"
2170 GETA$:IFA$="N"THEN2260
2180 IFA$<>"Y"THEN2170
2190 POKE53269,0:GOSUB2500
2200 POKE214,10:PRINT
2210 FORI=.TO2:PRINTTAB(7)"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":NEXT
2220 POKE55809,6:POKE55849,2:GOSUB2540
2230 PRINTTAB(11)"[145][145][207][206][197][160][205][207][205][197][206][212][160][208][204][197][193][211][197][174][174][174]"
2240 CLR:RESTORE:GOSUB3440:GOTO30
2250 REM -- END --
2260 PRINT"[147]":POKE53281,.:POKE53280,.:POKE53269,.:POKE53276,.:POKE53264,.
2270 POKE53265,PEEK(53265)AND191
2280 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR3
2290 POKE648,4:GOTO5040
2300 REM -- QUIT? --
2310 POKE214,7:PRINT
2320 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
2330 FORI=.TO6:PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]@":NEXT
2340 PRINT"@@@@@@@@@@@@@@@@@@@@@@@@@@@"
2350 POKE55951,2:POKE55952,2:POKE55955,2:POKE55956,2:POKE55959,2:POKE55960,2
2360 POKE214,8:PRINT
2370 PRINTTAB(12)"[215][200][193][212][160][215][201][204][204][160][201][212][160][194][197][191]"
2380 PRINTTAB(5)"[168][177][169][160][211][212][193][210][212][160][207][214][197][210][160][160][168][178][169][160][206][197][214][197][210][160][205][201][206][196]"
2390 PRINTTAB(10)"[168][179][169][160][209][213][201][212][160][212][207][160][204][207][193][196][211][212][193][210]"
2400 PRINTTAB(11)"[208][210][197][211][211][160][193][160][203][197][217][186][160][168][177][173][179][169]"
2410 GETA$:IFA$<"1"ORA$>"3"THEN2410
2420 IFA$="1"THEN2190
2430 IFA$="2"THENRETURN
2440 GOTO2260
2450 REM --- SAVE SCREEN ---
2460 SYS49152,55296,204*256,1000
2470 SYS49152,50176,200*256,1000
2480 RETURN
2490 REM --- RESTORE SCREEN ---
2500 SYS49152,204*256,55296,1000
2510 SYS49152,200*256,50176,1000
2520 RETURN
2530 REM -- SHADOW --
2540 SYS49152,49225,55864,26
2550 RETURN
2560 REM -- ERASE --
2570 POKES+24,15:POKES+5,15:POKES+1,58
2580 POKES,149:POKES+4,17
2590 FORDE=.TO150:NEXT:POKES+4,0
2600 RETURN
2610 REM -- MOVE --
2620 POKES+1,34:POKES,75:POKES+4,17
2630 FORDE=.TO150:NEXT:POKES+4,0
2640 RETURN
2650 REM -- DICE SOUND --
2660 POKES+24,15:POKES+5,0:POKES+6,0
2670 POKES+4,129:POKES,216:POKES+1,36
2680 FORDE=1TO20:NEXT:POKES+4,128
2690 RETURN
2700 REM -- YOU LOSE! --
2710 FORI=1TO3:FORDE=.TO4:NEXT
2720 POKES+1,14:POKES+5,3:POKES+6,240
2730 POKES+24,15:POKES+4,17
2740 FORJ=11TO110STEP8
2750 POKES+1,J:POKES+4,63:POKES+1,255-J
2760 POKES+4,17:NEXT
2770 POKES+4,16:NEXT
2780 RETURN
2790 REM -- YOU WIN --
2800 FORI=1TO2
2810 POKES+1,14:POKES+5,3:POKES+6,240
2820 POKES+24,15:POKES+4,17
2830 FORJ=6TO10:FORK=1TO12STEPSIN(J)
2840 POKES+1,4*K:POKES+4,17
2850 NEXT:NEXT
2860 POKES+4,16:FORDE=1TO10:NEXT
2870 POKES+1,14:POKES+5,3:POKES+6,240
2880 POKES+24,15:POKES+4,17
2890 FORJ=6TO10:FORK=1TO12STEPLOG(J)
2900 POKES+1,4*K:POKES+4,17
2910 NEXT:NEXT
2920 POKES+4,16:FORDE=1TO100:NEXT
2930 NEXT:RETURN
2940 REM -- WINNER --
2950 POKES+24,15:POKES+5,15:POKES+6,252
2960 POKES+14,67:POKES+15,12:POKES+4,21
2970 FORI=.TO255STEP2:POKES+1,I:NEXT
2980 FORI=255TO.STEP-2:POKES+1,I:NEXT
2990 POKES+4,20:RETURN
3000 REM --- THE CALL ---
3010 POKES+24,15:POKES+19,72:POKES+20,129:POKES+14,50
3020 POKES+18,33:POKES+15,45
3030 FORDE=1TO50:NEXT:POKES+18,32
3040 FORDE=1TO200:NEXT
3050 POKES+15,69:POKES+18,17
3060 FORDE=1TO500:NEXT:POKES+18,16
3070 RETURN
3080 REM -- TITLE SCREEN --
3090 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)
3100 POKE53272,29:POKE648,196
3110 POKE53265,PEEK(53265)AND191
3120 POKE53281,1:POKE53280,15:PRINT"[147]"
3130 PRINTTAB(12)"[159]LOADSTAR PROUDLY"
3140 PRINTTAB(16)"PRESENTS"
3150 PRINT"[193][194][194][195][211][194][194][212][193][194][194][195][211][194][194][195]  [211][194][194][195][193][194][194][195][193][194][194][195][211][194][194][212]"
3160 PRINT"[150][196][197][198][199][213][214][215][216][196][197][221][207][196][197][221][207]  [196][197][221][207][196][197][221][207][196][197][167][168][196][197][198][199]"
3170 PRINT"[156][200][201][202][203] [217][218] [196][255][223][207][196][255][223][166]  [196][255][223][166][196][255][223][207][196][197][169][170][196][255][175][176]"
3180 PRINT"[154][204][205][206][207] [217][218] [196][197][161][207][196][197][161][207]  [196][197][161][207][196][197][161][207][196][197][171][172][196][197][177][178]"
3190 PRINT"[208][209][209][210] [219][220] [162][163][164][165][162][163][164][165]  [162][163][164][165][162][163][164][165][208][209][209][210][162][209][209][165]"
3200 PRINTTAB(9)"[144][160][195][196][197][223][161][162]"
3210 PRINTTAB(9)"[198][199][200][201][163][164][165][166]"
3220 PRINTTAB(9)"[202][203][204][205][146][156][183][184][185][186][187][188][144][167][168][169][170][171]"
3230 PRINTTAB(9)"[206][207][208][209][210][146][156][189][190][144][172][173][174][175][176]"
3240 PRINTTAB(9)"[160][211][212][213][214][156][192][193][194][144][177][178][179][180]"
3250 PRINTTAB(9)"[160][215][216][217][156]#$%&<>[144][181][182][183]"
3260 PRINTTAB(9)"[160][218][219][220][184][185][186]"
3270 PRINTTAB(9)"[160][221][255][187][188]"
3280 PRINTTAB(4)"THE FIRST ONE TO THE TOWER WINS!"
3290 PRINTTAB(11)"ONE MOMENT PLEASE..."
3300 PRINTTAB(37)"[144][190][191][145]"
3310 REM -- SPRITES --
3320 FORI=.TO7:POKE51192+I,145+I:NEXT
3330 POKE53287,7:POKE53288,2:POKE53289,2:POKE53290,4:POKE53291,8:POKE53292,5
3340 POKE53293,5:POKE53285,14:POKE53286,10
3350 POKE53264,0:POKE53276,255:POKE53275,255:POKE53269,255
3360 POKE53248,104:POKE53249,141:POKE53250,96:POKE53251,150
3370 POKE53252,108:POKE53253,159:POKE53254,105:POKE53255,180
3380 POKE53256,240:POKE53257,138:POKE53258,246:POKE53259,154
3390 POKE53260,233:POKE53261,156:POKE53262,238:POKE53263,175
3400 GOSUB3440:PRINTTAB(8)"[145]  PRESS A KEY TO BEGIN  "
3410 GETA$:IFA$=""THEN3410
3420 GOTO30
3430 REM -- INITIALIZE --
3440 DIMI,J,K,F,M,X,D,XP,YP,PL,DE
3450 HP=1:KP=1:PL=1:S=54272:JY=56320:X=RND(-TI)
3460 L$=" [157] [157] [145][145][157][157][157][157][146]":R$=" [157] [157] [145][145][146]"
3470 FORI=.TO23:POKES+I,.:NEXT
3480 DIMBD(61,3),KB(57),M$(2),D$(6),MP(4),K(4),NP(2),C$(1),W(2),TN$(2)
3490 FORI=1TO61:FORJ=1TO2:READBD(I,J):NEXT:NEXT
3500 FORI=1TO61:READBD(I,3):NEXT
3510 FORI=1TO26:KB(I)=26+I:NEXT
3520 FORI=27TO52:KB(I)=I-26:NEXT
3530 FORI=53TO56:KB(I)=I+5:NEXT
3540 KB(57)=57
3550 M$(1)="[219][220][157][157][221][255]":M$(2)="[\[157][157]]^"
3560 NP(1)=4:NP(2)=4
3570 REM -- DICE --
3580 D$(1)="+++[157][157][157]+[223]+[157][157][157]+++"
3590 D$(2)="[223]++[157][157][157]+++[157][157][157]++[223]"
3600 D$(3)="[223]++[157][157][157]+[223]+[157][157][157]++[223]"
3610 D$(4)="[223]+[223][157][157][157]+++[157][157][157][223]+[223]"
3620 D$(5)="[223]+[223][157][157][157]+[223]+[157][157][157][223]+[223]"
3630 D$(6)="[223]+[223][157][157][157][223]+[223][157][157][157][223]+[223]"
3640 C$(0)="[156]":C$(1)=""
3650 REM -- MESSAGE --
3660 TN$(1)="[201][212][167][211][160][217][207][213][210][160][212][213][210][206]"
3670 TN$(2)="[160][201][212][167][211][160][205][217][160][212][213][210][206][160]"
3680 FORI=.TO72:READA:POKE49152+I,A:NEXT
3690 FORI=.TO25:READA:POKE49225+I,A:NEXT
3700 RETURN
3710 REM -- ROW/COLUMN --
3720 DATA20,17,20,15,18,15,16,15,14,15
3730 DATA12,15,12,13,12,11,12,9,12,7
3740 DATA12,5,12,3,10,3,8,3,8,5,8,7
3750 DATA8,9,8,11,8,13,8,15,6,15,4,15
3760 DATA2,15,0,15,0,17,0,19,0,21,0,23
3770 DATA2,23,4,23,6,23,8,23,8,25,8,27
3780 DATA8,29,8,31,8,33,8,35,10,35
3790 DATA12,35,12,33,12,31,12,29,12,27
3800 DATA12,25,12,23,14,23,16,23,18,23
3810 DATA20,23,20,21,20,19,18,19,16,19
3820 DATA14,19,12,19,10,19
3830 DATA2,19,4,19,6,19,8,19
3840 REM -- WHAT COLOR? --
3850 DATA10,10,10,10,10,2,10,10,10,10,10,10,2,10,10,10,10,10,10,2,10,10,10,10
3860 DATA10,2,10,10,10,10,10,2,10,10,10,10,10,10,2,10,10,10,10,10,10,2,10,10
3870 DATA10,10,10,2,10,10,10,10,13,10,10,10,10
3880 REM -- COPYMEM C000 ---
3890 DATA 032,253,174,032,138,173,032
3900 DATA 247,183,132,176,133,177,032
3910 DATA 253,174,032,138,173,032,247
3920 DATA 183,132,178,133,179,032,253
3930 DATA 174,032,138,173,032,247,183
3940 DATA 073,255,133,181,152,073,255
3950 DATA 133,180,230,180,208,002,230
3960 DATA 181,160,000,177,176,145,178
3970 DATA 200,208,004,230,177,230,179
3980 DATA 230,180,208,241,230,181,208
3990 DATA 237,096,255
4000 REM -- SHADOWS --
4010 DATA2,2,2,2,2,2,2,4,4,6,6,2,2,6,6,4,4,2,2,2,2,2,2,2,2,2
4020 REM -- HELP SCREENS --
4030 PRINT"[147]":POKE53281,14:POKE53280,4:POKE53284,4
4040 PRINTTAB(15)"DIRECTIONS"
4050 PRINT" STAR RACE IS A TWO-PLAYER BOARD GAME"
4060 PRINT" WHERE YOU CHALLENGE KNEES CALHOON TO"
4070 PRINT" SEE WHO CAN BE THE FIRST TO HAVE ALL"
4080 PRINT" OF THEIR MEN REACH THE TOWER."
4090 PRINT" EACH PLAYER HAS FOUR MEN IN THEIR"
4100 PRINT" POSSESSION WHO RACE CLOCK-WISE AROUND"
4110 PRINT" THE BOARD TO THE CENTER SQUARE. YOU"
4120 PRINT" WILL CONTROL THE WHITE MEN, WHILE"
4130 PRINT" KNEES WILL CONTROL THE BLACK."
4140 PRINT" THE PLAYERS MOVE THEIR MEN BY TAKING"
4150 PRINT" TURNS ROLLING A SIX-SIDED DIE, THEN,"
4160 PRINT" IF ABLE, MOVING ONE OF THEIR MEN THE"
4170 PRINT" NUMBER OF SQUARES INDICATED."
4180 PRINT" WHILE EACH PLAYER'S FINISH LINE IS THE"
4190 PRINT" CENTER SQUARE, THEIR STARTING SQUARES"
4200 PRINT" AND ROUTES ARE SLIGHTLY DIFFERENT."
4210 POKE214,22:PRINT
4220 PRINTTAB(10)"PRESS FIRE OR RETURN"
4230 GETA$:IFA$=""AND(PEEK(JY)AND16)THEN4230
4240 GOSUB5020
4250 POKE214,2:PRINT
4260 PRINT" THE BOARD BELOW SHOWS EACH PLAYER'S"
4270 PRINT" START. EACH PLAYER TRAVELS CLOCK-WISE"
4280 PRINT" AROUND THE BOARD. HOWEVER, YOU CANNOT"
4290 PRINT" MOVE DOWN THE CENTER ROW, AND KNEES"
4300 PRINT" CANNOT MOVE UP THE CENTER ROW."
4310 PRINTTAB(23)"[144]KNEES WILL START"
4320 PRINTTAB(17)"[150][188][188][188][150]>[188][146][144]AT THE TOP RIGHT"
4330 PRINTTAB(17)"[150][188][188][188][146][144]AND GO DOWN THE"
4340 PRINTTAB(17)"[150][188][188][188][146][144]CENTER ROW."
4350 PRINTTAB(17)"[150][188][188][188]"
4360 PRINTTAB(11)"[188][188][188][188][188][188][188][150][188][188][150][188][188][188][188][188][188]"
4370 PRINTTAB(11)"[188][153][188][188]"
4380 PRINTTAB(11)"[150][188][188][188][188][188][188][188][150][188][188][150][188][188][188][188][188][188]"
4390 PRINTTAB(17)"[188][188][188]"
4400 PRINT" YOU START AT    [150][188][188][188]"
4410 PRINT" THE LOWER LEFT  [150][188][188][188]"
4420 PRINT" AND GO UP THE   [150][188][146][190][188][150][188][188]"
4430 PRINT" CENTER ROW."
4440 GETA$:IFA$=""AND(PEEK(JY)AND16)THEN4440
4450 GOSUB5020
4460 POKE214,2:PRINT
4470 PRINT" AT THE START OF THE GAME, IT WILL BE"
4480 PRINT" KNEES' TURN. PRESS RETURN OR FIRE AND"
4490 PRINT" KNEES WILL ROLL THE DIE, AND IF ABLE,"
4500 PRINT" MAKE A MOVE. UNLESS KNEES HAS ROLLED A"
4510 PRINT" 1 OR 6 (SEE: HOW YOU MOVE) IT WILL NOW"
4520 PRINT" BE YOUR TURN."
4530 PRINT" PRESS RETURN OR FIRE TO ROLL THE DIE."
4540 PRINT" IF A LEGAL MOVE IS POSSIBLE, THE HAND"
4550 PRINT" POINTER WILL APPEAR ON THE BOARD. USE"
4560 PRINT" EITHER THE RIGHT/LEFT CRSR KEYS OR A"
4570 PRINT" JOYSTICK IN PORT TWO TO MOVE THE HAND"
4580 PRINT" TO THE SQUARE YOU WANT TO MOVE TO AND"
4590 PRINT" PRESS RETURN OR FIRE. IF ONE OF YOUR"
4600 PRINT" MEN CAN MOVE TO THE SQUARE YOU HAVE"
4610 PRINT" SELECTED IT WILL DO SO."
4620 PRINT" PLAY WILL CONTINUE UNTIL ALL OF ONE"
4630 PRINT" PLAYER'S MEN REACH THE CENTER SQUARE."
4640 GETA$:IFA$=""AND(PEEK(JY)AND16)THEN4640
4650 GOSUB5020
4660 POKE214,2:PRINT
4670 PRINT" THERE ARE A FEW ADDITIONAL RULES TO"
4680 PRINT" THE GAME WHICH ARE AS FOLLOWS:"
4690 PRINT"  - TO PLACE A MAN AT HIS START SQUARE,"
4700 PRINT"    THE PLAYER MUST ROLL A 1 DIE."
4710 PRINT"  - IF A PLAYER ROLLS EITHER A 1 OR 6,"
4720 PRINT"    THE PLAYER GETS ANOTHER TURN."
4730 PRINT"  - A PLAYER CANNOT MOVE ONTO A SQUARE"
4740 PRINT"    THAT IS ALREADY OCCUPIED BY ONE OF"
4750 PRINT"    HIS MEN."
4760 PRINT"  - IF A PLAYER MOVES ONE OF HIS MEN"
4770 PRINT"    ONTO A SQUARE OCCUPIED BY HIS"
4780 PRINT"    OPPONENT, THE OPPONENT'S MAN WILL"
4790 PRINT"    BE REMOVED FROM THE BOARD AND WILL"
4800 PRINT"    HAVE TO BEGIN AT HIS START SQUARE"
4810 PRINT"    BY ROLLING A 1 DIE."
4820 GETA$:IFA$=""AND(PEEK(JY)AND16)THEN4820
4830 GOSUB5020
4840 POKE214,2:PRINT
4850 PRINT"  - THE ONE EXCEPTION TO THE LAST RULE"
4860 PRINT"    IS IF YOUR OPPONENT IS ON A RED"
4870 PRINT"    SQUARE. THESE SQUARES ARE SAFE AND"
4880 PRINT"    CANNOT BE MOVED TO IF THEY ARE"
4890 PRINT"    ALREADY OCCUPIED."
4900 PRINT"  - IN ORDER TO REACH THE FINISH, THE"
4910 PRINT"    PLAYER MUST ROLL THE EXACT NUMBER"
4920 PRINT"    NEEDED. (IF YOU ARE 3 SQUARES AWAY,"
4930 PRINT"    ROLLING A 4 DOES NOT HELP YOU.)"
4940 PRINT"  - THE FIRST PLAYER TO HAVE ALL FOUR"
4950 PRINT"    OF HIS MEN REACH THE FINISH WINS!"
4960 PRINT" FINALLY, KEEP IN MIND THAT KNEES IS A"
4970 PRINT" CRAFTY OPPONENT WHO WILL DO HIS BEST"
4980 PRINT" TO BEAT YOU...DON'T LET KNEES WIN!"
4990 PRINT" GOOD LUCK, STAR RACER!"
5000 GETA$:IFA$=""AND(PEEK(JY)AND16)THEN5000
5010 PRINT"[147]":POKE53284,7:POKE53281,4:POKE53280,6:RETURN
5020 FORI=21TO3STEP-1::POKE781,I:SYS59903:NEXT:RETURN
5030 REM -- BACK TO THE TOWER --
5040 GOTO40000
10000 DV=PEEK(186):OPEN15,DV,15,"S0:SR":CLOSE15:SAVE"SR",DV:END
40000 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END