Huone datan esitys rutiini on tässä
toki sen voi järjestää monella muullakin tavalla mutta tämä lienee kaikkein simppelin
eikä tuhlaa muistia kovin paljon
muuttujiin kirjoitetut selostukset kun vievät kaksinkertaisen määrä muistia
ohjelma sovittaa kirjoittamasi kuvaukset ruudun kokoon tämä siksi että Data osioon
pystyisi kirjoittamaan vain yhden rivin textin joka on huomattavasti selkeämpi lukea
kuin rivit jotka ovat kahdella rivilla ja niiden editointi on siksi helpompaa
muuttujalla HU kerrotaan mikä listan kuvauksista halutaan esittää
huonetta 0 ei ole joten sen tilalle voi kirjoittaa vaikka pelin esittely textin
tämä selviä tulevissa ohjelma osioissa tarkemmin
toki sen voi järjestää monella muullakin tavalla mutta tämä lienee kaikkein simppelin
eikä tuhlaa muistia kovin paljon
muuttujiin kirjoitetut selostukset kun vievät kaksinkertaisen määrä muistia
ohjelma sovittaa kirjoittamasi kuvaukset ruudun kokoon tämä siksi että Data osioon
pystyisi kirjoittamaan vain yhden rivin textin joka on huomattavasti selkeämpi lukea
kuin rivit jotka ovat kahdella rivilla ja niiden editointi on siksi helpompaa
muuttujalla HU kerrotaan mikä listan kuvauksista halutaan esittää
huonetta 0 ei ole joten sen tilalle voi kirjoittaa vaikka pelin esittely textin
tämä selviä tulevissa ohjelma osioissa tarkemmin
Koodi [Valitse]
10 print chr$(14)chr$(8)
11 rem "vaihdetaan isohin ja pieniin kirjaimiin
12 rem "ja lukitaan se
20 :
90 input"Huone numero:";hu
100 gosub120:gosub 150:goto 90
101:
120 rem "etsitaan oikea huone data"
121 restore:if hu=0 then:return
121 for t=0 to hu-1
122 read h$:if h$<>"$" then 122
124 next:return
125 :
150 rem " tulosta huone kuvavaus "
151 read h$:print"( "h$" )":rem " tulosta otsikko "
160 a$=""
170 read h$:a$=a$+h$+" ":if len(a$)<200 and h$<>"$" then 170
172 gosub 200:if h$<>"$" then 160
173 print "----------------------------------"
174 return
180 :
200 rem " tulostetaan a$ puskuri "
201 if h$="$" then :a$=left$(a$,len(a$)-2)
210 a=39:le=len(a$)
220 if le<39 then print left$(a$,le):return:rem "puskuri tyhja"
230 if mid$(a$,a,1)<>" " then a=a-1:goto 230
240 print left$(a$,a)
250 a$=right$(a$,le-a):goto 210
900 rem " Data osuus "
901 data "pelin esittely menu texti ehka"
902 data "koska nolla huonetta ei ole voidaan"
903 data "tilaa kayttaa vaikka siihen"
910 data "$"
1100 :
1101 data "huone 1
1102 data "Huone on hamara
1103 data "ikkunankaihtimet ovat kiinni
1104 data "ilmassa leijuu kalman loyhka
1105 data "mustavalkoinen TV suhisee
1106 data "nurkassa
1190 data "$"
1200 :
1201 data "huone 2
1202 data "tama on ilmeisesti ollut
1203 data "joskus komero mutta nyt
1204 data "sen tayttavat aikakaus
1205 data "lehdet joita on paljon"
1290 data "$"
9000 data "#":rem "end of rooms mark"