/ Nibble Magazine / nib25a.dsk / SEPTEMBER.1985 / SERPENTS.COIL.bas

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 20 52 45 4d 20 | 2a 2a 2a 2a 2a 2a 2a 2a |10  REM |********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0a 32 |********|******.2|
|00000020| 30 20 20 52 45 4d 20 2a | 20 20 20 53 45 52 50 45 |0  REM *|   SERPE|
|00000030| 4e 54 53 2e 43 4f 49 4c | 20 20 20 20 2a 0a 33 30 |NTS.COIL|    *.30|
|00000040| 20 20 52 45 4d 20 2a 20 | 42 59 20 4a 41 4d 45 53 |  REM * |BY JAMES|
|00000050| 20 52 2e 20 42 52 4f 57 | 4e 20 20 2a 0a 34 30 20 | R. BROW|N  *.40 |
|00000060| 20 52 45 4d 20 2a 20 26 | 20 43 41 4d 45 52 4f 4e | REM * &| CAMERON|
|00000070| 20 4d 49 54 43 48 45 4c | 4c 20 2a 0a 35 30 20 20 | MITCHEL|L *.50  |
|00000080| 52 45 4d 20 2a 20 20 4e | 49 42 42 4c 45 20 53 45 |REM *  N|IBBLE SE|
|00000090| 50 54 20 31 39 38 35 20 | 20 2a 0a 36 30 20 20 52 |PT 1985 | *.60  R|
|000000a0| 45 4d 20 2a 20 43 4f 50 | 59 52 49 47 48 54 20 28 |EM * COP|YRIGHT (|
|000000b0| 43 29 20 31 39 38 35 20 | 2a 0a 37 30 20 20 52 45 |C) 1985 |*.70  RE|
|000000c0| 4d 20 2a 20 42 59 20 4d | 49 43 52 4f 53 50 41 52 |M * BY M|ICROSPAR|
|000000d0| 43 2c 20 49 4e 43 20 2a | 0a 38 30 20 20 52 45 4d |C, INC *|.80  REM|
|000000e0| 20 2a 20 43 4f 4e 43 4f | 52 44 2c 20 4d 41 20 20 | * CONCO|RD, MA  |
|000000f0| 30 31 37 34 32 20 2a 0a | 39 30 20 20 52 45 4d 20 |01742 *.|90  REM |
|00000100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000110| 2a 2a 2a 2a 2a 2a 0a 31 | 30 30 20 20 49 46 20 20 |******.1|00  IF  |
|00000120| 50 45 45 4b 28 31 30 34 | 29 20 3c 20 3e 39 36 20 |PEEK(104|) < >96 |
|00000130| 20 54 48 45 4e 20 20 50 | 4f 4b 45 20 31 30 33 2c | THEN  P|OKE 103,|
|00000140| 31 3a 20 50 4f 4b 45 20 | 31 30 34 2c 39 36 3a 20 |1: POKE |104,96: |
|00000150| 50 4f 4b 45 20 32 34 35 | 37 36 2c 30 3a 20 50 52 |POKE 245|76,0: PR|
|00000160| 49 4e 54 20 20 43 48 52 | 24 28 34 29 22 52 55 4e |INT  CHR|$(4)"RUN|
|00000170| 20 53 45 52 50 45 4e 54 | 53 2e 43 4f 49 4c 22 0a | SERPENT|S.COIL".|
|00000180| 31 31 30 20 20 47 4f 54 | 4f 20 36 32 30 0a 31 32 |110  GOT|O 620.12|
|00000190| 30 20 20 52 45 4d 20 50 | 4c 4f 54 20 53 54 4f 52 |0  REM P|LOT STOR|
|000001a0| 4d 20 52 4f 55 54 49 4e | 45 0a 31 33 30 20 20 50 |M ROUTIN|E.130  P|
|000001b0| 4f 4b 45 20 20 2d 31 36 | 33 36 38 2c 30 3a 44 46 |OKE  -16|368,0:DF|
|000001c0| 20 3d 20 31 3a 4f 58 20 | 3d 20 20 2d 31 3a 4f 59 | = 1:OX |=  -1:OY|
|000001d0| 20 3d 20 20 2d 31 3a 49 | 44 20 3d 20 31 3a 45 46 | =  -1:I|D = 1:EF|
|000001e0| 20 3d 20 30 0a 31 34 30 | 20 20 46 4f 52 20 49 20 | = 0.140|  FOR I |
|000001f0| 3d 20 31 20 54 4f 20 46 | 20 2d 31 0a 31 35 30 20 |= 1 TO F| -1.150 |
|00000200| 20 49 46 20 58 4c 28 49 | 20 2b 31 29 20 3c 20 3e | IF XL(I| +1) < >|
|00000210| 58 4c 28 49 29 20 20 54 | 48 45 4e 20 20 47 4f 54 |XL(I)  T|HEN  GOT|
|00000220| 4f 20 32 33 30 0a 31 36 | 30 20 20 49 46 20 59 4c |O 230.16|0  IF YL|
|00000230| 28 49 20 2b 31 29 20 3d | 20 59 4c 28 49 29 20 20 |(I +1) =| YL(I)  |
|00000240| 54 48 45 4e 20 34 36 30 | 0a 31 37 30 20 59 20 3d |THEN 460|.170 Y =|
|00000250| 20 59 4c 28 49 29 3a 58 | 20 3d 20 58 4c 28 49 29 | YL(I):X| = XL(I)|
|00000260| 3a 44 59 20 3d 20 31 0a | 31 38 30 20 20 49 46 20 |:DY = 1.|180  IF |
|00000270| 59 4c 28 49 20 2b 31 29 | 20 3c 59 4c 28 49 29 20 |YL(I +1)| <YL(I) |
|00000280| 20 54 48 45 4e 20 44 59 | 20 3d 20 20 2d 31 0a 31 | THEN DY| =  -1.1|
|00000290| 39 30 20 59 20 3d 20 59 | 20 2b 44 59 0a 32 30 30 |90 Y = Y| +DY.200|
|000002a0| 20 20 46 4f 52 20 4b 20 | 3d 20 31 20 54 4f 20 35 |  FOR K |= 1 TO 5|
|000002b0| 30 3a 20 4e 45 58 54 20 | 4b 3a 20 47 4f 53 55 42 |0: NEXT |K: GOSUB|
|000002c0| 20 34 39 30 3a 20 49 46 | 20 45 46 20 20 54 48 45 | 490: IF| EF  THE|
|000002d0| 4e 20 49 20 3d 20 46 20 | 2d 31 3a 20 4e 45 58 54 |N I = F |-1: NEXT|
|000002e0| 20 3a 20 54 45 58 54 20 | 3a 20 47 4f 54 4f 20 31 | : TEXT |: GOTO 1|
|000002f0| 34 36 30 0a 32 31 30 20 | 20 49 46 20 59 20 3d 20 |460.210 | IF Y = |
|00000300| 59 4c 28 49 20 2b 31 29 | 20 47 4f 54 4f 20 34 35 |YL(I +1)| GOTO 45|
|00000310| 30 0a 32 32 30 20 20 47 | 4f 54 4f 20 31 39 30 0a |0.220  G|OTO 190.|
|00000320| 32 33 30 20 20 49 46 20 | 59 4c 28 49 20 2b 31 29 |230  IF |YL(I +1)|
|00000330| 20 3c 20 3e 59 4c 28 49 | 29 20 47 4f 54 4f 20 33 | < >YL(I|) GOTO 3|
|00000340| 30 30 0a 32 34 30 20 59 | 20 3d 20 59 4c 28 49 29 |00.240 Y| = YL(I)|
|00000350| 3a 58 20 3d 20 58 4c 28 | 49 29 3a 44 58 20 3d 20 |:X = XL(|I):DX = |
|00000360| 31 0a 32 35 30 20 20 49 | 46 20 58 4c 28 49 20 2b |1.250  I|F XL(I +|
|00000370| 31 29 20 3c 58 4c 28 49 | 29 20 20 54 48 45 4e 20 |1) <XL(I|)  THEN |
|00000380| 44 58 20 3d 20 20 2d 31 | 0a 32 36 30 20 58 20 3d |DX =  -1|.260 X =|
|00000390| 20 58 20 2b 44 58 0a 32 | 37 30 20 20 46 4f 52 20 | X +DX.2|70  FOR |
|000003a0| 4b 20 3d 20 31 20 54 4f | 20 35 30 3a 20 4e 45 58 |K = 1 TO| 50: NEX|
|000003b0| 54 20 4b 3a 20 47 4f 53 | 55 42 20 34 39 30 3a 20 |T K: GOS|UB 490: |
|000003c0| 49 46 20 45 46 20 20 54 | 48 45 4e 20 49 20 3d 20 |IF EF  T|HEN I = |
|000003d0| 46 20 2d 31 3a 20 4e 45 | 58 54 20 3a 20 54 45 58 |F -1: NE|XT : TEX|
|000003e0| 54 20 3a 20 47 4f 54 4f | 20 31 34 36 30 0a 32 38 |T : GOTO| 1460.28|
|000003f0| 30 20 20 49 46 20 58 20 | 3d 20 58 4c 28 49 20 2b |0  IF X |= XL(I +|
|00000400| 31 29 20 47 4f 54 4f 20 | 34 35 30 0a 32 39 30 20 |1) GOTO |450.290 |
|00000410| 20 47 4f 54 4f 20 32 36 | 30 0a 33 30 30 20 42 20 | GOTO 26|0.300 B |
|00000420| 3d 20 28 59 4c 28 49 20 | 2b 31 29 20 2d 59 4c 28 |= (YL(I |+1) -YL(|
|00000430| 49 29 29 2f 28 58 4c 28 | 49 20 2b 31 29 20 2d 58 |I))/(XL(|I +1) -X|
|00000440| 4c 28 49 29 29 0a 33 31 | 30 20 58 20 3d 20 58 4c |L(I)).31|0 X = XL|
|00000450| 28 49 29 3a 59 20 3d 20 | 59 4c 28 49 29 3a 44 58 |(I):Y = |YL(I):DX|
|00000460| 20 3d 20 31 3a 44 59 20 | 3d 20 31 0a 33 32 30 20 | = 1:DY |= 1.320 |
|00000470| 20 49 46 20 58 4c 28 49 | 20 2b 31 29 20 3c 58 4c | IF XL(I| +1) <XL|
|00000480| 28 49 29 20 20 54 48 45 | 4e 20 44 58 20 3d 20 20 |(I)  THE|N DX =  |
|00000490| 2d 31 0a 33 33 30 20 20 | 49 46 20 59 4c 28 49 20 |-1.330  |IF YL(I |
|000004a0| 2b 31 29 20 3c 59 4c 28 | 49 29 20 20 54 48 45 4e |+1) <YL(|I)  THEN|
|000004b0| 20 44 59 20 3d 20 20 2d | 31 0a 33 34 30 20 47 31 | DY =  -|1.340 G1|
|000004c0| 20 3d 20 46 41 4c 53 45 | 3a 47 32 20 3d 20 46 41 | = FALSE|:G2 = FA|
|000004d0| 4c 53 45 3a 59 48 20 3d | 20 59 4c 28 49 29 20 2b |LSE:YH =| YL(I) +|
|000004e0| 42 20 2a 28 44 58 20 2b | 58 20 2d 58 4c 28 49 29 |B *(DX +|X -XL(I)|
|000004f0| 29 0a 33 35 30 20 20 49 | 46 20 20 41 42 53 28 59 |).350  I|F  ABS(Y|
|00000500| 48 20 2d 59 29 20 3e 2e | 35 20 20 54 48 45 4e 20 |H -Y) >.|5  THEN |
|00000510| 47 31 20 3d 20 54 52 55 | 45 0a 33 36 30 20 20 49 |G1 = TRU|E.360  I|
|00000520| 46 20 20 41 42 53 28 59 | 48 20 2d 59 29 20 3e 31 |F  ABS(Y|H -Y) >1|
|00000530| 2e 35 20 20 54 48 45 4e | 20 47 32 20 3d 20 54 52 |.5  THEN| G2 = TR|
|00000540| 55 45 0a 33 37 30 20 20 | 49 46 20 47 31 20 20 41 |UE.370  |IF G1  A|
|00000550| 4e 44 20 20 20 4e 4f 54 | 20 47 32 20 20 54 48 45 |ND   NOT| G2  THE|
|00000560| 4e 20 58 20 3d 20 58 20 | 2b 44 58 3a 59 20 3d 20 |N X = X |+DX:Y = |
|00000570| 59 20 2b 44 59 3a 20 47 | 4f 54 4f 20 34 30 30 0a |Y +DY: G|OTO 400.|
|00000580| 33 38 30 20 20 49 46 20 | 20 20 4e 4f 54 20 47 31 |380  IF |  NOT G1|
|00000590| 20 20 54 48 45 4e 20 58 | 20 3d 20 58 20 2b 44 58 |  THEN X| = X +DX|
|000005a0| 3a 20 47 4f 54 4f 20 34 | 30 30 0a 33 39 30 20 20 |: GOTO 4|00.390  |
|000005b0| 49 46 20 47 32 20 20 54 | 48 45 4e 20 59 20 3d 20 |IF G2  T|HEN Y = |
|000005c0| 59 20 2b 44 59 0a 34 30 | 30 20 20 47 4f 53 55 42 |Y +DY.40|0  GOSUB|
|000005d0| 20 34 39 30 3a 20 49 46 | 20 45 46 20 20 54 48 45 | 490: IF| EF  THE|
|000005e0| 4e 20 49 20 3d 20 46 20 | 2d 31 3a 20 4e 45 58 54 |N I = F |-1: NEXT|
|000005f0| 20 3a 20 54 45 58 54 20 | 3a 20 47 4f 54 4f 20 31 | : TEXT |: GOTO 1|
|00000600| 34 36 30 0a 34 31 30 20 | 20 49 46 20 58 20 3d 20 |460.410 | IF X = |
|00000610| 58 4c 28 49 20 2b 31 29 | 20 20 41 4e 44 20 59 20 |XL(I +1)|  AND Y |
|00000620| 3d 20 59 4c 28 49 20 2b | 31 29 20 20 54 48 45 4e |= YL(I +|1)  THEN|
|00000630| 20 20 47 4f 54 4f 20 34 | 35 30 0a 34 32 30 20 20 |  GOTO 4|50.420  |
|00000640| 49 46 20 58 20 3d 20 58 | 4c 28 49 20 2b 31 29 20 |IF X = X|L(I +1) |
|00000650| 20 54 48 45 4e 20 44 58 | 20 3d 20 30 0a 34 33 30 | THEN DX| = 0.430|
|00000660| 20 20 49 46 20 59 20 3d | 20 59 4c 28 49 20 2b 31 |  IF Y =| YL(I +1|
|00000670| 29 20 20 54 48 45 4e 20 | 44 59 20 3d 20 30 0a 34 |)  THEN |DY = 0.4|
|00000680| 34 30 20 20 47 4f 54 4f | 20 33 34 30 0a 34 35 30 |40  GOTO| 340.450|
|00000690| 20 20 50 4f 4b 45 20 32 | 33 30 2c 36 34 3a 20 48 |  POKE 2|30,64: H|
|000006a0| 50 4c 4f 54 20 58 4c 28 | 49 29 2c 59 4c 28 49 29 |PLOT XL(|I),YL(I)|
|000006b0| 20 54 4f 20 58 4c 28 49 | 20 2b 31 29 2c 59 4c 28 | TO XL(I| +1),YL(|
|000006c0| 49 20 2b 31 29 3a 20 50 | 4f 4b 45 20 32 33 30 2c |I +1): P|OKE 230,|
|000006d0| 33 32 0a 34 36 30 20 20 | 4e 45 58 54 20 49 0a 34 |32.460  |NEXT I.4|
|000006e0| 37 30 20 20 43 41 4c 4c | 20 37 36 38 0a 34 38 30 |70  CALL| 768.480|
|000006f0| 20 20 50 4f 4b 45 20 20 | 2d 31 36 33 36 38 2c 30 |  POKE  |-16368,0|
|00000700| 3a 20 47 45 54 20 59 24 | 3a 20 50 52 49 4e 54 20 |: GET Y$|: PRINT |
|00000710| 3a 20 54 45 58 54 20 3a | 20 47 4f 54 4f 20 31 34 |: TEXT :| GOTO 14|
|00000720| 36 30 0a 34 39 30 20 44 | 46 20 3d 20 20 2d 44 46 |60.490 D|F =  -DF|
|00000730| 3a 47 31 20 3d 20 46 41 | 4c 53 45 3a 20 49 46 20 |:G1 = FA|LSE: IF |
|00000740| 4f 58 20 3e 37 20 20 41 | 4e 44 20 4f 58 20 3c 32 |OX >7  A|ND OX <2|
|00000750| 37 33 20 20 41 4e 44 20 | 4f 59 20 3e 37 20 20 41 |73  AND |OY >7  A|
|00000760| 4e 44 20 4f 59 20 3c 31 | 38 35 20 20 54 48 45 4e |ND OY <1|85  THEN|
|00000770| 20 47 31 20 3d 20 54 52 | 55 45 0a 35 30 30 20 20 | G1 = TR|UE.500  |
|00000780| 49 46 20 49 44 20 2d 20 | 49 4e 54 28 49 44 2f 34 |IF ID - |INT(ID/4|
|00000790| 29 20 2a 34 20 3d 20 31 | 20 20 54 48 45 4e 20 52 |) *4 = 1|  THEN R|
|000007a0| 54 20 3d 20 30 0a 35 31 | 30 20 20 49 46 20 49 44 |T = 0.51|0  IF ID|
|000007b0| 20 2d 20 49 4e 54 28 49 | 44 2f 34 29 20 2a 34 20 | - INT(I|D/4) *4 |
|000007c0| 3d 20 32 20 20 54 48 45 | 4e 20 52 54 20 3d 20 34 |= 2  THE|N RT = 4|
|000007d0| 38 0a 35 32 30 20 20 49 | 46 20 49 44 20 2d 20 49 |8.520  I|F ID - I|
|000007e0| 4e 54 28 49 44 2f 34 29 | 20 2a 34 20 3d 20 33 20 |NT(ID/4)| *4 = 3 |
|000007f0| 20 54 48 45 4e 20 52 54 | 20 3d 20 33 32 0a 35 33 | THEN RT| = 32.53|
|00000800| 30 20 20 49 46 20 49 44 | 20 2d 20 49 4e 54 28 49 |0  IF ID| - INT(I|
|00000810| 44 2f 34 29 20 2a 34 20 | 3d 20 30 20 20 54 48 45 |D/4) *4 |= 0  THE|
|00000820| 4e 20 52 54 20 3d 20 31 | 36 0a 35 34 30 20 20 49 |N RT = 1|6.540  I|
|00000830| 46 20 44 46 20 3c 30 20 | 20 41 4e 44 20 47 31 20 |F DF <0 | AND G1 |
|00000840| 20 54 48 45 4e 20 20 58 | 44 52 41 57 20 37 20 41 | THEN  X|DRAW 7 A|
|00000850| 54 20 4f 58 2c 4f 59 0a | 35 35 30 20 20 49 46 20 |T OX,OY.|550  IF |
|00000860| 44 46 20 3e 30 20 20 41 | 4e 44 20 47 31 20 20 54 |DF >0  A|ND G1  T|
|00000870| 48 45 4e 20 20 58 44 52 | 41 57 20 38 20 41 54 20 |HEN  XDR|AW 8 AT |
|00000880| 4f 58 2c 4f 59 0a 35 36 | 30 20 20 52 4f 54 3d 20 |OX,OY.56|0  ROT= |
|00000890| 52 54 3a 4f 58 20 3d 20 | 58 3a 4f 59 20 3d 20 59 |RT:OX = |X:OY = Y|
|000008a0| 3a 20 49 46 20 44 46 20 | 3c 30 20 20 54 48 45 4e |: IF DF |<0  THEN|
|000008b0| 20 49 44 20 3d 20 49 44 | 20 2b 31 0a 35 37 30 20 | ID = ID| +1.570 |
|000008c0| 47 31 20 3d 20 46 41 4c | 53 45 3a 20 49 46 20 4f |G1 = FAL|SE: IF O|
|000008d0| 58 20 3e 37 20 20 41 4e | 44 20 4f 58 20 3c 32 37 |X >7  AN|D OX <27|
|000008e0| 33 20 20 41 4e 44 20 4f | 59 20 3e 37 20 20 41 4e |3  AND O|Y >7  AN|
|000008f0| 44 20 4f 59 20 3c 31 38 | 35 20 20 54 48 45 4e 20 |D OY <18|5  THEN |
|00000900| 47 31 20 3d 20 54 52 55 | 45 0a 35 38 30 20 20 49 |G1 = TRU|E.580  I|
|00000910| 46 20 44 46 20 3e 30 20 | 20 41 4e 44 20 47 31 20 |F DF >0 | AND G1 |
|00000920| 20 54 48 45 4e 20 20 58 | 44 52 41 57 20 37 20 41 | THEN  X|DRAW 7 A|
|00000930| 54 20 58 2c 59 0a 35 39 | 30 20 20 49 46 20 44 46 |T X,Y.59|0  IF DF|
|00000940| 20 3c 30 20 20 41 4e 44 | 20 47 31 20 20 54 48 45 | <0  AND| G1  THE|
|00000950| 4e 20 20 58 44 52 41 57 | 20 38 20 41 54 20 58 2c |N  XDRAW| 8 AT X,|
|00000960| 59 0a 36 30 30 20 20 49 | 46 20 20 50 45 45 4b 28 |Y.600  I|F  PEEK(|
|00000970| 20 2d 31 36 33 38 34 29 | 20 3d 20 31 35 35 20 20 | -16384)| = 155  |
|00000980| 54 48 45 4e 20 49 20 3d | 20 46 20 2d 31 3a 45 46 |THEN I =| F -1:EF|
|00000990| 20 3d 20 31 3a 20 50 4f | 4b 45 20 20 2d 31 36 33 | = 1: PO|KE  -163|
|000009a0| 36 38 2c 30 3a 20 47 4f | 53 55 42 20 31 37 30 30 |68,0: GO|SUB 1700|
|000009b0| 3a 20 52 45 54 55 52 4e | 20 0a 36 31 30 20 20 52 |: RETURN| .610  R|
|000009c0| 45 54 55 52 4e 20 0a 36 | 32 30 20 20 44 49 4d 20 |ETURN .6|20  DIM |
|000009d0| 4c 54 44 28 35 30 29 2c | 4c 4e 47 28 35 30 29 2c |LTD(50),|LNG(50),|
|000009e0| 58 4c 28 35 30 29 2c 59 | 4c 28 35 30 29 0a 36 33 |XL(50),Y|L(50).63|
|000009f0| 30 20 20 4f 4e 45 52 52 | 20 20 47 4f 54 4f 20 32 |0  ONERR|  GOTO 2|
|00000a00| 36 36 30 3a 49 45 52 20 | 3d 20 30 0a 36 34 30 20 |660:IER |= 0.640 |
|00000a10| 54 52 55 45 20 3d 20 31 | 3a 46 41 4c 53 45 20 3d |TRUE = 1|:FALSE =|
|00000a20| 20 30 3a 4d 46 4c 41 47 | 20 3d 20 46 41 4c 53 45 | 0:MFLAG| = FALSE|
|00000a30| 0a 36 35 30 20 44 24 20 | 3d 20 20 43 48 52 24 28 |.650 D$ |=  CHR$(|
|00000a40| 34 29 3a 20 48 43 4f 4c | 4f 52 3d 20 33 3a 20 52 |4): HCOL|OR= 3: R|
|00000a50| 4f 54 3d 20 30 3a 20 53 | 43 41 4c 45 3d 20 31 0a |OT= 0: S|CALE= 1.|
|00000a60| 36 36 30 20 20 47 4f 54 | 4f 20 37 31 30 0a 36 37 |660  GOT|O 710.67|
|00000a70| 30 20 20 50 52 49 4e 54 | 20 3a 20 50 52 49 4e 54 |0  PRINT| : PRINT|
|00000a80| 20 3a 20 50 52 49 4e 54 | 20 3a 20 48 54 41 42 20 | : PRINT| : HTAB |
|00000a90| 36 3a 20 50 52 49 4e 54 | 20 22 50 52 45 53 53 20 |6: PRINT| "PRESS |
|00000aa0| 3c 52 45 54 55 52 4e 3e | 20 54 4f 20 43 4f 4e 54 |<RETURN>| TO CONT|
|00000ab0| 49 4e 55 45 22 3b 3a 20 | 47 45 54 20 59 24 3a 20 |INUE";: |GET Y$: |
|00000ac0| 50 52 49 4e 54 20 3a 20 | 52 45 54 55 52 4e 20 0a |PRINT : |RETURN .|
|00000ad0| 36 38 30 20 20 44 52 41 | 57 20 31 20 41 54 20 31 |680  DRA|W 1 AT 1|
|00000ae0| 36 30 2c 30 3a 20 44 52 | 41 57 20 32 20 41 54 20 |60,0: DR|AW 2 AT |
|00000af0| 31 36 33 2c 31 38 38 3a | 20 44 52 41 57 20 33 20 |163,188:| DRAW 3 |
|00000b00| 41 54 20 31 33 32 2c 31 | 31 38 3a 20 44 52 41 57 |AT 132,1|18: DRAW|
|00000b10| 20 34 20 41 54 20 32 33 | 39 2c 32 39 3a 20 44 52 | 4 AT 23|9,29: DR|
|00000b20| 41 57 20 36 20 41 54 20 | 30 2c 31 33 0a 36 39 30 |AW 6 AT |0,13.690|
|00000b30| 20 20 48 50 4c 4f 54 20 | 30 2c 30 20 54 4f 20 32 |  HPLOT |0,0 TO 2|
|00000b40| 37 39 2c 30 20 54 4f 20 | 32 37 39 2c 31 38 38 20 |79,0 TO |279,188 |
|00000b50| 54 4f 20 30 2c 31 38 38 | 20 54 4f 20 30 2c 30 0a |TO 0,188| TO 0,0.|
|00000b60| 37 30 30 20 20 52 45 54 | 55 52 4e 20 0a 37 31 30 |700  RET|URN .710|
|00000b70| 20 20 50 52 49 4e 54 20 | 20 43 48 52 24 28 34 29 |  PRINT | CHR$(4)|
|00000b80| 3b 22 42 4c 4f 41 44 20 | 53 48 2e 42 49 47 2c 41 |;"BLOAD |SH.BIG,A|
|00000b90| 24 31 30 30 30 22 3a 20 | 50 4f 4b 45 20 32 33 32 |$1000": |POKE 232|
|00000ba0| 2c 30 3a 20 50 4f 4b 45 | 20 32 33 33 2c 31 36 3a |,0: POKE| 233,16:|
|00000bb0| 20 50 4f 4b 45 20 20 2d | 31 36 33 30 34 2c 30 3a | POKE  -|16304,0:|
|00000bc0| 20 50 4f 4b 45 20 20 2d | 31 36 32 39 37 2c 30 3a | POKE  -|16297,0:|
|00000bd0| 20 50 4f 4b 45 20 20 2d | 31 36 33 30 32 2c 30 3a | POKE  -|16302,0:|
|00000be0| 20 50 4f 4b 45 20 32 33 | 30 2c 33 32 3a 20 43 41 | POKE 23|0,32: CA|
|00000bf0| 4c 4c 20 36 32 34 35 30 | 0a 37 32 30 20 20 47 4f |LL 62450|.720  GO|
|00000c00| 53 55 42 20 36 38 30 0a | 37 33 30 20 20 46 4f 52 |SUB 680.|730  FOR|
|00000c10| 20 58 20 3d 20 37 36 38 | 20 54 4f 20 38 30 31 3a | X = 768| TO 801:|
|00000c20| 20 52 45 41 44 20 58 58 | 3a 20 50 4f 4b 45 20 58 | READ XX|: POKE X|
|00000c30| 2c 58 58 3a 20 4e 45 58 | 54 20 3a 20 50 52 49 4e |,XX: NEX|T : PRIN|
|00000c40| 54 20 44 24 22 42 4c 4f | 41 44 20 53 48 2e 41 4c |T D$"BLO|AD SH.AL|
|00000c50| 50 48 41 2c 41 24 39 30 | 30 22 0a 37 34 30 20 20 |PHA,A$90|0".740  |
|00000c60| 48 4f 4d 45 20 3a 20 50 | 4f 4b 45 20 20 2d 31 36 |HOME : P|OKE  -16|
|00000c70| 33 30 31 2c 30 3a 20 50 | 4f 4b 45 20 32 33 32 2c |301,0: P|OKE 232,|
|00000c80| 30 3a 20 50 4f 4b 45 20 | 32 33 33 2c 39 3a 20 47 |0: POKE |233,9: G|
|00000c90| 4f 53 55 42 20 31 31 37 | 30 3a 20 50 4f 4b 45 20 |OSUB 117|0: POKE |
|00000ca0| 32 33 33 2c 31 36 3a 20 | 48 50 4c 4f 54 20 30 2c |233,16: |HPLOT 0,|
|00000cb0| 31 35 39 20 54 4f 20 32 | 37 39 2c 31 35 39 3a 20 |159 TO 2|79,159: |
|00000cc0| 48 4f 4d 45 20 3a 20 56 | 54 41 42 20 32 32 3a 20 |HOME : V|TAB 22: |
|00000cd0| 50 52 49 4e 54 20 22 2a | 2a 20 43 4f 50 59 52 49 |PRINT "*|* COPYRI|
|00000ce0| 47 48 54 20 31 39 38 35 | 20 42 59 20 4d 49 43 52 |GHT 1985| BY MICR|
|00000cf0| 4f 53 50 41 52 43 2c 20 | 49 4e 43 20 2a 2a 22 3a |OSPARC, |INC **":|
|00000d00| 20 56 54 41 42 20 32 30 | 3a 20 47 4f 53 55 42 20 | VTAB 20|: GOSUB |
|00000d10| 36 37 30 3a 20 50 4f 4b | 45 20 20 2d 31 36 33 30 |670: POK|E  -1630|
|00000d20| 32 2c 30 0a 37 35 30 20 | 3a 0a 37 36 30 20 20 52 |2,0.750 |:.760  R|
|00000d30| 45 4d 20 20 20 2a 2a 2a | 4d 41 49 4e 20 4d 45 4e |EM   ***|MAIN MEN|
|00000d40| 55 2a 2a 2a 0a 37 37 30 | 20 3a 0a 37 38 30 20 58 |U***.770| :.780 X|
|00000d50| 20 3d 20 20 46 52 45 28 | 30 29 3a 20 52 45 4d 20 | =  FRE(|0): REM |
|00000d60| 20 20 20 48 4f 55 53 45 | 4b 45 45 50 49 4e 47 0a |   HOUSE|KEEPING.|
|00000d70| 37 39 30 20 20 54 45 58 | 54 20 3a 20 48 4f 4d 45 |790  TEX|T : HOME|
|00000d80| 20 3a 20 48 54 41 42 20 | 35 3a 20 49 4e 56 45 52 | : HTAB |5: INVER|
|00000d90| 53 45 20 3a 20 50 52 49 | 4e 54 20 22 53 45 52 50 |SE : PRI|NT "SERP|
|00000da0| 45 4e 54 27 53 20 43 4f | 49 4c 20 4d 41 49 4e 20 |ENT'S CO|IL MAIN |
|00000db0| 4d 45 4e 55 22 3a 20 4e | 4f 52 4d 41 4c 20 3a 20 |MENU": N|ORMAL : |
|00000dc0| 56 54 41 42 20 35 0a 38 | 30 30 20 20 50 52 49 4e |VTAB 5.8|00  PRIN|
|00000dd0| 54 20 22 31 2e 20 20 42 | 45 47 49 4e 20 4e 45 57 |T "1.  B|EGIN NEW|
|00000de0| 20 48 55 52 52 49 43 41 | 4e 45 20 46 49 4c 45 22 | HURRICA|NE FILE"|
|00000df0| 3a 20 50 52 49 4e 54 20 | 0a 38 31 30 20 20 50 52 |: PRINT |.810  PR|
|00000e00| 49 4e 54 20 22 32 2e 20 | 20 55 50 44 41 54 45 2f |INT "2. | UPDATE/|
|00000e10| 45 44 49 54 20 43 55 52 | 52 45 4e 54 20 48 55 52 |EDIT CUR|RENT HUR|
|00000e20| 52 49 43 41 4e 45 22 3a | 20 50 52 49 4e 54 20 0a |RICANE":| PRINT .|
|00000e30| 38 32 30 20 20 50 52 49 | 4e 54 20 22 33 2e 20 20 |820  PRI|NT "3.  |
|00000e40| 4c 4f 41 44 20 48 55 52 | 52 49 43 41 4e 45 20 46 |LOAD HUR|RICANE F|
|00000e50| 49 4c 45 22 3a 20 50 52 | 49 4e 54 20 0a 38 33 30 |ILE": PR|INT .830|
|00000e60| 20 20 50 52 49 4e 54 20 | 22 34 2e 20 20 50 4c 4f |  PRINT |"4.  PLO|
|00000e70| 54 20 4d 45 4e 55 22 3a | 20 50 52 49 4e 54 20 0a |T MENU":| PRINT .|
|00000e80| 38 34 30 20 20 50 52 49 | 4e 54 20 22 35 2e 20 20 |840  PRI|NT "5.  |
|00000e90| 51 55 49 54 22 0a 38 35 | 30 20 20 49 4e 56 45 52 |QUIT".85|0  INVER|
|00000ea0| 53 45 20 3a 20 56 54 41 | 42 20 32 30 3a 20 48 54 |SE : VTA|B 20: HT|
|00000eb0| 41 42 20 31 3a 20 50 52 | 49 4e 54 20 22 45 4e 54 |AB 1: PR|INT "ENT|
|00000ec0| 45 52 20 31 20 2d 20 35 | 20 22 3b 3a 20 4e 4f 52 |ER 1 - 5| ";: NOR|
|00000ed0| 4d 41 4c 20 3a 20 47 45 | 54 20 59 24 3a 20 49 46 |MAL : GE|T Y$: IF|
|00000ee0| 20 59 24 20 3c 22 31 22 | 20 20 4f 52 20 59 24 20 | Y$ <"1"|  OR Y$ |
|00000ef0| 3e 22 35 22 20 20 54 48 | 45 4e 20 20 50 52 49 4e |>"5"  TH|EN  PRIN|
|00000f00| 54 20 20 43 48 52 24 28 | 37 29 3b 3a 20 47 4f 54 |T  CHR$(|7);: GOT|
|00000f10| 4f 20 38 35 30 0a 38 36 | 30 20 20 50 52 49 4e 54 |O 850.86|0  PRINT|
|00000f20| 20 59 24 3b 3a 59 20 3d | 20 20 56 41 4c 28 59 24 | Y$;:Y =|  VAL(Y$|
|00000f30| 29 3a 20 4f 4e 20 59 20 | 47 4f 54 4f 20 31 32 36 |): ON Y |GOTO 126|
|00000f40| 30 2c 31 30 38 30 2c 38 | 39 30 2c 31 34 35 30 2c |0,1080,8|90,1450,|
|00000f50| 38 37 30 0a 38 37 30 20 | 20 48 4f 4d 45 20 3a 20 |870.870 | HOME : |
|00000f60| 56 54 41 42 20 31 32 3a | 20 49 4e 50 55 54 20 22 |VTAB 12:| INPUT "|
|00000f70| 41 52 45 20 59 4f 55 20 | 53 55 52 45 20 59 4f 55 |ARE YOU |SURE YOU|
|00000f80| 20 57 41 4e 54 20 54 4f | 20 51 55 49 54 3f 20 28 | WANT TO| QUIT? (|
|00000f90| 59 2f 4e 29 22 3b 59 24 | 3a 20 4f 4e 20 59 24 20 |Y/N)";Y$|: ON Y$ |
|00000fa0| 3c 20 3e 22 59 22 20 47 | 4f 54 4f 20 37 38 30 3a |< >"Y" G|OTO 780:|
|00000fb0| 20 48 4f 4d 45 20 3a 20 | 45 4e 44 20 0a 38 38 30 | HOME : |END .880|
|00000fc0| 20 3a 0a 38 39 30 20 20 | 52 45 4d 20 20 20 2a 2a | :.890  |REM   **|
|00000fd0| 2a 2a 55 50 44 41 54 45 | 20 43 55 52 52 45 4e 54 |**UPDATE| CURRENT|
|00000fe0| 20 48 55 52 52 49 43 41 | 4e 45 2a 2a 2a 2a 0a 39 | HURRICA|NE****.9|
|00000ff0| 30 30 20 3a 0a 39 31 30 | 20 20 48 4f 4d 45 20 3a |00 :.910|  HOME :|
|00001000| 20 56 54 41 42 20 31 32 | 0a 39 32 30 20 20 50 52 | VTAB 12|.920  PR|
|00001010| 49 4e 54 20 22 4e 41 4d | 45 20 4f 46 20 48 55 52 |INT "NAM|E OF HUR|
|00001020| 52 49 43 41 4e 45 20 28 | 3f 20 46 4f 52 20 43 41 |RICANE (|? FOR CA|
|00001030| 54 41 4c 4f 47 29 3a 22 | 3a 20 49 4e 50 55 54 20 |TALOG):"|: INPUT |
|00001040| 22 22 3b 48 55 24 3a 59 | 48 20 3d 20 46 41 4c 53 |"";HU$:Y|H = FALS|
|00001050| 45 0a 39 33 30 20 20 49 | 46 20 20 4c 45 46 54 24 |E.930  I|F  LEFT$|
|00001060| 28 48 55 24 2c 32 29 20 | 3d 20 22 48 2e 22 20 20 |(HU$,2) |= "H."  |
|00001070| 54 48 45 4e 20 48 55 24 | 20 3d 20 20 4d 49 44 24 |THEN HU$| =  MID$|
|00001080| 20 28 48 55 24 2c 33 29 | 0a 39 34 30 20 20 49 46 | (HU$,3)|.940  IF|
|00001090| 20 20 4c 45 46 54 24 28 | 48 55 24 2c 31 29 20 3d |  LEFT$(|HU$,1) =|
|000010a0| 20 22 3f 22 20 20 54 48 | 45 4e 20 20 48 4f 4d 45 | "?"  TH|EN  HOME|
|000010b0| 20 3a 20 50 52 49 4e 54 | 20 44 24 22 43 41 54 41 | : PRINT| D$"CATA|
|000010c0| 4c 4f 47 22 3a 20 47 4f | 54 4f 20 39 32 30 0a 39 |LOG": GO|TO 920.9|
|000010d0| 35 30 20 20 49 46 20 48 | 55 24 20 3d 20 22 22 20 |50  IF H|U$ = "" |
|000010e0| 47 4f 54 4f 20 37 38 30 | 0a 39 36 30 20 44 58 20 |GOTO 780|.960 DX |
|000010f0| 3d 20 32 3a 20 50 52 49 | 4e 54 20 44 24 22 56 45 |= 2: PRI|NT D$"VE|
|00001100| 52 49 46 59 20 48 2e 22 | 3b 48 55 24 0a 39 37 30 |RIFY H."|;HU$.970|
|00001110| 20 49 20 3d 20 30 3a 45 | 44 20 3d 20 30 0a 39 38 | I = 0:E|D = 0.98|
|00001120| 30 20 20 50 52 49 4e 54 | 20 44 24 3b 22 4f 50 45 |0  PRINT| D$;"OPE|
|00001130| 4e 20 48 2e 22 3b 48 55 | 24 0a 39 39 30 20 20 50 |N H.";HU|$.990  P|
|00001140| 52 49 4e 54 20 44 24 3b | 22 52 45 41 44 20 48 2e |RINT D$;|"READ H.|
|00001150| 22 3b 48 55 24 0a 31 30 | 30 30 20 20 49 4e 50 55 |";HU$.10|00  INPU|
|00001160| 54 20 4e 41 4d 45 24 0a | 31 30 31 30 20 20 49 4e |T NAME$.|1010  IN|
|00001170| 50 55 54 20 44 41 24 0a | 31 30 32 30 20 49 20 3d |PUT DA$.|1020 I =|
|00001180| 20 49 20 2b 31 0a 31 30 | 33 30 20 20 49 4e 50 55 | I +1.10|30  INPU|
|00001190| 54 20 4c 54 44 28 49 29 | 0a 31 30 34 30 20 20 49 |T LTD(I)|.1040  I|
|000011a0| 4e 50 55 54 20 4c 4e 47 | 28 49 29 0a 31 30 35 30 |NPUT LNG|(I).1050|
|000011b0| 20 20 47 4f 54 4f 20 31 | 30 32 30 0a 31 30 36 30 |  GOTO 1|020.1060|
|000011c0| 20 20 50 52 49 4e 54 20 | 44 24 3b 22 43 4c 4f 53 |  PRINT |D$;"CLOS|
|000011d0| 45 20 48 2e 22 48 55 24 | 0a 31 30 37 30 20 46 20 |E H."HU$|.1070 F |
|000011e0| 3d 20 49 20 2d 31 3a 20 | 49 46 20 59 48 20 3d 20 |= I -1: |IF YH = |
|000011f0| 54 52 55 45 20 20 54 48 | 45 4e 20 20 47 4f 54 4f |TRUE  TH|EN  GOTO|
|00001200| 20 31 34 35 30 0a 31 30 | 38 30 20 20 49 46 20 48 | 1450.10|80  IF H|
|00001210| 55 24 20 3d 20 22 22 20 | 20 54 48 45 4e 20 20 48 |U$ = "" | THEN  H|
|00001220| 4f 4d 45 20 3a 20 56 54 | 41 42 20 31 32 3a 20 50 |OME : VT|AB 12: P|
|00001230| 52 49 4e 54 20 20 43 48 | 52 24 28 37 29 22 4e 4f |RINT  CH|R$(7)"NO|
|00001240| 20 48 55 52 52 49 43 41 | 4e 45 20 46 49 4c 45 20 | HURRICA|NE FILE |
|00001250| 48 41 53 20 42 45 45 4e | 20 4c 4f 41 44 45 44 22 |HAS BEEN| LOADED"|
|00001260| 3a 20 50 52 49 4e 54 20 | 3a 20 50 52 49 4e 54 20 |: PRINT |: PRINT |
|00001270| 22 50 52 45 53 53 20 3c | 52 45 54 55 52 4e 3e 20 |"PRESS <|RETURN> |
|00001280| 54 4f 20 52 45 54 55 52 | 4e 20 54 4f 20 4d 41 49 |TO RETUR|N TO MAI|
|00001290| 4e 20 4d 45 4e 55 22 3a | 20 47 45 54 20 59 24 3a |N MENU":| GET Y$:|
|000012a0| 20 50 52 49 4e 54 20 3a | 20 47 4f 54 4f 20 37 38 | PRINT :| GOTO 78|
|000012b0| 30 0a 31 30 39 30 20 20 | 48 4f 4d 45 20 3a 20 56 |0.1090  |HOME : V|
|000012c0| 54 41 42 20 31 32 3a 20 | 50 52 49 4e 54 20 22 44 |TAB 12: |PRINT "D|
|000012d0| 4f 20 59 4f 55 20 57 41 | 4e 54 20 54 4f 20 45 44 |O YOU WA|NT TO ED|
|000012e0| 49 54 20 54 48 45 20 52 | 45 43 4f 52 44 53 3f 28 |IT THE R|ECORDS?(|
|000012f0| 59 2f 4e 29 22 3b 3a 20 | 47 45 54 20 59 24 3a 20 |Y/N)";: |GET Y$: |
|00001300| 50 52 49 4e 54 20 3a 20 | 49 46 20 59 24 20 3d 20 |PRINT : |IF Y$ = |
|00001310| 22 59 22 20 20 54 48 45 | 4e 20 20 47 4f 53 55 42 |"Y"  THE|N  GOSUB|
|00001320| 20 31 38 35 30 0a 31 31 | 30 30 20 20 49 46 20 20 | 1850.11|00  IF  |
|00001330| 20 4e 4f 54 20 45 44 20 | 47 4f 54 4f 20 31 31 33 | NOT ED |GOTO 113|
|00001340| 30 0a 31 31 31 30 20 20 | 48 4f 4d 45 20 3a 20 50 |0.1110  |HOME : P|
|00001350| 52 49 4e 54 20 22 53 41 | 56 45 20 49 4e 20 46 49 |RINT "SA|VE IN FI|
|00001360| 4c 45 20 48 2e 22 3b 48 | 55 24 3b 3a 20 50 52 49 |LE H.";H|U$;: PRI|
|00001370| 4e 54 20 22 28 59 2f 4e | 29 20 22 3b 3a 20 47 45 |NT "(Y/N|) ";: GE|
|00001380| 54 20 59 24 3a 20 50 52 | 49 4e 54 20 59 24 3a 20 |T Y$: PR|INT Y$: |
|00001390| 49 46 20 59 24 20 3d 20 | 22 59 22 20 47 4f 54 4f |IF Y$ = |"Y" GOTO|
|000013a0| 20 32 34 35 30 0a 31 31 | 32 30 20 20 49 46 20 59 | 2450.11|20  IF Y|
|000013b0| 24 20 3c 20 3e 22 4e 22 | 20 20 54 48 45 4e 20 31 |$ < >"N"|  THEN 1|
|000013c0| 31 31 30 0a 31 31 33 30 | 20 20 47 4f 54 4f 20 31 |110.1130|  GOTO 1|
|000013d0| 34 35 30 0a 31 31 34 30 | 20 3a 0a 31 31 35 30 20 |450.1140| :.1150 |
|000013e0| 20 52 45 4d 20 20 20 2a | 2a 2a 4f 50 45 4e 49 4e | REM   *|**OPENIN|
|000013f0| 47 20 53 43 52 45 45 4e | 20 54 49 54 4c 45 2a 2a |G SCREEN| TITLE**|
|00001400| 2a 0a 31 31 36 30 20 3a | 0a 31 31 37 30 20 59 24 |*.1160 :|.1170 Y$|
|00001410| 20 3d 20 22 54 48 45 22 | 3a 58 20 3d 20 32 30 33 | = "THE"|:X = 203|
|00001420| 3a 59 20 3d 20 36 3a 20 | 47 4f 53 55 42 20 31 32 |:Y = 6: |GOSUB 12|
|00001430| 32 30 0a 31 31 38 30 20 | 59 24 20 3d 20 22 53 45 |20.1180 |Y$ = "SE|
|00001440| 52 50 45 4e 54 22 3a 58 | 20 3d 20 31 38 39 3a 59 |RPENT":X| = 189:Y|
|00001450| 20 3d 20 38 3a 20 47 4f | 53 55 42 20 31 32 32 30 | = 8: GO|SUB 1220|
|00001460| 3a 58 20 3d 20 58 20 2b | 35 36 3a 59 24 20 3d 20 |:X = X +|56:Y$ = |
|00001470| 22 53 22 3a 20 47 4f 53 | 55 42 20 31 32 32 30 0a |"S": GOS|UB 1220.|
|00001480| 31 31 39 30 20 59 24 20 | 3d 20 22 43 4f 49 4c 22 |1190 Y$ |= "COIL"|
|00001490| 3a 58 20 3d 20 32 30 33 | 3a 59 20 3d 20 31 30 3a |:X = 203|:Y = 10:|
|000014a0| 20 47 4f 53 55 42 20 31 | 32 32 30 0a 31 32 30 30 | GOSUB 1|220.1200|
|000014b0| 20 20 48 50 4c 4f 54 20 | 32 33 38 2c 36 30 20 54 |  HPLOT |238,60 T|
|000014c0| 4f 20 32 33 38 2c 36 32 | 0a 31 32 31 30 20 20 52 |O 238,62|.1210  R|
|000014d0| 45 54 55 52 4e 20 0a 31 | 32 32 30 20 20 46 4f 52 |ETURN .1|220  FOR|
|000014e0| 20 49 20 3d 20 31 20 54 | 4f 20 20 4c 45 4e 28 59 | I = 1 T|O  LEN(Y|
|000014f0| 24 29 0a 31 32 33 30 20 | 20 44 52 41 57 20 20 41 |$).1230 | DRAW  A|
|00001500| 53 43 28 20 4d 49 44 24 | 20 28 59 24 2c 49 2c 31 |SC( MID$| (Y$,I,1|
|00001510| 29 29 20 2d 36 34 20 41 | 54 20 58 20 2b 28 49 20 |)) -64 A|T X +(I |
|00001520| 2d 31 29 20 2a 37 2c 59 | 20 2a 38 0a 31 32 34 30 |-1) *7,Y| *8.1240|
|00001530| 20 20 4e 45 58 54 20 49 | 3a 20 52 45 54 55 52 4e |  NEXT I|: RETURN|
|00001540| 20 0a 31 32 35 30 20 3a | 0a 31 32 36 30 20 20 52 | .1250 :|.1260  R|
|00001550| 45 4d 20 20 20 2a 2a 2a | 42 45 47 49 4e 20 4e 45 |EM   ***|BEGIN NE|
|00001560| 57 20 48 55 52 52 49 43 | 41 4e 45 2a 2a 2a 0a 31 |W HURRIC|ANE***.1|
|00001570| 32 37 30 20 3a 0a 31 32 | 38 30 20 45 44 20 3d 20 |270 :.12|80 ED = |
|00001580| 31 3a 20 48 4f 4d 45 20 | 3a 20 56 54 41 42 20 31 |1: HOME |: VTAB 1|
|00001590| 35 3a 20 49 4e 50 55 54 | 20 22 45 4e 54 45 52 20 |5: INPUT| "ENTER |
|000015a0| 4e 45 57 20 48 55 52 52 | 49 43 41 4e 45 20 4e 41 |NEW HURR|ICANE NA|
|000015b0| 4d 45 3a 20 22 3b 48 55 | 24 3a 20 49 46 20 48 55 |ME: ";HU|$: IF HU|
|000015c0| 24 20 3d 20 22 22 20 47 | 4f 54 4f 20 37 38 30 0a |$ = "" G|OTO 780.|
|000015d0| 31 32 39 30 20 4e 41 4d | 45 24 20 3d 20 48 55 24 |1290 NAM|E$ = HU$|
|000015e0| 3a 20 50 52 49 4e 54 20 | 3a 20 49 4e 50 55 54 20 |: PRINT |: INPUT |
|000015f0| 22 45 4e 54 45 52 20 20 | 44 41 54 45 3a 20 22 3b |"ENTER  |DATE: ";|
|00001600| 44 41 24 0a 31 33 30 30 | 20 20 48 4f 4d 45 20 3a |DA$.1300|  HOME :|
|00001610| 20 56 54 41 42 20 32 33 | 3a 20 49 4e 56 45 52 53 | VTAB 23|: INVERS|
|00001620| 45 20 3a 20 50 52 49 4e | 54 20 22 45 4e 54 45 52 |E : PRIN|T "ENTER|
|00001630| 22 3b 3a 20 4e 4f 52 4d | 41 4c 20 3a 20 50 52 49 |";: NORM|AL : PRI|
|00001640| 4e 54 20 22 20 3c 52 45 | 54 55 52 4e 3e 20 54 4f |NT " <RE|TURN> TO|
|00001650| 20 54 45 52 4d 49 4e 41 | 54 45 22 3a 20 50 52 49 | TERMINA|TE": PRI|
|00001660| 4e 54 20 22 41 4c 4c 4f | 57 41 42 4c 45 20 52 41 |NT "ALLO|WABLE RA|
|00001670| 4e 47 45 53 3a 22 3a 20 | 50 52 49 4e 54 20 22 31 |NGES:": |PRINT "1|
|00001680| 30 2e 30 20 44 45 47 20 | 4e 20 3c 3d 20 4c 41 54 |0.0 DEG |N <= LAT|
|00001690| 49 54 55 44 45 20 20 3c | 3d 20 33 36 2e 39 20 44 |ITUDE  <|= 36.9 D|
|000016a0| 45 47 20 4e 22 3a 20 50 | 52 49 4e 54 20 22 35 39 |EG N": P|RINT "59|
|000016b0| 2e 31 20 44 45 47 20 57 | 20 3c 3d 20 4c 4f 4e 47 |.1 DEG W| <= LONG|
|000016c0| 49 54 55 44 45 20 3c 3d | 20 39 39 2e 30 20 44 45 |ITUDE <=| 99.0 DE|
|000016d0| 47 20 57 22 3a 20 56 54 | 41 42 20 31 3a 20 50 4f |G W": VT|AB 1: PO|
|000016e0| 4b 45 20 33 35 2c 31 39 | 0a 31 33 31 30 20 4b 20 |KE 35,19|.1310 K |
|000016f0| 3d 20 31 0a 31 33 32 30 | 20 20 50 52 49 4e 54 20 |= 1.1320|  PRINT |
|00001700| 22 52 45 43 4f 52 44 20 | 23 22 3b 4b 0a 31 33 33 |"RECORD |#";K.133|
|00001710| 30 20 20 49 4e 50 55 54 | 20 22 4c 41 54 49 54 55 |0  INPUT| "LATITU|
|00001720| 44 45 20 4e 4f 52 54 48 | 3a 20 22 3b 41 24 3a 20 |DE NORTH|: ";A$: |
|00001730| 49 46 20 20 56 41 4c 28 | 41 24 29 20 3e 30 20 20 |IF  VAL(|A$) >0  |
|00001740| 54 48 45 4e 20 4c 54 44 | 28 4b 29 20 3d 20 20 56 |THEN LTD|(K) =  V|
|00001750| 41 4c 28 41 24 29 3a 20 | 47 4f 54 4f 20 31 33 35 |AL(A$): |GOTO 135|
|00001760| 30 0a 31 33 34 30 20 46 | 20 3d 20 4b 20 2d 31 3a |0.1340 F| = K -1:|
|00001770| 20 50 4f 4b 45 20 33 35 | 2c 32 34 3a 20 47 4f 54 | POKE 35|,24: GOT|
|00001780| 4f 20 31 33 38 30 0a 31 | 33 35 30 20 20 49 4e 50 |O 1380.1|350  INP|
|00001790| 55 54 20 22 4c 4f 4e 47 | 49 54 55 44 45 20 57 45 |UT "LONG|ITUDE WE|
|000017a0| 53 54 3a 20 22 3b 41 24 | 3a 4c 4e 47 28 4b 29 20 |ST: ";A$|:LNG(K) |
|000017b0| 3d 20 20 56 41 4c 28 41 | 24 29 3a 20 49 46 20 4c |=  VAL(A|$): IF L|
|000017c0| 4e 47 28 4b 29 20 3d 20 | 30 20 47 4f 54 4f 20 31 |NG(K) = |0 GOTO 1|
|000017d0| 33 34 30 0a 31 33 36 30 | 20 20 49 46 20 20 20 4e |340.1360|  IF   N|
|000017e0| 4f 54 20 28 28 4c 54 44 | 28 4b 29 20 3d 20 20 3e |OT ((LTD|(K) =  >|
|000017f0| 31 30 20 20 41 4e 44 20 | 4c 54 44 28 4b 29 20 3c |10  AND |LTD(K) <|
|00001800| 20 3d 20 33 36 2e 39 29 | 20 20 41 4e 44 20 28 4c | = 36.9)|  AND (L|
|00001810| 4e 47 28 4b 29 20 3e 20 | 3d 20 35 39 2e 31 20 20 |NG(K) > |= 59.1  |
|00001820| 41 4e 44 20 4c 4e 47 28 | 4b 29 20 3c 20 3d 20 39 |AND LNG(|K) < = 9|
|00001830| 39 29 29 20 20 54 48 45 | 4e 20 20 47 4f 53 55 42 |9))  THE|N  GOSUB|
|00001840| 20 31 34 30 30 3a 20 47 | 4f 54 4f 20 31 33 32 30 | 1400: G|OTO 1320|
|00001850| 0a 31 33 37 30 20 4b 20 | 3d 20 4b 20 2b 31 3a 20 |.1370 K |= K +1: |
|00001860| 48 4f 4d 45 20 3a 20 47 | 4f 54 4f 20 31 33 32 30 |HOME : G|OTO 1320|
|00001870| 0a 31 33 38 30 20 20 50 | 4f 4b 45 20 33 35 2c 32 |.1380  P|OKE 35,2|
|00001880| 34 3a 20 47 4f 54 4f 20 | 31 30 39 30 0a 31 33 39 |4: GOTO |1090.139|
|00001890| 30 20 20 47 4f 54 4f 20 | 31 31 31 30 0a 31 34 30 |0  GOTO |1110.140|
|000018a0| 30 20 20 50 52 49 4e 54 | 20 20 43 48 52 24 28 37 |0  PRINT|  CHR$(7|
|000018b0| 29 3a 20 48 4f 4d 45 20 | 3a 20 50 52 49 4e 54 20 |): HOME |: PRINT |
|000018c0| 22 54 48 45 20 41 4c 4c | 4f 57 41 42 4c 45 20 52 |"THE ALL|OWABLE R|
|000018d0| 41 4e 47 45 53 20 46 4f | 52 22 3a 20 50 52 49 4e |ANGES FO|R": PRIN|
|000018e0| 54 20 22 4c 41 54 49 54 | 55 44 45 20 41 4e 44 20 |T "LATIT|UDE AND |
|000018f0| 4c 4f 4e 47 49 54 55 44 | 45 20 41 52 45 3a 22 3a |LONGITUD|E ARE:":|
|00001900| 20 50 52 49 4e 54 20 3a | 20 50 52 49 4e 54 20 3a | PRINT :| PRINT :|
|00001910| 20 50 52 49 4e 54 20 22 | 31 30 2e 30 20 44 45 47 | PRINT "|10.0 DEG|
|00001920| 20 4e 20 3c 3d 20 4c 41 | 54 49 54 55 44 45 20 20 | N <= LA|TITUDE  |
|00001930| 3c 3d 20 33 36 2e 39 20 | 44 45 47 20 4e 22 3a 20 |<= 36.9 |DEG N": |
|00001940| 50 52 49 4e 54 20 22 35 | 39 2e 31 20 44 45 47 20 |PRINT "5|9.1 DEG |
|00001950| 57 20 3c 3d 20 4c 4f 4e | 47 49 54 55 44 45 20 3c |W <= LON|GITUDE <|
|00001960| 3d 20 39 39 2e 30 20 44 | 45 47 20 57 22 0a 31 34 |= 99.0 D|EG W".14|
|00001970| 31 30 20 20 47 4f 53 55 | 42 20 36 37 30 3a 20 48 |10  GOSU|B 670: H|
|00001980| 4f 4d 45 20 3a 20 52 45 | 54 55 52 4e 20 0a 31 34 |OME : RE|TURN .14|
|00001990| 32 30 20 3a 0a 31 34 33 | 30 20 20 52 45 4d 20 20 |20 :.143|0  REM  |
|000019a0| 20 2a 2a 2a 2a 50 4c 4f | 54 20 4d 45 4e 55 2a 2a | ****PLO|T MENU**|
|000019b0| 2a 2a 0a 31 34 34 30 20 | 3a 0a 31 34 35 30 20 20 |**.1440 |:.1450  |
|000019c0| 47 4f 53 55 42 20 31 36 | 39 30 3a 20 49 46 20 20 |GOSUB 16|90: IF  |
|000019d0| 20 4e 4f 54 20 4d 46 4c | 41 47 20 20 54 48 45 4e | NOT MFL|AG  THEN|
|000019e0| 20 20 47 4f 53 55 42 20 | 31 37 30 30 0a 31 34 36 |  GOSUB |1700.146|
|000019f0| 30 20 20 48 4f 4d 45 20 | 3a 20 56 54 41 42 20 32 |0  HOME |: VTAB 2|
|00001a00| 3a 20 48 54 41 42 20 37 | 3a 20 49 4e 56 45 52 53 |: HTAB 7|: INVERS|
|00001a10| 45 20 3a 20 50 52 49 4e | 54 20 22 43 48 41 52 54 |E : PRIN|T "CHART|
|00001a20| 20 50 4c 4f 54 20 4d 45 | 4e 55 22 3a 20 4e 4f 52 | PLOT ME|NU": NOR|
|00001a30| 4d 41 4c 20 3a 20 56 54 | 41 42 20 35 0a 31 34 37 |MAL : VT|AB 5.147|
|00001a40| 30 20 20 50 52 49 4e 54 | 20 22 31 2e 20 4f 56 45 |0  PRINT| "1. OVE|
|00001a50| 52 4c 41 59 20 57 49 54 | 48 20 35 20 44 45 47 20 |RLAY WIT|H 5 DEG |
|00001a60| 58 20 35 20 44 45 47 20 | 47 52 49 44 20 22 3a 20 |X 5 DEG |GRID ": |
|00001a70| 50 52 49 4e 54 20 0a 31 | 34 38 30 20 20 50 52 49 |PRINT .1|480  PRI|
|00001a80| 4e 54 20 22 32 2e 20 50 | 4c 4f 54 20 54 48 45 20 |NT "2. P|LOT THE |
|00001a90| 53 54 4f 52 4d 20 22 3a | 20 50 52 49 4e 54 20 0a |STORM ":| PRINT .|
|00001aa0| 31 34 39 30 20 20 49 46 | 20 20 20 4e 4f 54 20 4d |1490  IF|   NOT M|
|00001ab0| 46 4c 41 47 20 20 54 48 | 45 4e 20 20 50 52 49 4e |FLAG  TH|EN  PRIN|
|00001ac0| 54 20 22 33 2e 20 42 45 | 47 49 4e 20 4d 55 4c 54 |T "3. BE|GIN MULT|
|00001ad0| 49 50 4c 45 20 53 54 4f | 52 4d 20 50 4c 4f 54 22 |IPLE STO|RM PLOT"|
|00001ae0| 3a 20 50 52 49 4e 54 20 | 3a 20 47 4f 54 4f 20 31 |: PRINT |: GOTO 1|
|00001af0| 35 31 30 0a 31 35 30 30 | 20 20 50 52 49 4e 54 20 |510.1500|  PRINT |
|00001b00| 22 33 2e 20 54 45 52 4d | 49 4e 41 54 45 20 4d 55 |"3. TERM|INATE MU|
|00001b10| 4c 54 49 50 4c 45 20 53 | 54 4f 52 4d 20 50 4c 4f |LTIPLE S|TORM PLO|
|00001b20| 54 22 3a 20 50 52 49 4e | 54 20 0a 31 35 31 30 20 |T": PRIN|T .1510 |
|00001b30| 20 50 52 49 4e 54 20 22 | 34 2e 20 43 4c 45 41 52 | PRINT "|4. CLEAR|
|00001b40| 20 46 4f 52 20 4e 45 57 | 20 50 4c 4f 54 22 0a 31 | FOR NEW| PLOT".1|
|00001b50| 35 32 30 20 20 50 52 49 | 4e 54 20 0a 31 35 33 30 |520  PRI|NT .1530|
|00001b60| 20 20 50 52 49 4e 54 20 | 22 35 2e 20 53 41 56 45 |  PRINT |"5. SAVE|
|00001b70| 20 54 48 45 20 50 49 43 | 54 55 52 45 20 4f 4e 20 | THE PIC|TURE ON |
|00001b80| 44 49 53 4b 22 3a 20 50 | 52 49 4e 54 20 0a 31 35 |DISK": P|RINT .15|
|00001b90| 34 30 20 20 50 52 49 4e | 54 20 22 36 2e 20 44 49 |40  PRIN|T "6. DI|
|00001ba0| 53 50 4c 41 59 20 4d 41 | 50 22 3a 20 50 52 49 4e |SPLAY MA|P": PRIN|
|00001bb0| 54 20 0a 31 35 35 30 20 | 20 50 52 49 4e 54 20 22 |T .1550 | PRINT "|
|00001bc0| 37 2e 20 4d 41 49 4e 20 | 4d 45 4e 55 22 0a 31 35 |7. MAIN |MENU".15|
|00001bd0| 36 30 20 20 49 4e 56 45 | 52 53 45 20 3a 20 56 54 |60  INVE|RSE : VT|
|00001be0| 41 42 20 32 33 3a 20 50 | 52 49 4e 54 20 22 50 52 |AB 23: P|RINT "PR|
|00001bf0| 45 53 53 20 3c 45 53 43 | 3e 20 54 4f 20 53 54 4f |ESS <ESC|> TO STO|
|00001c00| 50 20 50 4c 4f 54 22 3a | 20 4e 4f 52 4d 41 4c 20 |P PLOT":| NORMAL |
|00001c10| 0a 31 35 37 30 20 20 56 | 54 41 42 20 32 31 3a 20 |.1570  V|TAB 21: |
|00001c20| 48 54 41 42 20 31 3a 20 | 50 52 49 4e 54 20 22 45 |HTAB 1: |PRINT "E|
|00001c30| 4e 54 45 52 20 31 20 2d | 20 37 20 22 3b 3a 20 4e |NTER 1 -| 7 ";: N|
|00001c40| 4f 52 4d 41 4c 20 3a 20 | 47 45 54 20 59 24 3a 20 |ORMAL : |GET Y$: |
|00001c50| 49 46 20 59 24 20 3c 22 | 31 22 20 20 4f 52 20 59 |IF Y$ <"|1"  OR Y|
|00001c60| 24 20 3e 22 37 22 20 20 | 54 48 45 4e 20 20 50 52 |$ >"7"  |THEN  PR|
|00001c70| 49 4e 54 20 20 43 48 52 | 24 28 37 29 3b 3a 20 47 |INT  CHR|$(7);: G|
|00001c80| 4f 54 4f 20 31 35 37 30 | 0a 31 35 38 30 20 20 50 |OTO 1570|.1580  P|
|00001c90| 52 49 4e 54 20 59 24 3a | 59 20 3d 20 20 56 41 4c |RINT Y$:|Y =  VAL|
|00001ca0| 28 59 24 29 3a 20 47 4f | 53 55 42 20 31 36 39 30 |(Y$): GO|SUB 1690|
|00001cb0| 0a 31 35 39 30 20 20 4f | 4e 20 59 20 47 4f 54 4f |.1590  O|N Y GOTO|
|00001cc0| 20 32 33 35 30 2c 31 37 | 31 30 2c 31 36 30 30 2c | 2350,17|10,1600,|
|00001cd0| 31 36 37 30 2c 32 31 33 | 30 2c 31 36 36 30 2c 37 |1670,213|0,1660,7|
|00001ce0| 36 30 0a 31 36 30 30 20 | 20 49 46 20 4d 46 4c 41 |60.1600 | IF MFLA|
|00001cf0| 47 20 3d 20 46 41 4c 53 | 45 20 20 54 48 45 4e 20 |G = FALS|E  THEN |
|00001d00| 4d 46 4c 41 47 20 3d 20 | 54 52 55 45 3a 20 47 4f |MFLAG = |TRUE: GO|
|00001d10| 54 4f 20 31 36 32 30 0a | 31 36 31 30 20 4d 46 4c |TO 1620.|1610 MFL|
|00001d20| 41 47 20 3d 20 46 41 4c | 53 45 0a 31 36 32 30 20 |AG = FAL|SE.1620 |
|00001d30| 3a 0a 31 36 33 30 20 20 | 49 46 20 4d 46 4c 41 47 |:.1630  |IF MFLAG|
|00001d40| 20 20 54 48 45 4e 20 20 | 48 4f 4d 45 20 3a 20 50 |  THEN  |HOME : P|
|00001d50| 52 49 4e 54 20 22 4e 4f | 54 45 3a 20 20 54 48 45 |RINT "NO|TE:  THE|
|00001d60| 20 4d 55 4c 54 49 50 4c | 45 20 50 4c 4f 54 20 4f | MULTIPL|E PLOT O|
|00001d70| 50 54 49 4f 4e 22 3a 20 | 50 52 49 4e 54 20 22 20 |PTION": |PRINT " |
|00001d80| 20 20 20 20 20 44 4f 45 | 53 20 54 57 4f 20 54 48 |     DOE|S TWO TH|
|00001d90| 49 4e 47 53 20 2d 20 22 | 3a 20 50 52 49 4e 54 20 |INGS - "|: PRINT |
|00001da0| 3a 20 50 52 49 4e 54 20 | 3a 20 50 52 49 4e 54 20 |: PRINT |: PRINT |
|00001db0| 22 20 31 2e 20 44 49 53 | 41 42 4c 45 53 20 41 55 |" 1. DIS|ABLES AU|
|00001dc0| 54 4f 4d 41 54 49 43 20 | 43 4c 45 41 52 49 4e 47 |TOMATIC |CLEARING|
|00001dd0| 22 3a 20 50 52 49 4e 54 | 20 22 20 20 20 20 20 4f |": PRINT| "     O|
|00001de0| 46 20 54 48 45 20 53 54 | 4f 52 4d 20 50 4c 4f 54 |F THE ST|ORM PLOT|
|00001df0| 2e 22 0a 31 36 34 30 20 | 20 49 46 20 4d 46 4c 41 |.".1640 | IF MFLA|
|00001e00| 47 20 20 54 48 45 4e 20 | 20 50 52 49 4e 54 20 3a |G  THEN | PRINT :|
|00001e10| 20 50 52 49 4e 54 20 22 | 20 32 2e 20 50 52 45 56 | PRINT "| 2. PREV|
|00001e20| 45 4e 54 53 20 44 49 53 | 50 4c 41 59 49 4e 47 20 |ENTS DIS|PLAYING |
|00001e30| 53 54 4f 52 4d 20 4e 41 | 4d 45 22 3a 20 50 52 49 |STORM NA|ME": PRI|
|00001e40| 4e 54 20 22 20 20 20 20 | 41 4e 44 20 44 41 54 45 |NT "    |AND DATE|
|00001e50| 22 3a 20 47 4f 53 55 42 | 20 36 37 30 0a 31 36 35 |": GOSUB| 670.165|
|00001e60| 30 20 20 47 4f 54 4f 20 | 31 34 36 30 0a 31 36 36 |0  GOTO |1460.166|
|00001e70| 30 20 20 50 4f 4b 45 20 | 20 2d 31 36 32 39 37 2c |0  POKE | -16297,|
|00001e80| 30 3a 20 50 4f 4b 45 20 | 20 2d 31 36 33 30 34 2c |0: POKE | -16304,|
|00001e90| 30 3a 20 47 4f 54 4f 20 | 34 38 30 0a 31 36 37 30 |0: GOTO |480.1670|
|00001ea0| 20 20 47 4f 53 55 42 20 | 31 37 30 30 3a 20 47 4f |  GOSUB |1700: GO|
|00001eb0| 54 4f 20 31 34 36 30 0a | 31 36 38 30 20 20 48 4f |TO 1460.|1680  HO|
|00001ec0| 4d 45 20 3a 20 45 4e 44 | 20 0a 31 36 39 30 20 20 |ME : END| .1690  |
|00001ed0| 48 4f 4d 45 20 3a 20 56 | 54 41 42 20 31 32 3a 20 |HOME : V|TAB 12: |
|00001ee0| 48 54 41 42 20 31 34 3a | 20 50 52 49 4e 54 20 22 |HTAB 14:| PRINT "|
|00001ef0| 57 4f 52 4b 49 4e 47 2e | 2e 2e 22 3a 20 52 45 54 |WORKING.|..": RET|
|00001f00| 55 52 4e 20 0a 31 37 30 | 30 20 20 52 4f 54 3d 20 |URN .170|0  ROT= |
|00001f10| 30 3a 20 50 4f 4b 45 20 | 32 33 30 2c 36 34 3a 20 |0: POKE |230,64: |
|00001f20| 50 4f 4b 45 20 20 2d 31 | 36 32 39 37 2c 30 3a 20 |POKE  -1|6297,0: |
|00001f30| 43 41 4c 4c 20 36 32 34 | 35 30 3a 20 47 4f 53 55 |CALL 624|50: GOSU|
|00001f40| 42 20 36 38 30 3a 20 50 | 4f 4b 45 20 32 33 30 2c |B 680: P|OKE 230,|
|00001f50| 33 32 3a 20 43 41 4c 4c | 20 37 36 38 3a 20 52 45 |32: CALL| 768: RE|
|00001f60| 54 55 52 4e 20 0a 31 37 | 31 30 20 20 49 46 20 48 |TURN .17|10  IF H|
|00001f70| 55 24 20 3d 20 22 22 20 | 47 4f 54 4f 20 31 30 38 |U$ = "" |GOTO 108|
|00001f80| 30 0a 31 37 32 30 20 20 | 49 46 20 46 20 3c 32 20 |0.1720  |IF F <2 |
|00001f90| 20 54 48 45 4e 20 20 48 | 4f 4d 45 20 3a 20 54 45 | THEN  H|OME : TE|
|00001fa0| 58 54 20 3a 20 56 54 41 | 42 20 31 32 3a 20 50 52 |XT : VTA|B 12: PR|
|00001fb0| 49 4e 54 20 22 43 55 52 | 52 45 4e 54 20 48 55 52 |INT "CUR|RENT HUR|
|00001fc0| 52 49 43 41 4e 45 20 46 | 49 4c 45 22 3a 20 50 52 |RICANE F|ILE": PR|
|00001fd0| 49 4e 54 20 22 4d 55 53 | 54 20 48 41 56 45 20 4d |INT "MUS|T HAVE M|
|00001fe0| 4f 52 45 20 54 48 41 4e | 20 4f 4e 45 20 50 4f 49 |ORE THAN| ONE POI|
|00001ff0| 4e 54 2e 22 3a 20 50 52 | 49 4e 54 20 3a 20 50 52 |NT.": PR|INT : PR|
|00002000| 49 4e 54 20 22 50 52 45 | 53 53 20 3c 52 45 54 55 |INT "PRE|SS <RETU|
|00002010| 52 4e 3e 20 46 4f 52 20 | 50 4c 4f 54 20 4d 45 4e |RN> FOR |PLOT MEN|
|00002020| 55 22 3a 20 47 45 54 20 | 5a 24 3a 20 50 52 49 4e |U": GET |Z$: PRIN|
|00002030| 54 20 3a 20 47 4f 54 4f | 20 31 34 35 30 0a 31 37 |T : GOTO| 1450.17|
|00002040| 33 30 20 20 49 46 20 20 | 20 4e 4f 54 20 4d 46 4c |30  IF  | NOT MFL|
|00002050| 41 47 20 20 54 48 45 4e | 20 20 47 4f 53 55 42 20 |AG  THEN|  GOSUB |
|00002060| 32 31 38 30 0a 31 37 34 | 30 20 20 50 4f 4b 45 20 |2180.174|0  POKE |
|00002070| 20 2d 31 36 33 30 32 2c | 30 3a 20 50 4f 4b 45 20 | -16302,|0: POKE |
|00002080| 20 2d 31 36 33 30 34 2c | 30 3a 20 50 4f 4b 45 20 | -16304,|0: POKE |
|00002090| 20 2d 31 36 32 39 37 2c | 30 0a 31 37 35 30 20 20 | -16297,|0.1750  |
|000020a0| 46 4f 52 20 49 20 3d 20 | 31 20 54 4f 20 46 0a 31 |FOR I = |1 TO F.1|
|000020b0| 37 36 30 20 20 49 46 20 | 46 20 3c 20 3d 20 31 20 |760  IF |F < = 1 |
|000020c0| 20 54 48 45 4e 20 49 20 | 3d 20 46 3a 20 4e 45 58 | THEN I |= F: NEX|
|000020d0| 54 20 3a 20 47 4f 54 4f | 20 37 38 30 0a 31 37 37 |T : GOTO| 780.177|
|000020e0| 30 20 20 49 46 20 20 20 | 4e 4f 54 20 28 28 4c 54 |0  IF   |NOT ((LT|
|000020f0| 44 28 49 29 20 3d 20 20 | 3e 31 30 20 20 41 4e 44 |D(I) =  |>10  AND|
|00002100| 20 4c 54 44 28 49 29 20 | 3c 20 3d 20 33 36 2e 39 | LTD(I) |< = 36.9|
|00002110| 29 20 20 41 4e 44 20 28 | 4c 4e 47 28 49 29 20 3e |)  AND (|LNG(I) >|
|00002120| 20 3d 20 35 39 2e 31 20 | 20 41 4e 44 20 4c 4e 47 | = 59.1 | AND LNG|
|00002130| 28 49 29 20 3c 20 3d 20 | 39 39 29 29 20 20 54 48 |(I) < = |99))  TH|
|00002140| 45 4e 20 49 20 3d 20 46 | 3a 20 4e 45 58 54 20 3a |EN I = F|: NEXT :|
|00002150| 20 54 45 58 54 20 3a 20 | 47 4f 53 55 42 20 31 34 | TEXT : |GOSUB 14|
|00002160| 30 30 3a 20 47 4f 54 4f | 20 37 38 30 0a 31 37 38 |00: GOTO| 780.178|
|00002170| 30 20 58 4c 28 49 29 20 | 3d 20 20 49 4e 54 28 28 |0 XL(I) |=  INT((|
|00002180| 39 39 20 2d 4c 4e 47 28 | 49 29 29 20 2a 37 29 0a |99 -LNG(|I)) *7).|
|00002190| 31 37 39 30 20 59 4c 28 | 49 29 20 3d 20 20 49 4e |1790 YL(|I) =  IN|
|000021a0| 54 28 28 33 37 20 2d 4c | 54 44 28 49 29 29 20 2a |T((37 -L|TD(I)) *|
|000021b0| 37 29 0a 31 38 30 30 20 | 20 4e 45 58 54 20 49 0a |7).1800 | NEXT I.|
|000021c0| 31 38 31 30 20 20 47 4f | 54 4f 20 31 33 30 0a 31 |1810  GO|TO 130.1|
|000021d0| 38 32 30 20 3a 0a 31 38 | 33 30 20 20 52 45 4d 20 |820 :.18|30  REM |
|000021e0| 20 20 2a 2a 2a 2a 4d 49 | 4e 49 20 45 44 49 54 4f |  ****MI|NI EDITO|
|000021f0| 52 2a 2a 2a 2a 0a 31 38 | 34 30 20 3a 0a 31 38 35 |R****.18|40 :.185|
|00002200| 30 20 45 44 20 3d 20 31 | 3a 20 46 4f 52 20 49 20 |0 ED = 1|: FOR I |
|00002210| 3d 20 46 20 2b 31 20 54 | 4f 20 35 30 3a 4c 54 44 |= F +1 T|O 50:LTD|
|00002220| 28 49 29 20 3d 20 30 3a | 4c 4e 47 28 49 29 20 3d |(I) = 0:|LNG(I) =|
|00002230| 20 30 3a 20 4e 45 58 54 | 20 0a 31 38 36 30 20 20 | 0: NEXT| .1860  |
|00002240| 50 4f 4b 45 20 33 34 2c | 32 3a 20 56 54 41 42 20 |POKE 34,|2: VTAB |
|00002250| 34 0a 31 38 37 30 20 20 | 48 4f 4d 45 20 3a 20 50 |4.1870  |HOME : P|
|00002260| 52 49 4e 54 20 22 20 52 | 45 43 4f 52 44 20 20 4c |RINT " R|ECORD  L|
|00002270| 41 54 49 54 55 44 45 20 | 20 4c 4f 4e 47 49 54 55 |ATITUDE | LONGITU|
|00002280| 44 45 20 22 0a 31 38 38 | 30 20 20 50 52 49 4e 54 |DE ".188|0  PRINT|
|00002290| 20 22 20 20 20 23 20 20 | 20 20 20 20 4e 4f 52 54 | "   #  |    NORT|
|000022a0| 48 20 20 20 20 20 20 20 | 57 45 53 54 22 3a 20 50 |H       |WEST": P|
|000022b0| 52 49 4e 54 20 3a 20 52 | 45 4d 20 33 2f 36 2f 37 |RINT : R|EM 3/6/7|
|000022c0| 20 53 50 41 43 45 53 0a | 31 38 39 30 20 20 46 4f | SPACES.|1890  FO|
|000022d0| 52 20 4a 20 3d 20 31 20 | 54 4f 20 46 0a 31 39 30 |R J = 1 |TO F.190|
|000022e0| 30 20 59 20 3d 20 4a 3a | 20 47 4f 53 55 42 20 32 |0 Y = J:| GOSUB 2|
|000022f0| 35 37 30 3a 50 24 20 3d | 20 22 20 20 22 20 2b 59 |570:P$ =| "  " +Y|
|00002300| 24 0a 31 39 31 30 20 59 | 20 3d 20 4c 54 44 28 4a |$.1910 Y| = LTD(J|
|00002310| 29 3a 20 47 4f 53 55 42 | 20 32 36 31 30 3a 50 24 |): GOSUB| 2610:P$|
|00002320| 20 3d 20 50 24 20 2b 22 | 20 20 20 20 20 20 20 22 | = P$ +"|       "|
|00002330| 20 2b 59 24 3a 20 52 45 | 4d 20 37 20 53 50 41 43 | +Y$: RE|M 7 SPAC|
|00002340| 45 53 0a 31 39 32 30 20 | 59 20 3d 20 4c 4e 47 28 |ES.1920 |Y = LNG(|
|00002350| 4a 29 3a 20 47 4f 53 55 | 42 20 32 36 31 30 3a 50 |J): GOSU|B 2610:P|
|00002360| 24 20 3d 20 50 24 20 2b | 22 20 20 20 20 20 20 20 |$ = P$ +|"       |
|00002370| 22 20 2b 59 24 3a 20 52 | 45 4d 20 37 20 53 50 41 |" +Y$: R|EM 7 SPA|
|00002380| 43 45 53 0a 31 39 33 30 | 20 20 50 52 49 4e 54 20 |CES.1930|  PRINT |
|00002390| 50 24 0a 31 39 34 30 20 | 20 49 46 20 28 4a 20 2d |P$.1940 | IF (J -|
|000023a0| 20 49 4e 54 28 4a 2f 31 | 36 29 20 2a 31 36 29 20 | INT(J/1|6) *16) |
|000023b0| 3d 20 30 20 20 41 4e 44 | 20 4a 20 3c 20 3e 46 20 |= 0  AND| J < >F |
|000023c0| 20 54 48 45 4e 20 20 49 | 4e 56 45 52 53 45 20 3a | THEN  I|NVERSE :|
|000023d0| 20 48 54 41 42 20 33 3a | 20 50 52 49 4e 54 20 22 | HTAB 3:| PRINT "|
|000023e0| 50 52 45 53 53 20 3c 52 | 45 54 55 52 4e 3e 20 46 |PRESS <R|ETURN> F|
|000023f0| 4f 52 20 4d 4f 52 45 22 | 3b 3a 20 4e 4f 52 4d 41 |OR MORE"|;: NORMA|
|00002400| 4c 20 3a 20 47 45 54 20 | 59 24 3a 20 50 52 49 4e |L : GET |Y$: PRIN|
|00002410| 54 20 0a 31 39 35 30 20 | 20 4e 45 58 54 20 4a 0a |T .1950 | NEXT J.|
|00002420| 31 39 36 30 20 20 47 4f | 53 55 42 20 36 37 30 0a |1960  GO|SUB 670.|
|00002430| 31 39 37 30 20 20 56 54 | 41 42 20 32 34 3a 20 50 |1970  VT|AB 24: P|
|00002440| 4f 4b 45 20 33 35 2c 32 | 33 3a 20 49 4e 56 45 52 |OKE 35,2|3: INVER|
|00002450| 53 45 20 3a 20 50 52 49 | 4e 54 20 22 50 52 45 53 |SE : PRI|NT "PRES|
|00002460| 53 20 3c 52 45 54 55 52 | 4e 3e 20 54 4f 20 54 45 |S <RETUR|N> TO TE|
|00002470| 52 4d 49 4e 41 54 45 22 | 3a 20 4e 4f 52 4d 41 4c |RMINATE"|: NORMAL|
|00002480| 20 3a 20 56 54 41 42 20 | 35 0a 31 39 38 30 20 20 | : VTAB |5.1980  |
|00002490| 48 4f 4d 45 20 3a 20 50 | 52 49 4e 54 20 3a 20 50 |HOME : P|RINT : P|
|000024a0| 52 49 4e 54 20 22 45 44 | 49 54 20 52 45 43 4f 52 |RINT "ED|IT RECOR|
|000024b0| 44 20 23 20 28 41 20 54 | 4f 20 41 44 44 20 54 4f |D # (A T|O ADD TO|
|000024c0| 20 45 4e 44 29 3a 22 3a | 20 49 4e 50 55 54 20 22 | END):":| INPUT "|
|000024d0| 22 3b 59 24 3a 59 20 3d | 20 20 49 4e 54 28 20 56 |";Y$:Y =|  INT( V|
|000024e0| 41 4c 28 59 24 29 29 3a | 20 49 46 20 59 24 20 3d |AL(Y$)):| IF Y$ =|
|000024f0| 20 22 41 22 20 20 54 48 | 45 4e 20 59 20 3d 20 46 | "A"  TH|EN Y = F|
|00002500| 20 2b 31 3a 46 20 3d 20 | 59 3a 20 47 4f 54 4f 20 | +1:F = |Y: GOTO |
|00002510| 32 30 31 30 0a 31 39 39 | 30 20 20 49 46 20 59 24 |2010.199|0  IF Y$|
|00002520| 20 3d 20 22 22 20 47 4f | 54 4f 20 32 30 39 30 0a | = "" GO|TO 2090.|
|00002530| 32 30 30 30 20 20 49 46 | 20 59 20 3c 31 20 20 4f |2000  IF| Y <1  O|
|00002540| 52 20 59 20 3e 46 20 20 | 54 48 45 4e 20 20 50 52 |R Y >F  |THEN  PR|
|00002550| 49 4e 54 20 20 43 48 52 | 24 28 37 29 3a 20 47 4f |INT  CHR|$(7): GO|
|00002560| 54 4f 20 31 39 38 30 0a | 32 30 31 30 20 20 48 54 |TO 1980.|2010  HT|
|00002570| 41 42 20 33 30 3a 20 49 | 4e 56 45 52 53 45 20 3a |AB 30: I|NVERSE :|
|00002580| 20 50 52 49 4e 54 20 4c | 54 44 28 59 29 3b 3a 20 | PRINT L|TD(Y);: |
|00002590| 4e 4f 52 4d 41 4c 20 3a | 20 48 54 41 42 20 31 3a |NORMAL :| HTAB 1:|
|000025a0| 20 49 4e 50 55 54 20 22 | 4c 41 54 49 54 55 44 45 | INPUT "|LATITUDE|
|000025b0| 20 4e 4f 52 54 48 3a 20 | 22 3b 59 24 0a 32 30 32 | NORTH: |";Y$.202|
|000025c0| 30 20 20 49 46 20 59 24 | 20 3d 20 22 22 20 20 54 |0  IF Y$| = ""  T|
|000025d0| 48 45 4e 20 32 30 34 30 | 0a 32 30 33 30 20 4c 54 |HEN 2040|.2030 LT|
|000025e0| 44 28 59 29 20 3d 20 20 | 56 41 4c 28 59 24 29 0a |D(Y) =  |VAL(Y$).|
|000025f0| 32 30 34 30 20 20 48 54 | 41 42 20 33 30 3a 20 49 |2040  HT|AB 30: I|
|00002600| 4e 56 45 52 53 45 20 3a | 20 50 52 49 4e 54 20 4c |NVERSE :| PRINT L|
|00002610| 4e 47 28 59 29 3b 3a 20 | 4e 4f 52 4d 41 4c 20 3a |NG(Y);: |NORMAL :|
|00002620| 20 48 54 41 42 20 31 3a | 20 49 4e 50 55 54 20 22 | HTAB 1:| INPUT "|
|00002630| 4c 4f 4e 47 54 49 54 55 | 44 45 20 57 45 53 54 3a |LONGTITU|DE WEST:|
|00002640| 20 22 3b 59 24 0a 32 30 | 35 30 20 20 49 46 20 59 | ";Y$.20|50  IF Y|
|00002650| 24 20 3d 20 22 22 20 20 | 54 48 45 4e 20 32 30 37 |$ = ""  |THEN 207|
|00002660| 30 0a 32 30 36 30 20 4c | 4e 47 28 59 29 20 3d 20 |0.2060 L|NG(Y) = |
|00002670| 20 56 41 4c 28 59 24 29 | 0a 32 30 37 30 20 20 49 | VAL(Y$)|.2070  I|
|00002680| 46 20 20 20 4e 4f 54 20 | 28 28 4c 54 44 28 59 29 |F   NOT |((LTD(Y)|
|00002690| 20 3d 20 20 3e 31 30 20 | 20 41 4e 44 20 4c 54 44 | =  >10 | AND LTD|
|000026a0| 28 59 29 20 3c 20 3d 20 | 33 36 2e 39 29 20 20 41 |(Y) < = |36.9)  A|
|000026b0| 4e 44 20 28 4c 4e 47 28 | 59 29 20 3e 20 3d 20 35 |ND (LNG(|Y) > = 5|
|000026c0| 39 2e 31 20 20 41 4e 44 | 20 4c 4e 47 28 59 29 20 |9.1  AND| LNG(Y) |
|000026d0| 3c 20 3d 20 39 39 29 29 | 20 20 54 48 45 4e 20 20 |< = 99))|  THEN  |
|000026e0| 47 4f 53 55 42 20 31 34 | 30 30 3a 20 47 4f 54 4f |GOSUB 14|00: GOTO|
|000026f0| 20 32 30 31 30 0a 32 30 | 38 30 20 20 47 4f 54 4f | 2010.20|80  GOTO|
|00002700| 20 31 39 38 30 0a 32 30 | 39 30 20 20 50 52 49 4e | 1980.20|90  PRIN|
|00002710| 54 20 22 41 47 41 49 4e | 3f 28 59 2f 4e 29 20 22 |T "AGAIN|?(Y/N) "|
|00002720| 3b 3a 20 47 45 54 20 59 | 24 3a 20 50 52 49 4e 54 |;: GET Y|$: PRINT|
|00002730| 20 0a 32 31 30 30 20 20 | 49 46 20 59 24 20 3d 20 | .2100  |IF Y$ = |
|00002740| 22 59 22 20 20 54 48 45 | 4e 20 20 56 54 41 42 20 |"Y"  THE|N  VTAB |
|00002750| 32 34 3a 20 43 41 4c 4c | 20 20 2d 38 36 38 3a 20 |24: CALL|  -868: |
|00002760| 47 4f 54 4f 20 31 38 37 | 30 0a 32 31 31 30 20 20 |GOTO 187|0.2110  |
|00002770| 50 4f 4b 45 20 33 34 2c | 30 3a 20 50 4f 4b 45 20 |POKE 34,|0: POKE |
|00002780| 33 35 2c 32 34 3a 20 48 | 4f 4d 45 20 3a 20 52 45 |35,24: H|OME : RE|
|00002790| 54 55 52 4e 20 0a 32 31 | 32 30 20 20 52 45 4d 20 |TURN .21|20  REM |
|000027a0| 20 20 20 2a 2a 2a 2a 53 | 41 56 45 20 50 49 43 54 |   ****S|AVE PICT|
|000027b0| 55 52 45 2a 2a 2a 2a 0a | 32 31 33 30 20 20 48 4f |URE****.|2130  HO|
|000027c0| 4d 45 20 3a 20 56 54 41 | 42 20 31 36 3a 20 48 54 |ME : VTA|B 16: HT|
|000027d0| 41 42 20 35 3a 20 49 4e | 50 55 54 20 22 4e 41 4d |AB 5: IN|PUT "NAM|
|000027e0| 45 20 4f 46 20 46 49 4c | 45 3a 20 22 3b 48 55 24 |E OF FIL|E: ";HU$|
|000027f0| 0a 32 31 34 30 20 20 48 | 4f 4d 45 20 3a 20 56 54 |.2140  H|OME : VT|
|00002800| 41 42 20 31 36 3a 20 48 | 54 41 42 20 35 3a 20 50 |AB 16: H|TAB 5: P|
|00002810| 52 49 4e 54 20 22 4e 4f | 57 20 53 41 56 49 4e 47 |RINT "NO|W SAVING|
|00002820| 20 46 49 4c 45 20 22 3b | 48 55 24 0a 32 31 35 30 | FILE ";|HU$.2150|
|00002830| 20 44 58 20 3d 20 33 3a | 20 50 52 49 4e 54 20 44 | DX = 3:| PRINT D|
|00002840| 24 22 42 53 41 56 45 22 | 3b 48 55 24 3b 22 2c 41 |$"BSAVE"|;HU$;",A|
|00002850| 24 32 30 30 30 2c 4c 24 | 32 30 30 30 22 0a 32 31 |$2000,L$|2000".21|
|00002860| 36 30 20 20 47 4f 54 4f | 20 31 34 35 30 0a 32 31 |60  GOTO| 1450.21|
|00002870| 37 30 20 20 52 45 4d 20 | 20 20 20 4e 41 4d 45 20 |70  REM |   NAME |
|00002880| 41 4e 44 20 44 41 54 45 | 20 53 45 43 54 49 4f 4e |AND DATE| SECTION|
|00002890| 20 0a 32 31 38 30 20 20 | 50 4f 4b 45 20 32 33 32 | .2180  |POKE 232|
|000028a0| 2c 30 3a 20 50 4f 4b 45 | 20 32 33 33 2c 39 3a 20 |,0: POKE| 233,9: |
|000028b0| 50 4f 4b 45 20 32 33 30 | 2c 36 34 3a 20 52 4f 54 |POKE 230|,64: ROT|
|000028c0| 3d 20 30 0a 32 31 39 30 | 20 4c 48 20 3d 20 20 4c |= 0.2190| LH =  L|
|000028d0| 45 4e 28 4e 41 4d 45 24 | 29 3a 4c 44 20 3d 20 20 |EN(NAME$|):LD =  |
|000028e0| 4c 45 4e 28 44 41 24 29 | 3a 58 20 3d 20 35 3a 59 |LEN(DA$)|:X = 5:Y|
|000028f0| 20 3d 20 31 37 30 3a 4c | 45 20 3d 20 4c 48 3a 59 | = 170:L|E = LH:Y|
|00002900| 24 20 3d 20 4e 41 4d 45 | 24 0a 32 32 30 30 20 20 |$ = NAME|$.2200  |
|00002910| 48 43 4f 4c 4f 52 3d 20 | 30 3a 49 20 3d 20 4c 48 |HCOLOR= |0:I = LH|
|00002920| 20 2a 37 3a 20 49 46 20 | 4c 44 20 3e 4c 48 20 20 | *7: IF |LD >LH  |
|00002930| 54 48 45 4e 20 49 20 3d | 20 4c 44 20 2a 37 0a 32 |THEN I =| LD *7.2|
|00002940| 32 31 30 20 20 46 4f 52 | 20 4a 20 3d 20 31 20 54 |210  FOR| J = 1 T|
|00002950| 4f 20 32 32 3a 20 48 50 | 4c 4f 54 20 31 2c 31 36 |O 22: HP|LOT 1,16|
|00002960| 35 20 2b 4a 20 54 4f 20 | 49 20 2b 33 2c 31 36 35 |5 +J TO |I +3,165|
|00002970| 20 2b 4a 3a 20 4e 45 58 | 54 20 4a 3a 20 48 43 4f | +J: NEX|T J: HCO|
|00002980| 4c 4f 52 3d 20 33 0a 32 | 32 32 30 20 20 48 50 4c |LOR= 3.2|220  HPL|
|00002990| 4f 54 20 31 2c 31 36 35 | 20 54 4f 20 49 20 2b 33 |OT 1,165| TO I +3|
|000029a0| 2c 31 36 35 20 54 4f 20 | 49 20 2b 33 2c 31 38 38 |,165 TO |I +3,188|
|000029b0| 0a 32 32 33 30 20 20 46 | 4f 52 20 4b 20 3d 20 31 |.2230  F|OR K = 1|
|000029c0| 20 54 4f 20 32 0a 32 32 | 34 30 20 20 46 4f 52 20 | TO 2.22|40  FOR |
|000029d0| 4a 20 3d 20 31 20 54 4f | 20 4c 45 0a 32 32 35 30 |J = 1 TO| LE.2250|
|000029e0| 20 4c 20 3d 20 20 41 53 | 43 28 20 4d 49 44 24 20 | L =  AS|C( MID$ |
|000029f0| 28 59 24 2c 4a 2c 31 29 | 29 0a 32 32 36 30 20 20 |(Y$,J,1)|).2260  |
|00002a00| 49 46 20 4c 20 3e 20 3d | 20 36 35 20 20 41 4e 44 |IF L > =| 65  AND|
|00002a10| 20 4c 20 3c 20 3d 20 39 | 30 20 20 54 48 45 4e 20 | L < = 9|0  THEN |
|00002a20| 20 44 52 41 57 20 4c 20 | 2d 36 34 20 41 54 20 58 | DRAW L |-64 AT X|
|00002a30| 2c 59 0a 32 32 37 30 20 | 20 49 46 20 4c 20 3e 20 |,Y.2270 | IF L > |
|00002a40| 3d 20 34 34 20 20 41 4e | 44 20 4c 20 3c 20 3d 20 |= 44  AN|D L < = |
|00002a50| 35 37 20 20 54 48 45 4e | 20 20 44 52 41 57 20 4c |57  THEN|  DRAW L|
|00002a60| 20 2d 31 37 20 41 54 20 | 58 2c 59 0a 32 32 38 30 | -17 AT |X,Y.2280|
|00002a70| 20 58 20 3d 20 58 20 2b | 37 0a 32 32 39 30 20 20 | X = X +|7.2290  |
|00002a80| 4e 45 58 54 20 4a 0a 32 | 33 30 30 20 4c 45 20 3d |NEXT J.2|300 LE =|
|00002a90| 20 4c 44 3a 59 24 20 3d | 20 44 41 24 3a 59 20 3d | LD:Y$ =| DA$:Y =|
|00002aa0| 20 31 38 30 3a 58 20 3d | 20 35 0a 32 33 31 30 20 | 180:X =| 5.2310 |
|00002ab0| 20 4e 45 58 54 20 4b 0a | 32 33 32 30 20 20 43 41 | NEXT K.|2320  CA|
|00002ac0| 4c 4c 20 37 36 38 3a 20 | 50 4f 4b 45 20 32 33 32 |LL 768: |POKE 232|
|00002ad0| 2c 30 3a 20 50 4f 4b 45 | 20 32 33 33 2c 31 36 3a |,0: POKE| 233,16:|
|00002ae0| 20 50 4f 4b 45 20 32 33 | 30 2c 33 32 0a 32 33 33 | POKE 23|0,32.233|
|00002af0| 30 20 20 52 45 54 55 52 | 4e 20 0a 32 33 34 30 20 |0  RETUR|N .2340 |
|00002b00| 20 52 45 4d 20 20 20 2a | 2a 2a 2a 47 52 49 44 20 | REM   *|***GRID |
|00002b10| 4f 56 45 52 4c 41 59 20 | 53 45 43 54 49 4f 4e 2a |OVERLAY |SECTION*|
|00002b20| 2a 2a 2a 0a 32 33 35 30 | 20 20 50 4f 4b 45 20 32 |***.2350|  POKE 2|
|00002b30| 33 30 2c 36 34 0a 32 33 | 36 30 20 20 46 4f 52 20 |30,64.23|60  FOR |
|00002b40| 4a 20 3d 20 31 33 20 54 | 4f 20 31 35 33 20 20 53 |J = 13 T|O 153  S|
|00002b50| 54 45 50 20 33 35 0a 32 | 33 37 30 20 20 46 4f 52 |TEP 35.2|370  FOR|
|00002b60| 20 49 20 3d 20 32 37 20 | 54 4f 20 32 37 32 20 20 | I = 27 |TO 272  |
|00002b70| 53 54 45 50 20 33 35 0a | 32 33 38 30 20 20 44 52 |STEP 35.|2380  DR|
|00002b80| 41 57 20 35 20 41 54 20 | 49 2c 4a 0a 32 33 39 30 |AW 5 AT |I,J.2390|
|00002b90| 20 20 4e 45 58 54 20 49 | 0a 32 34 30 30 20 20 4e |  NEXT I|.2400  N|
|00002ba0| 45 58 54 20 4a 0a 32 34 | 31 30 20 20 50 4f 4b 45 |EXT J.24|10  POKE|
|00002bb0| 20 32 33 32 2c 30 3a 20 | 50 4f 4b 45 20 32 33 33 | 232,0: |POKE 233|
|00002bc0| 2c 39 3a 20 52 4f 54 3d | 20 30 0a 32 34 32 30 20 |,9: ROT=| 0.2420 |
|00002bd0| 20 44 52 41 57 20 33 39 | 20 41 54 20 39 30 2c 35 | DRAW 39| AT 90,5|
|00002be0| 3a 20 44 52 41 57 20 33 | 36 20 41 54 20 39 37 2c |: DRAW 3|6 AT 97,|
|00002bf0| 35 3a 20 44 52 41 57 20 | 32 33 20 41 54 20 31 30 |5: DRAW |23 AT 10|
|00002c00| 34 2c 35 3a 20 44 52 41 | 57 20 33 38 20 41 54 20 |4,5: DRA|W 38 AT |
|00002c10| 31 39 35 2c 35 3a 20 44 | 52 41 57 20 33 31 20 41 |195,5: D|RAW 31 A|
|00002c20| 54 20 32 30 32 2c 35 3a | 20 44 52 41 57 20 32 33 |T 202,5:| DRAW 23|
|00002c30| 20 41 54 20 32 30 39 2c | 35 3a 20 44 52 41 57 20 | AT 209,|5: DRAW |
|00002c40| 33 37 20 41 54 20 32 36 | 30 2c 35 3a 20 44 52 41 |37 AT 26|0,5: DRA|
|00002c50| 57 20 33 31 20 41 54 20 | 32 36 37 2c 35 3a 20 44 |W 31 AT |267,5: D|
|00002c60| 52 41 57 20 32 33 20 41 | 54 20 32 37 34 2c 35 0a |RAW 23 A|T 274,5.|
|00002c70| 32 34 33 30 20 20 44 52 | 41 57 20 33 34 20 41 54 |2430  DR|AW 34 AT|
|00002c80| 20 34 2c 34 38 3a 20 44 | 52 41 57 20 33 31 20 41 | 4,48: D|RAW 31 A|
|00002c90| 54 20 31 31 2c 34 38 3a | 20 44 52 41 57 20 31 34 |T 11,48:| DRAW 14|
|00002ca0| 20 41 54 20 31 38 2c 34 | 38 3a 20 44 52 41 57 20 | AT 18,4|8: DRAW |
|00002cb0| 33 33 20 41 54 20 34 2c | 31 31 37 3a 20 44 52 41 |33 AT 4,|117: DRA|
|00002cc0| 57 20 33 31 20 41 54 20 | 31 31 2c 31 31 37 3a 20 |W 31 AT |11,117: |
|00002cd0| 44 52 41 57 20 31 34 20 | 41 54 20 31 38 2c 31 31 |DRAW 14 |AT 18,11|
|00002ce0| 37 3a 20 50 4f 4b 45 20 | 32 33 33 2c 31 36 0a 32 |7: POKE |233,16.2|
|00002cf0| 34 34 30 20 20 43 41 4c | 4c 20 37 36 38 3a 20 50 |440  CAL|L 768: P|
|00002d00| 4f 4b 45 20 32 33 30 2c | 33 32 3a 20 47 4f 54 4f |OKE 230,|32: GOTO|
|00002d10| 20 31 34 36 30 0a 32 34 | 35 30 20 20 52 45 4d 20 | 1460.24|50  REM |
|00002d20| 2a 2a 2a 2a 48 55 52 52 | 49 43 41 4e 45 20 44 41 |****HURR|ICANE DA|
|00002d30| 54 41 20 53 41 56 45 2a | 2a 2a 2a 20 0a 32 34 36 |TA SAVE*|*** .246|
|00002d40| 30 20 20 50 52 49 4e 54 | 20 44 24 3b 22 4f 50 45 |0  PRINT| D$;"OPE|
|00002d50| 4e 20 48 2e 22 3b 48 55 | 24 0a 32 34 37 30 20 20 |N H.";HU|$.2470  |
|00002d60| 50 52 49 4e 54 20 44 24 | 3b 22 57 52 49 54 45 20 |PRINT D$|;"WRITE |
|00002d70| 48 2e 22 3b 48 55 24 0a | 32 34 38 30 20 20 50 52 |H.";HU$.|2480  PR|
|00002d80| 49 4e 54 20 48 55 24 0a | 32 34 39 30 20 20 50 52 |INT HU$.|2490  PR|
|00002d90| 49 4e 54 20 44 41 24 0a | 32 35 30 30 20 20 46 4f |INT DA$.|2500  FO|
|00002da0| 52 20 49 20 3d 20 31 20 | 54 4f 20 46 0a 32 35 31 |R I = 1 |TO F.251|
|00002db0| 30 20 20 49 46 20 4c 54 | 44 28 49 29 20 3d 20 30 |0  IF LT|D(I) = 0|
|00002dc0| 20 20 4f 52 20 4c 4e 47 | 28 49 29 20 3d 20 30 20 |  OR LNG|(I) = 0 |
|00002dd0| 47 4f 54 4f 20 32 35 34 | 30 0a 32 35 32 30 20 20 |GOTO 254|0.2520  |
|00002de0| 50 52 49 4e 54 20 4c 54 | 44 28 49 29 0a 32 35 33 |PRINT LT|D(I).253|
|00002df0| 30 20 20 50 52 49 4e 54 | 20 4c 4e 47 28 49 29 0a |0  PRINT| LNG(I).|
|00002e00| 32 35 34 30 20 20 4e 45 | 58 54 20 49 0a 32 35 35 |2540  NE|XT I.255|
|00002e10| 30 20 20 50 52 49 4e 54 | 20 44 24 3b 22 43 4c 4f |0  PRINT| D$;"CLO|
|00002e20| 53 45 20 48 2e 22 3b 48 | 55 24 0a 32 35 36 30 20 |SE H.";H|U$.2560 |
|00002e30| 45 44 20 3d 20 30 3a 20 | 47 4f 54 4f 20 31 34 35 |ED = 0: |GOTO 145|
|00002e40| 30 0a 32 35 37 30 20 20 | 52 45 4d 20 20 2a 2a 2a |0.2570  |REM  ***|
|00002e50| 2a 46 4f 52 4d 41 54 54 | 49 4e 47 20 49 4e 54 45 |*FORMATT|ING INTE|
|00002e60| 47 45 52 53 2a 2a 2a 2a | 0a 32 35 38 30 20 59 24 |GERS****|.2580 Y$|
|00002e70| 20 3d 20 20 53 54 52 24 | 28 59 29 0a 32 35 39 30 | =  STR$|(Y).2590|
|00002e80| 20 20 49 46 20 20 4c 45 | 4e 28 59 24 29 20 3d 20 |  IF  LE|N(Y$) = |
|00002e90| 31 20 20 54 48 45 4e 20 | 59 24 20 3d 20 22 20 22 |1  THEN |Y$ = " "|
|00002ea0| 20 2b 59 24 0a 32 36 30 | 30 20 20 52 45 54 55 52 | +Y$.260|0  RETUR|
|00002eb0| 4e 20 0a 32 36 31 30 20 | 20 52 45 4d 20 20 2a 2a |N .2610 | REM  **|
|00002ec0| 2a 2a 46 4f 52 4d 41 54 | 54 49 4e 47 20 52 45 41 |**FORMAT|TING REA|
|00002ed0| 4c 20 4e 55 4d 42 45 52 | 53 2a 2a 2a 2a 0a 32 36 |L NUMBER|S****.26|
|00002ee0| 32 30 20 59 20 3d 20 59 | 20 2a 31 30 0a 32 36 33 |20 Y = Y| *10.263|
|00002ef0| 30 20 59 24 20 3d 20 20 | 53 54 52 24 28 59 29 0a |0 Y$ =  |STR$(Y).|
|00002f00| 32 36 34 30 20 59 24 20 | 3d 20 20 4c 45 46 54 24 |2640 Y$ |=  LEFT$|
|00002f10| 28 59 24 2c 32 29 20 2b | 22 2e 22 20 2b 20 52 49 |(Y$,2) +|"." + RI|
|00002f20| 47 48 54 24 28 59 24 2c | 31 29 0a 32 36 35 30 20 |GHT$(Y$,|1).2650 |
|00002f30| 20 52 45 54 55 52 4e 20 | 0a 32 36 36 30 20 45 45 | RETURN |.2660 EE|
|00002f40| 20 3d 20 20 50 45 45 4b | 28 32 32 32 29 3a 45 4c | =  PEEK|(222):EL|
|00002f50| 20 3d 20 20 50 45 45 4b | 28 32 31 38 29 20 2b 32 | =  PEEK|(218) +2|
|00002f60| 35 36 20 2a 20 50 45 45 | 4b 28 32 31 39 29 3a 20 |56 * PEE|K(219): |
|00002f70| 43 41 4c 4c 20 20 2d 33 | 32 38 38 3a 20 49 46 20 |CALL  -3|288: IF |
|00002f80| 45 45 20 3d 20 35 20 20 | 54 48 45 4e 20 31 30 36 |EE = 5  |THEN 106|
|00002f90| 30 0a 32 36 37 30 20 20 | 49 46 20 45 45 20 3d 20 |0.2670  |IF EE = |
|00002fa0| 32 35 35 20 20 54 48 45 | 4e 20 20 54 45 58 54 20 |255  THE|N  TEXT |
|00002fb0| 3a 20 47 4f 53 55 42 20 | 31 37 30 30 3a 20 47 4f |: GOSUB |1700: GO|
|00002fc0| 54 4f 20 31 34 35 30 0a | 32 36 38 30 20 20 49 46 |TO 1450.|2680  IF|
|00002fd0| 20 45 45 20 3d 20 36 20 | 20 4f 52 20 28 45 45 20 | EE = 6 | OR (EE |
|00002fe0| 3d 20 31 36 20 20 41 4e | 44 20 44 58 20 3d 20 32 |= 16  AN|D DX = 2|
|00002ff0| 29 20 20 54 48 45 4e 20 | 20 48 4f 4d 45 20 3a 20 |)  THEN | HOME : |
|00003000| 56 54 41 42 20 31 32 3a | 20 50 52 49 4e 54 20 20 |VTAB 12:| PRINT  |
|00003010| 43 48 52 24 28 37 29 3b | 22 46 49 4c 45 20 48 2e |CHR$(7);|"FILE H.|
|00003020| 22 48 55 24 22 20 44 4f | 45 53 20 4e 4f 54 20 45 |"HU$" DO|ES NOT E|
|00003030| 58 49 53 54 22 3a 20 47 | 4f 53 55 42 20 36 37 30 |XIST": G|OSUB 670|
|00003040| 3a 48 55 24 20 3d 20 22 | 22 3a 20 47 4f 54 4f 20 |:HU$ = "|": GOTO |
|00003050| 37 38 30 0a 32 36 39 30 | 20 20 54 45 58 54 20 3a |780.2690|  TEXT :|
|00003060| 20 50 52 49 4e 54 20 20 | 43 48 52 24 28 37 29 3b | PRINT  |CHR$(7);|
|00003070| 22 45 52 52 4f 52 20 23 | 20 22 3b 45 45 3b 22 20 |"ERROR #| ";EE;" |
|00003080| 41 54 20 53 54 41 54 45 | 4d 45 4e 54 20 23 20 22 |AT STATE|MENT # "|
|00003090| 3b 45 4c 3b 3a 20 43 41 | 4c 4c 20 20 2d 38 36 38 |;EL;: CA|LL  -868|
|000030a0| 3a 20 47 4f 53 55 42 20 | 36 37 30 3a 20 4f 4e 20 |: GOSUB |670: ON |
|000030b0| 44 58 20 3d 20 33 20 47 | 4f 54 4f 20 31 34 36 30 |DX = 3 G|OTO 1460|
|000030c0| 3a 20 47 4f 54 4f 20 37 | 38 30 0a 32 37 30 30 20 |: GOTO 7|80.2700 |
|000030d0| 20 44 41 54 41 20 31 36 | 39 2c 30 2c 31 33 33 2c | DATA 16|9,0,133,|
|000030e0| 32 35 2c 31 33 33 2c 32 | 37 2c 31 36 39 2c 33 32 |25,133,2|7,169,32|
|000030f0| 2c 31 33 33 2c 32 36 2c | 31 36 39 2c 36 34 2c 31 |,133,26,|169,64,1|
|00003100| 33 33 2c 32 38 2c 31 36 | 30 2c 30 2c 31 37 37 2c |33,28,16|0,0,177,|
|00003110| 32 37 2c 31 34 35 2c 32 | 35 2c 32 30 30 2c 32 30 |27,145,2|5,200,20|
|00003120| 38 2c 32 34 39 2c 32 33 | 30 2c 32 36 2c 32 33 30 |8,249,23|0,26,230|
|00003130| 2c 32 38 2c 31 36 39 2c | 36 34 2c 31 39 37 2c 32 |,28,169,|64,197,2|
|00003140| 36 2c 32 30 38 2c 32 33 | 39 2c 39 36             |6,208,23|9,96    |
+--------+-------------------------+-------------------------+--------+--------+