image of READY prompt

Wang2200.org

Listing of file='CIOT010' on disk='vmedia/731-0110A.wvd.zip'

# Sector 51, program filename = 'CIOT010'
0010 REM CIOT010+open file,(4/07/78), STANDARD TC FORMAT DISK READ
0100 GOTO 9900
   : ON AGOTO 110,130,4000,4080
0110 COM Y,Y1,Y6,Y2,Y9,Y1$(10)8
0130 COM Y$(4)62,Y3,Y4,Y5
4000 AND (STR(A2$(1),1,1),FE)
   : MAT COPY Y$()<Y3,1>TO A2$()<4,1>
   : Y4=VAL(STR(A2$(2),2))
   : MAT COPY Y$()<Y3+1,Y4>TO O$()<1,Y4>
   : Y3=Y3+Y4+1
   : IF Y3<>Y5THEN 100
   : IF STR(Y$(1),1,1)=HEX(F0)THEN 4120
4080 DATA LOAD DC #1,Y$()
   : Y5=VAL(STR(Y$(1),2))
   : Y3=3
   : RETURN
4120 STOP