image of READY prompt

Wang2200.org

Listing of file='CIOPDRE ' on disk='vmedia/701-2358C.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"