home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 200 / 200.d81 / b.mr.mick (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  29 lines
  1. 0 poke55,0:poke56,124:clr
  2. 1 print"[147]":poke53272,22:a=53280:pokea,6:pokea+1,6:ifpeek(44)=8then5
  3. 2 poke646,6:c$=chr$(34):d=peek(186)
  4. 3 print"[147]l[207]"c$"b.mr.mick"c$","d:print"r[213]":poke198,2:poke631,13:poke632,1
  5. 4 poke44,8:poke43,1:poke8*256,0:end
  6. 5 deffnl(x)=x-fnh(x)*256:deffnh(x)=int(x/256)
  7. 10 restore:reada:bo=peek(66)*256+peek(65)+3:dv=peek(186):ifdv<8thendv=8
  8. 20 co=bo+9
  9. 21 ed=peek(45)+256*peek(46):sysco,bo,ed,156*256:bo=156*256
  10. 22 ce=bo+3:bl=bo+6:co=bo+9:sw=bo+12:c2=bo+15:dy=bo+18:sysbo
  11. 25 poke53280,6:poke53281,6
  12. 50 sysce,15,"[205] [210] .   [205] [201][160][195] [203]":sysce,17,"by [196]ave [205]oorman
  13. 70 [158]ce,19,"(len) 1997 by mid$&asc (NULL)ublishing
  14. 80 sysce,20,"[212]his [208]rogram [201]sn't [208]ublic [196]omain
  15. 100 [158]bl,"mick.spr",dv,224[172]256:[151]1023,0:[143]33*64
  16. 105 [158]bl,"mr.mouse 1000",dv,16[172]256
  17. 110 [158]bl,"f.mick.lc",dv,32[172]256
  18. 120 [158]bl,"mouse.sts",dv,124[172]256
  19. 121 [158]bl,"double dump-ml",dv,160[172]256
  20. 122 [158]bl,"updriver",dv,162[172]256
  21. 123 [158]bl,"updcodes",dv,163[172]256
  22. 130 [158]bl,"mick.ml",dv,192[172]256
  23. 4900 q[178]48:[151]44,q:[151]q[172]256,0
  24. 5000 [158]dy,"mr.mick",dv:[128]
  25. 59999 [128]
  26. 60000 f$[178]"b.mr.mick":d[178][194](186):[139]d[179]8[167][144]
  27. 60001 [159]15,d,15,"s0:"[170]f$:[160]15:[148]f$,d:[128]
  28. 62000 [131]0
  29.