Listing of file='CIOT040A' on disk='vmedia/701-2358C.wvd.zip'
# Sector 55, program filename = 'CIOT040A'
0010 REM CIOT040A+open save, 6/29/78, DISK SAVE ASYNC, COPYRIGHT WANG LABS,19
78
0100 GOTO 9900
: ON AGOTO 120,140,3000
0120 COM X0,X1,X1$8,X$8
0140 COM X$(4)62,X3,X4
3000 IF A1$(5)=HEX(0000)THEN 3140
: X3=VAL(STR(A1$(5),2))
: IF X4+X3<249THEN 3110
: BIN(STR(X$(1),2,1))=X4
: DATA SAVE DC #2,X$()
: X4=3
3110 MAT COPY A1$()<10,1>TO X$()<X4,1>
: MAT COPY I$()<1,X3>TO X$()<X4+1,X3>
: X4=X4+X3+1
3140 ON VAL(A1$(1))GOTO 3170
: RETURN
3160 X4=3
: STR(X$(1),1,1)=HEX(00)
: RETURN
3170 STR(X$(1),1,1)=HEX(F0)
: BIN(STR(X$(1),2,1))=X4
: DATA SAVE DC #2,X$()
: GOSUB 3160