Listing of file='CIOPDRE' on disk='vmedia/731-0110A.wvd.zip'
# Sector 140, program filename = 'CIOPDRE'
0010 REM CIOPDRE, (09/21/81), OPEN DISK READ/ON ERROR, COPYRIGHT WANG LABS,197
8
0100 GOTO 9900
: ON AGOTO 4100,4120
4090 E$=HEX(01)
: OR (A2$(1),05)
: Y6=0
: RETURN
4100 Y,Y1,Y6,Y9=0
: GOSUB 4280
4120 IF Y9<>1THEN 4140
: OR (STR(A2$(1),1,1),01)
4140 IF Y1<>0THEN 4235
: AND (STR(A2$(1),1,1),FE)
: IF Y6=1THEN 4090
: PRINT D$(2)
: GOSUB 4355
: IF Y1=0THEN 4090
: Y6=1
: IF Y2=2THEN 4235
: B$=" "
: INPUT "SEND FILES SEPARATELY OR COMBINED AS ONE 1=SEPARATED",B$
: IF B$<>HEX(31)THEN 4230
: Y9=1
4230 PRINT HEX(0C);TAB(64)
4235 DATA LOAD DC OPEN T#1,Y1$(Y1)
: Y1=Y1+1
: IF Y1<>Y2THEN 4080
: Y1=0
: GOTO 4080
4280 PRINT D$(2)
: PRINT TAB(63);HEX(0D);
: INPUT "ENTER SEND DISK ADDRESS 1=310 2=B10 3=320 4=B20 5=350",Y
: PRINT HEX(0C);TAB(63);HEX(0D);
: ON YGOTO 4310,4320,4330,4340,4345
: GOTO 4280
4310 SELECT #1310
: RETURN
4320 SELECT #1B10
: RETURN
4330 SELECT #1320
: RETURN
4340 SELECT #1B20
: RETURN
4345 SELECT #1350
: RETURN
4355 Y1=1
: INIT(20)Y1$()
4365 PRINT "ENTER FILE NAME ";Y1;
: INPUT Y1$(Y1)
: PRINT HEX(0C);TAB(63);HEX(0D);
: IF Y1$(Y1)=" "THEN 4420
: LIMITS T#1,Y1$(Y1),A,B,C
: Y1=Y1+1
: IF Y1=6THEN 4420
: GOTO 4365
4420 Y2=Y1
: Y1=1
: IF Y2<>1THEN 100
: Y1=0
: RETURN
: ON ERRORSTR(A$,1),STR(A$,9)GOTO 7510
7510 PRINT D$(3);HEX(0D);
: IF STR(A$,1,2)="80"THEN 7570
: IF STR(A$,2,2)="82"THEN 7570
: 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"