Compucolor.org – Virtual Media

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   ................