home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG080.ARK
/
PRN-TEST.STB
< prev
next >
Wrap
Text File
|
1984-04-29
|
896b
|
34 lines
10 @"PRINTER TESTOR"
20 @"DAVID E. TRACHTENBARG"
50 Set 0,-1
60 Open\1\"$LP"
64 On Esc Goto 290
65 @\1\ : @\1\ : @\1\"Starting printer test......." : @\1\
70 For J=1 To 10
80 @\1\
90 @\1\Using" ##. ",J;
110 For I=65 To 90
120 @\1\Chr$(I);" ";
130 Next I
140 @\1\" ";
150 For I=97 To 122
160 @\1\Chr$(I);" ";
170 Next I
180 @\1\ : @\1\" ";
190 For I=48 To 64
200 @\1\Chr$(I);" ";
210 Next I
220 For I=33 To 47
230 @\1\Chr$(I);" ";
240 Next I
250 For I=123 To 126
260 @\1\Chr$(I);" ";
270 Next I
271 @\1\
280 Next J
281 @\1\ : @\1\ : @\1\"End of printer test.........."
282 @\1\ : @\1\ : @\1\
290 Close\1\