home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 58 / 058side1.d64 / bits (.txt) < prev    next >
Commodore BASIC  |  2022-08-29  |  759b  |  27 lines
  1. 100 f$="mist.o"
  2. 110 rem    perform "bload"
  3. 120 poke147,0:sys57812f$,8,1:sys62631
  4. 130 rem
  5. 140 n$="mist.screen"
  6. 150 sys49152,n$
  7. 160 geta$:ifa$=""then160
  8. 170 rem
  9. 180 poke53265,(peek(53265)and223)
  10. 190 poke 53272,20
  11. 200 print"[147]":poke53281,0
  12. 210 t$="      [221]                          [221]"
  13. 220 print"[155]      [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]":printt$
  14. 230 print"      [221] [154][208]lease choose:[155]           [221]":printt$
  15. 240 print"      [221]  [154]1. [214]iew mist demo again[155] [221]":printt$
  16. 250 print"      [221]  [154]2. [210]eturn to [204][207][193][196][211][212][193][210][155]   [221]":printt$
  17. 260 print"      [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  18. 270 geta$:ifa$=""then270
  19. 280 ifa$="1"thenprint"[147]":sys49155:goto160
  20. 290 ifa$<>"2"then270
  21. 300 print"[147]"
  22. 310 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  23. 320 if er<>63 then print"[147]":end
  24. 330 a$="hello connect":q$=chr$(34):poke53281,7:poke53280,7:print"[147]"
  25. 340 print"[158]load"q$a$q$",8"
  26. 350 print"run":poke631,13:poke632,13:poke198,2:end
  27.