/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / fortran77_210 / tcircles

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1b f4 20 3e 54 | 43 49 52 43 4c 45 53 20 |..... >T|CIRCLES |
|00000010| 20 20 31 36 20 4e 6f 76 | 20 39 31 0d 00 14 44 f4 |  16 Nov| 91...D.|
|00000020| 20 4b 2e 4d 2e 43 52 45 | 4e 4e 45 4c 4c 20 20 20 | K.M.CRE|NNELL   |
|00000030| 20 20 20 20 20 20 20 74 | 65 73 74 20 70 72 6f 67 |       t|est prog|
|00000040| 72 61 6d 20 66 6f 72 20 | 63 6f 6e 76 65 72 74 69 |ram for |converti|
|00000050| 6e 67 20 42 41 53 49 43 | 20 74 6f 20 46 37 37 0d |ng BASIC| to F77.|
|00000060| 00 1e 0e de 20 43 4f 4c | 53 25 28 32 29 0d 00 1f |.... COL|S%(2)...|
|00000070| 8d f4 20 73 74 6f 72 61 | 67 65 20 66 6f 72 20 6e |.. stora|ge for n|
|00000080| 75 6d 62 65 72 20 6f 66 | 20 63 6f 6c 6f 75 72 73 |umber of| colours|
|00000090| 2c 20 63 61 6e 6e 6f 74 | 20 62 65 20 64 6f 6e 65 |, cannot| be done|
|000000a0| 20 69 6e 20 50 52 4f 43 | 20 47 65 74 63 6f 6c 73 | in PROC| Getcols|
|000000b0| 20 62 65 63 61 75 73 65 | 20 42 41 53 49 43 20 64 | because| BASIC d|
|000000c0| 6f 65 73 20 6e 6f 74 20 | 61 6c 6c 6f 77 20 61 20 |oes not |allow a |
|000000d0| 76 61 72 69 61 62 6c 65 | 20 74 6f 20 62 65 20 64 |variable| to be d|
|000000e0| 69 6d 65 6e 73 69 6f 6e | 65 64 20 6d 6f 72 65 20 |imension|ed more |
|000000f0| 74 68 61 6e 20 6f 6e 63 | 65 2e 0d 00 32 08 4d 25 |than onc|e...2.M%|
|00000100| 3d 30 0d 00 3c 11 f4 20 | 20 4d 25 20 69 73 20 4d |=0..<.. | M% is M|
|00000110| 4f 44 45 0d 00 46 09 20 | eb 20 4d 25 0d 00 50 0b |ODE..F. |. M%..P.|
|00000120| f2 47 65 74 63 6c 73 0d | 00 5a 2d f1 20 8a 30 2c |.Getcls.|.Z-. .0,|
|00000130| 30 29 20 22 20 4d 6f 64 | 65 20 22 3b 4d 25 3b 22 |0) " Mod|e ";M%;"|
|00000140| 20 68 61 73 20 22 3b 43 | 25 3b 22 20 63 6f 6c 6f | has ";C|%;" colo|
|00000150| 75 72 73 22 0d 00 64 1a | 48 25 3d 31 30 32 30 3a |urs"..d.|H%=1020:|
|00000160| 4d 61 72 67 25 3d 33 32 | 3a 44 25 3d 33 32 0d 00 |Marg%=32|:D%=32..|
|00000170| 6e 52 f4 20 73 65 74 20 | 74 68 65 20 72 61 64 69 |nR. set |the radi|
|00000180| 75 73 20 64 65 70 65 6e | 64 69 6e 67 20 6f 6e 20 |us depen|ding on |
|00000190| 6e 6f 20 6f 66 20 63 6f | 6c 6f 75 72 73 20 43 25 |no of co|lours C%|
|000001a0| 2c 20 44 25 20 69 73 20 | 64 69 73 74 61 6e 63 65 |, D% is |distance|
|000001b0| 20 62 65 74 77 65 65 6e | 20 63 69 72 63 6c 65 73 | between| circles|
|000001c0| 0d 00 78 24 52 25 3d 30 | 2e 35 2a 28 48 25 2d 32 |..x$R%=0|.5*(H%-2|
|000001d0| 2a 4d 61 72 67 25 2d 44 | 25 2a 28 43 25 2d 31 29 |*Marg%-D|%*(C%-1)|
|000001e0| 29 2f 43 25 0d 00 82 20 | 58 25 3d 4d 61 72 67 25 |)/C%... |X%=Marg%|
|000001f0| 3a 59 25 3d 48 25 2f 32 | 3a 44 58 25 3d 32 2a 52 |:Y%=H%/2|:DX%=2*R|
|00000200| 25 2b 44 25 0d 00 8c 13 | e3 20 4e 25 3d 31 20 b8 |%+D%....|. N%=1 .|
|00000210| 20 43 25 20 88 20 31 0d | 00 96 3c e6 30 2c 4e 25 | C% . 1.|..<.0,N%|
|00000220| 3a f4 20 20 20 73 65 74 | 20 74 68 65 20 63 6f 6c |:.   set| the col|
|00000230| 6f 75 72 20 69 67 6e 6f | 72 65 20 7a 65 72 6f 20 |our igno|re zero |
|00000240| 62 65 63 61 75 73 65 20 | 69 74 20 69 73 20 62 6c |because |it is bl|
|00000250| 61 63 6b 0d 00 a0 58 f4 | 20 4d 4f 56 45 20 58 25 |ack...X.| MOVE X%|
|00000260| 2b 52 25 2c 59 25 3a 50 | 4c 4f 54 31 35 33 2c 52 |+R%,Y%:P|LOT153,R|
|00000270| 25 2c 30 20 20 20 74 68 | 65 73 65 20 61 72 65 20 |%,0   th|ese are |
|00000280| 63 61 6c 6c 73 20 66 6f | 72 20 64 72 61 77 69 6e |calls fo|r drawin|
|00000290| 67 20 63 69 72 63 6c 65 | 73 20 6f 6e 20 74 68 65 |g circle|s on the|
|000002a0| 20 42 42 43 20 4d 61 73 | 74 65 72 0d 00 aa 14 c8 | BBC Mas|ter.....|
|000002b0| 8f c8 90 20 58 25 2b 52 | 25 2c 59 25 2c 52 25 0d |... X%+R|%,Y%,R%.|
|000002c0| 00 b4 0d 58 25 3d 58 25 | 2b 44 58 25 0d 00 be 05 |...X%=X%|+DX%....|
|000002d0| ed 0d 00 c8 0e 4d 25 3d | a4 47 65 74 4d 6f 64 0d |.....M%=|.GetMod.|
|000002e0| 00 d2 05 db 0d 00 dc 13 | e7 20 4d 25 3e 3d 20 30 |........|. M%>= 0|
|000002f0| 20 e5 20 8d 44 46 40 0d | 00 e6 05 e0 0d 00 f0 05 | . .DF@.|........|
|00000300| 3a 0d 00 fa 0c dd f2 47 | 65 74 63 6c 73 0d 01 04 |:......G|etcls...|
|00000310| 33 f4 20 66 69 6e 64 20 | 6f 75 74 20 74 68 65 20 |3. find |out the |
|00000320| 6e 75 6d 62 65 72 20 6f | 66 20 63 6f 6c 6f 75 72 |number o|f colour|
|00000330| 73 20 4b 25 20 66 6f 72 | 20 4d 6f 64 65 20 4d 25 |s K% for| Mode M%|
|00000340| 0d 01 0e 08 4b 25 3d 32 | 0d 01 18 0e 43 4f 4c 53 |....K%=2|....COLS|
|00000350| 25 28 30 29 3d 31 0d 01 | 22 0e 43 4f 4c 53 25 28 |%(0)=1..|".COLS%(|
|00000360| 31 29 3d 33 0d 01 2c 43 | 43 4f 4c 53 25 28 32 29 |1)=3..,C|COLS%(2)|
|00000370| 3d 37 3a f4 20 73 68 6f | 75 6c 64 20 62 65 20 31 |=7:. sho|uld be 1|
|00000380| 36 20 62 75 74 20 38 20 | 61 72 65 20 66 6c 61 73 |6 but 8 |are flas|
|00000390| 68 69 6e 67 20 61 6e 64 | 20 30 20 6e 6f 74 20 69 |hing and| 0 not i|
|000003a0| 6e 63 6c 75 64 65 64 0d | 01 36 28 e7 20 4d 25 3c |ncluded.|.6(. M%<|
|000003b0| 30 20 84 20 4d 25 3e 32 | 20 8c 20 43 25 3d 2d 31 |0 . M%>2| . C%=-1|
|000003c0| 20 8b 20 43 25 3d 43 4f | 4c 53 25 28 4d 25 29 0d | . C%=CO|LS%(M%).|
|000003d0| 01 40 05 e1 0d 01 4a 05 | 3a 0d 01 54 0c dd a4 47 |.@....J.|:..T...G|
|000003e0| 65 74 4d 6f 64 0d 01 5e | 26 f4 20 66 75 6e 63 74 |etMod..^|&. funct|
|000003f0| 69 6f 6e 20 74 6f 20 61 | 73 6b 20 66 6f 72 20 61 |ion to a|sk for a|
|00000400| 6e 6f 74 68 65 72 20 4d | 4f 44 45 0d 01 68 32 f1 |nother M|ODE..h2.|
|00000410| 22 20 45 6e 74 65 72 20 | 6e 65 78 74 20 4d 6f 64 |" Enter |next Mod|
|00000420| 65 2e 20 20 30 3d 3c 20 | 4d 6f 64 65 20 3c 33 20 |e.  0=< |Mode <3 |
|00000430| 6f 72 20 2d 20 74 6f 20 | 73 74 6f 70 22 0d 01 72 |or - to |stop"..r|
|00000440| 29 f4 20 20 20 61 63 63 | 65 70 74 20 6f 6e 6c 79 |).   acc|ept only|
|00000450| 20 65 78 70 65 63 74 65 | 64 20 6e 75 6d 62 65 72 | expecte|d number|
|00000460| 73 20 6f 72 20 2d 0d 01 | 7c 1f 41 24 3d be 3a 20 |s or -..||.A$=.: |
|00000470| e7 20 a7 22 2d 30 31 32 | 22 2c 41 24 29 3d 30 20 |. ."-012|",A$)=0 |
|00000480| e5 8d 44 7c 41 0d 01 86 | 0d 3d 97 28 41 24 29 2d |..D|A...|.=.(A$)-|
|00000490| 34 38 0d ff             |                         |48..    |        |
+--------+-------------------------+-------------------------+--------+--------+