home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 247 / 247.d81 / b.plumb (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2004-01-01  |  690 b   |  20 lines
  1. 0 print"[147]":poke832,0:poke53272,22:poke53270,200:poke53265,11:gosub2000
  2. 1 poke53265,27
  3. 10 dv=peek(186):ifdv<8thendv=8
  4. 11 load"plumb.pkd",dv
  5. 2000 print"[147]":poke53280,0:poke53281,0:poke214,12:print
  6. 2002 printtab(30)"[151]   "
  7. 2011 print"                              [151]          ";
  8. 2012 print"    [208] [204] [213] [205] [194]   [195] [210] [193] [218] [217]     [151]          ";
  9. 2013 print"[155]       by [196]ave [205]oorman        [151]   [155]       ";
  10. 2014 print"[155]  (c)1997 [202] & [198] [208]ublishing    [151]   [155]       ";
  11. 2015 print"[152]     [193]ll [210]ights [210]eserved      [151]   [152]       ";
  12. 2016 print"[152] [212]his program is [206][207][212] in the   [155]   [152]       ";
  13. 2017 print"[151]        [208]ublic [196]omain.        [155]   [151]       ";
  14. 2018 print"[151]                                        ";
  15. 2019 printtab(30)"[151]   "
  16. 2020 return
  17. 59999 end
  18. 60000 dv=peek(186):ifdv<8thenstop
  19. 60001 f$="b.plumb":open15,dv,15,"s0:"+f$:close15:savef$,dv
  20.