home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 20 / 020.d81 / scrambler (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  491b  |  20 lines
  1. 10 rem   scrambler boot
  2. 20 poke53281,0:poke53280,6:print""
  3. 30 :
  4. 40 print"[147]"spc(10)"[211][195][210][193][205][194][204][197][210][160][205][197][206][213]"
  5. 50 :
  6. 60 print"     1 ==>  [196]emonstration #1"
  7. 62 print"     2 ==>  [196]emonstration #2"
  8. 64 print"     3 ==>  [210]eturn to [204]oadstar"
  9. 70 :
  10. 80 print"[215]hich?";
  11. 90 poke198,0:wait198,1:geta$:ifa$<>"1"anda$<>"2"anda$<>"3"then90
  12. 91 printa$"[144]"
  13. 92 ifa$="1"thenf$="scrambler demo1"
  14. 94 ifa$="2"thenf$="scrambler demo2"
  15. 96 ifa$="3"thenf$="hello connect":print""
  16. 98 :
  17. 100 :
  18. 110 print"load"chr$(34)f$chr$(34)",8":print"run"
  19. 120 poke631,13:poke632,13:poke198,2:end
  20.