start tok64 d64-zus2rh 1 v=53248 2 POKEv+21,4:POKE2042,13:POKEv+4,0:POKEv+5,0:POKEv+23,4:POKEv+29,4 5 REM h{pound}guppl{pound}sning 10 POKE53280,0:POKE53281,0:PRINT"{clear}" 20 POKE53272,PEEK(53272) OR 8 30 POKE53265,PEEK(53265) OR 32 40 d=1024:s=8000+8192 50 FORi=oTO999:POKEd+i,PEEK(s+i):NEXT 60 POKE53280,PEEK(17192) 70 GETa$:IFa$=""THEN70 80 POKE53265,PEEK(53265)AND223 90 POKE53272,PEEK(53272)AND247 95 INPUT"{clear}{yellow}hur m]nga ord vill du ha";ao 100 PRINT"{clear}":k=INT(25*RND(1))+1:IFk=jTHEN100 110 j=k 150 POKEv+4,0:POKEv+5,0 200 f$=STR$(j):f$=MID$(f$,2,3) 300 OPEN2,8,2,f$:aa=aa+1 400 INPUT#2,n$ 405 INPUT#2,k1$:INPUT#2,k2$:INPUT#2,s$ 410 FORb=0TO62:INPUT#2,s:POKE832+b,s:NEXT 420 CLOSE2 425 POKEv+4,150:POKEv+5,50 430 PRINT"{clear}antal missar:";m;"{down*7}" 440 PRINT"{right*17}";n$ 450 REM***fr]gningsrutin*** 460 PRINT"{down*3}",k1$,k2$ 470 a=PEEK(56320):b=PEEK(56321) 480 IFa=127ANDb=255THEN470 490 IFa=123ORb=251THENGOTO600 500 IFa=119ORb=247THENGOTO700 510 GOTO470 600 PRINT"{home}{down*12}","{space*9}",k2$:e$="1" 610 IFPEEK(56320)=111ORPEEK(56321)=239THENGOTO800 620 IFPEEK(56320)=119ORPEEK(56321)=247THENGOTO700 630 PRINT"{home}{down*12}",k1$,k2$ 640 IFPEEK(56320)=111ORPEEK(56321)=239THENGOTO800 650 IFPEEK(56320)=119ORPEEK(56321)=247THENGOTO700 660 GOTO600 700 PRINT"{home}{down*12}",k1$,"{space*9}":e$="2" 710 IFPEEK(56320)=111ORPEEK(56321)=239THENGOTO800 720 IFPEEK(56320)=123ORPEEK(56321)=251THENGOTO600 730 PRINT"{home}{down*12}",k1$,k2$ 740 IFPEEK(56320)=111ORPEEK(56321)=239THENGOTO800 750 IFPEEK(56320)=123ORPEEK(56321)=251THENGOTO600 760 GOTO700 800 IFe$=s$THENPRINT"{clear}r[tt{!*3}":FORk=1TO1000:p=p+1 810 IFe$<>s$THENPRINT"{clear}fel{!*3}":FORk=1TO1000:m=m+1 815 IFao=aaTHEN830 820 FORl=1TO1000:NEXT:GOTO100 830 POKEv+4,0:POKEv+5,0:PRINT"{clear}nu har du f]tt alla ";ao;"orden." 835 PRINT"dina po[ng var:";p;" och du hade";m:PRINT"missar." 840 PRINT"vill du f{pound}rs{pound}ka igen?" 850 PRINT"{down*2}ja",,"nej" 860 a=PEEK(56320):b=PEEK(56321) 870 IFa=123ORb=251THENRUN 880 IFa=119ORb=247THENEND 890 GOTO860 stop tok64 (bastext 1.0)