image of READY prompt

Wang2200.org

Listing of file='CIO*120' on disk='vmedia/731-0111.wvd.zip'

# Sector 474, program filename = 'CIO*120'
0010 REM CIO*120, (4/07/78),CARD READ, COPYRIGHT WANG LABS,1978
0100 GOTO 9900
   : ON AGOTO 130,4000,4100
0130 COM Y1,Y2,Y$(41)2,Y1$4,Y3
4000 MAT COPY Y$()<1,80>TO O$()<1,80>
   : A2$(2)=HEX(0050)
   : Y2=0
   : IF Y3=1THEN 4060
4011 DATA LOAD BT#1,Y$()
   : IF Y$(41)<>HEX(5000)THEN 4050
   : $TRAN(Y$(),Y1$)R
   : RETURN
4050 B$=STR(Y$(41),2)
   : AND (B$,40)
   : IF B$<>HEX(40)THEN 4165
   : Y3=1
   : RETURN
4060 IF Y1=1THEN 4420
   : PRINT D$(2);
   : GOTO 4237
4100 SELECT #1629
   : Y3=0
   : Y1$=HEX(5D212020)
   : PRINT
   : PRINT D$(2);TAB(63);HEX(0D);
   : INIT(00)Y$()
   : GOSUB 4410
   : Y$(41)=HEX(0080)
4165 PRINT D$(2);
   : B$=STR(Y$(41),2)
   : AND (B$,80)
   : IF B$<>HEX(80)THEN 4200
   : INPUT "READY CARD READER.  KEY RETURN TO CONTINUE",B$
   : PRINT HEX(0C0D);TAB(63);HEX(0D);
   : GOTO 4011
4200 B$=STR(Y$(41),2)
   : AND (B$,10)
   : IF B$<>HEX(10)THEN 4260
   : INPUT "PICK CHECK ERROR.  KEY RETURN TO CONTINUE",B$
   : PRINT HEX(0C0D);TAB(63);HEX(0D);
   : GOTO 4011
4237 INPUT "REFILL CARD READER.  KEY RETURN TO CONTINUE",B$
   : PRINT HEX(0C0D);TAB(63);HEX(0D);
   : Y3=0
   : IF Y2<>0THEN 4011
   : GOSUB 4410
   : GOTO 4011
4260 B$=STR(Y$(41),2)
   : AND (B$,20)
   : IF B$<>HEX(20)THEN 4290
   : INPUT "STACKER FULL.  KEY RETURN TO CONTINUE",B$
   : PRINT HEX(0C0D);TAB(63);HEX(0D);
   : GOTO 4011
4290 B$=STR(Y$(41),2)
   : AND (B$,08)
   : IF B$<>HEX(08)THEN 4320
4295 INPUT "READ FAILURE.  KEY RETURN TO CONTINUE",B$
   : PRINT HEX(0C0D);TAB(63);HEX(0D);
   : GOTO 4011
4320 B$=STR(Y$(41),2)
   : AND (B$,04)
   : IF B$=HEX(04)THEN 4295
   : B$=STR(Y$(41),2)
   : AND (B$,02)
   : IF B$<>HEX(02)THEN 4355
   : INPUT "INVALID ASCII CONVERSION.  KEY RETURN TO CONTINUE",B$
   : PRINT HEX(0C0D);TAB(63);HEX(0D);
   : GOTO 4011
4355 INPUT "CHECK CARD READER.  KEY RETURN TO CONTINUE",B$
   : PRINT HEX(0C0D);TAB(63);HEX(0D);
   : GOTO 4011
4410 Y1=0
   : INPUT "END OF FILE AT HOPPER EMPTY     1=YES",Y1
   : PRINT HEX(0C);TAB(63);HEX(0D);
   : Y2=1
   : RETURN
4420 A2$(1)=HEX(05)
   : E$=HEX(01)
   : RETURN