T.GRAPHS
FILE INFORMATION
FILENAME(S): T.GRAPHS
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-10-20 14:29:49
APPEARS ON: 1 disk(s)
FILE HASH
30a6eb66e78859925f6d3c5edb682e15b1eaf338cb80b5f09e0753ddd5bdf753
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UH SYSTEM DISK | T.GRAPHS | PRG | Treasure Chest - Klaus Der Suhler | 20 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 40 1B 40 0A 00 8F 20 42 41 53 49 43 20 50 52 |.@.@... BASIC PR|
00000010: 4F 47 52 41 4D 20 53 45 54 55 50 00 36 40 14 00 |OGRAM SETUP.6@..|
00000020: FE 25 3A 20 8F 20 45 4E 41 42 4C 45 20 32 20 4D |.%: . ENABLE 2 M|
00000030: 48 20 4D 4F 44 45 00 6A 40 1E 00 97 34 37 2C 30 |H MODE.j@...47,0|
00000040: 3A 97 34 38 2C 31 33 32 3A 9C 3A 20 8F 20 53 45 |:.48,132:.: . SE|
00000050: 54 20 55 50 20 33 32 4B 20 42 55 46 46 45 52 20 |T UP 32K BUFFER |
00000060: 46 4F 52 20 40 53 54 41 53 48 00 B1 40 28 00 40 |FOR @STASH..@(.@|
00000070: DE 2C 36 2C 30 3A 20 8F 20 47 4F 54 4F 20 55 4C |.,6,0: . GOTO UL|
00000080: 54 52 41 20 48 49 52 45 53 20 53 43 52 45 45 4E |TRA HIRES SCREEN|
00000090: 20 28 36 34 30 20 58 20 32 30 30 29 20 41 4E 44 | (640 X 200) AND|
000000A0: 20 53 45 54 20 43 4F 4C 4F 52 53 20 42 47 2C 46 | SET COLORS BG,F|
000000B0: 47 00 D6 40 32 00 40 9C 2C 30 3A 20 8F 20 43 4C |G..@2.@.,0: . CL|
000000C0: 45 41 52 20 55 4C 54 52 41 20 48 49 52 45 53 20 |EAR ULTRA HIRES |
000000D0: 53 43 52 45 45 4E 00 EB 40 3C 00 F9 31 2C 22 40 |SCREEN..@<..1,"@|
000000E0: 47 52 41 50 48 49 43 2C 30 2C 22 00 0C 41 46 00 |GRAPHIC,0,"..AF.|
000000F0: FE 11 20 22 43 4F 4D 50 55 54 45 52 20 46 4F 4E |.. "COMPUTER FON|
00000100: 54 22 2C 42 30 2C 50 33 35 30 30 30 00 2A 41 50 |T",B0,P35000.*AP|
00000110: 00 FE 11 20 22 52 4F 4D 41 4E 20 46 4F 4E 54 22 |... "ROMAN FONT"|
00000120: 2C 42 30 2C 50 34 30 30 30 30 00 48 41 5A 00 86 |,B0,P40000.HAZ..|
00000130: 20 41 44 28 31 30 30 29 2C 58 28 32 2C 37 30 29 | AD(100),X(2,70)|
00000140: 2C 59 28 32 2C 37 30 29 00 93 41 64 00 D7 20 37 |,Y(2,70)..Ad.. 7|
00000150: 34 30 3A 8F 20 53 45 54 20 55 50 20 53 59 4E 54 |40:. SET UP SYNT|
00000160: 41 58 20 45 52 52 4F 52 20 54 52 41 50 20 54 4F |AX ERROR TRAP TO|
00000170: 20 52 45 54 55 52 4E 20 54 4F 20 54 45 58 54 20 | RETURN TO TEXT |
00000180: 4D 4F 44 45 20 41 4E 44 20 4C 49 53 54 20 45 52 |MODE AND LIST ER|
00000190: 52 4F 52 00 99 41 6E 00 3A 00 B3 41 78 00 8F 20 |ROR..An.:..Ax.. |
000001A0: 50 52 4F 47 52 41 4D 20 42 45 47 49 4E 53 20 48 |PROGRAM BEGINS H|
000001B0: 45 52 45 00 B9 41 82 00 8F 00 C2 41 8C 00 4D 43 |ERE..A.....A..MC|
000001C0: B2 30 00 E5 41 96 00 8F 20 53 41 56 45 20 42 4C |.0..A... SAVE BL|
000001D0: 41 4E 4B 20 41 52 45 41 53 20 46 4F 52 20 57 49 |ANK AREAS FOR WI|
000001E0: 4E 44 4F 57 53 00 13 42 A0 00 40 FE 1F 2C 4D 43 |NDOWS..B..@..,MC|
000001F0: 2C 31 30 2C 31 30 2C 33 31 30 2C 31 32 30 3A 41 |,10,10,310,120:A|
00000200: 44 28 30 29 B2 4D 43 3A 8D 20 37 37 30 3A 4D 43 |D(0).MC:. 770:MC|
00000210: B2 41 44 00 41 42 AA 00 40 FE 1F 2C 4D 43 2C 33 |.AD.AB..@..,MC,3|
00000220: 32 30 2C 38 30 2C 33 31 30 2C 31 31 30 3A 41 44 |20,80,310,110:AD|
00000230: 28 31 29 B2 4D 43 3A 8D 37 37 30 3A 4D 43 B2 41 |(1).MC:.770:MC.A|
00000240: 44 00 56 42 B4 00 40 E1 2C 30 2C 30 2C 36 33 39 |D.VB..@.,0,0,639|
00000250: 2C 31 39 39 2C 31 00 79 42 BE 00 81 59 48 B2 30 |,199,1.yB...YH.0|
00000260: A4 31 39 39 A9 31 30 3A 40 E5 2C 30 2C 59 48 2C |.199.10:@.,0,YH,|
00000270: 32 30 2C 59 48 2C 31 3A 82 00 9F 42 C8 00 81 58 |20,YH,1:...B...X|
00000280: 48 B2 30 A4 36 33 39 A9 32 30 3A 40 E5 2C 58 48 |H.0.639.20:@.,XH|
00000290: 2C 31 39 39 2C 58 48 2C 31 39 30 2C 31 3A 82 00 |,199,XH,190,1:..|
000002A0: B2 42 D2 00 58 B2 30 3A 59 B2 31 39 39 3A 43 54 |.B..X.0:Y.199:CT|
000002B0: B2 30 00 CF 42 DC 00 8F 20 4D 41 4B 45 20 46 49 |.0..B... MAKE FI|
000002C0: 52 53 54 20 4C 41 52 47 45 20 47 52 41 50 48 00 |RST LARGE GRAPH.|
000002D0: DD 42 E6 00 EB 20 FD 20 58 B3 36 33 39 00 EB 42 |.B... . X.639..B|
000002E0: F0 00 4F 58 B2 58 3A 4F 59 B2 59 00 28 43 FA 00 |..OX.X:OY.Y.(C..|
000002F0: 44 58 B2 B5 28 BB 28 31 29 AC 31 30 29 AA 31 30 |DX..(.(1).10).10|
00000300: 3A 44 59 B2 B5 28 BB 28 31 29 AC 32 30 30 29 3A |:DY..(.(1).200):|
00000310: 58 B2 58 AA 44 58 3A 59 B2 44 59 3A 8B 58 B1 36 |X.X.DX:Y.DY:.X.6|
00000320: 33 39 A7 58 B2 36 33 39 00 56 43 04 01 58 28 31 |39.X.639.VC..X(1|
00000330: 2C 43 54 29 B2 4F 58 3A 58 28 32 2C 43 54 29 B2 |,CT).OX:X(2,CT).|
00000340: 58 3A 59 28 31 2C 43 54 29 B2 4F 59 3A 59 28 32 |X:Y(1,CT).OY:Y(2|
00000350: 2C 43 54 29 B2 59 00 69 43 0E 01 40 E5 2C 4F 58 |,CT).Y.iC..@.,OX|
00000360: 2C 4F 59 2C 58 2C 59 2C 31 00 75 43 18 01 43 54 |,OY,X,Y,1.uC..CT|
00000370: B2 43 54 AA 31 00 7B 43 22 01 EC 00 9F 43 2C 01 |.CT.1.{C"....C,.|
00000380: 40 E0 2C 33 35 30 30 30 2C 31 36 2C 35 30 2C 31 |@.,35000,16,50,1|
00000390: 33 2C 31 33 2C 22 18 47 52 41 50 48 53 05 22 00 |3,13,".GRAPHS.".|
000003A0: CD 43 36 01 40 FE 1F 2C 4D 43 2C 31 30 2C 31 30 |.C6.@..,MC,10,10|
000003B0: 2C 33 31 30 2C 31 32 30 3A 41 44 28 32 29 B2 4D |,310,120:AD(2).M|
000003C0: 43 3A 8D 20 37 37 30 3A 4D 43 B2 41 44 00 D3 43 |C:. 770:MC.AD..C|
000003D0: 40 01 8F 00 EB 43 4A 01 8F 20 4D 41 4B 45 20 53 |@....CJ.. MAKE S|
000003E0: 45 43 4F 4E 44 20 47 52 41 50 48 00 13 44 54 01 |ECOND GRAPH..DT.|
000003F0: 40 FE 21 2C 41 44 28 30 29 2C 31 30 2C 31 30 3A |@.!,AD(0),10,10:|
00000400: 8F 20 4D 41 4B 45 20 42 4C 41 4E 4B 20 57 49 4E |. MAKE BLANK WIN|
00000410: 44 4F 57 00 2A 44 5E 01 40 E1 2C 31 30 2C 31 30 |DOW.*D^.@.,10,10|
00000420: 2C 33 31 39 2C 31 32 39 2C 31 00 4A 44 68 01 40 |,319,129,1.JDh.@|
00000430: E0 2C 34 30 30 30 30 2C 31 36 2C 31 30 35 2C 33 |.,40000,16,105,3|
00000440: 2C 32 2C 22 D3 41 4C 45 53 22 00 5B 44 72 01 43 |,2,".ALES".[Dr.C|
00000450: 58 B2 31 36 30 3A 43 59 B2 36 35 00 71 44 7C 01 |X.160:CY.65.qD|.|
00000460: 40 E2 2C 31 2C 43 58 2C 43 59 2C 31 32 30 2C 34 |@.,1,CX,CY,120,4|
00000470: 38 00 8C 44 86 01 40 E5 2C 43 58 2C 43 59 2C 43 |8..D..@.,CX,CY,C|
00000480: 58 AA 33 30 2C 43 59 AA 34 36 2C 31 00 A7 44 90 |X.30,CY.46,1..D.|
00000490: 01 40 E5 2C 43 58 2C 43 59 2C 43 58 AB 33 30 2C |.@.,CX,CY,CX.30,|
000004A0: 43 59 AA 34 36 2C 31 00 C2 44 9A 01 40 E5 2C 43 |CY.46,1..D..@.,C|
000004B0: 58 2C 43 59 2C 43 58 AB 32 30 2C 43 59 AB 34 37 |X,CY,CX.20,CY.47|
000004C0: 2C 31 00 DB 44 A4 01 40 E5 2C 43 58 2C 43 59 2C |,1..D..@.,CX,CY,|
000004D0: 43 58 AA 31 32 30 2C 43 59 2C 31 00 FA 44 AE 01 |CX.120,CY,1..D..|
000004E0: 40 E0 2C 37 31 36 38 2C 31 36 2C 33 35 2C 31 2C |@.,7168,16,35,1,|
000004F0: 30 2C 22 20 D3 4D 49 54 48 22 00 1D 45 B8 01 40 |0," .MITH"..E..@|
00000500: E0 2C 37 31 36 38 2C 31 34 34 2C 31 31 36 2C 31 |.,7168,144,116,1|
00000510: 2C 30 2C 22 20 CA 4F 48 4E 53 4F 4E 22 00 3F 45 |,0," .OHNSON".?E|
00000520: C2 01 40 E0 2C 37 31 36 38 2C 32 37 34 2C 32 35 |..@.,7168,274,25|
00000530: 2C 31 2C 30 2C 22 C4 41 56 49 44 53 4F 4E 22 00 |,1,0,".AVIDSON".|
00000540: 60 45 CC 01 40 E0 2C 37 31 36 38 2C 32 37 34 2C |`E..@.,7168,274,|
00000550: 31 30 35 2C 31 2C 30 2C 22 CA 4F 4E 45 53 20 22 |105,1,0,".ONES "|
00000560: 00 79 45 D6 01 40 DF 2C 43 58 AB 31 30 2C 43 59 |.yE..@.,CX.10,CY|
00000570: 2C 31 2C 35 31 2C 32 30 34 00 95 45 E0 01 40 DF |,1,51,204..E..@.|
00000580: 2C 43 58 AA 31 30 2C 43 59 AB 32 35 2C 31 2C 31 |,CX.10,CY.25,1,1|
00000590: 35 2C 32 34 30 00 C4 45 EA 01 40 DF 2C 43 58 AA |5,240..E..@.,CX.|
000005A0: 31 30 2C 43 59 AA 32 35 2C 31 2C 33 2C 34 35 2C |10,CY.25,1,3,45,|
000005B0: 31 33 36 2C 35 36 2C 32 32 32 2C 31 38 2C 31 32 |136,56,222,18,12|
000005C0: 39 2C 36 36 00 EE 45 F4 01 40 DF 2C 43 58 AA 38 |9,66..E..@.,CX.8|
000005D0: 30 2C 43 59 AA 31 30 2C 31 2C 31 2C 32 2C 34 2C |0,CY.10,1,1,2,4,|
000005E0: 38 2C 31 36 2C 33 32 2C 36 34 2C 31 32 38 00 06 |8,16,32,64,128..|
000005F0: 46 FE 01 8F 20 53 41 56 45 20 53 45 43 4F 4E 44 |F... SAVE SECOND|
00000600: 20 47 52 41 50 48 00 34 46 08 02 40 FE 1F 2C 4D | GRAPH.4F..@..,M|
00000610: 43 2C 31 30 2C 31 30 2C 33 31 30 2C 31 32 30 3A |C,10,10,310,120:|
00000620: 41 44 28 33 29 B2 4D 43 3A 8D 20 37 37 30 3A 4D |AD(3).MC:. 770:M|
00000630: 43 B2 41 44 00 56 46 12 02 8F 20 53 41 56 45 20 |C.AD.VF... SAVE |
00000640: 41 52 45 41 20 55 4E 44 45 52 20 54 48 49 52 44 |AREA UNDER THIRD|
00000650: 20 47 52 41 50 48 00 84 46 1C 02 40 FE 1F 2C 4D | GRAPH..F..@..,M|
00000660: 43 2C 33 32 30 2C 38 30 2C 33 31 30 2C 31 31 30 |C,320,80,310,110|
00000670: 3A 41 44 28 34 29 B2 4D 43 3A 8D 37 37 30 3A 4D |:AD(4).MC:.770:M|
00000680: 43 B2 41 44 00 8A 46 26 02 8F 00 A1 46 30 02 8F |C.AD..F&....F0..|
00000690: 20 4D 41 4B 45 20 54 48 49 52 44 20 47 52 41 50 | MAKE THIRD GRAP|
000006A0: 48 00 CA 46 3A 02 40 FE 21 2C 41 44 28 31 29 2C |H..F:.@.!,AD(1),|
000006B0: 33 32 30 2C 38 30 3A 8F 20 4D 41 4B 45 20 42 4C |320,80:. MAKE BL|
000006C0: 41 4E 4B 20 57 49 4E 44 4F 57 00 E2 46 44 02 40 |ANK WINDOW..FD.@|
000006D0: E1 2C 33 32 30 2C 38 30 2C 36 32 39 2C 31 38 39 |.,320,80,629,189|
000006E0: 2C 31 00 F3 46 4E 02 58 B2 33 32 34 3A 59 42 B2 |,1..FN.X.324:YB.|
000006F0: 31 38 36 00 02 47 58 02 81 20 49 B2 31 20 A4 20 |186..GX.. I.1 . |
00000700: 31 30 00 17 47 62 02 48 54 B2 B5 28 BB 28 31 29 |10..Gb.HT..(.(1)|
00000710: AC 37 30 29 AA 31 30 00 2F 47 6C 02 40 42 41 52 |.70).10./Gl.@BAR|
00000720: 2C 58 2C 59 42 2C 31 38 2C 35 2C 48 54 2C 31 00 |,X,YB,18,5,HT,1.|
00000730: 3A 47 76 02 58 B2 58 AA 33 30 00 40 47 80 02 82 |:Gv.X.X.30.@G...|
00000740: 00 67 47 8A 02 40 E0 2C 35 35 32 39 36 2C 33 32 |.gG..@.,55296,32|
00000750: 35 2C 38 35 2C 32 2C 31 2C 22 18 C9 4E 56 45 4E |5,85,2,1,"..NVEN|
00000760: 54 4F 52 59 20 05 22 00 7E 47 94 02 8F 20 53 41 |TORY .".~G... SA|
00000770: 56 45 20 54 48 49 52 44 20 47 52 41 50 48 00 AC |VE THIRD GRAPH..|
00000780: 47 9E 02 40 FE 1F 2C 4D 43 2C 33 32 30 2C 38 30 |G..@..,MC,320,80|
00000790: 2C 33 31 30 2C 31 31 30 3A 41 44 28 35 29 B2 4D |,310,110:AD(5).M|
000007A0: 43 3A 8D 37 37 30 3A 4D 43 B2 41 44 00 B2 47 A8 |C:.770:MC.AD..G.|
000007B0: 02 8F 00 D7 47 B2 02 8F 20 52 45 53 54 4F 52 45 |....G... RESTORE|
000007C0: 20 41 52 45 41 20 55 4E 44 45 52 20 54 48 49 52 | AREA UNDER THIR|
000007D0: 44 20 47 52 41 50 48 00 EC 47 BC 02 40 FE 21 2C |D GRAPH..G..@.!,|
000007E0: 41 44 28 34 29 2C 33 32 30 2C 38 30 00 12 48 C6 |AD(4),320,80..H.|
000007F0: 02 8F 20 52 45 53 54 4F 52 45 20 41 52 45 41 20 |.. RESTORE AREA |
00000800: 55 4E 44 45 52 20 53 45 43 4F 4E 44 20 47 52 41 |UNDER SECOND GRA|
00000810: 50 48 00 26 48 D0 02 40 FE 21 2C 41 44 28 32 29 |PH.&H..@.!,AD(2)|
00000820: 2C 31 30 2C 31 30 00 4A 48 DA 02 40 E0 2C 33 35 |,10,10.JH..@.,35|
00000830: 30 30 30 2C 31 36 2C 35 30 2C 31 33 2C 31 33 2C |000,16,50,13,13,|
00000840: 22 18 47 52 41 50 48 53 05 22 00 50 48 E4 02 8F |".GRAPHS.".PH...|
00000850: 00 83 48 EE 02 8F 20 47 4F 54 4F 20 54 45 58 54 |..H... GOTO TEXT|
00000860: 20 4D 4F 44 45 2C 20 50 52 49 4E 54 20 53 54 41 | MODE, PRINT STA|
00000870: 54 55 53 20 41 4E 44 20 45 4E 44 20 50 52 4F 47 |TUS AND END PROG|
00000880: 52 41 4D 00 91 48 F8 02 8A 20 22 54 2E 43 55 42 |RAM..H... "T.CUB|
00000890: 45 00 AE 48 02 03 41 44 B2 C2 28 32 35 30 29 AA |E..H..AD..(250).|
000008A0: C2 28 32 35 31 29 AC 32 35 36 AA 31 3A 8E 00 00 |.(251).256.1:...|
000008B0: 00 |. |
.@.@... BASIC PROGRAM SETUP.6@...%: . EN
ABLE 2 MH MODE.J@...47,0:.48,132:.: . SE
T UP 32K BUFFER FOR @STASH..@(.@.,6,0: .
GOTO ULTRA HIRES SCREEN (640 X 200) AND
SET COLORS BG,FG.V@2.@.,0: . CLEAR ULTR
A HIRES SCREEN..@<..1,"@GRAPHIC,0,"..AF.
.. "COMPUTER FONT",B0,P35000.*AP... "ROM
AN FONT",B0,P40000.HAZ.. AD(100),X(2,70)
,Y(2,70)..AD.W 740:. SET UP SYNTAX ERROR
TRAP TO RETURN TO TEXT MODE AND LIST ER
ROR..AN.:..AX.. PROGRAM BEGINS HERE..A..
..BA..MC.0..A... SAVE BLANK AREAS FOR WI
NDOWS..B .@..,MC,10,10,310,120:AD(0).MC:
. 770:MC.AD.AB..@..,MC,320,80,310,110:AD
(1).MC:.770:MC.AD.VB..@.,0,0,639,199,1.Y
B...YH.0.199.10:@.,0,YH,20,YH,1:...BH..X
H.0.639.20:@.,XH,199,XH,190,1:...BR.X.0:
Y.199:CT.0.OB... MAKE FIRST LARGE GRAPH.
.B... . X.639..B..OX.X:OY.Y.(C..DX..(.(1
).10).10:DY..(.(1).200):X.X.DX:Y.DY:.X.6
39.X.639.VC..X(1,CT).OX:X(2,CT).X:Y(1,CT
).OY:Y(2,CT).Y.IC..@.,OX,OY,X,Y,1.UC..CT
.CT.1.{C"....C,.@.,35000,16,50,13,13,".G
RAPHS.".MC6.@..,MC,10,10,310,120:AD(2).M
C:. 770:MC.AD.SC@....CJ.. MAKE SECOND GR
APH..DT.@.!,AD(0),10,10:. MAKE BLANK WIN
DOW.*D^.@.,10,10,319,129,1.JDH.@.,40000,
16,105,3,2,"SALES".[DR.CX.160:CY.65.QD|.
@.,1,CX,CY,120,48..D..@.,CX,CY,CX.30,CY.
46,1..D..@.,CX,CY,CX.30,CY.46,1.BD..@.,C
X,CY,CX.20,CY.47,1..D..@.,CX,CY,CX.120,C
Y,1..D..@.,7168,16,35,1,0," SMITH"..E..@
.,7168,144,116,1,0," JOHNSON".?EB.@.,716
8,274,25,1,0,"DAVIDSON".`EL.@.,7168,274,
105,1,0,"JONES ".YEV.@.,CX.10,CY,1,51,20
4..E..@.,CX.10,CY.25,1,15,240.DE..@.,CX.
10,CY.25,1,3,45,136,56,222,18,129,66..E.
.@.,CX.80,CY.10,1,1,2,4,8,16,32,64,128..
F... SAVE SECOND GRAPH.4F..@..,MC,10,10,
310,120:AD(3).MC:. 770:MC.AD.VF... SAVE
AREA UNDER THIRD GRAPH..F..@..,MC,320,80
,310,110:AD(4).MC:.770:MC.AD..F&....F0..
MAKE THIRD GRAPH.JF:.@.!,AD(1),320,80:.
MAKE BLANK WINDOW..FD.@.,320,80,629,189
,1..FN.X.324:YB.186..GX.. I.1 . 10..GB.H
T..(.(1).70).10./GL.@BAR,X,YB,18,5,HT,1.
:GV.X.X.30.@G....GG..@.,55296,325,85,2,1
,".INVENTORY .".~G... SAVE THIRD GRAPH..
G..@..,MC,320,80,310,110:AD(5).MC:.770:M
C.AD..G....WG... RESTORE AREA UNDER THIR
D GRAPH..G..@.!,AD(4),320,80..HF.. RESTO
RE AREA UNDER SECOND GRAPH.&HP.@.!,AD(2)
,10,10.JHZ.@.,35000,16,50,13,13,".GRAPHS
.".PH.....H... GOTO TEXT MODE, PRINT STA
TUS AND END PROGRAM..H... "T.CUBE..H..AD
.B(250).B(251).256.1:....
> CLICK IMAGE PREVIEW FOR FULL MODAL