Listing of file='WCPD010A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 422, program filename = 'WCPD010A' 0010 REM . WCPD010A, 00-00 (06/28/75), 12002 : COM E(6),Z9(1) : O8=1 : SELECT PRINT 005 : GOSUB '100 : GOSUB 300 0140 LOAD DC T"WCPD020A" 0180 DEFFN'100 0190 ON O8 GOTO 200,210,220 : STOP "SYSTEM ERROR" 0200 SELECT PRINT 005 : RETURN 0210 SELECT PRINT 215 : RETURN 0220 SELECT PRINT 211 : RETURN 0300 PRINT HEX(0A0A); : PRINT HEX(03);"2200 SYSTEM DIAGNOSTIC - BASIC";" PASS ";Z9(1) 0310 PRINT "-------------------------------------" : RETURN 9000 DEFFN'15 : LOAD DC T"START"50