home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug080.ark / PRN-TEST.STB < prev    next >
Encoding:
Text File  |  1984-04-29  |  896 b   |  34 lines
  1.  
  2.    10   @"PRINTER TESTOR"
  3.    20   @"DAVID E. TRACHTENBARG"
  4.    50   Set 0,-1
  5.    60   Open\1\"$LP"
  6.    64   On Esc Goto 290
  7.    65   @\1\ : @\1\ : @\1\"Starting printer test......." : @\1\
  8.    70     For J=1 To 10
  9.    80     @\1\
  10.    90     @\1\Using" ##.    ",J;
  11.   110       For I=65 To 90
  12.   120       @\1\Chr$(I);" ";
  13.   130       Next I
  14.   140     @\1\"    ";
  15.   150       For I=97 To 122
  16.   160       @\1\Chr$(I);" ";
  17.   170       Next I
  18.   180     @\1\ : @\1\"        ";
  19.   190       For I=48 To 64
  20.   200       @\1\Chr$(I);" ";
  21.   210       Next I
  22.   220       For I=33 To 47
  23.   230       @\1\Chr$(I);" ";
  24.   240       Next I
  25.   250       For I=123 To 126
  26.   260       @\1\Chr$(I);" ";
  27.   270       Next I
  28.   271     @\1\
  29.   280     Next J
  30.   281   @\1\ : @\1\ : @\1\"End of printer test.........."
  31.   282   @\1\ : @\1\ : @\1\
  32.   290   Close\1\
  33.