home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 213 / 213.d81 / b.word345 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  811b  |  28 lines
  1. 1 rem "b.word345" 2002.02.22
  2. 2 poke56,154:poke55,0:clr:gosub41000:poke646,peek(53281)
  3. 4 poke53265,11:q$=chr$(34):dv=peek(186):ifdv<8ordv>29thendv=8
  4. 10 print"[147]?chr$(145);:l[207]"q$"wordsworth.stl"q$","dv
  5. 12 print"?chr$(145)chr$(145);:run"
  6. 14 print"?chr$(145);:l[207]"q$"word345x"q$","dv
  7. 16 print"run";
  8. 18 forx=1to4:poke630+x,13:next:poke198,4:end
  9. 10000 a$="0:b.word345":dv=peek(186):ifdv<8ordv>29thendv=8
  10. 10002 open15,dv,15,"s"+a$:close15:savea$,dv:end
  11. 41000 poke53280,0:poke53281,0:poke53272,22:print"[147]"
  12. 41002 poke214,14:print
  13. 41004 printtab(1)"[155]                                     "
  14. 41005 forx=1to6
  15. 41006 printtab(1)"[152]                                     "
  16. 41007 next
  17. 41013 printtab(1)"[151]                                     "
  18. 41020 forx=1to4:reada$:poke214,15+x:print
  19. 41022 printtab(19-len(a$)/2)"[152]"a$
  20. 41024 next
  21. 41030 t=ti+60
  22. 41031 ift>tithen41031
  23. 41032 print"":return
  24. 41050 data"[215] [207][160][210] [196]   3 - 4 - 5
  25. 41051 [131]"by (NULL)ance len. (NULL)homas
  26. 41052 data"(c) 2002 by [202] & [198] [208]ublishing, [201]nc.
  27. 41053 [131]"www.loadstar.com
  28.