home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_89-03_1989_-_de_Side_B.d64 / lader (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  390b  |  14 lines
  1. 10 rem ladeprogramm
  2. 20 a$="zeichensatz":rem zeichensatzname
  3. 30 b$="hauptprogramm":rem basicprogramm
  4. 40 :
  5. 50 on(1+peek(826))goto60,70,90
  6. 60 poke826,1:load"uni-load/save",8,1:run
  7. 70 poke826,2:sys850
  8. 80 load(a$),8,1,8192:run
  9. 90 poke53281,0:poke53280,0
  10. 100 print"[144][147]poke43,1:poke44,48:poke12288,0:new"
  11. 110 print"load";chr$(34);b$;chr$(34);",8
  12. 120 [153]"printchr$(5);chr$(147):run"
  13. 130 [151]826,0:[151]198,3:[151]631,13:[151]632,13:[151]633,13:[153]"";
  14.