home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 107 / 107.d81 / c2c.bt1 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  319b  |  13 lines
  1. 3 ifpeek(56)=56then100
  2. 4 poke56,56:poke55,0:clr
  3. 5 dv=peek(186):ifdv<8thendv=8
  4. 6 print"[156][145][145][145]";
  5. 10 a$="c2c.obj"
  6. 20 sys57812a$,dv,0:poke780,0:poke781,0:poke782,71:sys65493:print
  7. 100 print"[145][145][145][145][144]load"chr$(34)"c2c.bt2"chr$(34)","dv
  8. 110 print"run[145][145][145][145][145][145][145][145]"
  9. 115 forx=0to1:poke631+x,13:next:poke198,x
  10. 120 end
  11. 59999 end
  12. 60000 open15,8,15,"s0:c2c.bt1":close15:save"c2c.bt1",8
  13.