Listing of file='CIOT150' on disk='vmedia/731-0111.wvd.zip'
# Sector 252, program filename = 'CIOT150' 0010 REM CIOT150, 4/12/78, DISK/PRT SAVE, COPYRIGHT WANG LABS,1978 0100 GOTO 9900 : ON AGOTO 120,140,3000 0120 COM X,X0,X1,X2,X$8 0140 COM X$(4)62,X3,X4,X9$(3)50,X8,X9 3000 IF A1$(1)<HEX(0400)THEN 3710 : X=1 : IF A1$(5)=HEX(0000)THEN 3130 : 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 3130 AND (A1$(1),01) : 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 3710 ON XGOSUB 3170 : ON VAL(A1$(2))-1GOTO 3854,3854 : B$=STR(A1$(3),2) : IF B$="@"THEN 3884 : $GIO#5(A200,Z$)I$()<,A1$(5)> 3726 ON VAL(B$)-46GOTO 100,3734,3738,3738,3738,3738,3738,3738,3738,3738,3738,3 728,3728,3728,3728,3728,3728,3884,3766,3778,3778,3778,3778,3778,3778,3778 ,3778,3778,3778,3778 3728 STOP "ERROR -- 3728" 3734 X8=X8+1 3738 IF X8+VAL(B$)-48>=X9THEN 3766 : $GIO#5(400D,Z$) : IF B$<"2"THEN 3758 : FOR A=1TO VAL(B$)-49 : $GIO#5(400A,Z$) : NEXT A 3758 X8=X8+VAL(B$)-48 : RETURN 3766 X8=1 : $GIO#5(400D400C,Z$) : RETURN 3778 IF X8>149THEN 3812 : MAT SEARCHX9$()<X8+1,150-X8>,=B$TO A1$() : IF A1$(1)=HEX(0000)THEN 3812 : X8=X8+VAL(STR(A1$(1),2)) : IF X8>=X9THEN 3766 : $GIO#5(400D,Z$) : IF A1$(1)=HEX(0001)THEN 100 : FOR A=1TO VAL(STR(A1$(1),2))-1 : $GIO#5(400A,Z$) : NEXT A : RETURN 3812 MAT SEARCHX9$(),=B$TO A1$() : IF A1$(1)=HEX(0000)THEN 3844 : $GIO#5(400D400C,Z$) : X8=VAL(STR(A1$(1),2)) : IF X8=1THEN 100 : FOR A=1TO X8-1 : $GIO#5(400A,Z$) : NEXT A : RETURN 3844 IF B$<>"B"THEN 100 : $GIO#5(4009,Z$) : RETURN 3854 IF A1$(5)=HEX(0000)THEN 3726 : SELECT PRINT 215(132) : A=1 : B=VAL(STR(A1$(5),2)) 3864 IF B<65THEN 3874 : HEXPRINT I$(A); : A=A+1 : B=B-64 : GOTO 3864 3874 HEXPRINT STR(I$(A),1,B) : SELECT PRINT 005(64) : RETURN 3884 A=VAL(STR(A1$(5),2)) : MAT COPY I$()<1,A>TO X9$()<1,A> : B$="M" : MAT SEARCHX9$()<1,150>,=B$TO A1$() : IF A1$(1)=HEX(0000)THEN 100 : X9=VAL(STR(A1$(1),2)) : RETURN