start tok64 d64-7nRSDs
2 GOTO5000
5 DIMe$(17):DIMf$(50):DIMn(20):DIMv(20):DIMs(20):DIMo(20):DIMv$(10):DIMe(17)
8 GOTO1000
9 a=1:c$="":d$="":PRINT"{down}vad ska jag g{pound}ra"
10 INPUTin$
11 IFin$="n"THEN3500
12 IFin$="s"THEN3500
13 IFin$="v"THEN3500
14 IFin$="{pound}"THEN3500
20 a$=MID$(in$,a,1):IFa$=" "THEN50
25 a=a+1:c$=c$+a$:IFa=15THEN40
26 GOTO20
40 PRINT"{down}anv[nd ett verb och ett sustantiv":GOTO9
50 a$=MID$(in$,a,1):IFa$=""THEN100
60 a=a+1:d$=d$+a$:IFa=30THEN40
61 GOTO50
65 :
70 GOTO77
71 IF r=16THENb=1:GOTO73
72 GOTO9
73 IFi$(b)="pl"THEN76
74 b=b+1:IFb=4THENPRINT"{down}du ramlade ner i ett h]l. en planka hadehj[lpt dig":GOTO10000
75 GOTO73
76 PRINT"{down}d[r hade du tur utan plankan hade du{space*4}aldrig klarat dig":GOTO9
77 PRINT"{clear}{down}du [r i :"f$(r)
78 PRINT"{down}rums beskrivning :det [r":GOTO3000
80 PRINT"{down}saker framf{pound}r dig:":FORt=1TO16:IFe(t)=rTHENPRINTe$(t)
81 NEXTt:n$="":v$="":s$="":o$=""
82 IFn(r)>0THENn$="norr"
83 IFs(r)>0THENs$="s{pound}der"
84 IFv(r)>0THENv$="v[ster"
85 IFo(r)>0THENo$="{pound}ster"
86 PRINT"{down}du kan g] ]t :"n$","s$","o$","v$
88 PRINT"{down}{-*40}"
90 GOTO71
100 x$=MID$(c$,1,2):y$=MID$(d$,2,2)
110 b=1
120 IFx$=v$(b)THEN200
130 b=b+1:IFb=8THEN150
140 GOTO120
150 PRINT"{down}jag kan inte "c$:GOTO9
200 IFx$="l]"THEN360
201 IFx$="ka"THEN450
202 IFx$="g]"THEN265
203 IFx$="ti"THEN65
204 IFx$="ta"THEN310
205 IFx$="{pound}p"THENPRINT"d{pound}rren [r l]st":GOTO9
206 IFx$="l["THEN210
210 a$=MID$(d$,2,2)
212 IFa$="bo"THENPRINT"{down}det st]r att du ska ta en planka och g] till";:GOTO214
213 IFa$<>"bo"THENPRINT"du har inget att l[sa":GOTO9
214 PRINT" fysik salen. f{pound}r d[r ligger nyckeln":GOTO9
264 REM ****** g] *******
265 p$=MID$(d$,2,2)
266 IFp$="no"THENIFn(r)>0THENr=r-4:GOTO70
267 IFp$="s{pound}"THENIFs(r)>0THENr=r+4:GOTO70
268 IFp$="v["THENIFv(r)>0THENr=r-1:GOTO70
269 IFp$="{pound}s"THENIFo(r)>0THENr=r+1:GOTO70
270 PRINT"{down}du kan inte g] dit":GOTO9
309 REM ****** ta ******
310 a$=MID$(d$,2,2):b=1
314 b$=MID$(e$(b),1,2)
315 IFa$=b$ANDe(b)=rTHEN320
316 IFa$=b$THENPRINT"i det h[r rummet finns inge "e$(b):GOTO9
317 b=b+1:IFb=17THEN319
318 GOTO314
319 PRINT"{down}"d$" [r ett ord jag inte vet":GOTO9
320 b=1
321 IFi$(b)="a"THEN325
322 b=b+1:IFb=4THEN324
323 GOTO321
324 PRINT"du kan inte b[ra n]got mer":GOTO9
325 IFa$="sp"THENPRINT"{down}den sm[llde i handen p] dig":GOTO10000
326 i$(b)=a$:PRINT"ok":e(b)=0:GOTO9
330 REM ********************
360 b=1
365 IFi$(b)="ny"THEN370
367 b=b+1:IFb=4THENPRINT"du har ingen nyckel":GOTO9
370 PRINT"{clear}{down*12}{space*12}du klarade det":FORt=1TO1000:NEXTt:b=1
380 b=b+1:POKE53280,b:GETa$:IFa$=" "THEN400
385 IFb=255THENb=1
390 GOTO380
400 CLR:GOTO1000
450 IFi$(1)="a"THENPRINT"du har inget att kasta":GOTO9:REM*******ka******
451 y=2
452 IFi$(b)="a"THEN460
453 y=y+1
460 b=1
462 a$=MID$(i$(b),1,2)
463 b=1
464 g$=MID$(e$(b),1,2)
465 IFa$=g$THEN470
467 b=b+1:IFb=17THENGOTO9
468 GOTO464
470 e(b)=r:i$(y)="a":PRINT"ok":GOTO9
1000 FORt=1TO16:READf$(t):NEXT
1010 FORt=1TO16:READe$(t):e(t)=t:NEXTt
1020 FORt=1TO7:READv$(t):NEXTt
1025 FORt=1TO16:READn(t):READv(t):READo(t):READs(t):NEXTt
1026 r=13:i$(1)="a":i$(2)="a":i$(3)="a"
1027 GOTO65
1030 DATAsal 1,korridoren,k{pound}ket,korridoren,korridoren,verkstaden,kemi salen
1032 DATApersonal rumet
1035 DATAbiblioteket,sal 10,sal 11,sal 9,gymnastik salen,sal 8,utg]ngen
1037 DATAfysik salen
1040 DATApengar,svenska bok,mat,ned slagen l[rare,sko,planka,spr[ng deg,kassask]p
1045 DATAbok,stolar & bord,datorer,uppstoppade f]glar,fotbollar,ingenting
1046 DATAl]s,nyckel
1050 DATAg],l],ta,ka,l[,{pound}p,ti
1060 DATA0,0,1,0,0,1,1,1,0,1,1,1,0,1,0,1,0,0,1,1,1,1,0,0,1,0,0,0,1,0,0,1,1,0,0,1
1070 DATA0,0,1,1,0,1,1,0,1,1,0,1,1,0,0,0,1,0,1,0,0,1,0,0,1,0,0,0
3000 IFr=1THENGOTO3016
3001 IFr=2THENGOTO3020
3002 IFr=3THENGOTO3030
3003 IFr=4THENGOTO3040
3004 IFr=5THENGOTO3050
3005 IFr=6THENGOTO3060
3006 IFr=7THENGOTO3070
3007 IFr=8THENGOTO3080
3008 IFr=9THENGOTO3090
3009 IFr=10THENGOTO3100
3010 IFr=10THENGOTO3110
3011 IFr=12THENGOTO3120
3012 IFr=13THENGOTO3130
3013 IFr=14THENGOTO3140
3014 IFr=15THENGOTO3150
3015 IFr=16THENGOTO3160
3016 PRINT"ett litet rum untan f{pound}nster och m{pound}bler":GOTO80
3020 PRINT"en kort korridor med ned kluddade v[ggar":GOTO80
3030 PRINT"en hemkunskaps sal med massor av mat i{space*2}kylen":GOTO80
3040 PRINT"en korridor med s{pound}nder rivna b{pound}cker":GOTO80
3050 PRINT"en l]ng helt vanlig korridor":GOTO80
3060 PRINT"en teknik sal med massor av verktyg":GOTO80
3070 PRINT"en vanlg kemi sal":GOTO80
3080 PRINT"ett personal rum med lyx m{pound}bler helt[ck-ningsmatta":GOTO80
3090 PRINT"ett litet bibliotek .en bok [r kasad p] golvet":GOTO80
3100 PRINT"en vanlig sal med rosa grdiner":GOTO80
3110 PRINT"ett data sal med den urd]liga datorn{space*4}{reverse on}abc 80":GOTO80
3120 PRINT"en biologi sal med massor av uppstoppadedjur":GOTO80
3130 PRINT"en stor gymnastik sal med med mycket{space*4}sport saker":GOTO80
3140 PRINT"en vanlig sal ":GOTO80
3150 PRINT"en korridor som leder till en d{pound}rr ut":GOTO80
3160 PRINT"en fysik sal men det p]g]r r{pound}rbyte s]{space*3}att det [r ett stort h]l just ";
3165 PRINT"d[r du [r":GOTO80
3500 IFin$="n"THENIFn(r)>0THENr=r-4:GOTO70
3510 IFin$="s"THENIFs(r)>0THENr=r+4:GOTO70
3520 IFin$="v"THENIFv(r)>0THENr=r-1:GOTO70
3530 IFin$="{pound}"THENIFo(r)>0THENr=r+1:GOTO70
3540 PRINT"{down}du kan inte g] dit":GOTO9
4000 DATAsal 1,korridor,k{pound}k,korridor,korridor,verkstad,kemi sal,personal rum
4010 DATAbibliotek,sal 10,sal 11,sal 9,gymnastik sal,sal 8,utg]ng,fysik sal
5000 PRINT"{clear}{down*2}{right*6}{black}***** skol [ventyret ****":POKE53280,0
5005 PRINT"{down*2}{space*10}by {reverse on}johan bernkert":
5006 PRINT"{down}{space*14}(c) 1986"
5010 PRINT"{down}du har just blivit nedslagen i en h]rd{down}{space*2}landbandy match."
5020 PRINT"{down}nu har alla g]tt hem och din uppgift [r{down} att komma ut men det [r inte";
5030 PRINT" alltid"
5035 PRINT"{down}s] l[tt f{pound}r att d{pound}rren [r l]st och du"
5040 PRINT"{down}m]ste hitta nyckeln f{pound}r att komma ut"
5050 PRINT"{down*3}{space*8}tryck en tangent"
5060 GETa$:IFa$=""THEN5060
5070 GOTO5
10000 PRINT"{down} en g]ng till (j/n)"
10010 GETa$:IFa$=""THEN10010
10020 RUN
stop tok64
(bastext 1.0)