image of READY prompt

Wang2200.org

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