Listing of file='METEOR.C;01' on disk='vmedia/chip_9-sector.ccvf'
### Disk Sector 252 ### 00: 2f 2a 14 20 4d 45 54 45 4f 52 20 12 2d 20 41 20 /*. METEOR .- A 10: 53 48 4f 4f 54 49 4e 47 20 53 54 41 52 20 47 41 SHOOTING STAR GA 20: 4d 45 0d 0a 2f 2a 20 4e 45 45 44 53 20 16 53 54 ME../* NEEDS .ST 30: 44 4c 49 42 2c 4f 50 54 4c 49 42 2c 50 4c 54 36 DLIB,OPTLIB,PLT6 40: 34 12 0d 0a 0d 0a 4d 41 49 4e 5b 4d 45 54 45 4f 4.....MAIN[METEO 50: 52 5d 0d 0a 4d 45 54 45 4f 52 5b 0d 0a 20 20 43 R]..METEOR[.. C 60: 4c 45 41 4e 0d 0a 20 20 50 53 22 47 49 56 45 20 LEAN.. PS"GIVE 70: 41 20 50 41 54 54 45 52 4e 20 4e 55 4d 42 45 52 A PATTERN NUMBER ### Disk Sector 253 ### 00: 22 0d 0a 20 20 53 45 45 44 3d 4c 41 53 54 3d 47 ".. SEED=LAST=G 10: 4e 3b 50 4c 22 22 0d 0a 20 20 49 4e 54 20 4b 2c N;PL"".. INT K, 20: 53 54 41 52 53 0d 0a 20 20 49 4e 54 20 53 48 4f STARS.. INT SHO 30: 4f 54 53 0d 0a 20 20 50 53 22 48 4f 57 20 4d 41 OTS.. PS"HOW MA 40: 4e 59 20 46 49 58 45 44 20 53 54 41 52 53 22 0d NY FIXED STARS". 50: 0a 20 20 53 54 41 52 53 3d 47 4e 3b 50 4c 22 22 . STARS=GN;PL"" 60: 0d 0a 20 20 50 53 22 48 4f 57 20 4d 41 4e 59 20 .. PS"HOW MANY 70: 53 48 4f 4f 54 49 4e 47 20 53 54 41 52 53 22 0d SHOOTING STARS". ### Disk Sector 254 ### 00: 0a 20 20 53 48 4f 4f 54 53 3d 47 4e 3b 50 4c 22 . SHOOTS=GN;PL" 10: 22 0d 0a 20 20 43 4c 45 41 4e 0d 0a 20 20 4d 43 ".. CLEAN.. MC 20: 28 33 2c 31 29 0d 0a 20 20 4d 43 28 36 34 2c 31 (3,1).. MC(64,1 30: 29 0d 0a 20 20 4d 43 28 30 2c 31 29 0d 0a 20 20 ).. MC(0,1).. 40: 57 48 49 4c 45 28 28 4b 3d 4b 2b 31 29 3c 53 54 WHILE((K=K+1)<ST 50: 41 52 53 29 50 4c 4f 54 20 52 41 4e 44 4f 4d 28 ARS)PLOT RANDOM( 60: 30 2c 36 33 29 2c 52 41 4e 44 4f 4d 28 30 2c 36 0,63),RANDOM(0,6 70: 33 29 2c 36 0d 0a 20 20 4b 3d 30 0d 0a 20 20 57 3),6.. K=0.. W ### Disk Sector 255 ### 00: 48 49 4c 45 28 28 4b 3d 4b 2b 31 29 3c 53 48 4f HILE((K=K+1)<SHO 10: 4f 54 53 29 20 53 48 4f 4f 54 0d 0a 20 20 5d 0d OTS) SHOOT.. ]. 20: 0a 53 48 4f 4f 54 5b 0d 0a 20 20 49 4e 54 20 4b .SHOOT[.. INT K 30: 0d 0a 20 20 49 4e 54 20 53 54 41 52 54 0d 0a 20 .. INT START.. 40: 20 53 54 41 52 54 3d 52 41 4e 44 4f 4d 28 32 30 START=RANDOM(20 50: 2c 31 30 37 29 0d 0a 20 20 49 4e 54 20 42 49 47 ,107).. INT BIG 60: 0d 0a 20 20 42 49 47 3d 52 41 4e 44 4f 4d 28 30 .. BIG=RANDOM(0 70: 2c 32 29 2a 52 41 4e 44 4f 4d 28 30 2c 32 29 0d ,2)*RANDOM(0,2). ### Disk Sector 256 ### 00: 0a 20 20 49 4e 54 20 44 45 4c 54 41 0d 0a 20 20 . INT DELTA.. 10: 44 45 4c 54 41 3d 52 41 4e 44 4f 4d 28 2d 33 2c DELTA=RANDOM(-3, 20: 2b 33 29 0d 0a 20 20 57 48 49 4c 45 28 31 29 5b +3).. WHILE(1)[ 30: 0d 0a 20 20 20 20 4b 3d 4b 2b 31 0d 0a 20 20 20 .. K=K+1.. 40: 20 50 4c 4f 54 20 4b 2c 53 54 41 52 54 2b 44 45 PLOT K,START+DE 50: 4c 54 41 2a 4b 2c 31 0d 0a 20 20 20 20 49 46 28 LTA*K,1.. IF( 60: 50 4c 4f 54 28 4b 2d 42 49 47 2c 53 54 41 52 54 PLOT(K-BIG,START 70: 2b 44 45 4c 54 41 2a 28 4b 2d 42 49 47 29 2c 30 +DELTA*(K-BIG),0 ### Disk Sector 257 ### 00: 29 29 20 49 46 28 4b 3e 42 49 47 29 52 45 54 55 )) IF(K>BIG)RETU 10: 52 4e 0d 0a 20 20 20 20 49 46 28 42 49 47 3e 33 RN.. IF(BIG>3 20: 29 5b 0d 0a 20 20 20 20 20 20 50 4c 4f 54 20 4b )[.. PLOT K 30: 2d 42 49 47 2c 53 54 41 52 54 2b 31 2b 44 45 4c -BIG,START+1+DEL 40: 54 41 2a 28 4b 2d 42 49 47 29 2c 30 0d 0a 20 20 TA*(K-BIG),0.. 50: 20 20 20 20 50 4c 4f 54 20 4b 2d 42 49 47 2c 53 PLOT K-BIG,S 60: 54 41 52 54 2d 31 2b 44 45 4c 54 41 2a 28 4b 2d TART-1+DELTA*(K- 70: 42 49 47 29 2c 30 0d 0a 20 20 20 20 5d 0d 0a 20 BIG),0.. ].. ### Disk Sector 258 ### 00: 20 5d 0d 0a 5d 0d 0a 00 00 00 00 00 00 00 00 00 ]..]........... 10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ 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 ................