start tok64 d64-kpWVgv
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)