Listing of file='YARNP.C;01' on disk='vmedia/chip_9-sector.ccvf'
### Disk Sector 245 ### 00: 0d 0a 2f 2a 14 20 59 41 52 4e 50 20 12 2d 20 56 ../*. YARNP .- V 10: 41 52 49 41 54 49 4f 4e 20 4f 4e 20 59 41 52 4e ARIATION ON YARN 20: 0d 0a 2f 2a 20 4e 45 45 44 53 20 16 53 54 44 4c ../* NEEDS .STDL 30: 49 42 2c 4f 50 54 4c 49 42 12 0d 0a 0d 0a 43 48 IB,OPTLIB.....CH 40: 41 52 20 43 4f 4c 28 33 29 0d 0a 4d 41 49 4e 5b AR COL(3)..MAIN[ 50: 59 41 52 4e 50 5d 0d 0a 59 41 52 4e 50 5b 0d 0a YARNP]..YARNP[.. 60: 49 4e 54 20 54 49 4d 45 28 30 29 2c 43 2c 4b 2c INT TIME(0),C,K, 70: 56 49 2c 56 0d 0a 43 48 41 52 20 44 52 28 31 35 VI,V..CHAR DR(15 ### Disk Sector 246 ### 00: 29 2c 43 4c 52 28 36 29 0d 0a 54 49 4d 45 3d 33 ),CLR(6)..TIME=3 10: 33 32 30 39 0d 0a 44 52 28 30 29 3d 38 2a 31 37 3209..DR(0)=8*17 20: 0d 0a 44 52 28 31 29 3d 38 2a 31 36 2b 31 30 0d ..DR(1)=8*16+10. 30: 0a 44 52 28 32 29 3d 31 30 2a 31 37 0d 0a 44 52 .DR(2)=10*17..DR 40: 28 33 29 3d 31 30 2a 31 36 2b 32 0d 0a 44 52 28 (3)=10*16+2..DR( 50: 34 29 3d 32 2a 31 37 0d 0a 44 52 28 35 29 3d 32 4)=2*17..DR(5)=2 60: 2a 31 36 2b 36 0d 0a 44 52 28 36 29 3d 36 2a 31 *16+6..DR(6)=6*1 70: 37 0d 0a 44 52 28 37 29 3d 36 2a 31 36 2b 34 0d 7..DR(7)=6*16+4. ### Disk Sector 247 ### 00: 0a 44 52 28 38 29 3d 34 2a 31 37 0d 0a 44 52 28 .DR(8)=4*17..DR( 10: 39 29 3d 34 2a 31 36 2b 35 0d 0a 44 52 28 31 30 9)=4*16+5..DR(10 20: 29 3d 35 2a 31 37 0d 0a 44 52 28 31 31 29 3d 35 )=5*17..DR(11)=5 30: 2a 31 36 2b 31 0d 0a 44 52 28 31 32 29 3d 31 2a *16+1..DR(12)=1* 40: 31 37 0d 0a 44 52 28 31 33 29 3d 31 2a 31 36 2b 17..DR(13)=1*16+ 50: 39 0d 0a 44 52 28 31 34 29 3d 39 2a 31 37 0d 0a 9..DR(14)=9*17.. 60: 44 52 28 31 35 29 3d 39 2a 31 36 2b 38 0d 0a 43 DR(15)=9*16+8..C 70: 4f 4c 28 30 29 3d 32 35 35 0d 0a 43 4f 4c 28 32 OL(0)=255..COL(2 ### Disk Sector 248 ### 00: 29 3d 32 0d 0a 43 4f 4c 28 33 29 3d 32 35 31 0d )=2..COL(3)=251. 10: 0a 43 4c 52 28 30 29 3d 32 35 35 0d 0a 43 4c 52 .CLR(0)=255..CLR 20: 28 31 29 3d 31 32 0d 0a 43 4c 52 28 32 29 3d 33 (1)=12..CLR(2)=3 30: 0d 0a 43 4c 52 28 33 29 3d 36 34 0d 0a 43 4c 52 ..CLR(3)=64..CLR 40: 28 34 29 3d 30 0d 0a 43 4c 52 28 35 29 3d 32 0d (4)=0..CLR(5)=2. 50: 0a 43 4c 52 28 36 29 3d 32 35 31 0d 0a 53 45 45 .CLR(6)=251..SEE 60: 44 3d 54 49 4d 45 28 30 29 0d 0a 43 3d 52 41 4e D=TIME(0)..C=RAN 70: 44 4f 4d 28 31 30 2c 32 35 29 0d 0a 50 55 54 43 DOM(10,25)..PUTC ### Disk Sector 249 ### 00: 48 41 52 20 32 0d 0a 50 55 54 43 48 41 52 20 36 HAR 2..PUTCHAR 6 10: 34 0d 0a 50 55 54 43 48 41 52 20 36 34 0d 0a 50 4..PUTCHAR 64..P 20: 55 54 43 48 41 52 20 32 35 31 0d 0a 57 48 49 4c UTCHAR 251..WHIL 30: 45 28 31 29 5b 0d 0a 50 46 54 28 43 4c 52 2c 43 E(1)[..PFT(CLR,C 40: 4c 52 2b 36 29 0d 0a 4b 3d 52 41 4e 44 4f 4d 28 LR+6)..K=RANDOM( 50: 31 30 30 30 2c 31 35 30 30 29 0d 0a 57 48 49 4c 1000,1500)..WHIL 60: 45 28 4b 3d 4b 2d 31 29 0d 0a 5b 0d 0a 49 46 20 E(K=K-1)..[..IF 70: 28 28 43 3d 43 2d 31 29 3d 3d 30 29 43 3d 43 48 ((C=C-1)==0)C=CH ### Disk Sector 250 ### 00: 43 0d 0a 56 49 3d 56 49 2b 52 41 4e 44 4f 4d 28 C..VI=VI+RANDOM( 10: 2d 38 2c 38 29 0d 0a 49 46 28 56 49 3c 2d 38 29 -8,8)..IF(VI<-8) 20: 56 49 3d 2d 38 0d 0a 49 46 28 56 49 3e 38 29 56 VI=-8..IF(VI>8)V 30: 49 3d 38 0d 0a 56 3d 28 56 2b 56 49 2f 34 2b 31 I=8..V=(V+VI/4+1 40: 36 29 25 31 36 0d 0a 4d 43 20 44 52 28 56 29 2c 6)%16..MC DR(V), 50: 31 0d 0a 5d 0d 0a 5d 5d 0d 0a 43 48 43 5b 0d 0a 1..]..]]..CHC[.. 60: 43 4f 4c 28 31 29 3d 52 41 4e 44 4f 4d 28 31 37 COL(1)=RANDOM(17 70: 2c 32 33 29 0d 0a 50 46 54 28 43 4f 4c 2c 43 4f ,23)..PFT(COL,CO ### Disk Sector 251 ### 00: 4c 2b 33 29 0d 0a 52 45 54 55 52 4e 20 52 41 4e L+3)..RETURN RAN 10: 44 4f 4d 28 31 30 2c 32 35 29 5d 0d 0a 00 00 00 DOM(10,25)]..... 20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 50: 00 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 ................