home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / newpos.ba < prev    next >
Text File  |  2006-10-19  |  5KB  |  93 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE     Microsoft-Epson (Citizen 120-D)
  2. 1 'Character style Poster Printer
  3. 2 'Caps A-Z, 0-9, -,!,.,:,and(,)
  4. 3 'Slashes form continuous line
  5. 4 'Try expanded, vert. enlarged, elite, etc.
  6. 5 'By Russ Hall
  7. 10 CLS:CLEAR1000:DEFINTA-Z
  8. 20 DIMZ(42,5,4),F(40)
  9. 30 ES$=CHR$(27)
  10. 40 LPRINTES$"A"CHR$(7)
  11. 50 LPRINTES$"%1"CHR$(0);
  12. 60 PRINT:PRINT" DOUBLESTRIKE? (Y/N)"
  13. 70 K$=INKEY$:IFK$=""THEN70
  14. 80 IFK$="Y"ORK$="y"THENLPRINTES$"G";
  15. 163 DATA 32,32,20,20,32,32,20,20,32,32,20,20,32,32,20,20,32,32,20,20
  16. 164 DATA 140,20,20,20,140,20,20,20,140,20,20,20,32,20,20,20,140,20,20,20
  17. 165 DATA 32,57,142,32,32,37,38,32,57,142,57,142,53,140,140,55,140,32,32,140
  18. 166 DATA 57,140,140,49,32,140,32,140,32,140,140,140,32,140,32,140,57,140,140,50
  19. 167 DATA 52,140,140,20,140,32,32,20,140,32,32,20,140,32,32,20,51,140,140,20
  20. 168 DATA 140,140,49,20,140,32,140,20,140,32,140,20,140,32,140,20,140,140,50,20
  21. 169 DATA 140,140,140,20,140,32,32,20,140,140,32,20,140,32,32,20,140,140,140,20
  22. 170 DATA 140,140,140,20,140,32,32,20,140,140,32,20,140,32,32,20,140,32,32,20
  23. 171 DATA 52,140,49,32,140,32,140,32,140,32,32,32,140,32,38,142,51,140,50,32
  24. 172 DATA 140,32,140,20,140,32,140,20,140,140,140,20,140,32,140,20,140,32,140,20
  25. 173 DATA 140,20,20,20,140,20,20,20,140,20,20,20,140,20,20,20,140,20,20,20
  26. 174 DATA 32,32,140,20,32,32,140,20,32,32,140,20,140,32,140,20,51,140,50,20
  27. 175 DATA 140,32,140,20,140,57,142,20,140,140,32,20,140,57,142,20,140,32,140,20
  28. 176 DATA 140,32,32,20,140,32,32,20,140,32,32,20,140,32,32,20,140,140,140,20
  29. 177 DATA 140,140,140,49,140,57,142,140,140,57,142,140,140,32,32,140,140,32,32,140
  30. 178 DATA 140,49,32,140,140,38,32,140,140,57,142,140,140,32,55,140,140,32,51,140
  31. 179 DATA 52,140,49,20,140,32,140,20,140,32,140,20,140,32,140,20,51,140,50,20
  32. 180 DATA 140,140,49,20,140,32,140,20,140,140,50,20,140,32,32,20,140,32,32,20
  33. 181 DATA 52,140,49,32,140,32,140,32,140,32,140,32,140,32,140,32,51,140,140,142
  34. 182 DATA 140,140,49,20,140,32,140,20,140,140,50,20,140,32,49,20,140,32,140,20
  35. 183 DATA 52,140,140,20,140,32,32,20,51,140,49,20,32,32,140,20,140,140,50,20
  36. 184 DATA 140,140,140,20,32,140,32,20,32,140,32,20,32,140,32,20,32,140,32,20
  37. 185 DATA 140,32,140,20,140,32,140,20,140,32,140,20,140,32,140,20,51,140,50,20
  38. 186 DATA 140,32,32,140,38,32,32,37,57,142,57,142,32,55,53,32,32,57,142,32
  39. 187 DATA 140,32,32,140,140,32,32,140,140,57,142,140,140,57,142,140,51,140,140,50
  40. 188 DATA 140,32,32,140,57,142,57,142,32,140,140,32,57,142,57,142,140,32,32,140
  41. 189 DATA 140,32,32,140,57,142,57,142,32,140,140,32,32,57,142,32,32,57,142,32
  42. 190 DATA 140,140,140,20,32,57,50,20,32,140,32,20,52,142,32,20,140,140,140,20
  43. 191 DATA 32,20,20,20,32,20,20,20,32,20,20,20,140,20,20,20,57,20,20,20
  44. 192 DATA 32,32,32,20,32,32,32,20,140,140,140,20,32,32,32,20,32,32,32,20
  45. 193 DATA 32,20,20,20,32,20,20,20,32,20,20,20,32,20,20,20,140,20,20,20
  46. 194 DATA 32,32,32,20,32,32,32,20,127,140,140,140,32,32,32,20,32,32,32,20
  47. 195 DATA 52,140,49,20,140,32,140,20,140,32,140,20,140,32,140,20,51,140,50,20
  48. 196 DATA 57,140,32,20,32,140,32,20,32,140,32,20,32,140,32,20,57,140,142,20
  49. 197 DATA 140,140,49,20,32,32,140,20,52,140,50,20,140,32,32,20,140,140,140,20
  50. 198 DATA 140,140,49,20,32,32,140,20,32,140,140,20,32,32,140,20,140,140,50,20
  51. 199 DATA 140,32,32,32,140,32,140,32,140,140,140,142,32,32,140,32,32,32,140,32
  52. 200 DATA 140,140,140,20,140,32,32,20,140,140,49,20,32,32,140,20,140,140,50,20
  53. 201 DATA 52,140,32,20,140,32,32,20,140,140,49,20,140,32,140,20,51,140,50,20
  54. 202 DATA 140,140,140,20,32,57,142,20,32,140,32,20,57,142,32,20,140,32,32,20
  55. 203 DATA 52,140,49,20,140,32,140,20,57,140,142,20,140,32,140,20,51,140,50,20
  56. 204 DATA 52,140,49,20,140,32,140,20,51,140,140,20,32,32,140,20,32,140,50,20
  57. 205 DATA 32,20,20,20,140,20,20,20,32,20,20,20,140,20,20,20,32,20,20,20
  58. 1195 PRINT:PRINTTAB(10)"POSTER PRINTER"
  59. 1200 PRINT" Please wait..."
  60. 1210 FORA=0TO42
  61. 1220 FORB=1TO5
  62. 1230 FORC=1TO4
  63. 1240 READZ(A,B,C):NEXT:NEXT:NEXT
  64. 1245 PRINTTAB(12)"Press CAPS-LOCK"
  65. 1246 PRINT" Is text to be centered?"
  66. 1247 D$=INKEY$:IFD$=""THEN1247
  67. 1248 IFD$="Y"ORD$="y"THENI=1
  68. 1250 PRINT:PRINT"Statement to be printed: ($$ for « LF)"
  69. 1255 PRINT"  Press only <ENTER> to exit."
  70. 1260 LINEINPUT"";A$
  71. 1270 D=LEN(A$)
  72. 1275 IFD<2THENLPRINTES$"@":MENU
  73. 1277 IFI=1THENGOSUB2020
  74. 1280 FORE=1TOD
  75. 1290 F(E)=ASC(MID$(A$,E,1))
  76. 1293 IFF(E)=36THEN1370
  77. 1295 IFF(E)<34THENF(E)=F(E)+31:GOTO1300
  78. 1297 IFF(E)<59THENF(E)=F(E)+47
  79. 1300 F(E)=F(E)-63:NEXT
  80. 1310 FORB=1TO5
  81. 1320 FORE=1TOD:A=F(E)
  82. 1330 FORC=1TO4
  83. 1340 LPRINTCHR$(Z(A,B,C));:NEXT
  84. 1350 LPRINTCHR$(32);:NEXT:LPRINT
  85. 1360 NEXT
  86. 1370 LPRINT:LPRINT:LPRINT
  87. 1380 CLS:GOTO1250
  88. 2020 J=INT(.6*(21-D))
  89. 2030 B$=STRING$(J,32)
  90. 2040 C$=B$+A$
  91. 2050 A$=C$:D=D+J
  92. 2060 RETURN
  93.