Listing of file='OPTLIB.C;01' on disk='vmedia/chip_9-sector.ccvf'
### Disk Sector 158 ### 00: 2f 2a 20 14 4f 50 54 4c 49 42 20 56 30 31 2e 30 /* .OPTLIB V01.0 10: 30 20 12 2d 20 4f 50 54 49 4f 4e 41 4c 20 4c 49 0 .- OPTIONAL LI 20: 42 52 41 52 59 0d 0a 0d 0a 49 4e 54 20 53 45 45 BRARY....INT SEE 30: 44 2c 4c 41 53 54 0d 0a 52 41 4e 44 4f 4d 20 49 D,LAST..RANDOM I 40: 4e 54 20 4c 2c 42 5b 0d 0a 49 4e 54 20 52 0d 0a NT L,B[..INT R.. 50: 49 46 28 4c 41 53 54 3d 3d 30 29 53 45 45 44 3d IF(LAST==0)SEED= 60: 4c 41 53 54 3d 39 39 0d 0a 52 3d 42 2d 4c 2b 31 LAST=99..R=B-L+1 70: 0d 0a 4c 41 53 54 3d 4c 41 53 54 2a 53 45 45 44 ..LAST=LAST*SEED ### Disk Sector 159 ### 00: 0d 0a 49 46 28 4c 41 53 54 3c 30 29 4c 41 53 54 ..IF(LAST<0)LAST 10: 3d 2d 4c 41 53 54 0d 0a 52 45 54 55 52 4e 20 4c =-LAST..RETURN L 20: 2b 28 4c 41 53 54 2f 38 29 25 52 0d 0a 5d 0d 0a +(LAST/8)%R..].. 30: 48 54 4f 49 20 43 48 41 52 20 42 28 30 29 0d 0a HTOI CHAR B(0).. 40: 49 4e 54 20 56 28 30 29 5b 0d 0a 49 4e 54 20 4e INT V(0)[..INT N 50: 0d 0a 42 3d 42 2b 28 4e 3d 42 4c 41 4e 4b 53 28 ..B=B+(N=BLANKS( 60: 42 29 29 0d 0a 56 28 30 29 3d 30 0d 0a 57 48 49 B))..V(0)=0..WHI 70: 4c 45 28 31 29 5b 0d 0a 49 46 28 42 28 30 29 3c LE(1)[..IF(B(0)< ### Disk Sector 160 ### 00: 27 30 27 29 42 52 45 41 4b 0d 0a 45 4c 53 45 20 '0')BREAK..ELSE 10: 49 46 28 42 28 30 29 3c 3d 27 39 27 29 56 28 30 IF(B(0)<='9')V(0 20: 29 3d 31 36 2a 56 28 30 29 2b 42 28 30 29 2d 27 )=16*V(0)+B(0)-' 30: 30 27 0d 0a 45 4c 53 45 20 49 46 28 42 28 30 29 0'..ELSE IF(B(0) 40: 3c 27 41 27 29 42 52 45 41 4b 0d 0a 45 4c 53 45 <'A')BREAK..ELSE 50: 20 49 46 28 42 28 30 29 3c 3d 27 46 27 29 56 28 IF(B(0)<='F')V( 60: 30 29 3d 31 36 2a 56 28 30 29 2b 42 28 30 29 2d 0)=16*V(0)+B(0)- 70: 27 37 27 0d 0a 45 4c 53 45 20 42 52 45 41 4b 0d '7'..ELSE BREAK. ### Disk Sector 161 ### 00: 0a 42 3d 42 2b 31 0d 0a 4e 3d 4e 2b 31 0d 0a 5d .B=B+1..N=N+1..] 10: 0d 0a 52 45 54 55 52 4e 20 4e 0d 0a 5d 0d 0a 42 ..RETURN N..]..B 20: 4c 41 4e 4b 53 20 43 48 41 52 20 42 28 30 29 5b LANKS CHAR B(0)[ 30: 0d 0a 49 4e 54 20 4e 0d 0a 57 48 49 4c 45 28 42 ..INT N..WHILE(B 40: 28 4e 29 3d 3d 27 20 27 29 4e 3d 4e 2b 31 0d 0a (N)==' ')N=N+1.. 50: 52 45 54 55 52 4e 20 4e 0d 0a 5d 0d 0a 43 45 51 RETURN N..]..CEQ 60: 20 43 48 41 52 20 41 28 30 29 2c 42 28 30 29 5b CHAR A(0),B(0)[ 70: 0d 0a 57 48 49 4c 45 28 41 28 30 29 21 3d 30 29 ..WHILE(A(0)!=0) ### Disk Sector 162 ### 00: 5b 0d 0a 49 46 28 41 28 30 29 21 3d 42 28 30 29 [..IF(A(0)!=B(0) 10: 29 52 45 54 55 52 4e 20 30 0d 0a 41 3d 41 2b 31 )RETURN 0..A=A+1 20: 3b 42 3d 42 2b 31 0d 0a 5d 0d 0a 52 45 54 55 52 ;B=B+1..]..RETUR 30: 4e 20 31 0d 0a 5d 0d 0a 49 54 4f 48 20 49 4e 54 N 1..]..ITOH INT 40: 20 4e 0d 0a 43 48 41 52 20 42 28 34 29 5b 0d 0a N..CHAR B(4)[.. 50: 49 4e 54 20 4b 0d 0a 42 28 4b 3d 34 29 3d 30 0d INT K..B(K=4)=0. 60: 0a 57 48 49 4c 45 28 28 4b 3d 4b 2d 31 29 3e 3d .WHILE((K=K-1)>= 70: 30 29 5b 0d 0a 42 28 4b 29 3d 4e 25 31 36 2b 27 0)[..B(K)=N%16+' ### Disk Sector 163 ### 00: 30 27 0d 0a 49 46 28 42 28 4b 29 3e 27 39 27 29 0'..IF(B(K)>'9') 10: 42 28 4b 29 3d 42 28 4b 29 2b 37 0d 0a 4e 3d 4e B(K)=B(K)+7..N=N 20: 2f 31 36 0d 0a 5d 0d 0a 5d 0d 0a 49 54 4f 41 20 /16..]..]..ITOA 30: 49 4e 54 20 4e 0d 0a 43 48 41 52 20 42 28 37 29 INT N..CHAR B(7) 40: 5b 0d 0a 49 46 28 4e 3c 30 29 5b 0d 0a 42 28 30 [..IF(N<0)[..B(0 50: 29 3d 27 2d 27 0d 0a 52 45 54 55 52 4e 20 31 2b )='-'..RETURN 1+ 60: 49 54 4f 41 28 2d 4e 2c 42 2b 31 29 0d 0a 5d 0d ITOA(-N,B+1)..]. 70: 0a 49 46 28 4e 3c 31 30 29 5b 0d 0a 42 28 30 29 .IF(N<10)[..B(0) ### Disk Sector 164 ### 00: 3d 4e 2b 27 30 27 0d 0a 52 45 54 55 52 4e 20 31 =N+'0'..RETURN 1 10: 0d 0a 5d 0d 0a 49 4e 54 20 4b 0d 0a 42 28 4b 3d ..]..INT K..B(K= 20: 49 54 4f 41 28 4e 2f 31 30 2c 42 29 29 3d 4e 25 ITOA(N/10,B))=N% 30: 31 30 2b 27 30 27 0d 0a 42 28 4b 2b 31 29 3d 30 10+'0'..B(K+1)=0 40: 0d 0a 52 45 54 55 52 4e 20 4b 2b 31 0d 0a 5d 0d ..RETURN K+1..]. 50: 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................