home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 78 / 078.d81 / text printer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.7 KB  |  85 lines
  1. 5 poke53281,0:poke53280,0:print"[147][159]"
  2. 10 poke55,.:poke56,64:clr
  3. 12 sys57812"dirtovar.o",8,0:poke780,0:poke781,0:poke782,141:sys65493
  4. 16 sys57812"tp1990.o",8,0:poke780,0:poke781,0:poke782,192:sys65493
  5. 104 :
  6. 105 rem       setup stuff...
  7. 106 :
  8. 110 q$=chr$(34):c=54272
  9. 115 tp$="[147][150]    [212] [197] [216] [212]   [208] [210] [201] [206] [212] [197] [210]   1 9 9 0"
  10. 117 sp$="                                      "
  11. 120 dim ty$(144),na$(144),le$(144),td$(23),ln$(23),pc%(23)
  12. 130 gosub1000:ifqtthenprinttp$:goto2000
  13. 140 printtp$:print"[159]  [201]nsert the disk with the "q$"t."q$" [159]files"
  14. 145 printtab(11)"and press [211][208][193][195][197][154]."
  15. 150 geta$:ifa$<>" "then150
  16. 160 printtp$:print"[159][210]eading all "q$"prg"q$" [159]files with "q$"t."q$" [159]names."
  17. 180 sys36096:i=1:j=1
  18. 190 printtp$
  19. 200 ifna$(i)=""then225
  20. 210 ifleft$(na$(i),2)="t."thentd$(j)=na$(i):ln$(j)=le$(i):j=j+1
  21. 220 i=i+1:goto200
  22. 225 ifj=1thenprint"[159] [212]here are no "q$"t."q$" [159]files on this disk.":goto2000
  23. 230 print"[158]  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][145]"
  24. 231 printtab(20-(len(na$(0))/2)-1)"[179][129]"na$(0)"[158][171]"
  25. 232 fori=1toj-1:print"  [158][221]"tab(13)"[154]"td$(i)tab(30)"[152]"ln$(i)tab(37)"[158][221]":next
  26. 234 print"  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  27. 240 k=1
  28. 245 poke214,22:print:print" [195][210][211][210] [159]keys select  [211][208][193][195][197] [159]toggle  [193] [159]all"
  29. 247 print"     [198]1 [159]print the highlighted files"
  30. 250 poke214,k+1:print:printtab(10)"[153][192]>[145]":poke198,0
  31. 260 geta$:ifa$=""then260
  32. 261 printtab(10)"  [145]"
  33. 262 ifa$="[145]"thenk=k-1:ifk<1thenk=j-1
  34. 264 ifa$=""thenk=k+1:ifk>j-1thenk=1
  35. 265 ifa$="[133]"thenpoke214,22:print:printsp$:printsp$"":goto300
  36. 268 ifa$<>"a"then280
  37. 269 print"":fori=1toj-1
  38. 270 ifpc%(i)=0thenprinttab(13)""td$(i):pc%(i)=1:goto274
  39. 272 ifpc%(i)thenprinttab(13)"[154]"td$(i):pc%(i)=0
  40. 274 next:goto240
  41. 280 ifa$<>" "then250
  42. 282 ifpc%(k)thenpc%(k)=0:printtab(13)"[154]"td$(k):goto250
  43. 284 pc%(k)=1:printtab(13)""td$(k):goto250
  44. 300 poke214,22:print:print"       [154]([208][154])ause   ([195][154])ontinue   ([211][154])top"
  45. 302 open4,4,7:fori=1toj:ifpc%(i)=0then380
  46. 305 poke214,i+1:print:print"[153][210]eading[145]"
  47. 310 sys57812td$(i),8,0:poke780,0:poke781,0:poke782,64:sys65493
  48. 320 poke(peek(174)+256*peek(175)),0
  49. 330 print"[153][208]rinting[145]"
  50. 340 iffl=1thensys49152,16384:goto360
  51. 345 iffl=2thensys49158,16384:goto360
  52. 350 iffl=3thensys49155,16384
  53. 360 print"[153]        [145]"
  54. 380 nexti:close4:goto2000
  55. 1000 poke53281,0:poke53280,0
  56. 1010 print"[147][159]"tp$
  57. 1030 print"[153]      by [211]cott [210]esh and [198]ender [212]ucker"
  58. 1092 print"[155]    [205]ake sure your printer is on-line"
  59. 1094 print" and the print head is set to the top"
  60. 1096 print" of a page."
  61. 1100 print"  [159](1[159]) [211]ingle 38-character column with"
  62. 1105 print"      a left margin of 24."
  63. 1110 print"  [159](2[159]) [211]ingle 65-character column with"
  64. 1115 print"      a left margin of 10."
  65. 1120 print"  [159](3[159]) [212]wo 38-character columns with"
  66. 1125 print"      a left margin of 0."
  67. 1127 print"  [159](4[159]) [210]eturn to [204][207][193][196][211][212][193][210] [194][210][201][197][198][211]"
  68. 1130 print"[155]            [212]ake your pick."
  69. 1140 geta$:ifa$<"1"ora$>"4"then1140
  70. 1145 ifa$="4"thenqt=1:return
  71. 1150 fl=val(a$)
  72. 1160 return
  73. 2000 print"[147]"
  74. 2002 printtab(8)"[154]([196][154])o another disk"
  75. 2005 printtab(8)"[154]([210][154])eturn to [204][207][193][196][211][212][193][210] [194]riefs"
  76. 2010 poke198,.
  77. 2020 geta$:ifa$<>"d"anda$<>"r"then2020
  78. 2030 ifa$="d"thenrun110
  79. 2040 open15,8,15,"r0:ls briefs=ls briefs":input#15,er:close15
  80. 2050 ifer<>63thenend
  81. 2060 print"[147][144]load"q$"ls briefs"q$",8"
  82. 2070 print"run"
  83. 2080 poke631,13:poke632,13:poke198,2:end
  84. 10000 open15,8,15,"s0:text printer":close15:save"text printer",8:end
  85.