UH.FRACTALSCAPE
FILE INFORMATION
FILENAME(S): UH.FRACTALSCAPE
FILE TYPE(S): PRG
FILE SIZE: 3.8K
FIRST SEEN: 2025-10-20 14:29:52
APPEARS ON: 1 disk(s)
FILE HASH
bbf32a1e1588222e89378e3eca0555fd4d55efff876fc1d7913c61d661bd268a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UH CAD DRAW | UH.FRACTALSCAPE | PRG | Treasure Chest - Klaus Der Suhler | 19 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 40 0B 40 05 00 D7 31 32 30 30 00 1B 40 0A 00 |.@.@...1200..@..| 00000010: FE 25 3A 58 B2 BB 28 AB 54 49 29 00 30 40 14 00 |.%:X..(.TI).0@..| 00000020: 86 44 28 31 32 38 2C 36 34 29 3A 89 31 35 30 30 |.D(128,64):.1500| 00000030: 00 51 40 1E 00 40 54 45 58 54 3A 85 22 4E 55 4D |.Q@..@TEXT:."NUM| 00000040: 42 45 52 20 4F 46 20 4C 45 56 45 4C 53 22 3B 4C |BER OF LEVELS";L| 00000050: 45 00 73 40 28 00 44 54 B2 32 3A 81 4E B2 31 A4 |E.s@(.DT.2:.N.1.| 00000060: 4C 45 3A 44 54 B2 44 54 AA 32 AE 28 4E AB 31 29 |LE:DT.DT.2.(N.1)| 00000070: 3A 82 4E 00 A8 40 32 00 4D 58 B2 44 54 AB 31 3A |:.N..@2.MX.DT.1:| 00000080: 4D 59 B2 4D 58 AD 32 3A 50 49 B2 33 2E 31 34 31 |MY.MX.2:PI.3.141| 00000090: 36 3A 52 48 B2 50 49 AC 33 30 AD 31 38 30 3A 56 |6:RH.PI.30.180:V| 000000A0: 54 B2 52 48 AC 31 2E 32 00 C2 40 3C 00 81 4E B2 |T.RH.1.2..@<..N.| 000000B0: 31 A4 4C 45 3A 4C B2 31 30 30 30 30 AD 31 2E 38 |1.LE:L.10000.1.8| 000000C0: AE 4E 00 DC 40 46 00 99 22 57 4F 52 4B 49 4E 47 |.N..@F.."WORKING| 000000D0: 20 4F 4E 20 4C 45 56 45 4C 22 3B 4E 00 F2 40 50 | ON LEVEL";N..@P| 000000E0: 00 49 42 B2 4D 58 AD 32 AE 4E 3A 53 4B B2 49 42 |.IB.MX.2.N:SK.IB| 000000F0: AC 32 00 25 41 5A 00 8D 31 35 30 3A 8F 20 2A 2A |.2.%AZ..150:. **| 00000100: 2A 20 41 53 53 49 47 4E 20 48 45 49 47 48 54 53 |* ASSIGN HEIGHTS| 00000110: 20 41 4C 4F 4E 47 20 58 20 49 4E 20 41 52 52 41 | ALONG X IN ARRA| 00000120: 59 20 2A 2A 2A 00 58 41 64 00 8D 32 32 30 3A 8F |Y ***.XAd..220:.| 00000130: 20 2A 2A 2A 20 41 53 53 49 47 4E 20 48 45 49 47 | *** ASSIGN HEIG| 00000140: 48 54 53 20 41 4C 4F 4E 47 20 59 20 49 4E 20 41 |HTS ALONG Y IN A| 00000150: 52 52 41 59 20 2A 2A 2A 00 8F 41 6E 00 8D 32 39 |RRAY ***..An..29| 00000160: 30 3A 8F 20 2A 2A 2A 20 41 53 53 49 47 4E 20 48 |0:. *** ASSIGN H| 00000170: 45 49 47 48 54 53 20 41 4C 4F 4E 47 20 44 49 41 |EIGHTS ALONG DIA| 00000180: 47 2E 20 49 4E 20 41 52 52 41 59 20 2A 2A 2A 00 |G. IN ARRAY ***.| 00000190: 96 41 78 00 82 4E 00 AE 41 82 00 89 36 34 30 3A |.Ax..N..A...640:| 000001A0: 8F 20 2A 2A 2A 20 44 52 41 57 20 2A 2A 2A 00 C8 |. *** DRAW ***..| 000001B0: 41 8C 00 8F 20 2A 20 48 45 49 47 48 54 53 20 41 |A... * HEIGHTS A| 000001C0: 4C 4F 4E 47 20 58 20 2A 00 DA 41 96 00 81 59 45 |LONG X *..A...YE| 000001D0: B2 30 A4 4D 58 AB 31 A9 53 4B 00 EE 41 A0 00 81 |.0.MX.1.SK..A...| 000001E0: 58 45 B2 49 42 AA 59 45 A4 4D 58 A9 53 4B 00 1E |XE.IB.YE.MX.SK..| 000001F0: 42 AA 00 41 58 B2 58 45 AB 49 42 3A 41 59 B2 59 |B..AX.XE.IB:AY.Y| 00000200: 45 3A 8D 33 37 30 3A 44 31 B2 44 3A 41 58 B2 58 |E:.370:D1.D:AX.X| 00000210: 45 AA 49 42 3A 8D 33 37 30 3A 44 32 B2 44 00 4C |E.IB:.370:D2.D.L| 00000220: 42 B4 00 44 B2 28 44 31 AA 44 32 29 AD 32 AA BB |B..D.(D1.D2).2..| 00000230: 28 31 29 AC 4C AD 32 AB 4C AD 34 3A 41 58 B2 58 |(1).L.2.L.4:AX.X| 00000240: 45 3A 41 59 B2 59 45 3A 8D 34 32 30 00 54 42 BE |E:AY.YE:.420.TB.| 00000250: 00 82 58 45 00 5E 42 C8 00 82 59 45 3A 8E 00 78 |..XE.^B...YE:..x| 00000260: 42 D2 00 8F 20 2A 20 48 45 49 47 48 54 53 20 41 |B... * HEIGHTS A| 00000270: 4C 4F 4E 47 20 59 20 2A 00 89 42 DC 00 81 58 45 |LONG Y *..B...XE| 00000280: B2 4D 58 A4 31 A9 AB 53 4B 00 9A 42 E6 00 81 59 |.MX.1..SK..B...Y| 00000290: 45 B2 49 42 A4 58 45 A9 53 4B 00 CA 42 F0 00 41 |E.IB.XE.SK..B..A| 000002A0: 58 B2 58 45 3A 41 59 B2 59 45 AA 49 42 3A 8D 33 |X.XE:AY.YE.IB:.3| 000002B0: 37 30 3A 44 31 B2 44 3A 41 59 B2 59 45 AB 49 42 |70:D1.D:AY.YE.IB| 000002C0: 3A 8D 33 37 30 3A 44 32 B2 44 00 F8 42 FA 00 44 |:.370:D2.D..B..D| 000002D0: B2 28 44 31 AA 44 32 29 AD 32 AA BB 28 31 29 AC |.(D1.D2).2..(1).| 000002E0: 4C AD 32 AB 4C AD 34 3A 41 58 B2 58 45 3A 41 59 |L.2.L.4:AX.XE:AY| 000002F0: B2 59 45 3A 8D 34 32 30 00 00 43 04 01 82 59 45 |.YE:.420..C...YE| 00000300: 00 0A 43 0E 01 82 58 45 3A 8E 00 28 43 18 01 8F |..C...XE:..(C...| 00000310: 20 2A 20 48 45 49 47 48 54 53 20 41 4C 4F 4E 47 | * HEIGHTS ALONG| 00000320: 20 44 49 41 47 2E 20 2A 00 3A 43 22 01 81 58 45 | DIAG. *.:C"..XE| 00000330: B2 30 A4 4D 58 AB 31 A9 53 4B 00 4E 43 2C 01 81 |.0.MX.1.SK.NC,..| 00000340: 59 45 B2 49 42 A4 4D 58 AB 58 45 A9 53 4B 00 71 |YE.IB.MX.XE.SK.q| 00000350: 43 36 01 41 58 B2 58 45 AA 59 45 AB 49 42 3A 41 |C6.AX.XE.YE.IB:A| 00000360: 59 B2 59 45 AB 49 42 3A 8D 33 37 30 3A 44 31 B2 |Y.YE.IB:.370:D1.| 00000370: 44 00 94 43 40 01 41 58 B2 58 45 AA 59 45 AA 49 |D..C@.AX.XE.YE.I| 00000380: 42 3A 41 59 B2 59 45 AA 49 42 3A 8D 33 37 30 3A |B:AY.YE.IB:.370:| 00000390: 44 32 B2 44 00 C5 43 4A 01 41 58 B2 58 45 AA 59 |D2.D..CJ.AX.XE.Y| 000003A0: 45 3A 41 59 B2 59 45 3A 44 B2 28 44 31 AA 44 32 |E:AY.YE:D.(D1.D2| 000003B0: 29 AD 32 AA BB 28 31 29 AC 4C AD 32 AB 4C AD 34 |).2..(1).L.2.L.4| 000003C0: 3A 8D 34 32 30 00 CD 43 54 01 82 59 45 00 D7 43 |:.420..CT..YE..C| 000003D0: 5E 01 82 58 45 3A 8E 00 FC 43 68 01 8F 20 2A 2A |^..XE:...Ch.. **| 000003E0: 2A 20 52 45 54 55 52 4E 20 44 41 54 41 20 46 52 |* RETURN DATA FR| 000003F0: 4F 4D 20 41 52 52 41 59 20 2A 2A 2A 00 0B 44 72 |OM ARRAY ***..Dr| 00000400: 01 8B 41 59 B1 4D 59 A7 33 39 30 00 20 44 7C 01 |..AY.MY.390. D|.| 00000410: 42 59 B2 41 59 3A 42 58 B2 41 58 3A 89 34 30 30 |BY.AY:BX.AX:.400| 00000420: 00 38 44 86 01 42 59 B2 4D 58 AA 31 AB 41 59 3A |.8D..BY.MX.1.AY:| 00000430: 42 58 B2 4D 58 AB 41 58 00 49 44 90 01 44 B2 44 |BX.MX.AX.ID..D.D| 00000440: 28 42 58 2C 42 59 29 3A 8E 00 6B 44 9A 01 8F 20 |(BX,BY):..kD... | 00000450: 2A 2A 2A 20 50 55 54 20 44 41 54 41 20 49 4E 54 |*** PUT DATA INT| 00000460: 4F 20 41 52 52 41 59 20 2A 2A 2A 00 7A 44 A4 01 |O ARRAY ***.zD..| 00000470: 8B 41 59 B1 4D 59 A7 34 34 30 00 8F 44 AE 01 42 |.AY.MY.440..D..B| 00000480: 59 B2 41 59 3A 42 58 B2 41 58 3A 89 34 35 30 00 |Y.AY:BX.AX:.450.| 00000490: A7 44 B8 01 42 59 B2 4D 58 AA 31 AB 41 59 3A 42 |.D..BY.MX.1.AY:B| 000004A0: 58 B2 4D 58 AB 41 58 00 B8 44 C2 01 44 28 42 58 |X.MX.AX..D..D(BX| 000004B0: 2C 42 59 29 B2 44 3A 8E 00 DC 44 CC 01 8F 20 2A |,BY).D:...D... *| 000004C0: 2A 2A 20 50 55 54 20 49 4E 20 53 45 41 20 4C 45 |** PUT IN SEA LE| 000004D0: 56 45 4C 20 48 45 52 45 20 2A 2A 2A 00 EE 44 D6 |VEL HERE ***..D.| 000004E0: 01 8B 58 4F B3 B1 AB 39 39 39 A7 35 30 30 00 0E |..XO...999.500..| 000004F0: 45 E0 01 8B 5A 5A B3 30 A7 8D 31 30 37 30 3A 5A |E...ZZ.0..1070:Z| 00000500: 32 B2 5A 5A 3A 5A 5A B2 30 3A 89 36 32 30 00 1D |2.ZZ:ZZ.0:.620..| 00000510: 45 EA 01 8D 31 30 39 30 3A 89 36 31 30 00 30 45 |E...1090:.610.0E| 00000520: F4 01 8B 5A 32 B1 30 AF 5A 5A B1 30 A7 36 31 30 |...Z2.0.ZZ.0.610| 00000530: 00 4F 45 FE 01 8B 5A 32 B3 30 AF 5A 5A B3 30 A7 |.OE...Z2.0.ZZ.0.| 00000540: 5A 32 B2 5A 5A 3A 5A 5A B2 30 3A 89 36 32 30 00 |Z2.ZZ:ZZ.0:.620.| 00000550: 88 45 08 02 57 33 B2 5A 5A AD 28 5A 5A AB 5A 32 |.E..W3.ZZ.(ZZ.Z2| 00000560: 29 3A 58 33 B2 28 58 32 AB 58 58 29 AC 57 33 AA |):X3.(X2.XX).W3.| 00000570: 58 58 3A 59 33 B2 28 59 32 AB 59 59 29 AC 57 33 |XX:Y3.(Y2.YY).W3| 00000580: AA 59 59 3A 5A 33 B2 30 00 9E 45 12 02 5A 54 B2 |.YY:Z3.0..E..ZT.| 00000590: 5A 5A 3A 59 54 B2 59 59 3A 58 54 B2 58 58 00 AC |ZZ:YT.YY:XT.XX..| 000005A0: 45 1C 02 8B 5A 5A B1 30 A7 35 39 30 00 CB 45 26 |E...ZZ.0.590..E&| 000005B0: 02 8F 20 2A 2A 2A 20 47 4F 49 4E 47 20 49 4E 54 |.. *** GOING INT| 000005C0: 4F 20 57 41 54 45 52 20 2A 2A 2A 00 E6 45 30 02 |O WATER ***..E0.| 000005D0: 5A 5A B2 5A 33 3A 59 59 B2 59 33 3A 58 58 B2 58 |ZZ.Z3:YY.Y3:XX.X| 000005E0: 33 3A 8D 39 35 30 00 0C 46 3A 02 8D 31 30 37 30 |3:.950..F:..1070| 000005F0: 3A 5A 5A B2 30 3A 59 59 B2 59 54 3A 58 58 B2 58 |:ZZ.0:YY.YT:XX.X| 00000600: 54 3A 5A 32 B2 5A 54 3A 89 36 32 30 00 31 46 44 |T:Z2.ZT:.620.1FD| 00000610: 02 8F 20 2A 2A 2A 20 43 4F 4D 49 4E 47 20 55 50 |.. *** COMING UP| 00000620: 20 4F 55 54 20 4F 46 20 57 41 54 45 52 20 2A 2A | OUT OF WATER **| 00000630: 2A 00 4C 46 4E 02 5A 5A B2 5A 33 3A 59 59 B2 59 |*.LFN.ZZ.Z3:YY.Y| 00000640: 33 3A 58 58 B2 58 33 3A 8D 39 35 30 00 68 46 58 |3:XX.X3:.950.hFX| 00000650: 02 8D 31 30 39 30 3A 5A 5A B2 5A 54 3A 59 59 B2 |..1090:ZZ.ZT:YY.| 00000660: 59 54 3A 58 58 B2 58 54 00 72 46 62 02 5A 32 B2 |YT:XX.XT.rFb.Z2.| 00000670: 5A 5A 00 84 46 6C 02 58 32 B2 58 58 3A 59 32 B2 |ZZ..Fl.X2.XX:Y2.| 00000680: 59 59 3A 8E 00 9F 46 76 02 8F 20 2A 2A 2A 20 44 |YY:...Fv.. *** D| 00000690: 49 53 50 4C 41 59 20 48 45 52 45 20 2A 2A 2A 00 |ISPLAY HERE ***.| 000006A0: C1 46 80 02 8D 31 31 31 30 3A 8F 20 2A 2A 2A 20 |.F...1110:. *** | 000006B0: 53 45 54 20 55 50 20 53 43 52 45 45 4E 20 2A 2A |SET UP SCREEN **| 000006C0: 2A 00 F4 46 8A 02 58 53 B2 2E 30 34 3A 59 53 B2 |*..F..XS..04:YS.| 000006D0: 2E 30 34 3A 5A 53 B2 2E 30 34 3A 8F 20 2A 2A 2A |.04:ZS..04:. ***| 000006E0: 20 53 43 41 4C 49 4E 47 20 46 41 43 54 4F 52 53 | SCALING FACTORS| 000006F0: 20 2A 2A 2A 00 12 47 94 02 81 41 58 B2 30 A4 4D | ***..G...AX.0.M| 00000700: 58 3A 58 4F B2 AB 39 39 39 3A 81 41 59 B2 30 A4 |X:XO..999:.AY.0.| 00000710: 41 58 00 43 47 9E 02 8D 33 37 30 3A 5A 5A B2 44 |AX.CG...370:ZZ.D| 00000720: 3A 59 59 B2 41 59 AD 4D 58 AC 31 30 30 30 30 3A |:YY.AY.MX.10000:| 00000730: 58 58 B2 41 58 AD 4D 58 AC 31 30 30 30 30 AB 59 |XX.AX.MX.10000.Y| 00000740: 59 AD 32 00 54 47 A8 02 8D 39 34 30 3A 82 41 59 |Y.2.TG...940:.AY| 00000750: 3A 82 41 58 00 73 47 B2 02 81 41 59 B2 30 A4 4D |:.AX.sG...AY.0.M| 00000760: 58 3A 58 4F B2 AB 39 39 39 3A 81 41 58 B2 41 59 |X:XO..999:.AX.AY| 00000770: A4 4D 58 00 A4 47 BC 02 8D 33 37 30 3A 5A 5A B2 |.MX..G...370:ZZ.| 00000780: 44 3A 59 59 B2 41 59 AD 4D 58 AC 31 30 30 30 30 |D:YY.AY.MX.10000| 00000790: 3A 58 58 B2 41 58 AD 4D 58 AC 31 30 30 30 30 AB |:XX.AX.MX.10000.| 000007A0: 59 59 AD 32 00 B5 47 C6 02 8D 39 34 30 3A 82 41 |YY.2..G...940:.A| 000007B0: 58 3A 82 41 59 00 D6 47 D0 02 81 45 58 B2 30 A4 |X:.AY..G...EX.0.| 000007C0: 4D 58 3A 58 4F B2 AB 39 39 39 3A 81 45 59 B2 30 |MX:XO..999:.EY.0| 000007D0: A4 4D 58 AB 45 58 00 02 48 DA 02 41 58 B2 45 58 |.MX.EX..H..AX.EX| 000007E0: AA 45 59 3A 41 59 B2 45 59 3A 8D 33 37 30 3A 5A |.EY:AY.EY:.370:Z| 000007F0: 5A B2 44 3A 59 59 B2 41 59 AD 4D 58 AC 31 30 30 |Z.D:YY.AY.MX.100| 00000800: 30 30 00 27 48 E4 02 58 58 B2 41 58 AD 4D 58 AC |00.'H..XX.AX.MX.| 00000810: 31 30 30 30 30 AB 59 59 AD 32 3A 8D 39 34 30 3A |10000.YY.2:.940:| 00000820: 82 45 59 3A 82 45 58 00 59 48 EE 02 89 31 31 33 |.EY:.EX.YH...113| 00000830: 30 3A 8F 20 2A 2A 2A 20 44 4F 4E 45 20 50 4C 4F |0:. *** DONE PLO| 00000840: 54 54 49 4E 47 2C 20 47 4F 20 54 4F 20 45 4E 44 |TTING, GO TO END| 00000850: 20 4C 4F 4F 50 20 2A 2A 2A 00 6E 48 F8 02 8F 20 | LOOP ***.nH... | 00000860: 2A 2A 2A 20 52 4F 54 41 54 45 20 2A 2A 2A 00 7D |*** ROTATE ***.}| 00000870: 48 02 03 8B 58 58 B3 B1 30 A7 38 30 30 00 96 48 |H...XX..0.800..H| 00000880: 0C 03 8B 59 59 B3 B2 30 A7 52 41 B2 AB 50 49 AD |...YY..0.RA..PI.| 00000890: 32 3A 89 38 32 30 00 A7 48 16 03 52 41 B2 50 49 |2:.820..H..RA.PI| 000008A0: AD 32 3A 89 38 32 30 00 B7 48 20 03 52 41 B2 C1 |.2:.820..H .RA..| 000008B0: 28 59 59 AD 58 58 29 00 CA 48 2A 03 8B 58 58 B3 |(YY.XX)..H*..XX.| 000008C0: 30 A7 52 41 B2 52 41 AA 50 49 00 E9 48 34 03 52 |0.RA.RA.PI..H4.R| 000008D0: 31 B2 52 41 AA 52 48 3A 52 44 B2 BA 28 58 58 AC |1.RA.RH:RD..(XX.| 000008E0: 58 58 AA 59 59 AC 59 59 29 00 05 49 3E 03 58 58 |XX.YY.YY)..I>.XX| 000008F0: B2 52 44 AC BE 28 52 31 29 3A 59 59 B2 52 44 AC |.RD..(R1):YY.RD.| 00000900: BF 28 52 31 29 00 0B 49 48 03 8E 00 23 49 52 03 |.(R1)..IH...#IR.| 00000910: 8F 20 2A 2A 2A 20 54 49 4C 54 20 44 4F 57 4E 20 |. *** TILT DOWN | 00000920: 2A 2A 2A 00 39 49 5C 03 52 44 B2 BA 28 5A 5A AC |***.9I\.RD..(ZZ.| 00000930: 5A 5A AA 58 58 AC 58 58 29 00 50 49 66 03 8B 58 |ZZ.XX.XX).PIf..X| 00000940: 58 B2 30 A7 52 41 B2 50 49 AD 32 3A 89 39 30 30 |X.0.RA.PI.2:.900| 00000950: 00 60 49 70 03 52 41 B2 C1 28 5A 5A AD 58 58 29 |.`Ip.RA..(ZZ.XX)| 00000960: 00 73 49 7A 03 8B 58 58 B3 30 A7 52 41 B2 52 41 |.sIz..XX.0.RA.RA| 00000970: AA 50 49 00 80 49 84 03 52 31 B2 52 41 AB 56 54 |.PI..I..R1.RA.VT| 00000980: 00 9F 49 8E 03 58 58 B2 52 44 AC BE 28 52 31 29 |..I..XX.RD..(R1)| 00000990: AA 58 58 3A 5A 5A B2 52 44 AC BF 28 52 31 29 00 |.XX:ZZ.RD..(R1).| 000009A0: A5 49 98 03 8E 00 CB 49 A2 03 8F 20 2A 2A 2A 20 |.I.....I... *** | 000009B0: 4D 4F 56 45 20 4F 52 20 50 4C 4F 54 20 54 4F 20 |MOVE OR PLOT TO | 000009C0: 28 58 50 2C 59 50 29 20 2A 2A 2A 00 D4 49 AC 03 |(XP,YP) ***..I..| 000009D0: 8D 34 37 30 00 F3 49 B6 03 58 58 B2 58 58 AC 58 |.470..I..XX.XX.X| 000009E0: 53 3A 59 59 B2 59 59 AC 59 53 3A 5A 5A B2 5A 5A |S:YY.YY.YS:ZZ.ZZ| 000009F0: AC 5A 53 00 0D 4A C0 03 8D 37 37 30 3A 8F 20 2A |.ZS..J...770:. *| 00000A00: 2A 2A 20 52 4F 54 41 54 45 20 2A 2A 2A 00 28 4A |** ROTATE ***.(J| 00000A10: CA 03 8D 38 36 30 3A 8F 20 2A 2A 2A 20 54 49 4C |...860:. *** TIL| 00000A20: 54 20 55 50 20 2A 2A 2A 00 3D 4A D4 03 8B 58 4F |T UP ***.=J...XO| 00000A30: B2 AB 39 39 39 A7 50 52 24 B2 22 4D 22 00 53 4A |..999.PR$."M".SJ| 00000A40: D9 03 8B 58 4F B3 B1 AB 39 39 39 A7 50 52 24 B2 |...XO...999.PR$.| 00000A50: 22 44 22 00 6C 4A DE 03 58 50 B2 B5 28 59 59 29 |"D".lJ..XP..(YY)| 00000A60: AA 43 58 3A 59 50 B2 B5 28 5A 5A 29 00 76 4A E8 |.CX:YP..(ZZ).vJ.| 00000A70: 03 8D 31 30 33 30 00 7C 4A F2 03 8E 00 99 4A FC |..1030.|J.....J.| 00000A80: 03 8F 20 2A 2A 2A 20 50 4C 4F 54 20 4C 49 4E 45 |.. *** PLOT LINE| 00000A90: 20 48 45 52 45 20 2A 2A 2A 00 BA 4A 06 04 58 50 | HERE ***..J..XP| 00000AA0: B2 58 50 AC 31 2E 32 35 3A 59 50 B2 33 33 2E 31 |.XP.1.25:YP.33.1| 00000AB0: 34 AB 30 2E 36 36 33 AC 59 50 00 D8 4A 10 04 8B |4.0.663.YP..J...| 00000AC0: 50 52 24 B2 22 4D 22 A7 58 38 B2 58 50 3A 59 38 |PR$."M".X8.XP:Y8| 00000AD0: B2 59 50 3A 58 4F B2 58 00 F7 4A 15 04 8B 59 38 |.YP:XO.X..J...Y8| 00000AE0: B1 31 37 39 B0 59 38 B3 30 B0 59 50 B1 31 37 39 |.179.Y8.0.YP.179| 00000AF0: B0 59 50 B3 30 A7 8E 00 1A 4B 1A 04 40 E5 2C 58 |.YP.0....K..@.,X| 00000B00: 38 2C 59 38 2C 58 50 2C 59 50 2C 31 3A 58 38 B2 |8,Y8,XP,YP,1:X8.| 00000B10: 58 50 3A 59 38 B2 59 50 3A 8E 00 3C 4B 24 04 8F |XP:Y8.YP:..<K$..| 00000B20: 20 2A 2A 2A 20 53 57 49 54 43 48 20 54 4F 20 53 | *** SWITCH TO S| 00000B30: 45 41 20 43 4F 4C 4F 52 20 2A 2A 2A 00 42 4B 2E |EA COLOR ***.BK.| 00000B40: 04 8E 00 65 4B 38 04 8F 20 2A 2A 2A 20 53 57 49 |...eK8.. *** SWI| 00000B50: 54 43 48 20 54 4F 20 4C 41 4E 44 20 43 4F 4C 4F |TCH TO LAND COLO| 00000B60: 52 20 2A 2A 2A 00 6B 4B 42 04 8E 00 87 4B 4C 04 |R ***.kKB....KL.| 00000B70: 8F 20 2A 2A 2A 20 53 45 54 20 55 50 20 53 43 52 |. *** SET UP SCR| 00000B80: 45 45 4E 20 2A 2A 2A 00 97 4B 56 04 40 DE 2C 31 |EEN ***..KV.@.,1| 00000B90: 2C 30 3A 40 9C 2C 30 00 A8 4B 5B 04 40 44 52 57 |,0:@.,0..K[.@DRW| 00000BA0: 4D 4F 44 2C 44 4D 3A 8E 00 BF 4B 60 04 8F 20 2A |MOD,DM:...K`.. *| 00000BB0: 2A 2A 20 45 4E 44 20 4C 4F 4F 50 20 2A 2A 2A 00 |** END LOOP ***.| 00000BC0: 04 4C 6A 04 40 E0 2C 35 33 32 34 38 2C 31 35 30 |.Lj.@.,53248,150| 00000BD0: 2C 31 39 30 2C 31 2C 31 2C 22 50 52 45 53 53 20 |,190,1,1,"PRESS | 00000BE0: 27 53 27 20 54 4F 20 53 41 56 45 2C 20 41 4E 59 |'S' TO SAVE, ANY| 00000BF0: 20 4F 54 48 45 52 20 4B 45 59 20 46 4F 52 20 4D | OTHER KEY FOR M| 00000C00: 45 4E 55 22 00 0D 4C 74 04 A1 F9 41 24 00 33 4C |ENU"..Lt...A$.3L| 00000C10: 7E 04 8B 41 24 B2 22 53 22 A7 3A 40 94 2C 31 2C |~..A$."S".:@.,1,| 00000C20: 22 54 45 4D 50 53 43 41 50 45 2E 4C 22 AA C4 28 |"TEMPSCAPE.L"..(| 00000C30: 4C 45 29 00 3D 4C 88 04 89 31 35 30 35 00 5D 4C |LE).=L...1505.]L| 00000C40: B0 04 40 54 45 58 54 3A 99 D3 28 45 52 29 22 20 |..@TEXT:..(ER)" | 00000C50: 49 4E 20 4C 49 4E 45 22 3B 45 4C 3A EA 00 6D 4C |IN LINE";EL:..mL| 00000C60: DC 05 40 57 41 4C 52 55 53 3A FE 0B 35 00 B8 4C |..@WALRUS:..5..L| 00000C70: E1 05 40 54 45 58 54 3A 99 22 11 11 1D 1D 1D 1D |..@TEXT:."......| 00000C80: 1D 46 52 41 43 54 41 4C 20 4C 41 4E 44 53 43 41 |.FRACTAL LANDSCA| 00000C90: 50 45 53 20 46 4F 52 20 43 2D 31 32 38 20 57 49 |PES FOR C-128 WI| 00000CA0: 54 48 20 55 4C 54 52 41 20 48 49 52 45 53 20 47 |TH ULTRA HIRES G| 00000CB0: 52 41 50 48 49 43 53 22 00 E6 4C E6 05 99 22 11 |RAPHICS"..L...".| 00000CC0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 31 2E 20 47 45 4E |..........1. GEN| 00000CD0: 45 52 41 54 45 20 41 20 4E 45 57 20 4C 41 4E 44 |ERATE A NEW LAND| 00000CE0: 53 43 41 50 45 22 00 21 4D F0 05 99 22 11 1D 1D |SCAPE".!M..."...| 00000CF0: 1D 1D 1D 1D 1D 1D 1D 1D 32 2E 20 4C 4F 41 44 20 |........2. LOAD | 00000D00: 41 20 50 52 45 56 49 4F 55 53 4C 59 2D 47 45 4E |A PREVIOUSLY-GEN| 00000D10: 45 52 41 54 45 44 20 4C 41 4E 44 53 43 41 50 45 |ERATED LANDSCAPE| 00000D20: 22 00 42 4D F5 05 99 22 11 1D 1D 1D 1D 1D 1D 1D |".BM..."........| 00000D30: 1D 1D 1D 30 2E 20 45 4E 44 20 50 52 4F 47 52 41 |...0. END PROGRA| 00000D40: 4D 22 00 70 4D FA 05 85 22 11 11 1D 1D 1D 1D 1D |M".pM...".......| 00000D50: 1D 1D 1D 1D 1D 59 4F 55 52 20 43 48 4F 49 43 45 |.....YOUR CHOICE| 00000D60: 20 28 30 2D 32 29 20 20 31 9D 9D 9D 22 3B 43 48 | (0-2) 1...";CH| 00000D70: 00 88 4D 04 06 8B 20 43 48 B3 30 20 B0 20 43 48 |..M... CH.0 . CH| 00000D80: B1 32 20 A7 31 35 33 30 00 9D 4D 0E 06 91 20 43 |.2 .1530..M... C| 00000D90: 48 20 89 20 31 36 30 30 2C 31 37 30 30 00 A9 4D |H . 1600,1700..M| 00000DA0: 18 06 40 54 45 58 54 3A 80 00 E9 4D 40 06 40 54 |..@TEXT:...M@.@T| 00000DB0: 45 58 54 3A 85 22 11 11 1D 1D 1D 1D 1D 57 41 4E |EXT:.".......WAN| 00000DC0: 54 20 4E 4F 52 4D 41 4C 28 30 29 20 4F 52 20 58 |T NORMAL(0) OR X| 00000DD0: 4F 52 28 31 29 20 44 52 41 57 20 4D 4F 44 45 20 |OR(1) DRAW MODE | 00000DE0: 20 30 9D 9D 9D 22 3B 44 4D 00 10 4E 4A 06 85 22 | 0...";DM..NJ.."| 00000DF0: 11 1D 1D 1D 1D 1D 4E 55 4D 42 45 52 20 4F 46 20 |......NUMBER OF | 00000E00: 4C 45 56 45 4C 53 20 28 31 2D 37 29 22 3B 4C 45 |LEVELS (1-7)";LE| 00000E10: 00 28 4E 54 06 8B 20 4C 45 B3 31 20 B0 20 4C 45 |.(NT.. LE.1 . LE| 00000E20: B1 37 20 A7 31 36 31 30 00 30 4E 5E 06 89 34 30 |.7 .1610.0N^..40| 00000E30: 00 67 4E A4 06 40 54 45 58 54 3A 85 22 11 11 1D |.gN..@TEXT:."...| 00000E40: 1D 1D 1D 1D 4E 4F 52 4D 41 4C 28 30 29 20 4F 52 |....NORMAL(0) OR| 00000E50: 20 43 4F 4D 50 52 45 53 53 45 44 28 31 29 20 4C | COMPRESSED(1) L| 00000E60: 4F 41 44 22 3B 4C 4D 00 7F 4E AE 06 8B 20 4C 4D |OAD";LM..N... LM| 00000E70: B3 30 20 B0 20 4C 4D B1 31 20 A7 31 37 30 30 00 |.0 . LM.1 .1700.| 00000E80: 9E 4E B8 06 46 24 B2 22 22 3A 85 22 11 1D 1D 1D |.N..F$."":."....| 00000E90: 1D 1D 46 49 4C 45 4E 41 4D 45 22 3B 46 24 00 B1 |..FILENAME";F$..| 00000EA0: 4E C2 06 8B 20 46 24 B2 22 22 20 A7 20 31 37 32 |N... F$."" . 172| 00000EB0: 30 00 CA 4E CC 06 40 DE 2C 31 2C 30 3A 40 9C 2C |0..N..@.,1,0:@.,| 00000EC0: 30 3A 40 93 2C 4C 4D 2C 46 24 00 FC 4E D6 06 40 |0:@.,LM,F$..N..@| 00000ED0: E0 2C 35 33 32 34 38 2C 31 35 30 2C 31 39 30 2C |.,53248,150,190,| 00000EE0: 31 2C 31 2C 22 50 52 45 53 53 20 41 4E 59 20 4B |1,1,"PRESS ANY K| 00000EF0: 45 59 20 46 4F 52 20 4D 45 4E 55 22 00 05 4F E0 |EY FOR MENU"..O.| 00000F00: 06 A1 F9 41 24 00 0F 4F EA 06 89 31 35 30 35 00 |...A$..O...1505.| 00000F10: 00 00 |.. |
.@.@..W1200..@...%:X..(.TI).0@...D(128,6 4):.1500.Q@..@TEXT:."NUMBER OF LEVELS";L E.S@(.DT.2:.N.1.LE:DT.DT.2.(N.1):.N..@2. MX.DT.1:MY.MX.2:PI.3.1416:RH.PI.30.180:V T.RH.1.2.B@<..N.1.LE:L.10000.1.8.N..@F.. "WORKING ON LEVEL";N..@P.IB.MX.2.N:SK.IB .2.%AZ..150:. *** ASSIGN HEIGHTS ALONG X IN ARRAY ***.XAD..220:. *** ASSIGN HEIG HTS ALONG Y IN ARRAY ***..AN..290:. *** ASSIGN HEIGHTS ALONG DIAG. IN ARRAY ***. .AX..N..A...640:. *** DRAW ***.HA... * H EIGHTS ALONG X *.ZA...YE.0.MX.1.SK..A .. XE.IB.YE.MX.SK..B..AX.XE.IB:AY.YE:.370:D 1.D:AX.XE.IB:.370:D2.D.LB..D.(D1.D2).2.. (1).L.2.L.4:AX.XE:AY.YE:.420.TB...XE.^BH ..YE:..XBR.. * HEIGHTS ALONG Y *..B...XE .MX.1..SK..B...YE.IB.XE.SK.JB..AX.XE:AY. YE.IB:.370:D1.D:AY.YE.IB:.370:D2.D..B..D .(D1.D2).2..(1).L.2.L.4:AX.XE:AY.YE:.420 ..C...YE..C...XE:..(C... * HEIGHTS ALONG DIAG. *.:C"..XE.0.MX.1.SK.NC,..YE.IB.MX .XE.SK.QC6.AX.XE.YE.IB:AY.YE.IB:.370:D1. D..C@.AX.XE.YE.IB:AY.YE.IB:.370:D2.D.ECJ .AX.XE.YE:AY.YE:D.(D1.D2).2..(1).L.2.L.4 :.420.MCT..YE.WC^..XE:...CH.. *** RETURN DATA FROM ARRAY ***..DR..AY.MY.390. D|. BY.AY:BX.AX:.400.8D..BY.MX.1.AY:BX.MX.AX .ID..D.D(BX,BY):..KD... *** PUT DATA INT O ARRAY ***.ZD...AY.MY.440..D..BY.AY:BX. AX:.450..D..BY.MX.1.AY:BX.MX.AX..DB.D(BX ,BY).D:...DL.. *** PUT IN SEA LEVEL HERE ***..DV..XO...999.500..E...ZZ.0..1070:Z 2.ZZ:ZZ.0:.620..E...1090:.610.0E...Z2.0. ZZ.0.610.OE...Z2.0.ZZ.0.Z2.ZZ:ZZ.0:.620. .E..W3.ZZ.(ZZ.Z2):X3.(X2.XX).W3.XX:Y3.(Y 2.YY).W3.YY:Z3.0..E..ZT.ZZ:YT.YY:XT.XX.. E...ZZ.0.590.KE&.. *** GOING INTO WATER ***..E0.ZZ.Z3:YY.Y3:XX.X3:.950..F:..1070 :ZZ.0:YY.YT:XX.XT:Z2.ZT:.620.1FD.. *** C OMING UP OUT OF WATER ***.LFN.ZZ.Z3:YY.Y 3:XX.X3:.950.HFX..1090:ZZ.ZT:YY.YT:XX.XT .RFB.Z2.ZZ..FL.X2.XX:Y2.YY:...FV.. *** D ISPLAY HERE ***.AF...1110:. *** SET UP S CREEN ***..F..XS..04:YS..04:ZS..04:. *** SCALING FACTORS ***..G...AX.0.MX:XO..99 9:.AY.0.AX.CG...370:ZZ.D:YY.AY.MX.10000: XX.AX.MX.10000.YY.2.TG...940:.AY:.AX.SG. ..AY.0.MX:XO..999:.AX.AY.MX..G...370:ZZ. D:YY.AY.MX.10000:XX.AX.MX.10000.YY.2..GF ..940:.AX:.AY.VGP..EX.0.MX:XO..999:.EY.0 .MX.EX..HZ.AX.EX.EY:AY.EY:.370:ZZ.D:YY.A Y.MX.10000.'H..XX.AX.MX.10000.YY.2:.940: .EY:.EX.YH...1130:. *** DONE PLOTTING, G O TO END LOOP ***.NH... *** ROTATE ***.} H...XX..0.800..H...YY..0.RA..PI.2:.820.. H..RA.PI.2:.820..H .RA.A(YY.XX).JH*..XX. 0.RA.RA.PI..H4.R1.RA.RH:RD..(XX.XX.YY.YY )..I>.XX.RD..(R1):YY.RD..(R1)..IH...#IR. . *** TILT DOWN ***.9I\.RD..(ZZ.ZZ.XX.XX ).PIF..XX.0.RA.PI.2:.900.`IP.RA.A(ZZ.XX) .SIZ..XX.0.RA.RA.PI..I..R1.RA.VT..I..XX. RD..(R1).XX:ZZ.RD..(R1)..I....KI... *** MOVE OR PLOT TO (XP,YP) ***.TI...470..I. .XX.XX.XS:YY.YY.YS:ZZ.ZZ.ZS..J...770:. * ** ROTATE ***.(JJ..860:. *** TILT UP *** .=JT..XO..999.PR$."M".SJY..XO...999.PR$. "D".LJ..XP..(YY).CX:YP..(ZZ).VJ...1030.| J.....J... *** PLOT LINE HERE ***..J..XP .XP.1.25:YP.33.14.0.663.YP.XJ...PR$."M". X8.XP:Y8.YP:XO.X..J...Y8.179.Y8.0.YP.179 .YP.0....K..@.,X8,Y8,XP,YP,1:X8.XP:Y8.YP :..<K$.. *** SWITCH TO SEA COLOR ***.BK. ...EK8.. *** SWITCH TO LAND COLOR ***.KK B....KL.. *** SET UP SCREEN ***..KV.@.,1 ,0:@.,0..K[.@DRWMOD,DM:...K`.. *** END L OOP ***..LJ.@.,53248,150,190,1,1,"PRESS 'S' TO SAVE, ANY OTHER KEY FOR MENU"..LT ...A$.3L~..A$."S".:@.,1,"TEMPSCAPE.L".D( LE).=L...1505.]L..@TEXT:.S(ER)" IN LINE" ;EL:..ML..@WALRUS:..5..L..@TEXT:."...... .FRACTAL LANDSCAPES FOR C-128 WITH ULTRA HIRES GRAPHICS"..L..."...........1. GEN ERATE A NEW LANDSCAPE".!M..."........... 2. LOAD A PREVIOUSLY-GENERATED LANDSCAPE ".BM..."...........0. END PROGRAM".PM... "............YOUR CHOICE (0-2) 1...";CH ..M... CH.0 . CH.2 .1530..M... CH . 1600 ,1700..M..@TEXT:...M@.@TEXT:.".......WAN T NORMAL(0) OR XOR(1) DRAW MODE 0...";D M..NJ.."......NUMBER OF LEVELS (1-7)";LE .(NT.. LE.1 . LE.7 .1610.0N^..40.GN..@TE XT:.".......NORMAL(0) OR COMPRESSED(1) L OAD";LM.N... LM.0 . LM.1 .1700..N..F$." ":."......FILENAME";F$..NB.. F$."" . 172 0.JNL.@.,1,0:@.,0:@.,LM,F$..NV.@.,53248, 150,190,1,1,"PRESS ANY KEY FOR MENU"..O. ...A$..O...1505...
> CLICK IMAGE PREVIEW FOR FULL MODAL