home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 204 / 204.d81 / b.down (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  237b  |  9 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 10 ifa=.thena=1:load"down boot.o",dv,1
  3. 15 poke2,1
  4. 16 poke49182,dv:poke49231,dv:poke49301,dv
  5. 17 poke49328,dv
  6. 20 sys49152,57344,52224,"down.shp",16384,"down down down"
  7. 9999 end
  8. 10000 d=peek(186):n$="b.down":open15,d,15,"s0:"+n$:close15:saven$,d:end
  9.