home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 68 / 64er_Magazin_Sonderheft_68_19xx_Markt__Technik_de_Side_A.d64 / system-v (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  486b  |  19 lines
  1. 10 rem system-v
  2. 15 rem (c)1990 markt&technik verlag
  3. 20 :
  4. 25 in=50176:fi=50368
  5. 30 if l=0 then l=1:load"mprg",8,1
  6. 35 if l=1 then l=2:sysfi,24576,32576,0:load"picture*",8,1
  7. 40 if l>2 then 85
  8. 45 :
  9. 50 sys fi,16384,24384,255
  10. 55 sys fi,33792,34792,16*13
  11. 60 sys fi,40960,48960,0
  12. 65 poke56576,149:poke53272,24:poke53265,59:poke53280,0:poke53281,0
  13. 70 fors=0to1000:next:sys in,16384,40960:sys in,24675,40960
  14. 75 :
  15. 80 if l=2 then l=3:load"letters*",8,1
  16. 85 print"[147]load"chr$(34)"program*"chr$(34)",8":print"run"
  17. 90 poke631,13:poke632,13:poke198,2
  18. 95 print"":new
  19.