Listing of file='OP2D010A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 79, program filename = 'OP2D010A' 0010 REM . OP2D010A, 00-00 (06/28/75), 12002 : SELECT PRINT 005 : GOSUB 500 : GOSUB '100 : GOSUB 500 0120 PRINT "TESTING $IF ON... "; : FOR I=1TO 2 : SELECT TAPE 001,#6001 : $IF ON 190 : $IF ON /001,190 : $IF ON #6,190 0170 $IF ON /005,180 : GOTO 170 0180 NEXT I : GOTO 200 0190 E(3)=E(3)+1 : GOTO 210 0200 PRINT "OK" : GOTO 220 0210 PRINT TAB(40);E(3);"ERRORS" 0220 LOAD DC T"OP2D020A" 0500 PRINT HEX(0A0A); : PRINT HEX(03);"2200 SYSTEM DIAGNOSTIC - GIO PASS ";Z9(1);" **** ";E(3);" ERRORS" : PRINT "------------------------------------" : RETURN 0600 DEFFN'100 0610 ON O8 GOTO 620,630,640 : STOP "SYSTEM ERROR" 0620 SELECT PRINT 005 : RETURN 0630 SELECT PRINT 215 : RETURN 0640 SELECT PRINT 211 : RETURN 9000 DEFFN'15 : LOAD DC T"START"50