home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 January / 64er_Magazin_88-01_1988_Markt__Technik_de_Side_A.d64 / scroll-lader (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  431b  |  22 lines
  1. 0 goto 100
  2. 10 :
  3. 20 :
  4. 30 beispiel eines laders , der die
  5. 40 basic erweiterung laedt und
  6. 50 einschaltet  ,  den  basicstart
  7. 60 auf 32769 legt und  das  haupt-
  8. 70 programm nachlaedt.
  9. 80 :
  10. 90 :
  11. 100 sys 57812"tool-basic.obj",8,1
  12. 110 poke 780,0:sys 65493
  13. 120 sys 49152
  14. 130 name$  = "scroll"
  15. 140 anfang = 32769
  16. 150 _prgldn name$,8,0,anfang
  17. 160 open 1,8,15:input# 1,a:close 1
  18. 170 if a>1 and a<>73 then:_oldprg anfang:new
  19. 180 _oldprg anfang
  20. 190 sys 42291
  21. 200 run
  22.