start tok64 d64-O7NvXX 0 REM16384:REM"{space*15} 1 POKE808,225:OPEN01,8,13:OPEN5,8,5,"#" 2 PRINT#01,"b-r:"5;0;0;0 3 b$="":FORl=1TO24:GET#1,s$:IFst=0THENb$=b$+s$:NEXTl 4 CLOSE5:CLOSE15:IFb$= "magic carpet{space*3}-se00e0mc"THENPOKE1,7 110 SYS10072:FORx=0TO16:POKE53248+x,0:NEXT 115 POKE53281,0:GOSUB1240:FORx=0TO160STEP40:POKEx+30000,160:NEXT 120 POKE53269,0:POKE53280,15:ci=0:t=8419:u=21274:so=0:su=0:POKE54296,0:s=2 130 PRINT"{clear}":POKE2040,195 133 PRINT"{home}{space*39}" 135 PRINT"{yellow} {cm a}";:FORx=1TO36:PRINT"{sh asterisk}";:NEXT:PRINT"{cm s}{space*2}{sh -}{space*2}"SPC(32)"{space*2}{sh -}{space*2}{sh -}{space*2}"; 140 PRINTSPC(32)"{space*2}{sh -}{space*2}{sh -}{space*2}"SPC(32)"{space*2}{sh -}{space*2}{cm q}";:FORx=1TO36:PRINT"{sh asterisk}";:NEXT 150 PRINT"{cm w}{space*2}{sh -}{space*2}"SPC(32)"{space*2}{sh -}{space*2}{cm z}";:FORx=1TO36:PRINT"{sh asterisk}";:NEXT:PRINT"{cm x} " 160 PRINTTAB(10)"{green}U";:FORx=1TO18:PRINT"{sh asterisk}";:NEXT:PRINT"I":FORx=1TO2 170 PRINTTAB(10)"{sh -}"SPC(18)"{sh -}":NEXT:PRINTTAB(10)"J";:FORx=1TO18:PRINT"{sh asterisk}";:NEXT 180 PRINT"K{home}{down*2}{right*2}{space*10}{yellow}forced encounter{space*10}" 190 PRINTTAB(19)"{space*2}":PRINTTAB(16)"{up}{space*8} 200 PRINT"{down}{right*2}{space*7}public domain software{space*7} 210 PRINTTAB(10)"{light green}{down*3}{right}high score"hs:PRINTTAB(10)"{right}last score"ls 220 PRINTTAB(13)"{white}{down*2}-instructions- 230 PRINT"{yellow}{down}[..EEDCC{sh asterisk}F=1{space*2}Q=5{space*2}{cm t}{cm y*2}{cm t}{left*3}{up}UI{down}{right}=50{space*2}{reverse on}bonus{reverse off}=200..] 240 PRINT"{orange}{right*6}move with crsr control keys. 250 PRINTTAB(9)"hit shift key to fire. 260 PRINTTAB(12)"{156}or use joy stick":PRINTTAB(8)"{down}{white}hit return key to start!{home} 270 FORx=0TO9:GETa$:NEXT:x=0:d=0 275 IFPEEK(8192)<>139ORPEEK(8420)>4THENSYS21278 280 GETa$:IFa$<>""THEN286 281 POKE53272,21:x=x+1:IFx=99THENPOKE53280,0:GOSUB6200 282 IFx>99THENSYS21136 283 IFx=200THENPOKE53280,(RND(1)*15)+1:GOTO133 285 GOTO280 286 IFa$<>"{f1}"THEN300 287 e=PEEK(10848):IFe=1THENe=11 288 e=e-1:POKE10848,e:POKE2003,(10-e)+48:POKE56275,7:GOTO280 300 POKE54296,15:PRINT"{clear}":e=0:POKEt,0 310 b=22:c=33:d=-2:POKE21409,15:ss=139:tt=4 320 POKEv+1,221:eu=so:IFso>2THENso=3:eu=2:ci=0 322 POKE10703,0:IFeTHENPOKE1984,(178-eu)+ci 325 POKE9471,6:POKEu,0:a=0:b=b-1:c=c-4:d=d+2:IFc<10THENSYS21278:GOTO310 327 POKE10746,(d/5)+1:POKE10747,184-(d*9) 330 FORx=9728TO9766:POKEx,3:NEXT:POKE53280,s:s=s+1:POKE21214,ss:POKE21215,tt 340 POKE21196,14:IFd>0ANDsu=0THENSYS21229:POKE21409,PEEK(21409)-2 350 su=0:POKE21198,0:SYS8098:ss=PEEK(21214):tt=PEEK(21215):IFeTHEN990 360 FORx=1TO18:PRINT:NEXT 370 PRINT"{yellow}{cm i}{reverse off}"SPC(38)"{cm i}{reverse on}m{reverse off}{cm j}"SPC(36)"{cm l}{reverse on} e{reverse off}{cm k}"SPC(36)"{reverse on}{cm k} "; 380 PRINT"n{cm l}"SPC(36)"{cm j}{space*2}{cm n}"SPC(36)"{cm h} "; 385 PRINT"2 {green}{cm y}{cm t} ";:FORx=1TO9:PRINT" "; 390 NEXT:PRINT"score{space*2}{0*5}";:FORx=1TO9:PRINT" ";:NEXT:PRINT"{cm t}{cm y}{cm u}{yellow} {reverse off}{home} 395 e=0:FORx=0TO160STEP40:z=PEEK(30000+x):IFz>176THENe=e+1 396 IFe=0THENz=160 399 POKE1863+x,z:NEXT 400 POKE53269,254:POKE56295,7:e=1:GOSUB900:GOTO510 410 GOSUB610:POKE21477,0:POKE10056,9:POKE10051,129 420 SYS10832:IFPEEK(t)=1THEN800 450 IFPEEK(u)=1THEN750 500 GOTO420 510 a$="{white}UI{down}{left*3}{cm t}{cm y*2}{cm t}":b$="{white}{left*4}{space*3}N{up}{left*3}{space*2}UN":c$="{white}{up}{left}{cm g}{down}{left*2}U{cm h}{down}{left*2}J{cm h}{down}{left*2} {cm g}" 520 d$="{white}{up*3}{left*3}M{space*2}{down}{left*3}JM {down}{left*2}{space*2}{down}{left} {up*3}":e$="{white}{left*4}{cm @}{cm p*2}{cm @}{down}{left*3}JK " 530 f$="{white}{up}{left*5}{space*3}N {down}{left*3}NK":g$="{white}{up}{left*2}{cm m} {down}{left*2}{cm n}I{left*2}{down}{cm n}K{left*2}{down}{cm m}":h$="{white}{up*3}{left} {down}{left}MI{down}{left*2} M{down}{left*2} " 540 i$="{up*2}{left}{space*2}{down}{left}"+a$:j$="{left*4} {up} ":PRINT"{home}{down*12}{right}"a$;:k$="{left*4}{space*4}{up*2}{left*4}" 550 FORx=9TOb:PRINTj$a$;:GOSUB600:NEXT:GOSUB600 560 PRINTb$;:GOSUB600:PRINTc$;:GOSUB600:PRINTd$;:GOSUB600:PRINTe$;:GOSUB600 570 PRINTf$;:GOSUB600:PRINTg$;:GOSUB600:PRINTh$;:GOSUB600:PRINTi$;:GOSUB600 580 IFa=0THENFORx=cTO9STEP-2:GOSUB600:PRINTk$a$;:NEXT:a=1:GOSUB600:GOTO550 590 GOTO410 600 POKE10051,21:POKE10056,x+c/2:SYS10034:POKE53272,21:RETURN 610 PRINT"{home}{yellow}";:FORx=1TOd+2:PRINT"{down}";:NEXT 620 PRINT"{yellow}{right*4}{cm @*5}RFF{sh asterisk*2}CCDDEE{cm t*2}EEDDCC{sh asterisk*2}{F*3}R{cm @*2} 630 FORx=1TO2:PRINT"{right*3}C{white}{space*15}{right*4}{space*13}{yellow}C":NEXT 640 PRINT"{right*4}{cm t*3}EEDDCC{sh asterisk*2}FFRR{cm @*4}RRF{sh asterisk*2}CCDDEE{cm t*2} 650 PRINT"{home}{red}";:FORx=1TOd+1:PRINT"{down}";:NEXT 660 PRINT"{right*3}{cm @*3}{R*3}FF{sh asterisk*2}CCDDEE{cm t*2}EEDDCC{sh asterisk*2}{F*3}RR{cm @*2} 670 PRINT"{right*2}F"SPC(33)"F":PRINT"{right*2}{sh asterisk}"SPC(34)"{sh asterisk} 680 PRINT"{right*2}{sh asterisk}"SPC(34)"{sh asterisk}":PRINT"{right*3}{sh asterisk}"SPC(33)"{sh asterisk} 690 PRINT"{right*4}{cm t*4}EEDDCC{sh asterisk*2}FFRR{cm @*3}RRFF{sh asterisk*2}CDD{E*3}{cm t*2} 700 PRINT"{home}{blue}";:IFd>0THENFORx=1TOd:PRINT"{down}";:NEXT 710 PRINT"{space*2}{cm @*3}{R*3}FF{sh asterisk*2}CCDDEE{cm t*4}DDCC{sh asterisk*3}FFRR{cm @*3}":PRINT"{right}{sh asterisk}"SPC(34)"{sh asterisk} 720 PRINT" {sh asterisk}"SPC(35)"{sh asterisk}":PRINT" C"SPC(36)"C":PRINT" F"SPC(36)"{sh asterisk} 730 PRINT"{space*2}{sh asterisk}"SPC(35)"{sh asterisk}":PRINT"{space*3}{sh asterisk}"SPC(34)"{sh asterisk} 740 PRINT"{space*4}{cm t*5}EEDDCC{sh asterisk*2}FFRR{cm @*4}{R*3}{C*3}DDEE{cm t*3}{home}";:RETURN 750 POKE53269,254:POKE53272,21:POKE10011,96:z=1:IFd>7THENz=5:ci=1 760 FORx=1TO50*z:SYS10152:NEXT:POKE10011,234:uu=1:POKE10115,20:SYS10072:GOTO320 770 POKE53272,21:z=1:ls=0:FORx=2009TO2005STEP-1:ls=ls+(PEEK(x)-176)*z:z=z*10 780 NEXT:IFls>hsTHENhs=ls:GOTO795 790 e=1:GOTO920 795 z=0:FORx=2005TO2009:POKEz+30000,PEEK(x):z=z+40:NEXT:GOTO790 800 POKE53269,254:POKEt,0:so=so+1 805 IFso<3ORci=1THENb=b+1:c=c+4:d=d-2:su=1:s=s-1:uu=0:GOTO320 810 GOTO770 820 POKE10056,7:POKE10051,129:x=b+1064+((15-PEEK(21409))*40):y=54272+x 830 FORz=0TOPEEK(21409)+4:FORs=0TO3:POKEx+s,221:POKEy+s,4:SYS10034 840 NEXT:x=x+40:y=54272+x 850 NEXT:x=x-40:FORz=0TOPEEK(21409)+4:FORs=0TO3:POKEx+s,32:SYS10034 860 NEXT:x=x-40:NEXT 870 IFc=2THENPRINT"{space*3}{down}"; 880 FORx=1TO156-a:PRINT"{left*4} {up} "a$;:GOSUB600:NEXT 890 GOTO120 895 PRINT"{home}{down*6}"SPC(13)"{white}{reverse on}{yellow}{space*2}bonus man{space*2}":FORx=1TO1500:NEXT:GOTO910 900 PRINT"{home}{down*6}"SPC(13)"{white}{reverse on} encounter"so+1"{left} {reverse off}":FORx=1TO150:POKE53272,21:NEXT 910 PRINT"{home}{down*6}"SPC(13)"{space*13}{home}";:RETURN 920 a=PEEK(8176)+46 930 b=(PEEK(21214)+(PEEK(21215)*256))-1024-((15-PEEK(21409))*40) 940 SYS21332:PRINT"{home}";:FORx=1TO18-PEEK(21409):PRINT"{down}";:NEXT:PRINTSPC(b-119)a$; 950 IFb>aTHENPRINT"{left*4}{up}"; 960 IFb>aTHENb=b-1:PRINTa$" {up}{left*2} {left*4}";:x=b/9:GOSUB600:c=2:GOTO960 970 IFb2THENGOSUB895:GOTO510 995 IFuu=0THENGOSUB900 1000 GOTO510 1240 v=53248:POKEv+23,252:POKEv+29,127 1250 POKEv+2,205:POKEv+3,221:POKEv+4,230:POKEv+5,200:POKEv+27,254:POKE2040,192 1252 POKEv+6,255:POKEv+7,203:POKEv+8,114:POKEv+9,200:POKEv+10,90:POKEv+11,200 1253 POKEv+12,250:POKEv+13,170:POKEv+14,123:POKEv+15,166:POKEv+28,36:POKEv+37,7 1254 POKEv+38,8:POKE2041,193:FORx=0TO5:POKE2042+x,194:NEXT:POKEv+41,8 1258 POKEv+42,9:POKEv+40,12:FORx=44TO45:POKEv+x,9:NEXT:POKEv+46,2:POKEv+43,2 1260 POKEv+44,8:RETURN 6200 PRINT"{home}{down*2}{blue}{right*4}{cm @*5}RFF{sh asterisk*2}CCDDEE{cm t*2}EEDDCC{sh asterisk*2}{F*3}R{cm @*2} 6300 PRINT"{right*3}C{space*15}{white}UI{blue}{space*15}C" 6310 PRINT"{up}{right*3}C{space*14}{white}{cm t}{cm y*2}{cm t}{blue}{space*14}C" 6400 PRINT"{right*4}{cm t*3}EEDDCC{sh asterisk*2}FFRR{cm @*4}RRF{sh asterisk*2}CCDDEE{cm t*2} 6600 PRINT"{home}{yellow}{down}{right*2} {cm @*3}{R*3}FF{sh asterisk*2}CCDDEE{cm t*2}EEDDCC{sh asterisk*2}{F*3}RR{cm @*2} 6700 PRINT"{up}{right*2}F"SPC(33)"F":PRINT"{right*2}{sh asterisk}"SPC(34)"{sh asterisk} 6800 PRINT"{up}{right*2}{sh asterisk}"SPC(34)"{sh asterisk}":PRINT"{right*3}{sh asterisk}"SPC(33)"{sh asterisk} 6900 PRINT"{up}{right*4}{cm t*4}EEDDCC{sh asterisk*2}FFRR{cm @*3}RRFF{sh asterisk*2}CDD{E*3}{cm t*2} " 7100 PRINT"{home}{red}{space*2}{cm @*3}{R*3}FF{sh asterisk*2}CCDDEE{cm t*4}DDCC{sh asterisk*3}FFRR{cm @*3}":PRINT"{right}{sh asterisk}"SPC(34)"{sh asterisk}{space*2}" 7200 PRINT"{up} {sh asterisk}"SPC(35)"{sh asterisk} ":PRINT" C"SPC(36)"C":PRINT"{up} F"SPC(36)"{sh asterisk} 7300 PRINT"{space*2}{sh asterisk}"SPC(35)"{sh asterisk}":PRINT"{up}{space*3}{sh asterisk}"SPC(34)"{sh asterisk} 7400 PRINT"{space*4}{cm t*5}EEDDCC{sh asterisk*2}FFRR{cm @*4}{R*3}{C*3}DDEE{cm t*3} {white}":RETURN 63999 END stop tok64 (bastext 1.0)