Listing of file='CIOPDPSE' on disk='vmedia/731-0111.wvd.zip'
# Sector 858, program filename = 'CIOPDPSE'
0010 REM CIOPDPSE, 09/21/81, OPEN DISK/PRT SAVE ERROR METHOD, COPYRIGHT WANG L
ABS,1978
0100 GOTO 9900
: ON AGOTO 3220
3220 DATA SAVE DC #2,END
: X2=X2+1
: IF X2>99THEN 100
: CONVERT X2TO STR(X$,7,2),(##)
: DATA SAVE DC OPEN T#2,X1,X$
: GOSUB '80
: X=0
: RETURN
4500 DEFFN'80
: PRINT D$(3)
: B$(3)="1"
: IF X2>99THEN 4620
: IF X0=0THEN 4590
: PRINT "RECEIVE FILE ";X$;" OPENED";
: GOTO 4840
4590 PRINT "RECEIVE DISK FILE NOT OPENED"
: RETURN
4620 PRINT "ENTER NEW FILE NAME FOR RECEIVE DISK"
: RETURN
4840 $GIO#5(0100020112124000,Z$)
: IF STR(Z$,8,1)=HEX(10)THEN 4920
: INIT(20)X9$()
: X9=1E99
: IF X8<>0THEN 4880
: X8=1
4880 PRINT TAB(50)
: B$(3)="0"
: RETURN
4920 PRINT ,"PRINTER NOT READY"
: RETURN
6000 DEFFN'83
: PRINT HEX(0D010A0A0A);
: FOR A=1TO 4
: PRINT TAB(63)
: NEXT A
: A=0
: PRINT HEX(010A);TAB(63);HEX(0D);"'0=CONTROL";HEX(0D0A0A);
: INPUT "ENTER RECEIVE DISK ADDRESS 1=310 2=B10 3=320 4=B20 5=350",A
: ON AGOTO 6110,6120,6130,6140,6145
: GOTO 6000
6110 SELECT #2310
: GOTO 6150
6120 SELECT #2B10
: GOTO 6150
6130 SELECT #2320
: GOTO 6150
6140 SELECT #2B20
: GOTO 6150
6145 SELECT #2350
6150 PRINT HEX(0C0D);TAB(63);HEX(0D);
: X,X0=0
: INPUT "ENTER 1- TO 6-CHARACTER FILE NAME",X$
: PRINT TAB(63);HEX(0D);
: IF LEN(X$)<7THEN 6200
: PRINT "REENTER";
: GOTO 6150
6200 PRINT HEX(0C0D);TAB(63);HEX(0D);
: INPUT "ENTER NUMBER OF SECTORS TO OPEN RECEIVE FILES",X1
: IF X1=INT(X1)THEN 6260
6240 PRINT "REENTER";
: GOTO 6200
6260 IF X1>9900THEN 6240
: X2=1
: CONVERT X2TO STR(X$,7,2),(##)
: DATA SAVE DC OPEN T#2,X1,X$
: X0=1
: GOTO 3160