home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 154 / 154.d81 / b.plumb (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  42 lines
  1. 0 print"[147]":poke832,0:poke53272,22:poke53270,200:poke53265,11:gosub2000
  2. 1 poke53265,27
  3. 5 poke56,75:poke55,0:clr
  4. 6 deffnl(x)=x-fnh(x)*256
  5. 7 deffnh(x)=int(x/256)
  6. 10 dv=peek(186):ifdv<8thendv=8
  7. 11 cr$=chr$(34)
  8. 20 print"";:poke646,peek(53281)
  9. 30 print"l[207]"cr$"plumb"cr$","dv
  10. 40 print"run":poke198,2:poke631,13:poke632,13
  11. 50 reada$,a:ifa=0then100
  12. 60 sys57812a$,dv,0:poke780,0:poke781,fnl(a):poke782,fnh(a):sys65493
  13. 70 goto50
  14. 100 q=37:poke44,q:pokeq*256,0
  15. 999 end
  16. 1000 data"plumb.scr",34792
  17. 1001 data"image.o",39400
  18. 1002 data"plumb.ml",4096
  19. 1003 data"plumb.fnt",6144
  20. 1004 data"plumb2.spr",8192
  21. 1005 data"plumb.lvl",49152
  22. 1006 data"unpacker.89",51456
  23. 1007 data"plumb.shp",25600
  24. 1008 data"m.4b00*",19200
  25. 1009 data"plumb.music",40960
  26. 1999 data"",0
  27. 2000 print"[147]":poke53280,0:poke53281,0:poke214,12:print
  28. 2002 printtab(30)"[151]   "
  29. 2011 print"                              [151]          ";
  30. 2012 print"    [208] [204] [213] [205] [194]   [195] [210] [193] [218] [217]     [151]          ";
  31. 2013 print"[155]       by [196]ave [205]oorman        [151]   [155]       ";
  32. 2014 print"[155]  (c)1997 [202] & [198] [208]ublishing    [151]   [155]       ";
  33. 2015 print"[152]     [193]ll [210]ights [210]eserved      [151]   [152]       ";
  34. 2016 print"[152] [212]his program is [206][207][212] in the   [155]   [152]       ";
  35. 2017 print"[151]        [208]ublic [196]omain.        [155]   [151]       ";
  36. 2018 print"[151]                                        ";
  37. 2019 printtab(30)"[151]   "
  38. 2020 return
  39. 59999 end
  40. 60000 dv=peek(186):ifdv<8thenstop
  41. 60001 f$="b.plumb":open15,dv,15,"s0:"+f$:close15:savef$,dv
  42.