Listing of file='CIOPDSE' on disk='vmedia/731-0110A.wvd.zip'
# Sector 299, program filename = 'CIOPDSE' 0010 REM CIOPDSE, 09/21/81, OPEN DISK SAVE/ON ERROR, COPYRIGHT WANG LABS,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 : RETURN 4500 DEFFN'80 : PRINT D$(3) : B$(3)="1" : IF X2>99THEN 4620 : IF X0=0THEN 4590 : B$(3)="0" : PRINT "RECEIVE FILE ";X$;" OPENED" : RETURN 4590 PRINT "RECEIVE DISK FILE NOT OPENED" : RETURN 4620 PRINT "ENTER NEW FILE NAME FOR RECEIVE DISK" : RETURN 6000 DEFFN'83 : PRINT HEX(0D010A0A0A); : FOR A=1TO 4 : PRINT TAB(63) : NEXT A : PRINT HEX(010A);TAB(63);HEX(0D);"'0=CONTROL";HEX(0D0A0A); : A=0 : 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); : X0=0 : INPUT "ENTER 1- TO 6-CHARACTER FILE NAME",X$ : IF LEN(X$)<7THEN 6200 : PRINT "REENTER"; : GOTO 6150 6200 PRINT TAB(40);HEX(0D0C);TAB(63);HEX(0D); : INPUT "ENTER NUMBER OF SECTORS TO OPEN RECEIVE FILES",X1 : IF X1=INT(X1)THEN 6260 : PRINT "REENTER"; : GOTO 6200 6260 X2=1 : CONVERT X2TO STR(X$,7,2),(##) : DATA SAVE DC OPEN T#2,X1,X$ : X0=1 : GOTO 3160