Wang 2200 Virtual Media

Listing of file='WCPD570A' on disk='vmedia/701-2046C.wvd.zip'

# Sector 678, program filename = 'WCPD570A'
0010 REM .     WCPD570A,  00-00 (6/28/75),   12002
0100 ON ERRORE$,L0$GOTO 150
   : IF E(4)<>0THEN 210
   : E(5)=E(4)
   : IF E$=HEX(FFFF)THEN 170
   : GOTO 180
0150 E(4)=E(4)+1
   : GOTO 180
0170 E(4)=E(4)+1
0180 IF E(4)<>0THEN 210
   : PRINT "O.K."
   : LOAD DC T#6,"WCPD580A"
0210 PRINT TAB(40);E(4);"ERRORS"
   : LOAD DC T#6,"WCPD580A"
0230 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"