0 REM COPYRIGHT 1993 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
5 IF ML=0 THEN ML = 1:PRINT"[147]LOADING ML....":LOAD"SNAKEY.ML",8,1
10 QQ=52232
20 :
30 GOSUB1010:REM "INITIALIZE
40 [141]1590
50 [141]1260:[143] "OPTIONS
60 PO=0
70 PRINT"[147]":SYSQQ,5,08:PRINT"PRESS ANY KEY WHEN READY":POKE198,0:WAIT198,1
80 GOSUB880:REM "DRAW SCREEN
90 TI$[178]"000000"
100 [141]210:[143] "UPDATE
110 IF PO=GL THEN GOTO580
120 GOSUB380:REM "GET INPUT
130 [141]460:[143] "CHECK IT
140 IF PO<>0THEN100
150 CT$=TI$:GOTO680
160 :
200 REM-UPDATE:SELECTS AND PRINTS THE NEXT CHARACTER+MAKES SOUND
210 CC=PX(PO):PO=PO+1:IFPO=GLTHEN RETURN
220 X=RND(1):X=X*TL+1
230 XX=RND(1):XX=INT(XX*2)
240 IFXX=0THENCC=CC+1:IFCC>22THENCC=21
250 IFXX=1THEN  CC=CC-1:IFCC<2 THENCC=3
260 PX(PO)=CC
270 SNAKE$(PO)=MID$(TS$,X,1)
280 SYSQQ,CC,PO:PRINTSNAKE$(PO)
290 POKESS+1,X+50
300 POKESS+4,17:FOR RR= 1 TO 5  :NEXT
310 POKESS+4,16
320 RETURN
330 :
370 REM-GET INPUT:GET INPUT FROM PLAYER
380 R=0
390 GET RE$:IFRE$<>""THEN410
400 R=R+1 :IF R<>RT THEN390
410 RETURN
420 :
450 REM-CHECK IT :RETRUNS WHEN THERE IS WRONG RESPONSE OR WHEN GAME IS OVER
460 IF RE$<>SNAKE$(PO)THEN   RETURN
470 SYSQQ,PX(PO),PO:PRINT" "
480 POKESS+1,PO*2+22
490 POKESS+4,033:FOR RR= 1 TO 5  :NEXT
500 POKESS+4,032
510 PO=PO-1:IF PO<>0THENGOSUB380:GOTO460
520 RETURN
530 :
570 REM-LOST
580 SYSQQ,06,12:PRINT"[147]SORRY, YOU LOST"
590 SYSQQ,08,08:PRINT"WHY DON'T YOU TRY AGAIN ??"
600 GOTO770
610 :
670 REM-WON
680 CC$=MID$(CT$,3,2)+":"+RIGHT$(CT$,2)
690 SYSQQ,06,12:PRINT"[147]YOU DID IT!
700 [158]QQ,08,08:[153]"YOUR TIME WAS : "CC$
710 [139] CT$[178][177]BT$(LE) [167]770
720 [158]QQ,12,0:[153]"WOW!! THIS IS A NEW RECORD AT LEVEL";LE
730 [158]QQ,15,05:[153]"WHAT IS YOUR NAME ";
740 R1$[178]"  AZ":[141]1690
750 R1$[178]"":[158]QQ,15,23,6,R1$:BP$(LE)[178]R1$
760 BT$(LE)[178]CT$:BB$(LE)[178]CC$
770 [158]QQ,20,0:[153]"PRESS SPACE BAR TO CHANGE OPTIONS
780 SYSQQ,21,0:PRINT"      OR ANY OTHER KEY TO PLAY AGAIN"
790 SYSQQ,22,0:PRINT"      WITH SAME SETTINGS
800 [151]198,0:[146]198,1:[161] R$
810 [139] R$[178]" " [167] [153]"LOAD":  [137]50
820 [137]60
830 :
870 [143]-DRAW SCREEN
880 [158]QQ,0,00:[153]"LOADLEVEL=";LE
890 [158]QQ,0,12:[153]"BEST TIME ";BB$(LE)
900 [158]QQ,0,28:[153]"BY ";BP$(LE)
910 [158]QQ,10,0:[153]"(null)"
920 [129]R[178]1[164]22:[158]QQ,R ,39:[153]"(null)":[130]
930 [129]R [178]1[164]RS:[141]210:[130]
940 [151]198,0
950 [142]
960 :
1000 [143]-INITIALIZE
1010 [151]53280,0:[151]53281,0:
1020 [153]"" :X[178][187]([171]TI)
1030 [134] SNAKE$(50):[143] CONTAINS THE ALPHBETS PUT ON THE SCREEN
1040 [134]PX(50)
1050 PX(0)[178]10     :[143] ROW ON WHICH SNAKEOF COLUMN X IS PUT
1060 CC[178]10:[143] THE CURRENT ROW
1070 PO[178]0 :[143] THE CURRENT COLUMN
1080 GL[178]39:[143] GAME LOST
1090 S1$[178]"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
1100 S2$[178]"0123456789"
1110 TS$[178]"SNAKEY"
1120 [129] R[178] 0[164]09:BT$(R)[178]"991000":BB$(R)[178]"10:00":BP$(R)[178]"UMARA":[130]
1130 :
1140 [143]-SOUND
1150 [129] R[178]54272 [164] 54296:[151]R,0:[130]:SS[178]54272
1160 [151] SS,255
1170 [151] SS[170]24,15:[143] VOLUME
1180 [151]SS[170]5,10[172]16[170]01:[143] ATT/DELAY
1190 [151]SS[170]6,15[172]16[170]1 :[143] SUS/REL
1200 [142]
1210 :
1250 [143]-OPTIONS
1260 RT[178]0
1270 [158]QQ,4,4:[153]"LOADCHOOSE LEVEL (0-9)
1280 SYSQQ,5,4:PRINT"(0 IS EASY : 9 IS HARD)
1290 [151]198,0:[146]198,1:[161] LE$:LE[178][197](LE$)
1300 [139] LE[178]0[167]RT[178]150:RS[178]7
1310 [139] LE[178]1[167]RT[178]100:RS[178]10
1320 [139] LE[178]2[167]RT[178]80:RS[178]11
1330 [139] LE[178]3[167]RT[178]70:RS[178]12
1340 [139] LE[178]4[167]RT[178]60:RS[178]13
1350 [139] LE[178]5[167]RT[178]50:RS[178]14
1360 [139] LE[178]6[167]RT[178]45:RS[178]15
1370 [139] LE[178]7[167]RT[178]40:RS[178]20
1380 [139] LE[178]8[167]RT[178]30:RS[178]20
1390 [139] LE[178]9[167]RT[178]20:RS[178]20
1400 [139] RS[177]37 [167] RS [178] 37
1410 [139] RT[178]0[167]1290
1420 [153]:[153][163]4)LE
1430 :
1440 XR[178]12:XC[178]3
1450 [158]QQ,XR,XC:[153]"CHOOSE KEYS TO BE USED"
1460 [158]QQ,XR[170]2,XC[170]3:[153]"AWAITLPHABETS ONLY
1470 SYSQQ,XR+3,XC+3:PRINT"N[146]UMBERS ONLY
1480 [158]QQ,XR[170]4,XC[170]3:[153]"BWAITOTH
1490 SYSQQ,XR+5,XC+3:PRINT"D[146]EFINED
1500 [151]198,0:[146]198,1:[161]T$
1510 [139]T$[178]"A"[167] TS$[178] S1$:[137]1580
1520 [139]T$[178]"N"[167] TS$[178] S2$:[137]1580
1530 [139]T$[178]"B"[167] TS$[178] S1$[170]S2$:[137]1580
1540 [139]T$[179][177]"D"[167] [137]1500
1550 [143]-Z
1560 [153]"LOAD":R1$[178]"!(null)GETSIN":[141]1690
1570 [153]"LOAD":[141]1690:[158]QQ,0,0,200,TS$
1580 TL[178][195](TS$):[142]
1590 [153]"LOAD":[158]QQ,0,13:[153]"S N A K E Y"
1600 [153]"SNAKEY HAS JUST COME OUT OF IT'S BASKET.
1610 PRINT"YOU MUST HELP PUT IT BACK IN BY TYPING
1620 [153]"THE CHARACTER AT IT'S HEAD.
1630 PRINT"BUT HURRY UP, IF SNAKEY MAKES IT TO
1640 [153]"THE WALL ON THE OTHER SIDE, YOU WILL
1650 PRINT"NEVER BE ABLE TO CATCH UP WITH IT!
1660 [158]QQ,23,13:[153]"PRESS ANY KEY":[151] 198,0:[146]198,1
1670 [142]
1680 [143]-XINPUT
1690 R1 [178] [195](R1$):[151]52940,R1[173]2
1700 [129] R2 [178] 1 [164] R1
1710 [151] 52940 [170] R2, [198]([202](R1$,R2,1))
1720 [130] R2
1730 [142]