Listing of file='CIOT042' on disk='vmedia/731-0111.wvd.zip'
# Sector 370, program filename = 'CIOT042' 0010 REM CIOT042, 4/09/81, TC/WPS DISK SAVE, COPYRIGHT WANG LABS,1981 0100 GOTO 9900 : ON AGOTO 120,140,3000,3160,3220 0120 COM X,X0,X1,X2,X$8 0140 COM X0$2,X$(2)124,X3,X4 3000 STR(X0$,1,1)=STR(A1$(),10,1) : MAT COPY I$()<1,1>TO X0$<2,1> : MAT COPY I$()<2,248>TO X$()<1,248> : AND (A1$(1),01) : ON VAL(A1$(1))GOTO 3170 : IF A1$(5)=HEX(0000)THEN RETURN : DATA SAVE DC #2,X0$,X$() : RETURN 3160 RETURN 3170 DATA SAVE DC #2,X0$,X$() 3220 STOP " Overlaid from CIOPnnnn"