home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 183 / 183.d81 / b.mr.break (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  29 lines
  1. 1 ifpeek(44)=8then5
  2. 2 poke44,8:poke8*256,0:print"[147]l[207]"chr$(34)"b.mr.break"chr$(34)","peek(186)
  3. 3 print"run":poke198,2:poke631,13:poke632,13:end
  4. 5 ifpeek(56)<>116thenpoke56,116:poke55,0:run
  5. 10 restore:reada:bo=peek(66)*256+peek(65)+3:dv=peek(186):ifdv<8thendv=8
  6. 20 ce=bo+3:bl=bo+6:co=bo+9:sw=bo+12:c2=bo+15:dy=bo+18:sysbo
  7. 25 en=peek(45)+256*peek(46)
  8. 30 deffnl(x)=x-fnh(x)*256
  9. 40 deffnh(x)=int(x/256)
  10. 45 poke53272,22
  11. 50 sysce,15,"[205] [210]. [194] [210][160][197][160][193][160][203] - [212] [200] [210] [213]":sysce,17,"[194]y [196]ave [205]oorman
  12. 60 [151]827,0
  13. 70 [158]ce,19,"(len)1999 by mid$ & asc (NULL)ublishing, right$nc.
  14. 80 sysce,20,"[212]his [208]rogram [201]sn't [208]ublic [196]omain
  15. 100 [158]bl,"mr.mouse 1000",dv,4096
  16. 102 [158]bl,"break1.spr",dv,8192
  17. 104 [158]bl,"f.mr.break1",dv,10240
  18. 105 [158]bl,"mr.b.title.tbs",dv,40960
  19. 106 [158]bl,"mr.break.tot",dv,49152
  20. 107 [158]bl,"1.sts",dv,57344
  21. 109 [158]bl,"1.dat",dv,124[172]256
  22. 110 [158]co,bo,en,39936
  23. 200 q[178]48:[151]44,q:[151]43,1:[151]q[172]256,0
  24. 5000 [158]dy,"mr.break",dv
  25. 59999 [128]
  26. 60000 dv[178][194](186):[139]dv[179]8[167][144]
  27. 60001 [160]15:[159]15,dv,15,"s0:b.mr.break":[160]15:[148]"b.mr.break",dv
  28. 61000 [131]0
  29.