1 REM SAVE"COLLINS V2.3",8
2 PRINT"[147][158]   [201]F ESP FAILS, TRY PROBABILITIES
3 [151]16383,31
4 [151]56,56:[151]51,0:[156]:DV[178][194](186):[139]DV[179]8[167]DV[178]8
5 [134]I,X,Y,SU,ET,EL,PS,LV,LF,PP,MT,S,F,CA,VA,T,JJ,J%
6 BD[178]03:HL[178]08:SC[178]03
8 [141]111
10 [137]480
19 [143] CHOICE*
20 [141]62
21 [129]I[178]1[164][195](CH$):[139]A$[178][202](CH$,I,1)[167][142]
22 [130]:[137]20
25 [143] CHARGE*
26 A$[178]"251331421502421502"
27 T[178]87:[151]F[170]6,96:[151]F[170]24,15
28 [129]I[178]1[164]18[169]3
29 [151]F[170]1,[197]([202](A$,I,2)):[151]F[170]4,33
30 [129]J[178]1[164]T[172][197]([202](A$,I[170]2,1)):[130]
31 [151]F[170]4,0:[130]:[142]
32 [143] DISK ERROR CHANNEL
33 [159]15,DV,15:[132]15,ER,ER$,A,A:[160]15
57 [143] ANY KEY-GET A$*
58 X[178]0:Y[178]24:[141]66:[153]"/           PLEASE PRESS A KEY CLOSE       ONONON"
62 [161]A$:[139]A$[178]""[167]70:[142]
64 [143] PRINT AT*
66 [151]211,X:[151]214,Y:[158]58732:[142]
69 [143] MULTITASK *
70 [139]JJ[178]NC[171]2[167]JJ[178][171]1
71 JJ[178]JJ[170]1:J%[178]JJ[170][181]([187](0)[172](NC[171]JJ)):TEMP[178]S(JJ):S(JJ)[178]S(J%):S(J%)[178]TEMP:[137]62
72 [143] ERASES CARD
73 [158]MT[170]3,X,X[170]3,Y,Y[170]4,00,SC:[142]
110 [143] START UP
111 [134]VA$(13),VB$(13),ST$(3,12):F[178]54272:[129]I[178]F[164]F[170]78:[151]I,0:[130]:MT[178]49152
112 CR$[178]"(null)(null)MID$RIGHT$LEFT$CHR$ASCVALSTR$&LENPEEK(null)":CS$[178]"(null)(null)(null)(null)(null)(null)(null)(null)(null)'(null)(null)(null)"
113 S$(0)[178]"NEW":S$(1)[178]"/":S$(2)[178]"TAN":S$(3)[178]"ATN":CO$(0)[178]"STOP":CO$(1)[178]"":CO$(2)[178]""
114 CO$(3)[178]"STOP":S1$(0)[178]"GET":S1$(1)[178]"(null)":S1$(2)[178]"(null)":S1$(3)[178]"OR"
115 [129]I[178]0[164]12:VA$(I)[178][202](CR$,I[170]1,1):VB$(I)[178][202](CS$,I[170]1,1):[130]
116 BK$[178]"!##$CMDCMDCMDCMD+LOGLOG-CMDCMDCMDCMD+LOGLOG-CMDCMDCMDCMD+LOGLOG-CMDCMDCMDCMD\**+CMDCMDCMDCMDONONONON"
117 [150][165]S(X)[178][181](X[173]13):[150][165]V(X)[178]X[171]13[172][181](X[173]13)
118 [143] DECK&SHUFFLE
119 NC[178]52:JJ[178][171]1:[134]S(NC):[129]I[178]0[164]NC[171]1:S(I)[178]I:[130]
120 JJ[178]JJ[170]1:J%[178]JJ[170][181]([187](0)[172](NC[171]JJ)):TEMP[178]S(JJ):S(JJ)[178]S(J%):S(J%)[178]TEMP
121 [139]JJ[179][177]NC[171]2[167]120
122 ST$(0,1)[178]"(null)(null)CMDCMD(null)(null)WAIT":ST$(0,0)[178]"(null)(null)WAIT":ST$(3,0)[178]"<SGNWAIT"
123 ST$(0,9)[178]"ATNPEEKCMDCMDLENSTR$CMDCMDVALASCCMDCMDCHR$LEFT$CMDCMDRIGHT$MID$WAIT":ST$(3,2)[178]"USRFRECMDCMD<SGNCMDCMDPOSSQRWAIT"
124 ST$(0,8)[178]"ATNPEEKCMDCMD(null)(null)CMDCMD(null)(null)CMDCMD(null)(null)CMDCMDRIGHT$MID$WAIT":ST$(0,3)[178]"ATNPEEKCMDCMDRIGHT$MID$WAIT"
125 ST$(3,8)[178]"GETNEWCMDCMD-*CMDCMD/^CMDCMDANDORCMDCMDSTEP+WAIT":ST$(0,7)[178]"ATNPEEKCMDCMD(null)(null)CMDCMD(null)(null)CMDCMD(null)(null)CMDCMDRIGHT$MID$WAIT"
126 ST$(3,9)[178]"GETNEWCMDCMDTAB(TOCMDCMDFNSPC(CMDCMDTHENNOTCMDCMDSTEP+WAIT":ST$(3,7)[178]"GETNEWCMDCMD<SGNCMDCMD>=CMDCMDINTABSCMDCMDSTEP+WAIT"
127 ST$(3,1)[178]"USRFRECMDCMDPOSSQRWAIT":ST$(0,2)[178]"(null)(null)CMDCMD(null)(null)CMDCMD(null)(null)WAIT"
128 ST$(0,6)[178]"ATNPEEKCMDCMD(null)(null)CMDCMD(null)(null)CMDCMDRIGHT$MID$WAIT":ST$(3,6)[178]"GETNEWCMDCMD<SGNCMDCMD>=CMDCMDSTEP+WAIT"
129 ST$(3,3)[178]"GETNEWCMDCMDSTEP+WAIT":ST$(0,5)[178]"ATNPEEKCMDCMD(null)(null)CMDCMDRIGHT$MID$WAIT"
130 ST$(3,5)[178]"GETNEWCMDCMD>=CMDCMDSTEP+WAIT":ST$(0,4)[178]"ATNPEEKCMDCMD(null)(null)CMDCMDRIGHT$MID$WAIT"
131 ST$(3,4)[178]"GETNEWCMDCMD<SGNCMDCMDSTEP+WAIT":
132 ST$(2,9)[178]"ABCMDCMDCDCMDCMDEFCMDCMDGHCMDCMDIJ":ST$(2,8)[178]"ABCMDCMDKLCMDCMDMNCMDCMDOPCMDCMDIJ"
133 ST$(2,7)[178]"ABCMDCMDSTCMDCMDQRCMDCMDUVCMDCMDIJ":ST$(2,6)[178]"ABCMDCMDSTCMDCMDQRCMDCMDIJ"
134 ST$(2,5)[178]"ABCMDCMDQRCMDCMDIJ":ST$(2,4)[178]"ABCMDCMDSTCMDCMDIJ":ST$(2,3)[178]"ABCMDCMDIJ"
135 ST$(2,2)[178]"WXCMDCMDSTCMDCMDYZ":ST$(2,1)[178]"WXCMDCMDYZ":ST$(2,0)[178]"ST"
136 [129]I[178]2[164]3:[129]J[178]10[164]12:ST$(I,J)[178]"01CMDCMD23CMDCMD45CMDCMD67CMDCMD89":[130]:[130]
137 ST$(1,9)[178]"(null)(null)CMDCMDRNDLOGCMDCMD(null)SINCMDCMDEXPCOSCMDCMD(null)(null)WAIT"
138 ST$(1,8)[178]"(null)(null)CMDCMD#$CMDCMD%&CMDCMD*+CMDCMD(null)(null)WAIT"
139 ST$(1,6)[178]"(null)(null)CMDCMD\^CMDCMD<>CMDCMD(null)(null)WAIT"
140 ST$(1,5)[178]"(null)(null)CMDCMD<>CMDCMD(null)(null)WAIT"
141 ST$(1,4)[178]"(null)(null)CMDCMD\^CMDCMD(null)(null)WAIT"
142 ST$(1,7)[178]"(null)(null)CMDCMD\^CMDCMD<>CMDCMD_=CMDCMD(null)(null)WAIT"
143 ST$(1,1)[178]"SPC(THENCMDCMDNOTSTEP":ST$(1,2)[178]"SPC(THENCMDCMD\^WAITCMDCMDWAITNOTSTEP"
144 ST$(1,0)[178]"\^WAIT":ST$(1,3)[178]"(null)(null)CMDCMD(null)(null)WAIT"
145 [129]I[178]0[164]3:ST$(I,11)[178]"()CMDCMD>?CMDCMD45CMDCMD<=CMDCMD:;":[130]
146 ST$(0,10)[178]"()CMDCMD^_CMDCMD45CMDCMD[]CMDCMD:;"
147 ST$(1,10)[178]"()CMDCMD^_CMDCMD45CMDCMD[]CMDCMD:;"
148 ST$(1,12)[178]"01CMDCMD23CMDCMD45CMDCMD67CMDCMD89"
149 ST$(0,12)[178]"()CMDCMD^_CMDCMD45CMDCMD[]CMDCMD:;"
150 ST$(2,12)[178]"()CMDCMD^_CMDCMD45CMDCMD[]CMDCMD:;"
151 ST$(3,12)[178]"()CMDCMD^_CMDCMD45CMDCMD[]CMDCMD:;"
154 [134]B(4,52),C(8)
158 ET[178]100:EL[178]ET:LV[178]1:BN[178]500:PC[178]10:LF[178]1
162 [129]I[178]5[164]8:X(I)[178]2:Y(I)[178]9[170]I:[130]
198 [142]
199 [143] PRINT CARD OR ERASE*
200 X[178]X(I):Y[178]Y(I):[141]66
202 CA[178]B(I,C(I))
203 SU[178][165]S(CA):VA[178][165]V(CA)
204 [151]F[170]24,6:[151]F[170]5,128:[151]F[170]4,129:[129]T[178]1[164]20:[130]:[151]F[170]4,128:[151]F[170]5,0
206 [151]F[170]24,0:[151]F[170]24,15:[151]F[170]4,129:[151]F[170]4,128
208 [139]C(I)[179][177]0[167]220
214 [143] ERASE CARD*
216 [141]73:[142]
220 [153]CO$(SU);VA$(VA);"<<>CMDCMDCMDCMD";S$(SU);"  ^CMDCMDCMDCMDTAB(  ^CMDCMDCMDCMDTAB(  ";S1$(SU);
222 [153]"CMDCMDCMDCMDSGN==";VB$(VA);"ONONONONCMDCMDCMD";ST$(SU,VA);:[142]
299 [143] UPDATE BOARD
300 Y[178]7:X[178]12[171][195]([196](LV)):[141]66: [153]""LV
304 Y[178]8:X[178]12[171][195]([196](EL)):[141]66:[153]""EL
308 Y[178]9:X[178]12[171][195]([196](PS)):[141]66:[153]""PS
312 Y[178]10:X[178]12[171][195]([196](LF)):[141]66:[153]""LF
316 [142]
322 [143] BAD CHOICE NOISE
326 [151]F[170]24,15:[151]F[170]8,4:[151]F[170]12,63:[151]F[170]13,17:[151]F[170]11,33
330 [129]T[178]1[164]100:[130]:[151]F[170]11,32
334 PP[178]PP[170]1:[139]PP[178]5[167]PP[178]1
338 [139]G(PP)[178]0[167]334
342 X[178]X(PP[170]4)[171]1:Y[178]Y(PP[170]4):[141]66:[153]"%WAIT":[142]
346 PP[178]PP[171]1:[139]PP[178]0[167]PP[178]4
350 [139]G(PP)[178]0[167]346
354 X[178]X(PP[170]4)[171]1:Y[178]Y(PP[170]4):[141]66:[153]"%WAIT":[142]
359 [143] GUESS UPDATE
360 X[178]6:Y[178]08 :[141]66:[153]"      "
361 X[178]12[171][195]([196](EL)):[141]66:[153]""EL:[142]
369 [143] UPDATE SCORE
370 X[178]6:Y[178]09 :[141]66:[153]"      "
371 X[178]12[171][195]([196](PS)):[141]66:[153]""PS:[142]
379 [143] REPRINT POSS
380 X[178]2:Y[178]14:[141]66:[153]"BLACK SPOT":Y[178]Y[170]1:[141]66:[153]"BLACK FACE"
389 X[178]2:Y[178]Y[170]1:[141]66:[153]"RED  SPOT":Y[178]Y[170]1:[141]66:[153]"RED  FACE":[142]
480 [153]"LOAD":[151]53280,BD:[151]53281,1:[151]53272,31:[151]198,0
481 [158]MT[170]3,0,39,0,24,0,SC:[158]MT[170]3,0,13,0,24,160,BD
482 [158]MT[170]3,0,12,6,11,160,6:[158]MT[170]3,0,12,13,18,160,2
483 [158]MT[170]3,0,12,1,3,160,0:[158]MT[170]3,0,12,20,23,160,0:[151]646,2
484 X[178]2:Y[178]14:[141]66:[153]"BLACK SPOT":Y[178]Y[170]1:[141]66:[153]"BLACK FACE"
485 X[178]2:Y[178]Y[170]1:[141]66:[153]"RED  SPOT":Y[178]Y[170]1:[141]66:[153]"RED  FACE"
486 X[178]0:Y[178]0:[141]66:[153]"STOP!###########$":Y[178]Y[170]1:[141]66:[153]"+-
487 Y=Y+1:GOSUB66:PRINT"[170][171]":Y=Y+1:GOSUB66:     PRINT"[170][171]"
488 Y=Y+1:GOSUB66:PRINT"[144]\***********+"
490 X=2:Y=  2:GOSUB66:POKE646,0:PRINT" COLLINS "
492 X=2:Y=21 :GOSUB66:PRINT" Q -QUIT ":Y=Y+1:GOSUB66:PRINT" H -HELP "
496 X=1:Y=7:GOSUB66:POKE646,6:PRINT"LEVEL":Y=Y+1:GOSUB66:PRINT"TRIES"
497 Y=Y+1:GOSUB66:PRINT"SCORE":Y=Y+1:GOSUB66:PRINT"LIVES"
498 SYSMT+6,216
500 SYSMT+9,216:SYSMT+3,14,39,0,24,0,SC
504 FORI=1TO52:B(0,I)=S(I-1):NEXT:C(0)=52:FORI=1TO4:C(I)=0:NEXT
506 FORI=1TO4:Y(I)=4:X(I)=5*I+15:NEXT:X(0)=15:Y(0)=12
510 GOSUB300:GOSUB26
516 X=X(0):Y=Y(0):GOSUB66:PRINTBK$
518 X=1:Y=14:GOSUB66:PRINT"%":PP=1
520 FORI=1TO4:G(I)=-1:NEXT
549 REM GUESS
550 FC=B(0,C(0)):CL$=CO$(FNS(FC)):FV=FNV(FC)
560 CH$=CHR$(13)+"[145]HQ":GOSUB20
564 ONIGOTO800,810,840,3000,1100
570 IFG(I)=0THENGOSUB326:GOTO560
580 EL=EL-1
582 Y=8:X=12-LEN(STR$(EL)):GOSUB66:PRINT""EL
584 ONIGOTO590,600,610,620
590 IFCL$=CO$(3)ANDFV<10THEN640
594 G(I)=0:X=X(I+4)-1:Y=Y(I+4):GOSUB66:PRINT"           [146]";:GOSUB326
595 IFEL=0THEN1000
596 GOSUB360:GOTO560
600 IFCL$=CO$(3)ANDFV>9THEN640
604 GOTO594
610 IFCL$=CO$(2)ANDFV<10THEN640
614 GOTO594
620 IFCL$=CO$(2)ANDFV>9THEN640
624 GOTO594
639 REM GUESS CORRECT
640 SU=FNS(FC):X=X(SU+4):Y=Y(SU+4):GOSUB66:I=SU+1:C(I)=C(I)+1:B(I,C(I))=FC
644 PS=PS+LV*PC:GOSUB360:GOSUB370
646 GOSUB200:Y(I)=Y(I)+1:C(0)=C(0)-1:IFC(0)=0THENX=X(0):Y=Y(0):GOSUB73
648 GOSUB380
649 IFC(0)=0THEN660
650 IFEL=0THEN1000
654 GOTO520
659 REM LEVEL COMPLETE
660 ET=ET-2:EL=ET+EL:PS=PS+BN*LV:LV=LV+1:LF=LF+1
661 X=1:Y=14:GOSUB66:PRINT" [157] [157] [157] "
663 SYSMT+3,18,35,08,15,160,02
664 POKE646,02:X=19:Y=9:GOSUB66:PRINT" LEVEL COMPLETED "
668 Y=Y+2:GOSUB66:PRINT" A LIFE GAINED"
670 Y=Y+1:GOSUB66:PRINT" A BONUS EARNED"
672 Y=Y+2:GOSUB66:PRINT"    ANY KEY":GOSUB62:GOTO500
799 REM RETURN PRESSED
800 I=PP:GOTO570
809 REM CURSOR DOWN
810 X=X(PP+4)-1:Y=Y(PP+4):GOSUB66:PRINT" [146]";
814 IFPP=4THENPP=1:GOTO818
816 PP=PP+1
818 GOSUB338
822 X=X(PP+4)-1:Y=Y(PP+4):GOSUB66:PRINT"%[146]":GOTO560
839 REM CURSOR UP
840 X=X(PP+4)-1:Y=Y(PP+4):GOSUB66:PRINT" [146]";
844 IFPP=1THENPP=4:GOTO847
846 PP=PP-1
847 GOSUB350
848 X=X(PP+4)-1:Y=Y(PP+4):GOSUB66:PRINT"%[146]":GOTO560
999 REM NO GUESSES LEFT
1000 GOSUB53690:LF=LF-1:X=X(PP+4)-1:Y=Y(PP+4):GOSUB66:PRINT" [146]"
1002 Y=10:X=12-LEN(STR$(LF)):GOSUB66:PRINT""LF:
1004 SYSMT+3,18,35,08,14,160,0:X=20:Y=09:GOSUB66:PRINT"[144]NO TRIES LEFT"
1005 Y=Y+2:GOSUB66:    PRINT" A LIFE LOST"
1008 Y=Y+2:GOSUB66:PRINT"   ANY KEY":GOSUB62:
1009 IFLF=0THEN1100
1010 EL=ET:GOTO500
1099 REM GAME OVER
1100 SYSMT+3,18,36,08,15,160,6
1104 X=22:Y=09:GOSUB66:PRINT"GAME OVER"
1108 X=X-2:Y=Y+2:GOSUB66: PRINT"YOUR SCORE"PS
1124 Y=Y+1:GOSUB66:PRINT" 1. PLAY AGAIN"
1128 Y=Y+1:GOSUB66:PRINT" 2. LOADSTAR"
1132 CH$="12":  GOSUB20:ONIGOTO1140,40000
1140 LV=1:LF=1:PS=0:ET=100:EL=ET:GOTO500
3000 REM HELP
3004 SYSMT+6,208:POKE53272,21:POKE53281,0:PRINT"[147]"CHR$(14):POKE646,3
3200 POKE53280,0:SYSMT+57,"COLLINS HELP",DV
3990 POKE53272,31
3999 SYSMT+9,208:GOTO550
4100 SYSMT+3,13,30,11,17,160,00
4999 REM HI SCORE UPDATE
9999 END
10000 DV=PEEK(186):OPEN15,DV,15,"S0:COLLINS":CLOSE15:SAVE"COLLINS",DV:END
39999 REM RECONNECT
40000 PRINT"[147]":POKE53281,0:POKE53280,0:POKE53272,21
40005 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40030
40010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40030
40020 NEXT:PRINT"[147][159]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,DV:END
40030 PRINT"[147][144]LOAD"CHR$(34)A$CHR$(34)","I
40040 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
53680 REM BOING
53690 S=54272:N=20:A=0
53700 POKES+5,9:POKES+6,41:POKES+24,15
53710 POKES+15,12:POKES+1,N:POKES,0
53720 POKES+4,85
53730 POKES+4,84
53740 IFA=0THENN=N+6:IFN>50THENA=1:GOTO53760
53750 IFA=0THEN53710
53760 N=N-3:IFN>12THEN53710
53770 FORT=1TO200:NEXT:FORT=STOS+23:POKET,0:NEXT:RETURN