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