UH.GRAPHIT
FILE INFORMATION
FILENAME(S): UH.GRAPHIT
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-10-20 14:31:49
APPEARS ON: 1 disk(s)
FILE HASH
cc9330ef0f1cfc64f1c3e904d5e4ef0692c946b40099f2de2c03e8094e599acb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UH PAINT GRAPH | UH.GRAPHIT | PRG | Treasure Chest - Klaus Der Suhler | 1 | 18 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 40 2E 40 00 00 8F 20 25 25 25 25 25 25 25 25 |.@.@... %%%%%%%%|
00000010: 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 |%%%%%%%%%%%%%%%%|
00000020: 25 25 25 25 25 25 25 25 25 25 25 25 25 25 00 5B |%%%%%%%%%%%%%%.[|
00000030: 40 01 00 8F 20 25 20 20 20 20 20 20 20 20 20 20 |@... % |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 20 20 20 20 20 20 20 20 20 20 25 00 88 40 02 00 | %..@..|
00000060: 8F 20 25 20 20 20 20 20 20 20 20 20 47 20 52 20 |. % G R |
00000070: 41 20 50 20 48 20 20 20 49 20 54 20 21 20 20 20 |A P H I T ! |
00000080: 20 20 20 20 20 20 20 25 00 B5 40 03 00 8F 20 25 | %..@... %|
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000B0: 20 20 20 20 25 00 E2 40 04 00 8F 20 25 20 20 20 | %..@... % |
000000C0: 20 42 59 20 4A 49 4D 20 57 49 54 45 4B 20 2D 53 | BY JIM WITEK -S|
000000D0: 45 50 54 45 4D 42 45 52 20 31 39 38 36 20 20 20 |EPTEMBER 1986 |
000000E0: 20 25 00 0F 41 05 00 8F 20 25 20 20 20 20 28 52 | %..A... % (R|
000000F0: 45 51 55 49 52 45 53 20 55 4C 54 52 41 20 48 49 |EQUIRES ULTRA HI|
00000100: 52 45 53 20 56 31 2E 31 29 20 20 20 20 20 25 00 |RES V1.1) %.|
00000110: 3C 41 06 00 8F 20 25 20 20 20 20 20 20 20 20 20 |<A... % |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 20 20 20 20 20 20 20 20 20 20 20 25 00 69 41 07 | %.iA.|
00000140: 00 8F 20 25 25 25 25 25 25 25 25 25 25 25 25 25 |.. %%%%%%%%%%%%%|
00000150: 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 |%%%%%%%%%%%%%%%%|
00000160: 25 25 25 25 25 25 25 25 25 00 DD 41 08 00 FE 25 |%%%%%%%%%..A...%|
00000170: 3A D7 20 37 34 3A 40 57 41 4C 52 55 53 3A 40 DE |:. 74:@WALRUS:@.|
00000180: 2C 30 2C 31 32 3A 20 20 20 20 20 20 20 20 20 20 |,0,12: |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001B0: 20 20 81 41 B2 31 A4 31 30 30 30 3A 40 DE 2C 30 | .A.1.1000:@.,0|
000001C0: 2C 31 34 3A 40 DE 2C 30 2C 31 32 3A 82 41 3A FE |,14:@.,0,12:.A:.|
000001D0: 0B 32 3A 40 9C 2C 30 3A 40 54 45 58 54 00 60 42 |.2:@.,0:@TEXT.`B|
000001E0: 09 00 99 22 93 95 53 45 43 4F 4E 44 41 52 59 20 |..."..SECONDARY |
000001F0: 41 44 44 52 45 53 53 20 4F 46 20 50 52 49 4E 54 |ADDRESS OF PRINT|
00000200: 45 52 20 49 4E 54 45 52 46 41 43 45 22 3A 20 20 |ER INTERFACE": |
00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 85 22 | ."|
00000230: 52 45 51 55 49 52 45 44 20 46 4F 52 20 47 52 41 |REQUIRED FOR GRA|
00000240: 50 48 49 43 53 20 4D 4F 44 45 20 57 49 54 48 20 |PHICS MODE WITH |
00000250: 4E 4F 20 4C 49 4E 45 46 45 45 44 53 22 3B 50 41 |NO LINEFEEDS";PA|
00000260: 00 8B 42 0A 00 8F 20 2B 2D 2D 2D 2D 2D 2D 2D 2D |..B... +--------|
00000270: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000280: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 00 B6 42 0B 00 |----------+..B..|
00000290: 8F 20 21 20 20 20 44 45 46 49 4E 49 54 49 4F 4E |. ! DEFINITION|
000002A0: 53 20 4F 46 20 54 48 45 20 45 51 55 41 54 49 4F |S OF THE EQUATIO|
000002B0: 4E 53 20 20 20 21 00 E1 42 0C 00 8F 20 2B 2D 2D |NS !..B... +--|
000002C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000002D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000002E0: 2B 00 0C 43 0D 00 8F 20 2B 2D 2D 2D 2D 2D 2D 2D |+..C... +-------|
000002F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000300: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 00 37 43 0E |-----------+.7C.|
00000310: 00 8F 20 21 20 20 20 20 50 4F 4C 41 52 20 43 4F |.. ! POLAR CO|
00000320: 4F 52 44 49 4E 41 54 45 20 45 51 55 41 54 49 4F |ORDINATE EQUATIO|
00000330: 4E 3A 20 20 20 20 21 00 62 43 0F 00 8F 20 21 20 |N: !.bC... ! |
00000340: 20 28 49 53 20 49 4E 20 54 45 52 4D 53 20 4F 46 | (IS IN TERMS OF|
00000350: 20 54 48 45 20 41 4E 47 4C 45 20 27 54 27 29 20 | THE ANGLE 'T') |
00000360: 20 21 00 8D 43 10 00 8F 20 2B 2D 2D 2D 2D 2D 2D | !..C... +------|
00000370: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 00 A4 43 |------------+..C|
00000390: 11 00 96 20 20 20 A5 52 28 54 29 B2 35 AC BF 28 |... .R(T).5..(|
000003A0: 34 AC 54 29 00 CF 43 12 00 8F 20 2B 2D 2D 2D 2D |4.T)..C... +----|
000003B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000003C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B 00 |--------------+.|
000003D0: FA 43 13 00 8F 20 21 20 52 45 43 54 41 4E 47 55 |.C... ! RECTANGU|
000003E0: 4C 41 52 20 43 4F 4F 52 44 49 4E 41 54 45 20 45 |LAR COORDINATE E|
000003F0: 51 55 41 54 49 4F 4E 3A 20 21 00 25 44 14 00 8F |QUATION: !.%D...|
00000400: 20 21 20 20 20 20 20 28 49 53 20 49 4E 20 54 45 | ! (IS IN TE|
00000410: 52 4D 53 20 4F 46 20 27 58 27 29 20 20 20 20 20 |RMS OF 'X') |
00000420: 20 20 20 20 21 00 50 44 15 00 8F 20 2B 2D 2D 2D | !.PD... +---|
00000430: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000440: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B |---------------+|
00000450: 00 65 44 16 00 96 20 20 20 A5 59 28 58 29 B2 35 |.eD... .Y(X).5|
00000460: AC BE 28 58 29 00 90 44 17 00 8F 20 2B 2D 2D 2D |..(X)..D... +---|
00000470: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000480: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2B |---------------+|
00000490: 00 BB 44 18 00 8F 20 21 20 20 4E 4F 54 45 3A 20 |..D... ! NOTE: |
000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004B0: 20 20 20 20 20 20 20 20 20 20 21 00 E6 44 19 00 | !..D..|
000004C0: 8F 20 21 20 20 59 4F 55 20 43 41 4E 20 4F 4E 4C |. ! YOU CAN ONL|
000004D0: 59 20 48 41 56 45 20 32 20 45 51 55 41 54 49 4F |Y HAVE 2 EQUATIO|
000004E0: 4E 53 20 20 20 21 00 11 45 1A 00 8F 20 21 20 20 |NS !..E... ! |
000004F0: 49 4E 20 4D 45 4D 4F 52 59 20 41 54 20 41 4E 59 |IN MEMORY AT ANY|
00000500: 20 4F 4E 45 20 54 49 4D 45 20 20 20 20 20 20 20 | ONE TIME |
00000510: 21 00 3C 45 1B 00 8F 20 21 20 20 28 4F 4E 45 20 |!.<E... ! (ONE |
00000520: 50 4F 4C 41 52 20 26 20 4F 4E 45 20 52 45 43 54 |POLAR & ONE RECT|
00000530: 41 4E 47 55 4C 41 52 29 2E 20 20 21 00 67 45 1C |ANGULAR). !.gE.|
00000540: 00 8F 20 21 20 20 48 4F 57 45 56 45 52 2C 20 59 |.. ! HOWEVER, Y|
00000550: 4F 55 20 43 41 4E 20 48 49 54 20 52 55 4E 2F 53 |OU CAN HIT RUN/S|
00000560: 54 4F 50 20 20 20 21 00 92 45 1D 00 8F 20 21 20 |TOP !..E... ! |
00000570: 20 41 4E 44 20 43 48 41 4E 47 45 20 54 48 45 20 | AND CHANGE THE |
00000580: 45 51 55 41 54 49 4F 4E 53 20 20 20 20 20 20 20 |EQUATIONS |
00000590: 20 21 00 BD 45 1E 00 8F 20 21 20 20 57 49 54 48 | !..E... ! WITH|
000005A0: 4F 55 54 20 4C 4F 53 49 4E 47 20 50 52 45 56 49 |OUT LOSING PREVI|
000005B0: 4F 55 53 20 50 4C 4F 54 53 2E 20 20 21 00 E8 45 |OUS PLOTS. !..E|
000005C0: 1F 00 8F 20 21 20 20 41 46 54 45 52 20 43 48 41 |... ! AFTER CHA|
000005D0: 4E 47 49 4E 47 20 54 48 45 20 45 51 55 41 54 49 |NGING THE EQUATI|
000005E0: 4F 4E 53 2C 20 20 20 21 00 13 46 20 00 8F 20 21 |ONS, !..F .. !|
000005F0: 20 20 28 44 45 46 49 4E 45 44 20 49 4E 20 4C 49 | (DEFINED IN LI|
00000600: 4E 45 53 20 31 37 20 26 20 32 32 29 2C 20 20 20 |NES 17 & 22), |
00000610: 20 20 21 00 3E 46 21 00 8F 20 21 20 20 53 49 4D | !.>F!.. ! SIM|
00000620: 50 4C 59 20 52 45 2D 52 55 4E 20 54 48 45 20 50 |PLY RE-RUN THE P|
00000630: 52 4F 47 52 41 4D 2E 20 20 20 20 20 20 21 00 69 |ROGRAM. !.i|
00000640: 46 22 00 8F 20 21 20 20 54 59 50 45 20 22 52 55 |F".. ! TYPE "RU|
00000650: 4E 20 31 30 2D 22 20 26 20 48 49 54 20 52 45 54 |N 10-" & HIT RET|
00000660: 55 52 4E 2E 20 20 20 20 21 00 94 46 23 00 8F 20 |URN. !..F#.. |
00000670: 2B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |+---------------|
00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000690: 2D 2D 2D 2B 00 B5 46 24 00 97 34 37 2C 30 3A 97 |---+..F$..47,0:.|
000006A0: 34 38 2C 36 38 3A FE 25 3A D7 37 34 3A 43 53 B2 |48,68:.%:.74:CS.|
000006B0: 35 35 32 39 36 00 E7 46 25 00 99 22 93 47 52 41 |55296..F%..".GRA|
000006C0: 50 48 20 28 50 29 4F 4C 41 52 20 4F 52 20 28 52 |PH (P)OLAR OR (R|
000006D0: 29 45 43 54 41 4E 47 55 4C 41 52 20 45 51 55 41 |)ECTANGULAR EQUA|
000006E0: 54 49 4F 4E 20 3F 22 00 05 47 26 00 A1 F9 41 24 |TION ?"..G&...A$|
000006F0: 3A 8B 20 41 24 B2 22 50 22 20 A7 20 52 B2 31 3A |:. A$."P" . R.1:|
00000700: D5 20 52 B2 30 00 40 47 27 00 52 56 B2 31 3A 8B |. R.0.@G'.RV.1:.|
00000710: 41 24 B2 22 50 22 A7 85 22 20 48 4F 57 20 4D 41 |A$."P".." HOW MA|
00000720: 4E 59 20 52 45 56 4F 4C 55 54 49 4F 4E 53 20 28 |NY REVOLUTIONS (|
00000730: 44 45 46 41 55 4C 54 3D 31 2E 30 29 22 3B 52 56 |DEFAULT=1.0)";RV|
00000740: 00 80 47 28 00 53 41 B2 30 3A 8B 41 24 B2 22 50 |..G(.SA.0:.A$."P|
00000750: 22 A7 85 22 20 53 54 41 52 54 49 4E 47 20 41 4E |".." STARTING AN|
00000760: 47 4C 45 20 49 4E 20 52 41 44 49 41 4E 53 20 28 |GLE IN RADIANS (|
00000770: 44 45 46 41 55 4C 54 3D 30 2E 30 29 22 3B 53 41 |DEFAULT=0.0)";SA|
00000780: 00 F0 47 29 00 58 52 B2 32 30 3A 59 52 B2 32 30 |..G).XR.20:YR.20|
00000790: 3A 49 B2 2E 30 35 3A 85 22 20 58 2D 52 41 4E 47 |:I..05:." X-RANG|
000007A0: 45 20 28 44 45 46 41 55 4C 54 3D 32 30 2E 30 29 |E (DEFAULT=20.0)|
000007B0: 22 3B 58 52 3A 85 22 20 59 2D 52 41 4E 47 45 20 |";XR:." Y-RANGE |
000007C0: 28 44 45 46 41 55 4C 54 3D 32 30 2E 30 29 22 3B |(DEFAULT=20.0)";|
000007D0: 59 52 3A 85 22 20 49 4E 43 52 45 4D 45 4E 54 20 |YR:." INCREMENT |
000007E0: 28 44 45 46 41 55 4C 54 3D 2E 30 35 29 22 3B 49 |(DEFAULT=.05)";I|
000007F0: 00 44 48 2A 00 58 49 B2 AB 28 58 52 AD 32 2E 30 |.DH*.XI..(XR.2.0|
00000800: 29 3A 8B 41 24 B3 B1 22 50 22 A7 20 85 22 20 53 |):.A$.."P". ." S|
00000810: 54 41 52 54 49 4E 47 20 58 2D 50 4F 49 4E 54 20 |TARTING X-POINT |
00000820: 28 44 45 46 41 55 4C 54 3D 4E 45 47 41 54 49 56 |(DEFAULT=NEGATIV|
00000830: 45 20 52 41 4E 47 45 20 45 4E 50 4F 49 4E 54 29 |E RANGE ENPOINT)|
00000840: 22 3B 58 49 00 96 48 2B 00 58 46 B2 28 58 52 AD |";XI..H+.XF.(XR.|
00000850: 32 2E 30 29 3A 8B 41 24 B3 B1 22 50 22 A7 20 85 |2.0):.A$.."P". .|
00000860: 22 20 45 4E 44 49 4E 47 20 58 2D 50 4F 49 4E 54 |" ENDING X-POINT|
00000870: 20 28 44 45 46 41 55 4C 54 3D 50 4F 53 49 54 49 | (DEFAULT=POSITI|
00000880: 56 45 20 52 41 4E 47 45 20 45 4E 44 50 4F 49 4E |VE RANGE ENDPOIN|
00000890: 54 29 22 3B 58 46 00 CF 48 2C 00 99 22 20 43 4C |T)";XF..H,.." CL|
000008A0: 45 41 52 20 54 48 45 20 53 43 52 45 45 4E 20 28 |EAR THE SCREEN (|
000008B0: 59 2F 4E 29 20 3F 22 3A A1 F9 42 24 3A 8B 42 24 |Y/N) ?":..B$:.B$|
000008C0: B2 22 4E 22 A7 43 4C B2 31 3A D5 43 4C B2 30 00 |."N".CL.1:.CL.0.|
000008D0: FC 48 2D 00 99 22 20 44 55 4D 50 20 47 52 41 50 |.H-.." DUMP GRAP|
000008E0: 48 20 54 4F 20 50 52 49 4E 54 45 52 20 28 59 2F |H TO PRINTER (Y/|
000008F0: 4E 29 20 3F 22 3A A1 F9 20 44 50 24 00 2C 49 2E |N) ?":.. DP$.,I.|
00000900: 00 8B 20 44 50 24 B2 22 59 22 20 A7 20 99 22 20 |.. DP$."Y" . ." |
00000910: 50 52 49 4E 54 20 4F 55 54 20 53 49 5A 45 20 28 |PRINT OUT SIZE (|
00000920: 31 2D 34 29 20 3F 22 3A A1 F9 53 5A 00 52 49 2F |1-4) ?":..SZ.RI/|
00000930: 00 58 53 B2 39 30 2E 30 AD 28 58 52 AD 32 2E 30 |.XS.90.0.(XR.2.0|
00000940: 29 3A 59 53 B2 39 30 2E 30 AD 28 59 52 AD 32 2E |):YS.90.0.(YR.2.|
00000950: 30 29 00 63 49 30 00 40 DE 2C 30 2C 31 32 3A 40 |0).cI0.@.,0,12:@|
00000960: 9C 2C 30 00 7F 49 31 00 8B 20 43 4C B2 31 20 A7 |.,0..I1.. CL.1 .|
00000970: 20 40 FE 21 2C 30 2C 30 2C 30 3A 89 20 35 33 00 | @.!,0,0,0:. 53.|
00000980: A8 49 32 00 40 E5 2C 39 34 2C 39 39 2C 35 34 35 |.I2.@.,94,99,545|
00000990: 2C 39 39 2C 31 3A 40 E5 2C 33 31 39 2C 39 2C 33 |,99,1:@.,319,9,3|
000009A0: 31 39 2C 31 39 30 2C 31 00 D8 49 33 00 40 E0 2C |19,190,1..I3.@.,|
000009B0: 43 53 2C 33 31 34 2C 30 2C 31 2C 31 2C 22 2B D9 |CS,314,0,1,1,"+.|
000009C0: 22 3A 40 E0 2C 43 53 2C 33 31 34 2C 31 39 33 2C |":@.,CS,314,193,|
000009D0: 31 2C 31 2C 22 2D D9 22 00 07 4A 34 00 40 E0 2C |1,1,"-."..J4.@.,|
000009E0: 43 53 2C 37 39 2C 39 36 2C 31 2C 31 2C 22 2D D8 |CS,79,96,1,1,"-.|
000009F0: 22 3A 40 E0 2C 43 53 2C 35 35 35 2C 39 36 2C 31 |":@.,CS,555,96,1|
00000A00: 2C 31 2C 22 2B D8 22 00 16 4A 35 00 8B 20 52 B2 |,1,"+."..J5.. R.|
00000A10: 31 20 A7 20 36 30 00 41 4A 36 00 58 31 B2 33 31 |1 . 60.AJ6.X1.31|
00000A20: 39 AA 28 28 58 49 AC 58 53 29 AC 32 2E 35 29 3A |9.((XI.XS).2.5):|
00000A30: 59 31 B2 39 39 AB 28 A5 59 28 58 49 29 AC 59 53 |Y1.99.(.Y(XI).YS|
00000A40: 29 00 55 4A 37 00 81 20 58 B2 58 49 20 A4 20 58 |).UJ7.. X.XI . X|
00000A50: 46 20 A9 20 49 00 82 4A 38 00 59 B2 A5 59 28 58 |F . I..J8.Y..Y(X|
00000A60: 29 3A 58 50 B2 33 31 39 AA 28 28 58 AC 58 53 29 |):XP.319.((X.XS)|
00000A70: AC 32 2E 35 29 3A 59 50 B2 39 39 AB 28 59 AC 59 |.2.5):YP.99.(Y.Y|
00000A80: 53 29 00 B8 4A 39 00 8B 20 59 50 B3 39 20 B0 20 |S)..J9.. YP.9 . |
00000A90: 59 50 B1 31 39 30 20 B0 20 59 31 B3 39 20 B0 20 |YP.190 . Y1.9 . |
00000AA0: 59 31 B1 31 39 30 20 A7 20 58 31 B2 58 50 3A 59 |Y1.190 . X1.XP:Y|
00000AB0: 31 B2 59 50 3A 89 35 39 00 D9 4A 3A 00 40 E5 2C |1.YP:.59..J:.@.,|
00000AC0: 58 31 2C 59 31 2C 58 50 2C 59 50 2C 31 3A 58 31 |X1,Y1,XP,YP,1:X1|
00000AD0: B2 58 50 3A 59 31 B2 59 50 00 E6 4A 3B 00 82 20 |.XP:Y1.YP..J;.. |
00000AE0: 58 3A 89 20 36 36 00 23 4B 3C 00 58 31 B2 33 31 |X:. 66.#K<.X1.31|
00000AF0: 39 AA 28 28 28 A5 52 28 53 41 29 AC BE 28 53 41 |9.(((.R(SA)..(SA|
00000B00: 29 29 AC 58 53 29 AC 32 2E 35 29 3A 59 31 B2 39 |)).XS).2.5):Y1.9|
00000B10: 39 AB 28 A5 52 28 53 41 29 AC BF 28 53 41 29 AC |9.(.R(SA)..(SA).|
00000B20: 59 53 29 00 3C 4B 3D 00 81 54 B2 53 41 A4 28 36 |YS).<K=..T.SA.(6|
00000B30: 2E 34 AC 52 56 29 AA 53 41 A9 20 49 00 7B 4B 3E |.4.RV).SA. I.{K>|
00000B40: 00 52 B2 A5 52 28 54 29 3A 58 B2 52 AC BE 28 54 |.R..R(T):X.R..(T|
00000B50: 29 3A 59 B2 52 AC BF 28 54 29 3A 58 50 B2 33 31 |):Y.R..(T):XP.31|
00000B60: 39 AA 28 28 58 AC 58 53 29 AC 32 2E 35 29 3A 59 |9.((X.XS).2.5):Y|
00000B70: 50 B2 39 39 AB 28 59 AC 59 53 29 00 D4 4B 3F 00 |P.99.(Y.YS)..K?.|
00000B80: 8B 20 59 50 B3 39 20 B0 20 59 50 B1 31 39 30 20 |. YP.9 . YP.190 |
00000B90: B0 20 58 50 B3 39 34 20 B0 20 58 50 B1 35 34 35 |. XP.94 . XP.545|
00000BA0: 20 B0 20 59 31 B3 39 20 B0 20 59 31 B1 31 39 30 | . Y1.9 . Y1.190|
00000BB0: 20 B0 20 58 31 B3 39 34 20 B0 20 58 31 B1 35 34 | . X1.94 . X1.54|
00000BC0: 35 20 A7 20 58 31 B2 58 50 3A 59 31 B2 59 50 3A |5 . X1.XP:Y1.YP:|
00000BD0: 89 20 36 35 00 F5 4B 40 00 40 E5 2C 58 31 2C 59 |. 65..K@.@.,X1,Y|
00000BE0: 31 2C 58 50 2C 59 50 2C 31 3A 58 31 B2 58 50 3A |1,XP,YP,1:X1.XP:|
00000BF0: 59 31 B2 59 50 00 FD 4B 41 00 82 20 54 00 17 4C |Y1.YP..KA.. T..L|
00000C00: 42 00 8B 20 44 50 24 B2 22 59 22 20 A7 20 40 48 |B.. DP$."Y" . @H|
00000C10: F4 2C 53 5A 2C 50 41 00 2D 4C 43 00 40 FE 1F 2C |.,SZ,PA.-LC.@..,|
00000C20: 30 2C 30 2C 30 2C 36 34 30 2C 32 30 30 00 69 4C |0,0,0,640,200.iL|
00000C30: 44 00 58 24 B2 22 D8 2D 52 41 4E 47 45 3A 22 AA |D.X$.".-RANGE:".|
00000C40: C4 28 AB 58 52 AD 32 29 AA 22 20 54 4F 22 AA C4 |.(.XR.2)." TO"..|
00000C50: 28 58 52 AD 32 29 3A 50 58 B2 28 33 31 39 AB C3 |(XR.2):PX.(319..|
00000C60: 28 58 24 29 AC 38 29 AD 32 00 7F 4C 45 00 40 E0 |(X$).8).2..LE.@.|
00000C70: 2C 43 53 2C 50 58 2C 30 2C 31 2C 31 2C 58 24 00 |,CS,PX,0,1,1,X$.|
00000C80: BF 4C 46 00 59 24 B2 22 D9 2D 52 41 4E 47 45 3A |.LF.Y$.".-RANGE:|
00000C90: 22 AA C4 28 AB 59 52 AD 32 29 AA 22 20 54 4F 22 |"..(.YR.2)." TO"|
00000CA0: AA C4 28 59 52 AD 32 29 3A 50 59 B2 33 31 39 AA |..(YR.2):PY.319.|
00000CB0: 28 33 31 39 AB C3 28 59 24 29 AC 38 29 AD 32 00 |(319..(Y$).8).2.|
00000CC0: D5 4C 47 00 40 E0 2C 43 53 2C 50 59 2C 30 2C 31 |.LG.@.,CS,PY,0,1|
00000CD0: 2C 31 2C 59 24 00 1F 4D 48 00 40 E0 2C 43 53 2C |,1,Y$..MH.@.,CS,|
00000CE0: 31 30 30 2C 31 39 33 2C 31 2C 31 2C 22 28 D0 D2 |100,193,1,1,"(..|
00000CF0: C5 D3 D3 20 C1 CE D9 20 CB C5 D9 29 22 3A 40 E0 |... ... ...)":@.|
00000D00: 2C 43 53 2C 34 33 32 2C 31 39 33 2C 31 2C 31 2C |,CS,432,193,1,1,|
00000D10: 22 28 D4 CF 20 C3 CF CE D4 C9 CE D5 C5 29 22 00 |"(.. ........)".|
00000D20: 56 4D 49 00 A1 F9 43 24 3A 40 54 45 58 54 3A 99 |VMI...C$:@TEXT:.|
00000D30: 22 93 47 52 41 50 48 20 41 47 41 49 4E 20 28 59 |".GRAPH AGAIN (Y|
00000D40: 2F 4E 29 20 3F 22 3A A1 F9 44 24 3A 8B 44 24 B2 |/N) ?":..D$:.D$.|
00000D50: 22 59 22 A7 33 37 00 B2 4D 4A 00 40 54 45 58 54 |"Y".37..MJ.@TEXT|
00000D60: 3A 99 22 93 95 54 4F 20 43 48 41 4E 47 45 20 45 |:."..TO CHANGE E|
00000D70: 51 55 41 54 49 4F 4E 53 2C 20 43 48 41 4E 47 45 |QUATIONS, CHANGE|
00000D80: 20 9B 4C 49 4E 45 20 31 37 95 20 28 50 4F 4C 41 | .LINE 17. (POLA|
00000D90: 52 29 20 41 4E 44 2F 4F 52 20 9B 4C 49 4E 45 20 |R) AND/OR .LINE |
00000DA0: 32 32 95 20 28 52 45 43 54 41 4E 47 55 4C 41 52 |22. (RECTANGULAR|
00000DB0: 29 22 00 00 4E 4B 00 99 22 54 48 45 4E 20 54 59 |)"..NK.."THEN TY|
00000DC0: 50 45 20 9B 22 AA C7 28 33 34 29 AA 22 52 55 4E |PE ."..(34)."RUN|
00000DD0: 31 30 2D 22 AA C7 28 33 34 29 AA 22 95 20 41 4E |10-"..(34).". AN|
00000DE0: 44 20 48 49 54 20 9B 12 52 45 54 55 52 4E 92 95 |D HIT ..RETURN..|
00000DF0: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 3A 80 | TO CONTINUE.":.|
00000E00: 00 00 00 |... |
.@.@... %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%.[@... %
%..@... % G R A P H
I T ! %..@... %
%..@... % BY JIM
WITEK -SEPTEMBER 1986 %..A... % (R
EQUIRES ULTRA HIRES V1.1) %.<A... %
%.IA.
.. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%..A...%:W 74:@WALRUS:@.,0,12:
.A.1.1
000:@.,0,14:@.,0,12:.A:..2:@.,0:@TEXT.`B
..."..SECONDARY ADDRESS OF PRINTER INTER
FACE": ."
REQUIRED FOR GRAPHICS MODE WITH NO LINEF
EEDS";PA..B... +------------------------
----------+..B... ! DEFINITIONS OF THE
EQUATIONS !..B... +------------------
----------------+..C... +---------------
-------------------+.7C... ! POLAR CO
ORDINATE EQUATION: !.BC... ! (IS IN
TERMS OF THE ANGLE 'T') !..C... +------
----------------------------+..C... .R
(T).5..(4.T).OC... +--------------------
--------------+..C... ! RECTANGULAR COOR
DINATE EQUATION: !.%D... ! (IS IN TE
RMS OF 'X') !.PD... +-----------
-----------------------+.ED... .Y(X).5
..(X)..D... +---------------------------
-------+..D... ! NOTE:
!..D... ! YOU CAN ONLY HAVE 2
EQUATIONS !..E... ! IN MEMORY AT ANY
ONE TIME !.<E... ! (ONE POLAR &
ONE RECTANGULAR). !.GE... ! HOWEVER, Y
OU CAN HIT RUN/STOP !..E... ! AND CHA
NGE THE EQUATIONS !..E... ! WITH
OUT LOSING PREVIOUS PLOTS. !..E... ! A
FTER CHANGING THE EQUATIONS, !..F .. !
(DEFINED IN LINES 17 & 22), !.>F!.
. ! SIMPLY RE-RUN THE PROGRAM. !.I
F".. ! TYPE "RUN 10-" & HIT RETURN.
!..F#.. +-------------------------------
---+..F$..47,0:.48,68:.%:W74:CS.55296..F
%..".GRAPH (P)OLAR OR (R)ECTANGULAR EQUA
TION ?"..G&...A$:. A$."P" . R.1:U R.0.@G
'.RV.1:.A$."P".." HOW MANY REVOLUTIONS (
DEFAULT=1.0)";RV..G(.SA.0:.A$."P".." STA
RTING ANGLE IN RADIANS (DEFAULT=0.0)";SA
..G).XR.20:YR.20:I..05:." X-RANGE (DEFAU
LT=20.0)";XR:." Y-RANGE (DEFAULT=20.0)";
YR:." INCREMENT (DEFAULT=.05)";I.DH*.XI.
.(XR.2.0):.A$.."P". ." STARTING X-POINT
(DEFAULT=NEGATIVE RANGE ENPOINT)";XI..H+
.XF.(XR.2.0):.A$.."P". ." ENDING X-POINT
(DEFAULT=POSITIVE RANGE ENDPOINT)";XF.O
H,.." CLEAR THE SCREEN (Y/N) ?":..B$:.B$
."N".CL.1:UCL.0..H-.." DUMP GRAPH TO PRI
NTER (Y/N) ?":.. DP$.,I... DP$."Y" . ."
PRINT OUT SIZE (1-4) ?":..SZ.RI/.XS.90.0
.(XR.2.0):YS.90.0.(YR.2.0).CI0.@.,0,12:@
.,0.I1.. CL.1 . @.!,0,0,0:. 53..I2.@.,9
4,99,545,99,1:@.,319,9,319,190,1.XI3.@.,
CS,314,0,1,1,"+Y":@.,CS,314,193,1,1,"-Y"
..J4.@.,CS,79,96,1,1,"-X":@.,CS,555,96,1
,1,"+X"..J5.. R.1 . 60.AJ6.X1.319.((XI.X
S).2.5):Y1.99.(.Y(XI).YS).UJ7.. X.XI . X
F . I..J8.Y..Y(X):XP.319.((X.XS).2.5):YP
.99.(Y.YS)..J9.. YP.9 . YP.190 . Y1.9 .
Y1.190 . X1.XP:Y1.YP:.59.YJ:.@.,X1,Y1,XP
,YP,1:X1.XP:Y1.YP..J;.. X:. 66.#K<.X1.31
9.(((.R(SA)..(SA)).XS).2.5):Y1.99.(.R(SA
)..(SA).YS).<K=..T.SA.(6.4.RV).SA. I.{K>
.R..R(T):X.R..(T):Y.R..(T):XP.319.((X.XS
).2.5):YP.99.(Y.YS).TK?.. YP.9 . YP.190
. XP.94 . XP.545 . Y1.9 . Y1.190 . X1.94
. X1.545 . X1.XP:Y1.YP:. 65..K@.@.,X1,Y
1,XP,YP,1:X1.XP:Y1.YP..KA.. T..LB.. DP$.
"Y" . @H.,SZ,PA.-LC.@..,0,0,0,640,200.IL
D.X$."X-RANGE:".D(.XR.2)." TO".D(XR.2):P
X.(319.C(X$).8).2.LE.@.,CS,PX,0,1,1,X$.
.LF.Y$."Y-RANGE:".D(.YR.2)." TO".D(YR.2)
:PY.319.(319.C(Y$).8).2.ULG.@.,CS,PY,0,1
,1,Y$..MH.@.,CS,100,193,1,1,"(PRESS ANY
KEY)":@.,CS,432,193,1,1,"(TO CONTINUE)".
VMI...C$:@TEXT:.".GRAPH AGAIN (Y/N) ?":.
.D$:.D$."Y".37..MJ.@TEXT:."..TO CHANGE E
QUATIONS, CHANGE .LINE 17. (POLAR) AND/O
R .LINE 22. (RECTANGULAR)"..NK.."THEN TY
PE .".G(34)."RUN10-".G(34).". AND HIT ..
RETURN.. TO CONTINUE.":....
> CLICK IMAGE PREVIEW FOR FULL MODAL