Listing of file='PRINTERS' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 293, program filename = 'PRINTERS'
0010 REM ******* PRINTERS *******
0020 PRINT HEX(03);TAB(20);"WCS OUTPUT DEVICES";HEX(0D0A);TAB(18);"**********
*************";HEX(0A0A)
0030 PRINT TAB(18);"00 ............... 2221"
0040 PRINT TAB(18);"01 ............... 2231"
0050 PRINT TAB(18);"02 ............... 2221-W"
0060 PRINT TAB(18);"03 ............... 2261"
0070 PRINT TAB(18);"04 ............... 2201"
0090 PRINT HEX(0A0A0A0A);TAB(10);"KEY SPECIAL FUNC. KEY FOR DESIRED PRINTER"
0100 KEYIN A$,100,110
: GOTO 100
0110 A=VAL(STR(A$,1,1))+1
: IF A=16THEN 9000
0120 ON A GOTO 500,510,520,530,540
0130 STOP "NUMBER MUST BE BETWEEN 1 & 5"
0500 LOAD DC T"P1D010A"
0510 LOAD DC T"P31D010A"
0520 LOAD DC T"P21W010A"
0530 LOAD DC T"P61D010A"
0540 LOAD DC T"P01D010A"
9000 DEFFN'15
: LOAD DC T"START"50