home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
PRINTING
/
DMPLAS11.ZIP
/
DLTEST-2.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-08-15
|
3KB
|
59 lines
10 FILE$="DLTEST-2.PRN"
20 CR$=CHR$(13) :LF$=CHR$(10) :CRLF$=CR$+LF$ :ESC$=CHR$(27)
30 PRINT CRLF$:PRINT " Creating ";FILE$;" - Please wait ";
40 OPEN "O",#1,FILE$
50 DIM B(7),B$(7)
51 P$(0)="Elite " : Q$(0)="Pica "
52 P$(1)="Prop " : Q$(1)="Fixd "
53 P$(2)="Cond " : Q$(2)=" "
54 P$(3)="Emph " : Q$(3)=" "
55 P$(4)="Bold " : Q$(4)=" "
56 P$(5)="Expd " : Q$(5)=" "
57 P$(6)="Italic " : Q$(6)="Upright "
58 P$(7)="Und " : Q$(7)=" "
60 PRINT#1,ESC$;"@";" DLTEST-2 Master Print Mode Command ESC '!' n"
61 GOTO 130
70 PRINT#1,ESC$;"!";CHR$(0);
80 FOR S=0 TO 7:B(S)=N-INT(N/2)*2
90 N=INT(N/2):NEXT S
100 FOR S=7 TO 0 STEP-1:A$=CHR$(32)+MID$(STR$(B(S)),2,1)
110 PRINT#1,A$;:NEXT S:RETURN
120 N=I:GOSUB 70:PRINT#1," ";ESC$;"!";CHR$(I);: RETURN
130 PRINT#1,CRLF$;" 7 6 5 4 3 2 1 0 --- Single bit numbers ----"
131 PRINT#1," U I X B E C P F Interpretation of bits in n";CRLF$
132 I=0:GOSUB 120:PRINT#1,"Set Pitch to Pica = 10 cpi"
133 I=1:GOSUB 120:PRINT#1,"Set Pitch to Elite = 12 cpi"
134 I=2:GOSUB 120:PRINT#1,"Set Proportional font on"
135 I=4:GOSUB 120:PRINT#1,"Set Condensed Pitch = 17 or 20 cpi"
136 I=8:GOSUB 120:PRINT#1,"Set Emphasized printing on"
137 I=16:GOSUB 120:PRINT#1,"Set Boldface printing on"
138 I=32:GOSUB 120:PRINT#1,"Expand to 5 or 6 cpi"
139 I=64:GOSUB 120:PRINT#1,"Switch to ITALIC characters"
140 I=128:GOSUB 120:PRINT#1,"Enable Underlining"
141 PRINT#1,ESC$;"!";CHR$(0)
142 GOTO 280
170 PRINT#1,ESC$;"!";CHR$(0);
180 FOR S=0 TO 7:B(S)=N-INT(N/2)*2
190 N=INT(N/2):NEXT S
200 FOR S=7 TO 0 STEP-1:B$(S)=MID$(STR$(B(S)),2,1)
210 PRINT#1,CHR$(32);B$(S);:NEXT S:RETURN
220 N=I:GOSUB 170:PRINT#1," = ";ESC$;"!";CHR$(I);
231 FOR J=0 TO 6
232 IF B$(J)="1" THEN PRINT#1,P$(J); ELSE PRINT#1,Q$(J);
233 NEXT J
235 PRINT#1," = Master Mode";I :RETURN
280 PRINT#1,CRLF$;" 7 6 5 4 3 2 1 0 ---- Sample Combinations -----"
290 PRINT#1," U I X B E C P F Interpretation of bits in n";CRLF$
300 FOR K=0 TO 6 STEP 2 :I=K:GOSUB 220:NEXT K
305 FOR K=0 TO 6 STEP 2 :I=K+16:GOSUB 220:NEXT K:PRINT#1,CRLF$;
310 FOR K=0 TO 6 STEP 2 :I=K+64:GOSUB 220:NEXT K
315 FOR K=0 TO 6 STEP 2 :I=K+80:GOSUB 220:NEXT K:PRINT#1,CRLF$;
320 FOR K=1 TO 7 STEP 2 :I=K:GOSUB 220:NEXT K
325 FOR K=1 TO 7 STEP 2 :I=K+16:GOSUB 220:NEXT K:PRINT#1,CRLF$;
330 FOR K=1 TO 7 STEP 2 :I=K+64:GOSUB 220:NEXT K
335 FOR K=1 TO 7 STEP 2 :I=K+80:GOSUB 220:NEXT K:PRINT#1,CRLF$;
370 PRINT#1, CHR$(12);ESC$;"@";
380 CLOSE #1
390 SYSTEM
400 END