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