image of READY prompt

Wang2200.org

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