image of READY prompt

Wang2200.org

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