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