Listing of file='OP2D010A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 173, program filename = 'OP2D010A' 0010 REM . OP2D010A, 00-00 (6/28/75), 12002 0100 SELECT PRINT 005 : GOSUB 370 : GOSUB '100 : GOSUB 370 : FOR I=1TO 20 : E(I)=0 : NEXT I : PRINT "TESTING $IF ON... "; : FOR I=1TO 2 : SELECT TAPE 001,#4001 : $IF ON 270 : $IF ON /001,270 : $IF ON #4,270 0230 $IF ON /005,250 : GOTO 230 0250 NEXT I : GOTO 280 0270 E(1)=E(1)+1 0280 IF E(1)>0THEN 310 : PRINT "OK" : GOTO 330 0310 PRINT TAB(40);E(1);"ERRORS" : E9$(P9)="NG" 0330 LOAD DC T#6,"OP2D020A" 0340 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START" 0370 PRINT HEX(0A0A); : PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC - OPTION II.(GIO)" : PRINT "------------------------------------" : RETURN 0410 DEFFN'100 : ON O8GOTO 440,460,480 : STOP "SYSTEM ERROR" 0440 SELECT PRINT 005 : RETURN 0460 SELECT PRINT 215 : RETURN 0480 SELECT PRINT 211 : RETURN