T.CUBE
FILE INFORMATION
FILENAME(S): T.CUBE
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-10-20 14:29:49
APPEARS ON: 1 disk(s)
FILE HASH
38598af0332e568ae6f43fc677d3eaad09ba406b2ee3a2c3b1d442a5db320826
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UH SYSTEM DISK | T.CUBE | PRG | Treasure Chest - Klaus Der Suhler | 20 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 40 1C 40 0A 00 FE 25 3A 20 8F 20 45 4E 41 42 |.@.@...%: . ENAB| 00000010: 4C 45 20 32 20 4D 48 20 4D 4F 44 45 00 50 40 14 |LE 2 MH MODE.P@.| 00000020: 00 97 34 37 2C 30 3A 97 34 38 2C 31 33 32 3A 9C |..47,0:.48,132:.| 00000030: 3A 20 8F 20 53 45 54 20 55 50 20 33 32 4B 20 42 |: . SET UP 32K B| 00000040: 55 46 46 45 52 20 46 4F 52 20 40 53 54 41 53 48 |UFFER FOR @STASH| 00000050: 00 92 40 1E 00 40 DE 2C 30 2C 31 31 3A 40 9C 2C |..@..@.,0,11:@.,| 00000060: 30 3A 20 8F 20 45 4E 41 42 4C 45 20 55 4C 54 52 |0: . ENABLE ULTR| 00000070: 41 20 48 49 52 45 53 20 36 34 30 20 58 20 32 30 |A HIRES 640 X 20| 00000080: 30 20 41 4E 44 20 43 4C 45 41 52 20 53 43 52 45 |0 AND CLEAR SCRE| 00000090: 45 4E 00 DE 40 28 00 D7 20 34 38 30 3A 20 8F 20 |EN..@(.. 480: . | 000000A0: 53 45 54 20 55 50 20 53 59 4E 54 41 58 20 45 52 |SET UP SYNTAX ER| 000000B0: 52 4F 52 20 54 52 41 50 20 54 4F 20 52 45 54 55 |ROR TRAP TO RETU| 000000C0: 52 4E 20 54 4F 20 54 45 58 54 20 4D 4F 44 45 20 |RN TO TEXT MODE | 000000D0: 41 4E 44 20 4C 49 53 54 20 45 52 52 4F 52 00 FC |AND LIST ERROR..| 000000E0: 40 32 00 86 20 58 28 31 39 29 2C 59 28 31 39 29 |@2.. X(19),Y(19)| 000000F0: 2C 5A 28 31 39 29 2C 41 28 36 35 29 00 1D 41 3C |,Z(19),A(65)..A<| 00000100: 00 8F 20 52 45 41 44 20 43 55 42 45 20 44 41 54 |.. READ CUBE DAT| 00000110: 41 20 49 4E 54 4F 20 41 52 52 41 59 53 00 45 41 |A INTO ARRAYS.EA| 00000120: 46 00 40 E0 2C 33 35 30 30 30 2C 30 2C 31 30 30 |F.@.,35000,0,100| 00000130: 2C 32 2C 34 2C 22 05 46 52 41 4D 45 53 20 54 4F |,2,4,".FRAMES TO| 00000140: 20 47 4F 20 22 00 54 41 50 00 81 20 49 B2 31 20 | GO ".TAP.. I.1 | 00000150: A4 20 31 38 00 6F 41 5A 00 20 20 20 20 20 20 87 |. 18.oAZ. .| 00000160: 20 58 28 49 29 2C 59 28 49 29 2C 5A 28 49 29 00 | X(I),Y(I),Z(I).| 00000170: 75 41 64 00 82 00 AA 41 6E 00 52 48 B2 31 30 3A |uAd....An.RH.10:| 00000180: 44 B2 34 38 3A 54 48 B2 AB 32 AC FF 3A 50 B2 31 |D.48:TH..2..:P.1| 00000190: 2E 34 3A 43 58 B2 38 30 3A 43 59 B2 33 36 3A 4D |.4:CX.80:CY.36:M| 000001A0: 43 B2 30 3A 53 44 B2 36 2E 35 00 B0 41 78 00 8F |C.0:SD.6.5..Ax..| 000001B0: 00 ED 41 82 00 8F 20 4C 4F 4F 50 20 54 4F 20 44 |..A... LOOP TO D| 000001C0: 52 41 57 20 33 44 20 43 55 42 45 20 41 4E 44 20 |RAW 3D CUBE AND | 000001D0: 40 53 54 41 53 48 20 45 41 43 48 20 46 52 41 4D |@STASH EACH FRAM| 000001E0: 45 20 49 4E 54 4F 20 42 55 46 46 45 52 00 FD 41 |E INTO BUFFER..A| 000001F0: 8C 00 81 20 43 54 B2 31 20 A4 20 36 34 00 29 42 |... CT.1 . 64.)B| 00000200: 96 00 20 20 20 20 20 20 40 E0 2C 33 35 30 30 30 |.. @.,35000| 00000210: 2C 34 32 34 2C 31 30 30 2C 32 2C 34 2C C4 28 36 |,424,100,2,4,.(6| 00000220: 35 AB 43 54 29 AA 22 20 22 00 55 42 A0 00 20 20 |5.CT)." ".UB.. | 00000230: 20 20 20 20 53 31 B2 BF 28 54 48 29 3A 53 32 B2 | S1..(TH):S2.| 00000240: BF 28 50 29 3A 43 31 B2 BE 28 54 48 29 3A 43 32 |.(P):C1..(TH):C2| 00000250: B2 BE 28 50 29 00 86 42 AA 00 20 20 20 20 20 20 |..(P)..B.. | 00000260: 58 B2 58 28 31 29 3A 59 B2 59 28 31 29 3A 5A B2 |X.X(1):Y.Y(1):Z.| 00000270: 5A 28 31 29 3A 8D 20 35 30 30 3A 4F 58 B2 53 58 |Z(1):. 500:OX.SX| 00000280: 3A 4F 59 B2 53 59 00 9A 42 B4 00 20 20 20 20 20 |:OY.SY..B.. | 00000290: 20 81 20 49 B2 32 20 A4 20 35 00 E2 42 BE 00 20 | . I.2 . 5..B.. | 000002A0: 20 20 20 20 20 20 20 20 20 20 20 58 B2 58 28 49 | X.X(I| 000002B0: 29 3A 59 B2 59 28 49 29 3A 5A B2 5A 28 49 29 3A |):Y.Y(I):Z.Z(I):| 000002C0: 8D 20 35 30 30 3A 40 E5 2C 4F 58 2C 4F 59 2C 53 |. 500:@.,OX,OY,S| 000002D0: 58 2C 53 59 2C 31 3A 4F 58 B2 53 58 3A 4F 59 B2 |X,SY,1:OX.SX:OY.| 000002E0: 53 59 00 EE 42 C8 00 20 20 20 20 20 20 82 00 1F |SY..B.. ...| 000002F0: 43 D2 00 20 20 20 20 20 20 58 B2 58 28 36 29 3A |C.. X.X(6):| 00000300: 59 B2 59 28 36 29 3A 5A B2 5A 28 36 29 3A 8D 20 |Y.Y(6):Z.Z(6):. | 00000310: 35 30 30 3A 4F 58 B2 53 58 3A 4F 59 B2 53 59 00 |500:OX.SX:OY.SY.| 00000320: 34 43 DC 00 20 20 20 20 20 20 81 20 49 B2 37 20 |4C.. . I.7 | 00000330: A4 20 31 30 00 7C 43 E6 00 20 20 20 20 20 20 20 |. 10.|C.. | 00000340: 20 20 20 20 20 58 B2 58 28 49 29 3A 59 B2 59 28 | X.X(I):Y.Y(| 00000350: 49 29 3A 5A B2 5A 28 49 29 3A 8D 20 35 30 30 3A |I):Z.Z(I):. 500:| 00000360: 40 E5 2C 4F 58 2C 4F 59 2C 53 58 2C 53 59 2C 31 |@.,OX,OY,SX,SY,1| 00000370: 3A 4F 58 B2 53 58 3A 4F 59 B2 53 59 00 88 43 F0 |:OX.SX:OY.SY..C.| 00000380: 00 20 20 20 20 20 20 82 00 A2 43 FA 00 20 20 20 |. ...C.. | 00000390: 20 20 20 81 20 49 B2 31 31 20 A4 20 31 37 20 A9 | . I.11 . 17 .| 000003A0: 20 32 00 D9 43 04 01 20 20 20 20 20 20 20 20 20 | 2..C.. | 000003B0: 20 20 20 58 B2 58 28 49 29 3A 59 B2 59 28 49 29 | X.X(I):Y.Y(I)| 000003C0: 3A 5A B2 5A 28 49 29 3A 8D 20 35 30 30 3A 4F 58 |:Z.Z(I):. 500:OX| 000003D0: B2 53 58 3A 4F 59 B2 53 59 00 1B 44 0E 01 20 20 |.SX:OY.SY..D.. | 000003E0: 20 20 20 20 20 20 20 20 20 20 58 B2 58 28 49 AA | X.X(I.| 000003F0: 31 29 3A 59 B2 59 28 49 AA 31 29 3A 5A B2 5A 28 |1):Y.Y(I.1):Z.Z(| 00000400: 49 AA 31 29 3A 8D 20 35 30 30 3A 40 E5 2C 4F 58 |I.1):. 500:@.,OX| 00000410: 2C 4F 59 2C 53 58 2C 53 59 2C 31 00 37 44 18 01 |,OY,SX,SY,1.7D..| 00000420: 20 20 20 20 20 20 20 20 20 20 20 20 4F 58 B2 53 | OX.S| 00000430: 58 3A 4F 59 B2 53 59 00 43 44 22 01 20 20 20 20 |X:OY.SY.CD". | 00000440: 20 20 82 00 60 44 2C 01 20 20 20 20 20 20 40 FE | ..`D,. @.| 00000450: 1F 2C 4D 43 2C 34 35 2C 31 30 2C 37 30 2C 35 35 |.,MC,45,10,70,55| 00000460: 00 A3 44 36 01 20 20 20 20 20 20 41 28 43 54 29 |..D6. A(CT)| 00000470: B2 4D 43 3A 4D 43 B2 C2 28 32 35 30 29 AA C2 28 |.MC:MC..(250)..(| 00000480: 32 35 31 29 AC 32 35 36 AA 31 3A 8F 20 4E 45 58 |251).256.1:. NEX| 00000490: 54 20 41 56 41 49 4C 41 42 4C 45 20 41 44 44 52 |T AVAILABLE ADDR| 000004A0: 45 53 53 00 C4 44 40 01 20 20 20 20 20 20 44 B2 |ESS..D@. D.| 000004B0: 44 AA 53 44 3A 8B 20 44 B1 32 34 39 20 A7 20 44 |D.SD:. D.249 . D| 000004C0: B2 32 34 39 00 EB 44 4A 01 20 20 20 20 20 20 54 |.249..DJ. T| 000004D0: 48 B2 54 48 AA 2E 32 3A 40 F4 2C 33 32 30 2C 30 |H.TH..2:@.,320,0| 000004E0: 2C 33 30 30 2C 37 35 2C 30 2C 30 00 F1 44 54 01 |,300,75,0,0..DT.| 000004F0: 82 00 1C 45 5E 01 40 9C 2C 30 3A 20 8F 20 42 45 |...E^.@.,0: . BE| 00000500: 47 49 4E 4E 49 4E 47 20 4F 46 20 41 4E 49 4D 41 |GINNING OF ANIMA| 00000510: 54 49 4F 4E 20 52 4F 55 54 49 4E 45 00 49 45 68 |TION ROUTINE.IEh| 00000520: 01 40 E0 2C 33 35 30 30 30 2C 38 30 2C 30 2C 32 |.@.,35000,80,0,2| 00000530: 2C 33 2C 22 33 44 20 47 52 41 50 48 49 43 53 20 |,3,"3D GRAPHICS | 00000540: 41 52 45 20 45 41 53 59 22 00 79 45 72 01 40 E0 |ARE EASY".yEr.@.| 00000550: 2C 33 35 30 30 30 2C 35 36 2C 32 34 2C 32 2C 33 |,35000,56,24,2,3| 00000560: 2C 22 55 53 49 4E 47 20 43 31 32 38 20 55 4C 54 |,"USING C128 ULT| 00000570: 52 41 20 48 49 52 45 53 22 00 AA 45 7C 01 40 E0 |RA HIRES"..E|.@.| 00000580: 2C 33 35 30 30 30 2C 35 36 2C 31 34 36 2C 32 2C |,35000,56,146,2,| 00000590: 33 2C 22 57 49 54 48 20 40 53 54 41 53 48 20 41 |3,"WITH @STASH A| 000005A0: 4E 44 20 40 46 45 54 43 48 22 00 DB 45 86 01 40 |ND @FETCH"..E..@| 000005B0: E0 2C 33 35 30 30 30 2C 35 36 2C 31 37 30 2C 32 |.,35000,56,170,2| 000005C0: 2C 33 2C 22 49 4E 20 59 4F 55 52 20 42 41 53 49 |,3,"IN YOUR BASI| 000005D0: 43 20 50 52 4F 47 52 41 4D 53 22 00 E3 45 90 01 |C PROGRAMS"..E..| 000005E0: FE 0B 35 00 14 46 9A 01 8F 20 42 4C 49 54 54 45 |..5..F... BLITTE| 000005F0: 52 20 41 4E 49 4D 41 54 49 4F 4E 20 55 53 49 4E |R ANIMATION USIN| 00000600: 47 20 54 48 45 20 40 46 45 54 43 48 20 43 4F 4D |G THE @FETCH COM| 00000610: 4D 41 4E 44 00 21 46 9F 01 81 57 51 B2 31 A4 31 |MAND.!F...WQ.1.1| 00000620: 30 00 42 46 A4 01 81 20 4B B2 31 20 A4 20 36 34 |0.BF... K.1 . 64| 00000630: 3A 40 FE 21 2C 41 28 4B 29 2C 32 35 30 2C 36 35 |:@.!,A(K),250,65| 00000640: 3A 82 00 64 46 AE 01 81 20 4B B2 33 33 20 A4 20 |:..dF... K.33 . | 00000650: 36 34 3A 40 FE 21 2C 41 28 4B 29 2C 32 35 30 2C |64:@.!,A(K),250,| 00000660: 36 35 3A 82 00 8A 46 B8 01 81 20 4B B2 36 34 20 |65:...F... K.64 | 00000670: A4 20 33 33 20 A9 AB 31 3A 40 FE 21 2C 41 28 4B |. 33 ..1:@.!,A(K| 00000680: 29 2C 32 35 30 2C 36 35 3A 82 00 AF 46 C2 01 81 |),250,65:...F...| 00000690: 20 4B B2 36 34 20 A4 20 31 20 A9 AB 31 3A 40 FE | K.64 . 1 ..1:@.| 000006A0: 21 2C 41 28 4B 29 2C 32 35 30 2C 36 35 3A 82 00 |!,A(K),250,65:..| 000006B0: B5 46 CC 01 82 00 E0 46 D6 01 8F 20 47 4F 54 4F |.F.....F... GOTO| 000006C0: 20 54 45 58 54 20 4D 4F 44 45 2C 20 50 52 49 4E | TEXT MODE, PRIN| 000006D0: 54 20 53 54 41 54 55 53 20 41 4E 44 20 45 4E 44 |T STATUS AND END| 000006E0: 00 F2 46 E0 01 8A 20 22 54 2E 53 54 41 52 57 41 |..F... "T.STARWA| 000006F0: 52 53 00 14 47 EA 01 8F 20 43 4F 4E 56 45 52 54 |RS..G... CONVERT| 00000700: 20 58 2C 59 2C 5A 20 54 4F 20 53 43 52 45 45 4E | X,Y,Z TO SCREEN| 00000710: 20 58 2C 59 00 5B 47 F4 01 58 54 B2 AB 58 AC 53 | X,Y.[G..XT..X.S| 00000720: 31 AA 59 AC 43 31 3A 59 54 B2 AB 58 AC 43 31 AC |1.Y.C1:YT..X.C1.| 00000730: 43 32 AB 59 AC 53 31 AC 43 32 AA 5A AC 53 32 3A |C2.Y.S1.C2.Z.S2:| 00000740: 5A 54 B2 AB 58 AC 53 32 AC 43 31 AB 59 AC 53 32 |ZT..X.S2.C1.Y.S2| 00000750: AC 53 31 AB 5A AC 43 32 AA 52 48 00 7D 47 FE 01 |.S1.Z.C2.RH.}G..| 00000760: 53 58 B2 44 AC 58 54 AD 5A 54 AA 43 58 3A 53 59 |SX.D.XT.ZT.CX:SY| 00000770: B2 43 59 AB 44 AC 59 54 AD 5A 54 3A 8E 00 9F 47 |.CY.D.YT.ZT:...G| 00000780: 08 02 8F 20 44 41 54 41 20 54 48 41 54 20 44 45 |... DATA THAT DE| 00000790: 53 43 52 49 42 45 53 20 33 44 20 43 55 42 45 00 |SCRIBES 3D CUBE.| 000007A0: DC 47 12 02 83 20 2D 31 2C 2D 2E 37 35 2C 2E 35 |.G... -1,-.75,.5| 000007B0: 2C 31 2C 2D 2E 37 35 2C 2E 35 2C 31 2C 2D 2E 37 |,1,-.75,.5,1,-.7| 000007C0: 35 2C 2D 2E 35 2C 2D 31 2C 2D 2E 37 35 2C 2D 2E |5,-.5,-1,-.75,-.| 000007D0: 35 2C 2D 31 2C 2D 2E 37 35 2C 2E 35 00 14 48 1C |5,-1,-.75,.5..H.| 000007E0: 02 83 20 2D 31 2C 2E 37 35 2C 2E 35 2C 2D 31 2C |.. -1,.75,.5,-1,| 000007F0: 2E 37 35 2C 2D 2E 35 2C 31 2C 2E 37 35 2C 2D 2E |.75,-.5,1,.75,-.| 00000800: 35 2C 31 2C 2E 37 35 2C 2E 35 2C 2D 31 2C 2E 37 |5,1,.75,.5,-1,.7| 00000810: 35 2C 2E 35 00 50 48 26 02 83 20 2D 31 2C 2D 2E |5,.5.PH&.. -1,-.| 00000820: 37 35 2C 2E 35 2C 2D 31 2C 2E 37 35 2C 2E 35 2C |75,.5,-1,.75,.5,| 00000830: 2D 31 2C 2D 2E 37 35 2C 2D 2E 35 2C 2D 31 2C 2E |-1,-.75,-.5,-1,.| 00000840: 37 35 2C 2D 2E 35 2C 31 2C 2D 2E 37 35 2C 2E 35 |75,-.5,1,-.75,.5| 00000850: 00 74 48 30 02 83 20 31 2C 2E 37 35 2C 2E 35 2C |.tH0.. 1,.75,.5,| 00000860: 31 2C 2D 2E 37 35 2C 2D 2E 35 2C 31 2C 2E 37 35 |1,-.75,-.5,1,.75| 00000870: 2C 2D 2E 35 00 00 00 |,-.5... |
.@.@...%: . ENABLE 2 MH MODE.P@...47,0:.
48,132:.: . SET UP 32K BUFFER FOR @STASH
..@..@.,0,11:@.,0: . ENABLE ULTRA HIRES
640 X 200 AND CLEAR SCREEN..@(.W 480: .
SET UP SYNTAX ERROR TRAP TO RETURN TO TE
XT MODE AND LIST ERROR..@2.. X(19),Y(19)
,Z(19),A(65)..A<.. READ CUBE DATA INTO A
RRAYS.EAF.@.,35000,0,100,2,4,".FRAMES TO
GO ".TAP.. I.1 . 18.OAZ. . X(I),Y(
I),Z(I).UAD....AN.RH.10:D.48:TH..2..:P.1
.4:CX.80:CY.36:MC.0:SD.6.5..AX....A... L
OOP TO DRAW 3D CUBE AND @STASH EACH FRAM
E INTO BUFFER..A... CT.1 . 64.)B..
@.,35000,424,100,2,4,D(65.CT)." ".UB .
S1..(TH):S2..(P):C1..(TH):C2..(P)..B
.. X.X(1):Y.Y(1):Z.Z(1):. 500:OX.SX
:OY.SY..B.. . I.2 . 5..B..
X.X(I):Y.Y(I):Z.Z(I):. 500:@.,OX,OY,S
X,SY,1:OX.SX:OY.SY..BH. ...CR.
X.X(6):Y.Y(6):Z.Z(6):. 500:OX.SX:OY.SY.
4C.. . I.7 . 10.|C.. X.X
(I):Y.Y(I):Z.Z(I):. 500:@.,OX,OY,SX,SY,1
:OX.SX:OY.SY..C.. ...C.. . I.1
1 . 17 . 2.YC.. X.X(I):Y.Y(I)
:Z.Z(I):. 500:OX.SX:OY.SY..D..
X.X(I.1):Y.Y(I.1):Z.Z(I.1):. 500:@.,OX
,OY,SX,SY,1.7D.. OX.SX:OY.SY.
CD". ..`D,. @..,MC,45,10,70,55
..D6. A(CT).MC:MC.B(250).B(251).256
.1:. NEXT AVAILABLE ADDRESS.DD@. D.
D.SD:. D.249 . D.249..DJ. TH.TH..2:
@.,320,0,300,75,0,0..DT....E^.@.,0: . BE
GINNING OF ANIMATION ROUTINE.IEH.@.,3500
0,80,0,2,3,"3D GRAPHICS ARE EASY".YER.@.
,35000,56,24,2,3,"USING C128 ULTRA HIRES
"..E|.@.,35000,56,146,2,3,"WITH @STASH A
ND @FETCH"..E..@.,35000,56,170,2,3,"IN Y
OUR BASIC PROGRAMS"..E....5..F... BLITTE
R ANIMATION USING THE @FETCH COMMAND.!F.
..WQ.1.10.BF... K.1 . 64:@.!,A(K),250,65
:..DF... K.33 . 64:@.!,A(K),250,65:...F.
.. K.64 . 33 ..1:@.!,A(K),250,65:...FB..
K.64 . 1 ..1:@.!,A(K),250,65:...FL....F
V.. GOTO TEXT MODE, PRINT STATUS AND END
..F... "T.STARWARS..G... CONVERT X,Y,Z T
O SCREEN X,Y.[G..XT..X.S1.Y.C1:YT..X.C1.
C2.Y.S1.C2.Z.S2:ZT..X.S2.C1.Y.S2.S1.Z.C2
.RH.}G..SX.D.XT.ZT.CX:SY.CY.D.YT.ZT:...G
... DATA THAT DESCRIBES 3D CUBE..G... -1
,-.75,.5,1,-.75,.5,1,-.75,-.5,-1,-.75,-.
5,-1,-.75,.5..H... -1,.75,.5,-1,.75,-.5,
1,.75,-.5,1,.75,.5,-1,.75,.5.PH&.. -1,-.
75,.5,-1,.75,.5,-1,-.75,-.5,-1,.75,-.5,1
,-.75,.5.TH0.. 1,.75,.5,1,-.75,-.5,1,.75
,-.5...
> CLICK IMAGE PREVIEW FOR FULL MODAL