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