home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 September & October / rerun-1986-09-10.d64 / overlay.boot (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  523b  |  16 lines
  1. 1 goto 1000
  2. 5 rem here is the code that loads an overlay.
  3. 10 zl=1000:z2=int(zl/256):z1=zl-256*z2:poke251,z1:poke252,z2
  4. 20 sys828:poke43,peek(251):poke44,peek(252):loadp$,8
  5. 30 rem put code common to all overlays
  6. 40 rem     between here and line 999.
  7. 50 rem between here and line 999
  8. 1000 rem poke in ml part of overlay.
  9. 1010 for k=828 to 847:read n:poke k,n:next
  10. 1020 rem set beginning of variables.
  11. 1030 poke 45,1 : poke 46,24 : clr
  12. 1040 rem now load main overlay.
  13. 1050 z=0 : p$="main" : goto 10
  14. 2000 data 165,251,133,20,165,252,133,21,32,19,166
  15. 2010 data 165,95,133,251,165,96,133,252,96
  16.