Listing of file='YARN.C;01' on disk='vmedia/chip_9-sector.ccvf'
### Disk Sector 239 ### 00: 2f 2a 14 20 59 41 52 4e 20 12 2d 20 43 41 54 20 /*. YARN .- CAT 10: 55 4e 52 41 56 45 4c 49 4e 47 20 41 20 42 41 4c UNRAVELING A BAL 20: 4c 20 4f 46 20 59 41 52 4e 0d 0a 2f 2a 20 4e 45 L OF YARN../* NE 30: 45 44 53 20 16 53 54 44 4c 49 42 2c 4f 50 54 4c EDS .STDLIB,OPTL 40: 49 42 12 0d 0a 0d 0a 43 48 41 52 20 43 4f 4c 28 IB.....CHAR COL( 50: 33 29 0d 0a 4d 41 49 4e 5b 59 41 52 4e 5d 0d 0a 3)..MAIN[YARN].. 60: 59 41 52 4e 5b 0d 0a 49 4e 54 20 54 49 4d 45 28 YARN[..INT TIME( 70: 30 29 2c 43 2c 4b 2c 56 0d 0a 43 48 41 52 20 44 0),C,K,V..CHAR D ### Disk Sector 240 ### 00: 52 28 31 35 29 2c 43 4c 52 28 36 29 0d 0a 54 49 R(15),CLR(6)..TI 10: 4d 45 3d 33 33 32 30 39 0d 0a 44 52 28 30 29 3d ME=33209..DR(0)= 20: 38 2a 31 37 0d 0a 44 52 28 31 29 3d 38 2a 31 36 8*17..DR(1)=8*16 30: 2b 31 30 0d 0a 44 52 28 32 29 3d 31 30 2a 31 37 +10..DR(2)=10*17 40: 0d 0a 44 52 28 33 29 3d 31 30 2a 31 36 2b 32 0d ..DR(3)=10*16+2. 50: 0a 44 52 28 34 29 3d 32 2a 31 37 0d 0a 44 52 28 .DR(4)=2*17..DR( 60: 35 29 3d 32 2a 31 36 2b 36 0d 0a 44 52 28 36 29 5)=2*16+6..DR(6) 70: 3d 36 2a 31 37 0d 0a 44 52 28 37 29 3d 36 2a 31 =6*17..DR(7)=6*1 ### Disk Sector 241 ### 00: 36 2b 34 0d 0a 44 52 28 38 29 3d 34 2a 31 37 0d 6+4..DR(8)=4*17. 10: 0a 44 52 28 39 29 3d 34 2a 31 36 2b 35 0d 0a 44 .DR(9)=4*16+5..D 20: 52 28 31 30 29 3d 35 2a 31 37 0d 0a 44 52 28 31 R(10)=5*17..DR(1 30: 31 29 3d 35 2a 31 36 2b 31 0d 0a 44 52 28 31 32 1)=5*16+1..DR(12 40: 29 3d 31 2a 31 37 0d 0a 44 52 28 31 33 29 3d 31 )=1*17..DR(13)=1 50: 2a 31 36 2b 39 0d 0a 44 52 28 31 34 29 3d 39 2a *16+9..DR(14)=9* 60: 31 37 0d 0a 44 52 28 31 35 29 3d 39 2a 31 36 2b 17..DR(15)=9*16+ 70: 38 0d 0a 43 4f 4c 28 30 29 3d 32 35 35 0d 0a 43 8..COL(0)=255..C ### Disk Sector 242 ### 00: 4f 4c 28 32 29 3d 32 0d 0a 43 4f 4c 28 33 29 3d OL(2)=2..COL(3)= 10: 32 35 31 0d 0a 43 4c 52 28 30 29 3d 32 35 35 0d 251..CLR(0)=255. 20: 0a 43 4c 52 28 31 29 3d 31 32 0d 0a 43 4c 52 28 .CLR(1)=12..CLR( 30: 32 29 3d 33 0d 0a 43 4c 52 28 33 29 3d 36 34 0d 2)=3..CLR(3)=64. 40: 0a 43 4c 52 28 34 29 3d 30 0d 0a 43 4c 52 28 35 .CLR(4)=0..CLR(5 50: 29 3d 32 0d 0a 43 4c 52 28 36 29 3d 32 35 31 0d )=2..CLR(6)=251. 60: 0a 53 45 45 44 3d 54 49 4d 45 28 30 29 0d 0a 43 .SEED=TIME(0)..C 70: 3d 52 41 4e 44 4f 4d 28 31 30 2c 32 35 29 0d 0a =RANDOM(10,25).. ### Disk Sector 243 ### 00: 50 55 54 43 48 41 52 20 32 0d 0a 50 55 54 43 48 PUTCHAR 2..PUTCH 10: 41 52 20 36 34 0d 0a 50 55 54 43 48 41 52 20 36 AR 64..PUTCHAR 6 20: 34 0d 0a 50 55 54 43 48 41 52 20 32 35 31 0d 0a 4..PUTCHAR 251.. 30: 57 48 49 4c 45 28 31 29 5b 0d 0a 50 46 54 28 43 WHILE(1)[..PFT(C 40: 4c 52 2c 43 4c 52 2b 36 29 0d 0a 4b 3d 52 41 4e LR,CLR+6)..K=RAN 50: 44 4f 4d 28 31 30 30 30 2c 31 35 30 30 29 0d 0a DOM(1000,1500).. 60: 57 48 49 4c 45 28 4b 3d 4b 2d 31 29 0d 0a 5b 0d WHILE(K=K-1)..[. 70: 0a 37 0d 0a 49 46 20 28 28 43 3d 43 2d 31 29 3d .7..IF ((C=C-1)= ### Disk Sector 244 ### 00: 3d 30 29 43 3d 43 48 43 0d 0a 56 3d 56 2b 52 41 =0)C=CHC..V=V+RA 10: 4e 44 4f 4d 28 2d 32 2c 32 29 0d 0a 56 3d 28 56 NDOM(-2,2)..V=(V 20: 2b 31 36 29 25 31 36 0d 0a 4d 43 20 44 52 28 56 +16)%16..MC DR(V 30: 29 2c 31 0d 0a 5d 0d 0a 5d 5d 0d 0a 43 48 43 5b ),1..]..]]..CHC[ 40: 0d 0a 43 4f 4c 28 31 29 3d 52 41 4e 44 4f 4d 28 ..COL(1)=RANDOM( 50: 31 37 2c 32 33 29 0d 0a 50 46 54 28 43 4f 4c 2c 17,23)..PFT(COL, 60: 43 4f 4c 2b 33 29 0d 0a 52 45 54 55 52 4e 20 52 COL+3)..RETURN R 70: 41 4e 44 4f 4d 28 31 30 2c 32 35 29 5d 0d 0a 00 ANDOM(10,25)]...