home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 27
/
027.d81
/
strings.1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
721b
|
22 lines
5 rem strings.1
90 dimgl$(20):print"[147][144] [208]reparing the graph":poke53281,1:poke53280,6
100 ln$=chr$(164):gr$=" [146]":fori=1to5:sp$=sp$+ln$:nexti
110 fori=1to4:readqt(i),nm$(i),pv(i):nexti
120 fori=20to1step-1:ifi/5=int(i/5)thengl$(i)=nm$(i/5):goto140
130 gl$(i)=" [161][146][164][164]"
140 forj=1to4:ifqt(j)>=ithengl$(i)=gl$(i)+gr$:goto160
150 gl$(i)=gl$(i)+ln$
160 gl$(i)=gl$(i)+sp$
170 nextj
180 nexti
190 print"[147]";:fori=20to1step-1:printgl$(i):nexti
200 fori=1907to1932:pokei,226:nexti:poke1906,124:poke1905,48
210 fori=1to4:pokepv(i),i+48:nexti
212 print" press any key"
220 getnl$:ifnl$=""then220
225 print"[147]"spc(6)"[210]eturning to [211]trings [205]enu..."
227 f$="strings menu":print"loadf$,8":print"run":poke631,13:poke632,13
228 poke198,2:end
230 data17," 5[161][146][164][164]",1949,7,"10[161][146][164][164]"
240 data1955,14,"15[161][146][164][164]",1961,11,"20[161][146][164][164]",1967