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