home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_1997-08_1997_CSW_Side_B.d64 / nachladeprogramm (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  422b  |  10 lines
  1. 0 poke 45, 0 : poke 46, 64 : clr : dim u, i, p, a$ : p=peek(186) : goto 10
  2. 4 a=02467 : e=..... + 1
  3. 5 sys 57812 "unterprogramm .", 8 : poke 2, a-32768 and 255 : poke 3, a/256
  4. 6 poke 780, 2 : poke 781, e-32768 and 255 : poke 782, e/256 : sys 65496 : end
  5. 10 for i=0 to 1 step 0
  6. 20 if u then print "[213]nterprogramm" u "geladen."
  7. 30 print "[215]elches [213]nterprogramm nachladen (1-3)?"
  8. 40 get a$ : if a$<"1" or "3"<a$ goto 40
  9. 50 sys 57812 "unterprogramm "+a$, p, 1 : poke 780, 0 : sys 65493
  10.