RECTAN
FILE INFORMATION
FILENAME(S): RECTAN
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 16:59:31
APPEARS ON: 1 disk(s)
FILE HASH
c349d4c5a43ed3503ae6dda4a3ba67512917f31cb598c65cc01f72759b6916c9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MAC64 FLOPPY | RECTAN | PRG | High Voltage Complete C64 Collection | 1 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: B6 05 D3 06 B8 07 00 0A 16 00 20 20 53 41 56 45 |.......... SAVE|
00000010: 20 22 40 30 3A 52 45 43 54 41 4E 22 00 14 04 00 | "@0:RECTAN"....|
00000020: 00 64 0B FF 20 02 00 01 47 FF 21 00 6E 0B FF 46 |.d.. ...G.!.n..F|
00000030: 02 00 01 47 FF 47 00 78 0B FF 1E 02 00 00 47 FF |...G.G.x......G.|
00000040: 1F 00 82 0B 5F 02 00 93 4B 65 60 61 00 8C 2C 5F |...._...Ke`a..,_|
00000050: 03 23 1C 20 20 20 12 2A 20 54 48 52 45 45 2D 44 |.#. .* THREE-D|
00000060: 49 4D 45 4E 53 49 4F 4E 41 4C 20 53 55 52 46 41 |IMENSIONAL SURFA|
00000070: 43 45 53 20 2A 65 60 61 00 96 2B 5F 03 22 20 20 |CES *e`a..+_." |
00000080: 20 12 2A 20 49 4E 20 52 45 43 54 41 4E 47 55 4C | .* IN RECTANGUL|
00000090: 41 52 20 43 4F 4F 52 44 49 4E 41 54 45 53 20 2A |AR COORDINATES *|
000000A0: 65 60 61 00 9B 2D 5F 03 24 1F 20 20 20 12 2A 20 |e`a..-_.$. .* |
000000B0: 4D 41 4B 45 53 20 41 20 42 45 41 55 54 49 46 55 |MAKES A BEAUTIFU|
000000C0: 4C 20 50 49 43 54 55 52 45 20 20 2A 90 65 60 61 |L PICTURE *.e`a|
000000D0: 00 A0 06 5F 60 61 00 AA 2E 5F 03 25 20 42 55 54 |..._`a..._.% BUT|
000000E0: 20 49 54 20 54 41 4B 45 53 20 41 20 4C 4F 4F 4F | IT TAKES A LOOO|
000000F0: 4F 4F 4F 4E 47 20 54 49 4D 45 2E 2E 2E 2E 2E 2E |OOONG TIME......|
00000100: 2E 65 60 61 00 B4 2E 5F 03 25 20 3F 3F 3F 20 43 |.e`a..._.% ??? C|
00000110: 4F 4E 56 45 52 54 45 44 20 42 59 20 4D 49 4B 45 |ONVERTED BY MIKE|
00000120: 20 57 41 47 4E 45 52 20 2D 20 54 45 58 41 53 65 | WAGNER - TEXASe|
00000130: 60 61 00 BE 06 5F 60 61 00 C8 1B 5F 03 12 20 46 |`a..._`a..._.. F|
00000140: 4F 52 20 5A 3D 58 2A 58 2F 34 2D 59 2A 59 2F 39 |OR Z=X*X/4-Y*Y/9|
00000150: 65 60 61 00 D2 23 5F 03 1A 20 54 52 59 3A 9C 20 |e`a..#_.. TRY:. |
00000160: 2D 32 2C 32 2C 2D 33 2C 33 2C 32 35 2C 32 35 2C |-2,2,-3,3,25,25,|
00000170: 34 35 90 65 60 61 00 DC 06 5F 60 61 00 E6 1E 5F |45.e`a..._`a..._|
00000180: 03 15 20 46 4F 52 20 5A 3D 31 2F 28 58 2A 58 2B |.. FOR Z=1/(X*X+|
00000190: 59 2A 59 2B 2E 35 29 65 60 61 00 F0 23 5F 03 1A |Y*Y+.5)e`a..#_..|
000001A0: 20 54 52 59 3A 9C 20 2D 31 2C 31 2C 2D 31 2C 31 | TRY:. -1,1,-1,1|
000001B0: 2C 32 30 2C 32 30 2C 34 35 90 65 60 61 00 FA 06 |,20,20,45.e`a...|
000001C0: 5F 60 61 01 04 1B B5 03 10 4C 4F 57 45 52 20 58 |_`a......LOWER X|
000001D0: 20 4C 49 4D 49 54 3A 20 9C B7 07 01 B8 BB 01 0E | LIMIT: ........|
000001E0: 1C B5 03 11 90 55 50 50 45 52 20 58 20 4C 49 4D |.....UPPER X LIM|
000001F0: 49 54 3A 20 9C B7 07 02 B8 BB 01 18 1C B5 03 11 |IT: ............|
00000200: 90 4C 4F 57 45 52 20 59 20 4C 49 4D 49 54 3A 20 |.LOWER Y LIMIT: |
00000210: 9C B7 07 03 B8 BB 01 22 1C B5 03 11 90 55 50 50 |.......".....UPP|
00000220: 45 52 20 59 20 4C 49 4D 49 54 3A 20 9C B7 07 04 |ER Y LIMIT: ....|
00000230: B8 BB 01 2C 1C B5 03 11 90 53 4C 49 43 45 53 20 |...,.....SLICES |
00000240: 49 4E 20 58 3A 20 20 20 9C B7 07 06 B8 BB 01 36 |IN X: .......6|
00000250: 1C B5 03 11 90 53 4C 49 43 45 53 20 49 4E 20 59 |.....SLICES IN Y|
00000260: 3A 20 20 20 9C B7 07 07 B8 BB 01 40 20 B5 03 15 |: .......@ ...|
00000270: 90 4F 42 53 45 52 56 41 54 49 4F 4E 20 41 4E 47 |.OBSERVATION ANG|
00000280: 4C 45 3A 20 9C B7 07 08 B8 BB 01 4A 24 5F 03 1B |LE: .......J$_..|
00000290: 1C 53 43 52 45 45 4E 20 53 43 41 4C 49 4E 47 20 |.SCREEN SCALING |
000002A0: 49 4E 20 50 52 4F 47 52 45 53 53 65 60 61 01 54 |IN PROGRESSe`a.T|
000002B0: 0F 07 08 04 08 01 7B 0E FA 35 0F 24 3A 01 5E 09 |......{..5.$:.^.|
000002C0: 07 09 04 08 4C 3A 01 68 09 07 0A 04 08 57 3A 01 |....L:.h.....W:.|
000002D0: 72 10 07 0B 04 02 04 01 29 47 02 01 3F 23 3A 01 |r.......)G..?#:.|
000002E0: 7C 14 07 0C 04 04 04 03 29 47 04 06 02 00 01 29 ||.......)G.....)|
000002F0: 47 23 3A 01 86 14 07 0D 04 02 04 01 29 47 04 07 |G#:.........)G..|
00000300: 02 00 01 29 47 23 3A 01 90 10 07 0E 04 04 04 03 |...)G#:.........|
00000310: 29 47 02 01 3F 23 3A 01 9A 0C 07 0F 01 9E 6E 6B |)G..?#:.......nk|
00000320: 27 FC 3A 01 A4 08 07 10 04 0F 3A 01 AE 09 07 11 |'.:.......:.....|
00000330: 04 0F 21 3A 01 B8 08 07 12 04 11 3A 01 C2 11 82 |..!:.......:....|
00000340: 13 B6 8C 04 03 84 04 04 85 04 0C 86 87 01 CC 11 |................|
00000350: 82 14 AF 8C 04 01 84 04 02 85 04 0B 86 87 01 D6 |................|
00000360: 06 7F 15 81 01 E0 07 8A 14 98 8C 01 EA 07 8A 13 |................|
00000370: 87 8C 01 F4 11 82 14 EC 8C 04 01 84 04 02 85 04 |................|
00000380: 0D 86 87 01 FE 11 82 13 E5 8C 04 03 84 04 04 85 |................|
00000390: 04 0E 86 87 02 08 06 7F 15 81 02 12 07 8A 13 CE |................|
000003A0: 8C 02 1C 07 8A 14 BD 8C 02 26 0A FF 16 02 00 00 |.........&......|
000003B0: FF 17 02 30 05 FF 53 02 3A 05 FF 52 02 44 0A FF |...0..S.:..R.D..|
000003C0: 1E 02 00 03 FF 1F 02 4E 10 07 25 04 11 04 0F 29 |.......N..%....)|
000003D0: 47 02 00 02 23 3A 02 58 10 07 26 04 12 04 10 29 |G...#:.X..&....)|
000003E0: 47 02 00 02 23 3A 02 62 0B 07 27 04 25 04 26 23 |G...#:.b..'.%.&#|
000003F0: 3A 02 6C 10 68 04 27 01 81 4D 93 64 E3 30 69 61 |:.l.h.'..M.d.0ia|
00000400: 8D 02 76 09 07 29 02 00 9F 3A 02 80 0C 07 2A 02 |..v..)...:....*.|
00000410: 00 9F 04 27 23 3A 02 8A 06 6E 7C 8D 02 94 0C 07 |...'#:...n|.....|
00000420: 29 02 00 63 04 27 24 3A 02 9E 09 07 2A 02 00 63 |)..c.'$:....*..c|
00000430: 3A 02 A8 04 6F 02 B2 11 82 13 AF 8D 04 03 84 04 |:...o...........|
00000440: 04 85 04 0C 86 87 02 BC 11 82 14 A8 8D 04 01 84 |................|
00000450: 04 02 85 04 0B 86 87 02 C6 06 7F 2C 81 02 D0 07 |...........,....|
00000460: 8A 14 91 8D 02 DA 07 8A 13 80 8D 02 E4 11 82 14 |................|
00000470: E5 8D 04 01 84 04 02 85 04 0D 86 87 02 EE 11 82 |................|
00000480: 13 DE 8D 04 03 84 04 04 85 04 0E 86 87 02 F8 06 |................|
00000490: 7F 2C 81 03 02 07 8A 13 C7 8D 03 0C 07 8A 14 B6 |.,..............|
000004A0: 8D 03 16 0E E4 02 04 00 47 E5 02 00 10 47 E6 03 |........G....G..|
000004B0: 20 04 95 03 2A 0D DA F9 02 00 20 4B 2D 96 FA 8D | ...*..... K-...|
000004C0: 03 34 05 FF 19 03 3E 04 9F 03 48 09 70 15 7B 8E |.4....>...H.p.{.|
000004D0: 00 7B 03 52 06 7F 2D 81 03 5C 0E 07 2E 04 14 04 |.{.R..-..\......|
000004E0: 13 04 09 24 29 3A 03 66 0E 07 2F 04 30 04 13 04 |...$):.f../.0...|
000004F0: 0A 24 29 3A 03 70 0F 68 04 2E 04 11 30 6A 07 11 |.$):.p.h....0j..|
00000500: 04 2E 3A 03 7A 0F 68 04 2E 04 0F 2A 6A 07 0F 04 |..:.z.h....*j...|
00000510: 2E 3A 03 84 0F 68 04 2F 04 12 30 6A 07 12 04 2F |.:...h./..0j.../|
00000520: 3A 03 8E 0F 68 04 2F 04 10 2A 6A 07 10 04 2F 3A |:...h./..*j.../:|
00000530: 03 98 05 7D 15 03 A2 09 70 2C DB 8E 00 7B 03 AC |...}....p,...{..|
00000540: 06 7F 2D 81 03 B6 20 07 2E 02 00 A0 04 29 04 14 |..-... ......)..|
00000550: 04 13 04 09 24 29 04 11 29 04 25 27 47 24 04 25 |....$)..).%'G$.%|
00000560: 23 4F 27 3A 03 C0 20 07 2F 02 00 64 04 2A 04 30 |#O':.. ./..d.*.0|
00000570: 04 13 04 0A 24 29 04 12 29 04 26 27 47 24 04 26 |....$)..).&'G$.&|
00000580: 23 4F 29 3A 03 CA 0C FF 1C 04 2E F6 04 2F FF 1D |#O):........./..|
00000590: 03 D4 05 7D 2C 03 DE 09 70 2D 02 8F 00 7B 03 E8 |...},...p-...{..|
000005A0: 19 07 30 04 14 04 14 24 02 00 04 23 04 13 04 13 |..0....$...#....|
000005B0: 24 02 00 09 23 29 3A 03 F2 05 7D 2D 00 00 00 00 |$...#):...}-....|
000005C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000005D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000005E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000005F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000600: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000620: 14 14 8E 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000650: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000690: 00 00 00 14 80 8E 00 00 14 E0 8E 00 00 00 00 00 |................|
000006A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000006B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000006C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000006D0: 00 00 00 00 00 00 00 00 00 02 41 31 02 42 31 02 |..........A1.B1.|
000006E0: 41 32 02 42 32 07 41 55 54 4F 31 38 30 01 4E 01 |A2.B2.AUTO180.N.|
000006F0: 4D 01 51 02 43 53 02 53 49 02 48 31 02 48 32 02 |M.Q.CS.SI.H1.H2.|
00000700: 48 33 02 48 34 02 4D 31 02 4D 32 02 4E 31 02 4E |H3.H4.M1.M2.N1.N|
00000710: 32 01 59 01 58 03 4F 4E 45 01 44 09 50 4F 4B 45 |2.Y.X.ONE.D.POKE|
00000720: 35 33 32 37 32 02 53 43 03 4F 52 38 06 44 45 4C |53272.SC.OR8.DEL|
00000730: 33 38 35 02 4E 54 06 50 4F 4B 45 4E 54 02 4E 53 |385.NT.POKENT.NS|
00000740: 06 50 4F 4B 45 4E 53 02 4E 52 06 50 4F 4B 45 4E |.POKENS.NR.POKEN|
00000750: 52 09 50 4F 4B 45 35 33 32 38 30 01 49 04 46 4F |R.POKE53280.I.FO|
00000760: 52 49 08 54 4F 32 30 32 33 44 4F 02 54 31 02 54 |RI.TO2023DO.T1.T|
00000770: 32 01 57 04 4A 55 4D 50 02 58 53 02 5A 53 04 46 |2.W.JUMP.XS.ZS.F|
00000780: 4F 55 52 03 54 57 4F 05 54 48 52 45 45 02 58 54 |OUR.TWO.THREE.XT|
00000790: 02 5A 54 01 5A 02 52 4F 02 43 48 02 4C 4E 02 42 |.ZT.Z.RO.CH.LN.B|
000007A0: 49 02 42 59 08 52 45 43 54 41 4E 27 43 04 43 4F |I.BY.RECTAN'C.CO|
000007B0: 4E 54 03 4C 49 54 06 53 59 41 59 55 53 00 00 |NT.LIT.SYAYUS.. |
..S....... SAVE "@0:RECTAN".....D.. ...
G.!.N..F...G.G.X......G....._...KE`A..,_
.#. .* THREE-DIMENSIONAL SURFACES *E`A
..+_." .* IN RECTANGULAR COORDINATES *
E`A..-_.$. .* MAKES A BEAUTIFUL PICTUR
E *.E`A. ._`A..._.% BUT IT TAKES A LOOO
OOONG TIME.......E`A..._.% ??? CONVERTED
BY MIKE WAGNER - TEXASE`A..._`A.H._.. F
OR Z=X*X/4-Y*Y/9E`A.R#_.. TRY:. -2,2,-3,
3,25,25,45.E`A..._`A..._.. FOR Z=1/(X*X+
Y*Y+.5)E`A..#_.. TRY:. -1,1,-1,1,20,20,4
5.E`A..._`A......LOWER X LIMIT: ........
.....UPPER X LIMIT: .............LOWER Y
LIMIT: .......".....UPPER Y LIMIT: ....
...,.....SLICES IN X: .......6.....SLI
CES IN Y: .......@ ....OBSERVATION ANG
LE: .......J$_...SCREEN SCALING IN PROGR
ESSE`A.T......{..5.$:.^.....L:.H.....W:.
R.......)G..?#:.|.......)G.....)G#:.....
....)G.....)G#:.........)G..?#:.......NK
'.:.......:.......!:.......:.B..........
......L................V...............
.......................................
.......N.........&.........0..S.:..R.D..
.......N..%....)G...#:.X..&....)G...#:.B
..'.%.&#:.L.H.'..M.D.0IA..V..)...:....*.
...'#:...N|.....)..C.'$:....*..C:...O...
................................F.,..P.
.....Z..................................
........,......G...............G....G..
...*.Z... K-....4....>...H.P.{..{.R.-.
.\.........$):.F../.0....$):.P.H....0J..
..:.Z.H....*J....:...H./..0J.../:...H./.
.*J.../:...}....P,...{...-... .... .)..
....$)..).%'G$.%#O':.. ./..D.*.0....$)..
).&'G$.&#O):.J......./...T.},...P-...{..
..0....$...#....$...#):...}-............
........................................
........................................
........................................
........................................
........................................
........................................
..................................A1.B1.
A2.B2.AUTO180.N.M.Q.CS.SI.H1.H2.H3.H4.M1
.M2.N1.N2.Y.X.ONE.D.POKE53272.SC.OR8.DEL
385.NT.POKENT.NS.POKENS.NR.POKENR.POKE53
280.I.FORI.TO2023DO.T1.T2.W.JUMP.XS.ZS.F
OUR.TWO.THREE.XT.ZT.Z.RO.CH.LN.BI.BY.REC
TAN'C.CONT.LIT.SYAYUS..
> CLICK IMAGE PREVIEW FOR FULL MODAL