start tok64 d64-j1Sekn
0 GOSUB10000
1 POKE53281,0:POKE53280,0:z=54272:p=-1:pl=0:g=5
2 IFsc>hi THEN hi=sc
3 sc=0
23 a0=1601:a1=1602:a2=1603:a3=1604:a4=1605:a5=1606:a6=1607:a7=1608:a8=1609
24 a9=1610
25 PRINT"{down*6}{right}{clear}{space*2}{right}{space*9}{dark gray}hi-score"hi:PRINT"{up}{down*4}{right*15}{gray}alf's"
26 FORi=1TO5:PRINT:NEXT
30 PRINT"{dark gray}{up*3}{down}{space*9}O{cm y}{cm n}M {cm h} NM {cm n} N O{cm y} O{cm y*2}{cm h}
40 PRINT"{gray}{space*9}{cm y}P{cm n} M{cm h}N{cm y*2}M{cm n}NM O
50 PRINT"{light gray}{space*9}{cm y*2}{space*12}{cm y*2}"
60 PRINT"{light gray}{space*8}NMNMNMNMNMNMNMNMN"SPC(18)"{up*6}{light gray}N"
90 FORi=1TO5:PRINT:NEXT
100 PRINT"{gray}{down*3}{space*7}press any key to continue"
110 GETa$:IFa$=""THEN110
120 FORi=1TO3:PRINT:NEXT
130 PRINT"{light gray}{up*2}{space*2}do you require instructions (y/n) ?"
135 GETa$
140 IFa$="n"THEN200
150 IFa$="y"THEN1000
160 GOTO135
200 PRINT"{clear}"
210 FORi=1064 TO 1103:POKEi,160:POKEi+z,6:NEXT
220 FORi=1103 TO 2023 STEP40:POKEi,160:POKEi+z,6:NEXT
230 FORi=2023 TO 1984 STEP-1:POKEi,160:POKEi+z,6:NEXT                           
240 FORi=1984 TO 1064 STEP-40:POKEi,160:POKEi+z,6:NEXT
250 POKEa0,56:POKEa1,81:POKEa2,81:POKEa3,81:POKEa4,81:POKEa5,81:POKEa6,81
255 POKEa0+z,13:POKEa1+z,2:POKEa2+z,2:POKEa3+z,2:POKEa4+z,2:POKEa5+z,2
256 POKEa6+z,2:POKEa7+z,2:POKEa8+z,2
260 POKEa7,81:POKEa8,81:POKEa9,32
261 PRINT"{home}{156}{down*8}{right*7}O{cm y*2}{cm h}"
262 PRINT"{home}{156}{down*9}{right*7}L{cm d}{cm p}"
263 PRINT"{home}{156}{down*8}{right*23}O{cm y*2}{cm h}"
264 PRINT"{home}{156}{down*9}{right*23}L{cm d}{cm p}{cm h}"
268 pl=0
269 g=g+5
270 FORi=1TOg:x=INT(RND(1)*900)+41
280 IFPEEK(1103+x)<>32THENx=INT(RND(1)*900)+41:GOTO280
290 POKE1103+x,87:POKE1103+x+z,1:NEXT
291 ti$="{0*6}":GOTO370
295 GETr$
300 IFr$="e"ORPEEK(56320)=126THENp=-40
310 IFr$="x"ORPEEK(56320)=125THENp=40
320 IFr$="s"ORPEEK(56320)=123THENp=-1
330 IFr$="d"ORPEEK(56320)=119THENp=1
331 POKE54296,1
340 a9=a8:a8=a7:a7=a6:a6=a5:a5=a4:a4=a3:a3=a2:a2=a1:a1=a0:a0=a0+p
350 IFPEEK(a0)=87 THENsc=sc+10:PRINT"{home}{red} score "sc:GOSUB7000:GOTO3000
360 IFPEEK(a0)<>32 THEN5000
370 POKEa0,56:POKEa0+z,13:POKEa1,81:POKEa1+z,2:POKEa9,32
375 PRINT"{home}"SPC(24)"time "ti$:IFti>001800THEN GOSUB15000:GOTO3990
377 POKE54296,0
380 GOTO295
1000 PRINT"{clear}"
1010 PRINT"{green}{space*8}i n s t r u c t i o n s"
1020 PRINT"{light green}{space*8}{cm t*23}"
1030 PRINT:PRINT:PRINT:PRINT" key's are:-"
1040 PRINT
1050 PRINT"{red}{space*18}up"
1055 PRINT
1060 PRINT"{red}{space*17}O{cm y*2}{cm h}"
1070 PRINT"{red}{space*17}{cm h}e {cm h}"
1080 PRINT"{red}{space*17}L{cm d}{cm p}{cm h}"
1090 PRINT"{green}{space*10}O{cm y*2}{cm h}{space*10}O{cm y*2}{cm h}"
1100 PRINT"{green}{space*5}left {cm h}s {cm h}{space*10}{cm h}d {cm h}right"
1110 PRINT"{green}{space*10}L{cm d}{cm p}{cm h}{space*10}L{cm d}{cm p}{cm h}"
1120 PRINT"{red}{space*17}O{cm y*2}{cm h}"
1130 PRINT"{red}{space*17}{cm h}x {cm h}"
1140 PRINT"{red}{space*17}L{cm d}{cm p}{cm h}"
1145 PRINT
1150 PRINT"{red}{space*17}down"
1160 PRINT:PRINT:PRINT"{blue}{space*7}press any key to continue"
1170 GETa$:IFa$=""THEN1170
1180 PRINT"{clear}"
1190 PRINT"{down*5}{cyan} the aim of the game is to eat all the"
1195 PRINT
1200 PRINT" round pills scattered around the field"
1210 PRINT:PRINT" within the limit. displayed top":PRINT
1220 PRINT" right of the screen,you score ten pts":PRINT
1230 PRINT" for every pill eaten {.*15}{space*5}":PRINT
1235 PRINT" when a bell is ringing,there is no time left":PRINT
1260 PRINT:PRINT"{space*3}press any key to start game"
1270 GETa$:IFa$="" THEN1270
1280 GOTO200
3000 POKE54296,15:POKE54277,6:POKE54276,33:POKE54273,10:POKE54272,10
3010 FORi=1TO100:NEXT:POKE54277,0:POKE54276,0:POKE54273,0:POKE54272,0
3011 pl=pl+1:IFpl=g THEN268
3030 GOTO370
3990 RESTORE:POKE54296,15
4000 POKE54277,9:POKE54276,3:POKE54275,1:FORi=1TO100:NEXT
4010 READa,b:IFb=-1THENPOKE54273,0:POKE54272,0:GOTO1
4020 POKE54273,a:POKE54272,b:POKE54276,0:GOTO4000
4030 DATA8,147,9,159,10,205,10,205,8,147,12,216,8,147,34,175,-1,-1
5000 POKE54296,15:POKE54277,100:POKE54278,200:POKE54273,1:POKE54272,178
5010 POKE54276,65:FORt=1TO370:NEXT:POKE54276,0:POKE54277,0:POKE54278,0
5020 GOTO1
7000 s=54272
7005 FORl=sTOs+24
7010 POKEl,0:NEXT
7015 POKEs+24,15
7020 POKEs+1,20
7025 POKEs,146
7030 POKEs+3,4
7035 POKEs+2,0
7040 POKEs+5,8
7045 POKEs+6,248
7050 POKEs+15,75
7055 POKEs+4,67
7060 FORi=1TO20
7065 POKEs+15,100-2*1
7070 NEXTi
7075 POKEs+4,64
7080 RETURN
9999 REM *** introductions-melody ***
10000 RESTORE:s=54272
10005 FORl=0TO24:POKEs+l,0:NEXT
10010 POKEs+3,8
10015 POKEs+5,41:POKEs+6,89
10020 POKEs+14,117
10025 POKEs+18,16
10030 POKEs+24,143
10035 READfr,lf
10040 IFfr=0THENRETURN
10045 POKEs+4,65
10050 FORt=1TOdr*2
10055 fq=fr+PEEK(s+27)/2
10060 hf=INT(fq/256):lf=fq AND 255
10065 POKEs+0,lf:POKEs+1,hf
10070 NEXT
10075 POKEs+4,64
10080 GOTO10035
10081 DATA4817,2,5103,2,5407,2
10082 DATA8583,4,5407,2,8583,4
10083 DATA5407,4,8583,12,9634,2
10084 DATA10207,2,10814,2,8583,2
10085 DATA9634,4,10814,2,8583,2
10086 DATA9634,4,8583,12
10087 DATA0,0
15000 s=54272
15010 POKEs+1,130
15015 POKEs+5,9
15020 POKEs+15,30
15025 POKEs+24,15
15030 FORl=1TO6:POKEs+4,21
15035 FORt=1TO500:NEXT:POKEs+4,20
15040 FORt=1TO500:NEXT:NEXT
15045 RETURN
stop tok64
(bastext 1.0)