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"