home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / poster.ba < prev    next >
Text File  |  2006-10-19  |  5KB  |  92 lines
  1. 1 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 2 'Poster printer by Russ Hall
  3. 5 'For Tandy printers
  4. 6 'Caps A-Z, 0-9, -,!,.,:,and(,)
  5. 7 'Written for DMP-105 with homebrew    doublestrike system.
  6. 10 CLS:CLEAR1000
  7. 15 DEFINT A-Z
  8. 20 DIMZ(42,5,4),F(40)
  9. 30 LPRINTCHR$(27);CHR$(21)
  10. 163 DATA 32,32,127,127,32,32,127,127,32,32,127,127,32,32,127,127,32,32,127,127
  11. 164 DATA 239,127,127,127,239,127,127,127,239,127,127,127,32,127,127,127,239,127,127,127
  12. 165 DATA 32,234,233,32,32,235,236,32,234,233,234,233,238,239,239,237,239,32,32,239
  13. 166 DATA 234,239,239,254,32,239,32,239,32,239,239,239,32,239,32,239,234,239,239,251
  14. 167 DATA 252,239,239,127,239,32,32,127,239,32,32,127,239,32,32,127,253,239,239,127
  15. 168 DATA 239,239,254,127,239,32,239,127,239,32,239,127,239,32,239,127,239,239,251,127
  16. 169 DATA 239,239,239,127,239,32,32,127,239,239,32,127,239,32,32,127,239,239,239,127
  17. 170 DATA 239,239,239,127,239,32,32,127,239,239,32,127,239,32,32,127,239,32,32,127
  18. 171 DATA 252,239,254,32,239,32,239,32,239,32,32,32,239,226,239,225,253,239,251,32
  19. 172 DATA 239,32,239,127,239,32,239,127,239,239,239,127,239,32,239,127,239,32,239,127
  20. 173 DATA 239,127,127,127,239,127,127,127,239,127,127,127,239,127,127,127,239,127,127,127
  21. 174 DATA 32,32,239,127,32,32,239,127,32,32,239,127,239,32,239,127,253,239,251,127
  22. 175 DATA 239,32,239,127,239,234,233,127,239,239,32,127,239,234,233,127,239,32,239,127
  23. 176 DATA 239,32,32,127,239,32,32,127,239,32,32,127,239,32,32,127,239,239,239,127
  24. 177 DATA 239,239,239,254,239,234,233,239,239,234,233,239,239,32,32,239,239,32,32,239
  25. 178 DATA 239,254,32,239,239,236,32,239,239,234,233,239,239,32,237,239,239,32,253,239
  26. 179 DATA 252,239,254,127,239,32,239,127,239,32,239,127,239,32,239,127,253,239,251,127
  27. 180 DATA 239,239,254,127,239,32,239,127,239,239,251,127,239,32,32,127,239,32,32,127
  28. 181 DATA 252,239,254,32,239,32,239,32,239,32,239,32,239,228,239,32,253,239,239,233
  29. 182 DATA 239,239,254,127,239,32,239,127,239,239,251,127,239,32,254,127,239,32,239,127
  30. 183 DATA 252,239,239,127,239,32,32,127,253,239,254,127,32,32,239,127,239,239,251,127
  31. 184 DATA 239,239,239,127,32,239,32,127,32,239,32,127,32,239,32,127,32,239,32,127
  32. 185 DATA 239,32,239,127,239,32,239,127,239,32,239,127,239,32,239,127,253,239,251,127
  33. 186 DATA 239,32,32,239,236,32,32,235,234,233,234,233,32,237,238,32,32,234,233,32
  34. 187 DATA 239,32,32,239,239,32,32,239,239,234,233,239,239,234,233,239,253,239,239,251
  35. 188 DATA 239,32,32,239,234,233,234,233,32,239,239,32,234,233,234,233,239,32,32,239
  36. 189 DATA 239,32,32,239,234,233,234,233,32,239,239,32,32,234,233,32,32,234,233,32
  37. 190 DATA 239,239,239,127,32,234,251,127,32,239,32,127,252,233,32,127,239,239,239,127
  38. 191 DATA 32,127,127,127,32,127,127,127,32,127,127,127,239,127,127,127,234,127,127,127
  39. 192 DATA 32,32,32,127,32,32,32,127,239,239,239,127,32,32,32,127,32,32,32,127
  40. 193 DATA 32,127,127,127,32,127,127,127,32,127,127,127,32,127,127,127,239,127,127,127
  41. 194 DATA 32,32,239,127,32,234,233,127,32,239,32,127,234,233,32,127,239,32,32,127
  42. 195 DATA 252,239,254,127,239,32,239,127,239,32,239,127,239,32,239,127,253,239,251,127
  43. 196 DATA 234,239,32,127,32,239,32,127,32,239,32,127,32,239,32,127,234,239,233,127
  44. 197 DATA 239,239,254,127,32,32,239,127,252,239,251,127,239,32,32,127,239,239,239,127
  45. 198 DATA 239,239,254,127,32,32,239,127,32,239,239,127,32,32,239,127,239,239,251,127
  46. 199 DATA 239,32,32,32,239,32,239,32,239,239,239,233,32,32,239,32,32,32,239,32
  47. 200 DATA 239,239,239,127,239,32,32,127,239,239,254,127,32,32,239,127,239,239,251,127
  48. 201 DATA 252,239,233,127,239,32,32,127,239,239,254,127,239,32,239,127,253,239,251,127
  49. 202 DATA 239,239,239,127,32,234,233,127,32,239,32,127,234,233,32,127,239,32,32,127
  50. 203 DATA 252,239,254,127,239,32,239,127,239,239,239,127,239,32,239,127,253,239,251,127
  51. 204 DATA 252,239,254,127,239,32,239,127,253,239,239,127,32,32,239,127,234,239,251,127
  52. 205 DATA 32,127,127,127,239,127,127,127,32,127,127,127,239,127,127,127,32,127,127,127
  53. 1195 PRINT:PRINTTAB(10)"POSTER PRINTER"
  54. 1200 PRINT" Please wait..."
  55. 1210 FORA=0TO42
  56. 1220 FORB=1TO5
  57. 1230 FORC=1TO4
  58. 1240 READZ(A,B,C):NEXT:NEXT:NEXT
  59. 1245 PRINTTAB(12)"Press CAPS-LOCK"
  60. 1246 PRINT" Is text to be centered?"
  61. 1247 D$=INKEY$:IFD$=""THEN1247
  62. 1248 IFD$="Y"ORD$="y"THENI=1:GOSUB2000
  63. 1250 PRINT:PRINT"Statement to be printed: ($$ for « LF)"
  64. 1255 PRINT"  Press only <ENTER> to exit."
  65. 1260 LINEINPUT"";A$
  66. 1270 D=LEN(A$)
  67. 1275 IFD<2THENLPRINTCHR$(27);CHR$(22):MENU
  68. 1277 IFI=1THENGOSUB2020
  69. 1280 FORE=1TOD
  70. 1290 F(E)=ASC(MID$(A$,E,1))
  71. 1293 IFF(E)=36THEN1370
  72. 1295 IFF(E)<34THENF(E)=F(E)+31:GOTO1300
  73. 1297 IFF(E)<59THENF(E)=F(E)+47
  74. 1300 F(E)=F(E)-63:NEXT
  75. 1310 FORB=1TO5
  76. 1315 FORH=1TO2
  77. 1320 FORE=1TOD:A=F(E)
  78. 1330 FORC=1TO4
  79. 1340 LPRINTCHR$(Z(A,B,C));:NEXT
  80. 1350 LPRINTCHR$(32);:NEXT:LPRINT
  81. 1360 NEXT:LPRINTCHR$(27);CHR$(90);CHR$(6):NEXT
  82. 1370 LPRINTCHR$(27);CHR$(90);CHR$(24)
  83. 1380 CLS:GOTO1250
  84. 2000 PRINT:PRINT"Input page line length"
  85. 2005 PRINT"(8« in. page is 21 spaces.)"
  86. 2010 INPUTG:RETURN
  87. 2020 J=INT(.5*(G-D))
  88. 2030 B$=STRING$(J,32)
  89. 2040 C$=B$+A$
  90. 2050 A$=C$:D=D+J
  91. 2060 RETURN
  92.