start tok64 d64-kfk3WB
0 SYS 12307:POKE53280,0:PRINT"{clear}{cyan}"
1 GOSUB10000
5 GOSUB 1000
9 GOSUB 1500
10 INPUT"vad g{pound}r vi nu";in$
20 FORi=1TOLEN(in$)
30 IFMID$(in$,i,1)=" "THENGOTO60
40 NEXT i
50 PRINT"2 ord tack"
51 GOTO10
60 o1$=LEFT$(in$,i-1)
70 o2$=RIGHT$(in$,LEN(in$)-i)
80 FORi=1TO4
90 IFo1$=v$(i)THENGOTO120
100 NEXTi
110 PRINT"jag kan inte ";in$:GOSUB1600
120 ON i GOSUB2000,3000,4000,5000
130 GOTO9
199 STOP
1000 REM**ordlista**
1010 FORi=1TO4
1020 READv$(i),f$(i),r$(i),o2(i)
1030 NEXTi
1040 DATA"l[s","boken","hallen",4,"g]","bordet"
1045 DATA"k{pound}ket",2,"ta","stolen","rummet",1
1050 DATA"l[gg","s[ngen","gardroben",3
1055 a=1
1060 RETURN
1500 PRINT"{clear}du st]r i ";r$(a)
1510 PRINT"du ser "
1520 FORi=1TO4
1530 IFo2(i)=aTHENPRINTf$(i)
1540 NEXTi
1550 PRINT"du kan g] till"
1560 IFa>1THENPRINTr$(a-1)
1570 IFa<4THENPRINTr$(a+1)
1580 RETURN
1600 FORt=1TO500:NEXTt:RETURN
2000 IFo2$="boken"ANDo2(i)=0THENGOSUB6000
2010 IFo2$="boken"ANDo2(i)=0ANDa=2THENGOTO6020
2020 GOSUB1600:GOSUB1600:GOSUB1600
2999 RETURN
3000 FORi=1TO4
3010 IFo2$=r$(i)THENGOTO3040
3020 NEXTi
3030 PRINT"du kan inte g] dit":GOSUB1600:GOTO3999
3040 IFABS(a-i)<2THENa=i
3999 RETURN
4000 FORi=1TO4
4010 IFo2$=f$(i)THENGOTO4040
4020 NEXTi
4030 PRINTin$;" l{pound}jligt, det g]r v[l{space*2}inte":GOSUB1600:GOTO4999
4040 IFo2(i)=aTHENo2(i)=0
4999 RETURN
5000 FORi=1TO4
5010 IFo2$=f$(i)THENGOTO5040
5020 NEXTi
5030 PRINT"jag vill inte ";in$
5040 IFo2(i)=0THENo2(i)=a
5999 RETURN
6000 PRINT"boken har blanka sidor"
6010 RETURN
6020 PRINT"nu gick du och vann spelet, gratulerar!"
6030 END
10000 PRINT"{clear}{reverse on}instruktioner till den mystiska boken:"
10010 PRINT"{down}kommandon:"
10020 PRINT"g] (plats)"
10030 PRINT"ta (sak)"
10040 PRINT"l[gg (sak)"
10050 PRINT"l[s boken"
10060 PRINT"{reverse on}{down}tryck en tangent f{pound}r start!"
10070 GETa$:IFa$=""THEN10070
10080 RETURN
stop tok64
(bastext 1.0)