Listing of file='CIOVERR' on disk='vmedia/701-2358C.wvd.zip'
# Sector 294, program filename = 'CIOVERR'
0010 REM CIOVERR, 09/21/81, ON ERROR STMT FOR V PROCESSORS, COPYRIGHT WANG LAB
S,1978
0100 GOTO 9900
: ON AGOTO 7500
7500 ON ERRORSTR(A$,1),STR(A$,9)GOTO 7510
7510 PRINT HEX(05)
: IF STR(A$,2,2)="82"THEN 7570
: IF STR(A$,2,2)="83"THEN 7600
: IF STR(A$,2,2)="85"THEN 7700
: IF STR(A$,2,2)="86"THEN 7700
: PRINT HEX(03);"ERROR ";STR(A$,1,3);" AT STATEMENT NUMBER ";STR(A$,9,4)
: STOP
7570 PRINT D$(2);HEX(0D);
: STOP "NAME NOT CATALOGUED"
7600 PRINT D$(3);HEX(0D);
: STOP "NAME ALREADY CATALOGUED"
7700 PRINT D$(3);HEX(0D);
: STOP "INSUFFICIENT SPACE ON RECEIVE DISK"