home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 242 / 242.d81 / b.bassem (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  226b  |  8 lines
  1. 1 ifpeek(56)<>110thenpoke56,110:poke55,0:run
  2. 5 dv=peek(186):ifdv<8thendv=8
  3. 10 sys57812"bassem.2",dv,0:poke780,0:poke781,222:poke782,135:sys65493
  4. 30 q=08:poke44,q:poke43,1:pokeq*256,0
  5. 40 sys34782
  6. 59999 end
  7. 60000 dv=peek(186):n$="b.bassem":open15,dv,15,"s0:"+n$:close15:saven$,dv:end
  8.