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