ULTRA 3D-WUERFEL

00000000: 01 40 46 40 0A 00 8F 20  33 2D 44 20 57 55 45 52  |.@F@... 3-D WUER|
00000010: 46 45 4C 2D 44 45 4D 4F  2C 20 44 45 55 54 53 43  |FEL-DEMO, DEUTSC|
00000020: 48 45 20 56 45 52 53 49  4F 4E 20 56 4F 4E 20 44  |HE VERSION VON D|
00000030: 45 54 4C 45 46 20 45 52  44 4D 41 4E 4E 2C 20 56  |ETLEF ERDMANN, V|
00000040: 45 4C 4C 4D 41 52 00 4D  40 14 00 FE 25 00 87 40  |ELLMAR.M@...%..@|
00000050: 1E 00 97 34 37 2C 30 3A  97 34 38 2C 31 33 32 20  |...47,0:.48,132 |
00000060: 3A 20 8F 20 33 32 20 4B  20 50 55 46 46 45 52 20  |: . 32 K PUFFER |
00000070: 46 55 45 52 20 40 53 54  41 53 48 20 52 45 53 45  |FUER @STASH RESE|
00000080: 52 56 49 45 52 45 4E 00  97 40 28 00 40 DE 2C 30  |RVIEREN..@(.@.,0|
00000090: 2C 35 3A 40 9C 2C 30 00  A1 40 32 00 D7 20 34 37  |,5:@.,0..@2.. 47|
000000A0: 30 00 BF 40 3C 00 86 20  58 28 31 39 29 2C 59 28  |0..@<.. X(19),Y(|
000000B0: 31 39 29 2C 5A 28 31 39  29 2C 41 28 36 35 29 00  |19),Z(19),A(65).|
000000C0: E8 40 46 00 8F 20 57 55  45 46 45 4C 44 41 54 45  |.@F.. WUEFELDATE|
000000D0: 4E 20 49 4E 20 44 49 45  20 46 45 4C 44 45 52 20  |N IN DIE FELDER |
000000E0: 45 49 4E 4C 45 53 45 4E  00 10 41 50 00 40 E0 2C  |EINLESEN..AP.@.,|
000000F0: 35 33 32 34 38 2C 30 2C  31 30 30 2C 32 2C 34 2C  |53248,0,100,2,4,|
00000100: 22 05 45 49 4E 5A 45 4C  42 49 4C 44 45 52 20 22  |".EINZELBILDER "|
00000110: 00 1C 41 5A 00 81 49 B2  31 A4 31 38 00 31 41 64  |..AZ..I.1.18.1Ad|
00000120: 00 87 20 58 28 49 29 2C  59 28 49 29 2C 5A 28 49  |.. X(I),Y(I),Z(I|
00000130: 29 00 37 41 6E 00 82 00  6C 41 78 00 52 48 B2 31  |).7An...lAx.RH.1|
00000140: 30 3A 44 B2 34 38 3A 54  48 B2 AB 32 AC FF 3A 50  |0:D.48:TH..2..:P|
00000150: B2 31 2E 34 3A 43 58 B2  38 30 3A 43 59 B2 33 36  |.1.4:CX.80:CY.36|
00000160: 3A 4D 43 B2 30 3A 53 44  B2 36 2E 35 00 E0 41 82  |:MC.0:SD.6.5..A.|
00000170: 00 8F 20 5A 45 49 43 48  45 4E 53 43 48 4C 45 49  |.. ZEICHENSCHLEI|
00000180: 46 45 20 46 55 45 52 20  57 55 45 52 46 45 4C 2C  |FE FUER WUERFEL,|
00000190: 20 4A 45 44 45 53 20 45  49 4E 5A 45 4C 42 49 4C  | JEDES EINZELBIL|
000001A0: 44 20 57 49 52 44 20 4D  49 54 20 40 53 54 41 53  |D WIRD MIT @STAS|
000001B0: 48 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |H               |
000001C0: 20 20 20 49 4E 20 44 45  4E 20 50 55 46 46 45 52  |   IN DEN PUFFER|
000001D0: 53 50 45 49 43 48 45 52  20 4B 4F 50 49 45 52 54  |SPEICHER KOPIERT|
000001E0: 00 ED 41 8C 00 81 43 54  B2 31 A4 36 34 00 13 42  |..A...CT.1.64..B|
000001F0: 96 00 40 E0 2C 35 33 32  34 38 2C 34 32 34 2C 31  |..@.,53248,424,1|
00000200: 30 30 2C 32 2C 34 2C C4  28 36 35 AB 43 54 29 AA  |00,2,4,.(65.CT).|
00000210: 22 20 22 00 39 42 A0 00  53 31 B2 BF 28 54 48 29  |" ".9B..S1..(TH)|
00000220: 3A 53 32 B2 BF 28 50 29  3A 43 31 B2 BE 28 54 48  |:S2..(P):C1..(TH|
00000230: 29 3A 43 32 B2 BE 28 50  29 00 63 42 AA 00 58 B2  |):C2..(P).cB..X.|
00000240: 58 28 31 29 3A 59 B2 59  28 31 29 3A 5A B2 5A 28  |X(1):Y.Y(1):Z.Z(|
00000250: 31 29 3A 8D 34 39 30 3A  4F 58 B2 53 58 3A 4F 59  |1):.490:OX.SX:OY|
00000260: B2 53 59 00 6E 42 B4 00  81 49 B2 32 A4 35 00 A9  |.SY.nB...I.2.5..|
00000270: 42 BE 00 58 B2 58 28 49  29 3A 59 B2 59 28 49 29  |B..X.X(I):Y.Y(I)|
00000280: 3A 5A B2 5A 28 49 29 3A  8D 34 39 30 3A 40 E5 2C  |:Z.Z(I):.490:@.,|
00000290: 4F 58 2C 4F 59 2C 53 58  2C 53 59 2C 31 3A 4F 58  |OX,OY,SX,SY,1:OX|
000002A0: B2 53 58 3A 4F 59 B2 53  59 00 AF 42 C8 00 82 00  |.SX:OY.SY..B....|
000002B0: D9 42 D2 00 58 B2 58 28  36 29 3A 59 B2 59 28 36  |.B..X.X(6):Y.Y(6|
000002C0: 29 3A 5A B2 5A 28 36 29  3A 8D 34 39 30 3A 4F 58  |):Z.Z(6):.490:OX|
000002D0: B2 53 58 3A 4F 59 B2 53  59 00 E5 42 DC 00 81 49  |.SX:OY.SY..B...I|
000002E0: B2 37 A4 31 30 00 20 43  E6 00 58 B2 58 28 49 29  |.7.10. C..X.X(I)|
000002F0: 3A 59 B2 59 28 49 29 3A  5A B2 5A 28 49 29 3A 8D  |:Y.Y(I):Z.Z(I):.|
00000300: 34 39 30 3A 40 E5 2C 4F  58 2C 4F 59 2C 53 58 2C  |490:@.,OX,OY,SX,|
00000310: 53 59 2C 31 3A 4F 58 B2  53 58 3A 4F 59 B2 53 59  |SY,1:OX.SX:OY.SY|
00000320: 00 26 43 F0 00 82 00 35  43 FA 00 81 49 B2 31 31  |.&C....5C...I.11|
00000330: A4 31 37 A9 32 00 5F 43  04 01 58 B2 58 28 49 29  |.17.2._C..X.X(I)|
00000340: 3A 59 B2 59 28 49 29 3A  5A B2 5A 28 49 29 3A 8D  |:Y.Y(I):Z.Z(I):.|
00000350: 34 39 30 3A 4F 58 B2 53  58 3A 4F 59 B2 53 59 00  |490:OX.SX:OY.SY.|
00000360: 8E 43 0E 01 58 B2 58 28  49 29 3A 59 B2 59 28 49  |.C..X.X(I):Y.Y(I|
00000370: 29 3A 5A B2 5A 28 49 29  3A 8D 34 39 30 3A 40 E5  |):Z.Z(I):.490:@.|
00000380: 2C 4F 58 2C 4F 59 2C 53  58 2C 53 59 2C 31 00 9E  |,OX,OY,SX,SY,1..|
00000390: 43 18 01 4F 58 B2 53 58  3A 4F 59 B2 53 59 00 A4  |C..OX.SX:OY.SY..|
000003A0: 43 22 01 82 00 BB 43 2C  01 40 FE 1F 2C 4D 43 2C  |C"....C,.@..,MC,|
000003B0: 34 35 2C 31 30 2C 37 30  2C 35 35 00 DF 43 36 01  |45,10,70,55..C6.|
000003C0: 41 28 43 54 29 B2 4D 43  3A 4D 43 B2 C2 28 32 35  |A(CT).MC:MC..(25|
000003D0: 30 29 AA C2 28 32 35 31  29 AC 32 35 36 AA 31 00  |0)..(251).256.1.|
000003E0: F7 43 40 01 44 B2 44 AA  53 44 3A 8B 44 B1 32 34  |.C@.D.D.SD:.D.24|
000003F0: 39 A7 44 B2 32 34 39 00  18 44 4A 01 54 48 B2 54  |9.D.249..DJ.TH.T|
00000400: 48 AA 2E 32 3A 40 F4 2C  33 32 30 2C 30 2C 33 30  |H..2:@.,320,0,30|
00000410: 30 2C 37 35 2C 30 2C 30  00 1E 44 54 01 82 00 3C  |0,75,0,0..DT...<|
00000420: 44 5E 01 40 9C 2C 30 20  3A 20 8F 20 42 45 57 45  |D^.@.,0 : . BEWE|
00000430: 47 55 4E 47 53 52 4F 55  54 49 4E 45 00 71 44 68  |GUNGSROUTINE.qDh|
00000440: 01 40 E0 2C 35 33 32 34  38 2C 31 35 2C 30 2C 32  |.@.,53248,15,0,2|
00000450: 2C 33 2C 20 20 22 33 44  20 47 52 41 46 49 4B 45  |,3,  "3D GRAFIKE|
00000460: 4E 20 4C 45 49 43 48 54  20 47 45 4D 41 43 48 54  |N LEICHT GEMACHT|
00000470: 22 00 A4 44 72 01 40 E0  2C 35 33 32 34 38 2C 31  |"..Dr.@.,53248,1|
00000480: 35 2C 32 34 2C 32 2C 33  2C 20 22 20 4D 49 54 20  |5,24,2,3, " MIT |
00000490: 50 43 2D 31 32 38 20 55  4C 54 52 41 2D 48 49 52  |PC-128 ULTRA-HIR|
000004A0: 45 53 21 22 00 D6 44 7C  01 40 E0 2C 35 33 32 34  |ES!"..D|.@.,5324|
000004B0: 38 2C 31 35 2C 31 34 36  2C 32 2C 33 2C 22 20 20  |8,15,146,2,3,"  |
000004C0: 4D 49 54 20 40 53 54 41  53 48 20 55 4E 44 20 40  |MIT @STASH UND @|
000004D0: 46 45 54 43 48 22 00 0B  45 86 01 40 E0 2C 35 33  |FETCH"..E..@.,53|
000004E0: 32 34 38 2C 31 35 2C 31  37 30 2C 32 2C 33 2C 22  |248,15,170,2,3,"|
000004F0: 49 4E 20 49 48 52 45 4E  20 42 41 53 49 43 20 50  |IN IHREN BASIC P|
00000500: 52 4F 47 52 41 4D 4D 45  4E 21 22 00 39 45 90 01  |ROGRAMMEN!".9E..|
00000510: 8F 20 42 4C 49 54 54 45  52 20 41 4E 49 4D 41 54  |. BLITTER ANIMAT|
00000520: 49 4F 4E 20 4D 49 54 20  44 45 4D 20 40 46 45 54  |ION MIT DEM @FET|
00000530: 43 48 2D 42 45 46 45 48  4C 00 57 45 9A 01 81 4B  |CH-BEFEHL.WE...K|
00000540: B2 31 A4 36 34 3A 40 FE  21 2C 41 28 4B 29 2C 32  |.1.64:@.!,A(K),2|
00000550: 35 30 2C 36 35 3A 82 00  76 45 A4 01 81 4B B2 33  |50,65:..vE...K.3|
00000560: 33 A4 36 34 3A 40 FE 21  2C 41 28 4B 29 2C 32 35  |3.64:@.!,A(K),25|
00000570: 30 2C 36 35 3A 82 00 98  45 AE 01 81 4B B2 36 34  |0,65:...E...K.64|
00000580: A4 33 33 A9 AB 31 3A 40  FE 21 2C 41 28 4B 29 2C  |.33..1:@.!,A(K),|
00000590: 32 35 30 2C 36 35 3A 82  00 B9 45 B8 01 81 4B B2  |250,65:...E...K.|
000005A0: 36 34 A4 31 A9 AB 31 3A  40 FE 21 2C 41 28 4B 29  |64.1..1:@.!,A(K)|
000005B0: 2C 32 35 30 2C 36 35 3A  82 00 CF 45 C2 01 A1 F9  |,250,65:...E....|
000005C0: 41 24 3A 8B 41 24 B3 B1  22 2A 22 A7 34 31 30 00  |A$:.A$.."*".410.|
000005D0: 0A 46 CC 01 8F 20 52 55  45 43 4B 4B 45 48 52 20  |.F... RUECKKEHR |
000005E0: 49 4E 20 54 45 58 54 4D  4F 44 55 53 2C 20 53 54  |IN TEXTMODUS, ST|
000005F0: 41 54 55 53 20 44 52 55  43 4B 45 4E 2C 20 50 52  |ATUS DRUCKEN, PR|
00000600: 4F 47 52 41 4D 4D 45 4E  44 45 00 18 46 D6 01 40  |OGRAMMENDE..F..@|
00000610: 54 45 58 54 3A EA 3A 80  00 5F 46 E0 01 8F 20 58  |TEXT:.:.._F... X|
00000620: 2C 59 20 55 4E 44 20 5A  20 4B 4F 4F 52 44 49 4E  |,Y UND Z KOORDIN|
00000630: 41 54 45 4E 20 49 4E 20  42 49 4C 44 53 43 48 49  |ATEN IN BILDSCHI|
00000640: 52 4D 4B 4F 4F 52 44 49  4E 41 54 45 4E 20 58 20  |RMKOORDINATEN X |
00000650: 55 4E 44 20 59 20 55 4D  57 41 4E 44 45 4C 4E 00  |UND Y UMWANDELN.|
00000660: A6 46 EA 01 58 54 B2 AB  58 AC 53 31 AA 59 AC 43  |.F..XT..X.S1.Y.C|
00000670: 31 3A 59 54 B2 AB 58 AC  43 31 AC 43 32 AB 59 AC  |1:YT..X.C1.C2.Y.|
00000680: 53 31 AC 43 32 AA 5A AC  53 32 3A 5A 54 B2 AB 58  |S1.C2.Z.S2:ZT..X|
00000690: AC 53 32 AC 43 31 AB 59  AC 53 32 AC 53 31 AB 5A  |.S2.C1.Y.S2.S1.Z|
000006A0: AC 43 32 AA 52 48 00 C8  46 F4 01 53 58 B2 44 AC  |.C2.RH..F..SX.D.|
000006B0: 58 54 AD 5A 54 AA 43 58  3A 53 59 B2 43 59 AB 44  |XT.ZT.CX:SY.CY.D|
000006C0: AC 59 54 AD 5A 54 3A 8E  00 DA 46 FE 01 8F 20 57  |.YT.ZT:...F... W|
000006D0: 55 45 46 45 4C 44 41 54  45 4E 00 17 47 08 02 83  |UEFELDATEN..G...|
000006E0: 20 2D 31 2C 2D 2E 37 35  2C 2E 35 2C 31 2C 2D 2E  | -1,-.75,.5,1,-.|
000006F0: 37 35 2C 2E 35 2C 31 2C  2D 2E 37 35 2C 2D 2E 35  |75,.5,1,-.75,-.5|
00000700: 2C 2D 31 2C 2D 2E 37 35  2C 2D 2E 35 2C 2D 31 2C  |,-1,-.75,-.5,-1,|
00000710: 2D 2E 37 35 2C 2E 35 00  4F 47 12 02 83 20 2D 31  |-.75,.5.OG... -1|
00000720: 2C 2E 37 35 2C 2E 35 2C  2D 31 2C 2E 37 35 2C 2D  |,.75,.5,-1,.75,-|
00000730: 2E 35 2C 31 2C 2E 37 35  2C 2D 2E 35 2C 31 2C 2E  |.5,1,.75,-.5,1,.|
00000740: 37 35 2C 2E 35 2C 2D 31  2C 2E 37 35 2C 2E 35 00  |75,.5,-1,.75,.5.|
00000750: 8B 47 1C 02 83 20 2D 31  2C 2D 2E 37 35 2C 2E 35  |.G... -1,-.75,.5|
00000760: 2C 2D 31 2C 2E 37 35 2C  2E 35 2C 2D 31 2C 2D 2E  |,-1,.75,.5,-1,-.|
00000770: 37 35 2C 2D 2E 35 2C 2D  31 2C 2E 37 35 2C 2D 2E  |75,-.5,-1,.75,-.|
00000780: 35 2C 31 2C 2D 2E 37 35  2C 2E 35 00 AF 47 26 02  |5,1,-.75,.5..G&.|
00000790: 83 20 31 2C 2E 37 35 2C  2E 35 2C 31 2C 2D 2E 37  |. 1,.75,.5,1,-.7|
000007A0: 35 2C 2D 2E 35 2C 31 2C  2E 37 35 2C 2D 2E 35 00  |5,-.5,1,.75,-.5.|
000007B0: 00 00 35                                          |..5             |

.@F@... 3-D WUERFEL-DEMO, DEUTSCHE VERSI
ON VON DETLEF ERDMANN, VELLMAR.M@...%..@
...47,0:.48,132 : . 32 K PUFFER FUER @ST
ASH RESERVIEREN..@(.@.,0,5:@.,0..@2.W 47
0..@<.. X(19),Y(19),Z(19),A(65)..@F.. WU
EFELDATEN IN DIE FELDER EINLESEN..AP.@.,
53248,0,100,2,4,".EINZELBILDER "..AZ..I.
1.18.1AD.. X(I),Y(I),Z(I).7AN...LAX.RH.1
0:D.48:TH..2..:P.1.4:CX.80:CY.36:MC.0:SD
.6.5..A... ZEICHENSCHLEIFE FUER WUERFEL,
 JEDES EINZELBILD WIRD MIT @STASH       
           IN DEN PUFFERSPEICHER KOPIERT
..A...CT.1.64..B..@.,53248,424,100,2,4,D
(65.CT)." ".9B .S1..(TH):S2..(P):C1..(TH
):C2..(P).CB..X.X(1):Y.Y(1):Z.Z(1):.490:
OX.SX:OY.SY.NB...I.2.5..B..X.X(I):Y.Y(I)
:Z.Z(I):.490:@.,OX,OY,SX,SY,1:OX.SX:OY.S
Y..BH...YBR.X.X(6):Y.Y(6):Z.Z(6):.490:OX
.SX:OY.SY..B...I.7.10. C..X.X(I):Y.Y(I):
Z.Z(I):.490:@.,OX,OY,SX,SY,1:OX.SX:OY.SY
.&C....5C...I.11.17.2._C..X.X(I):Y.Y(I):
Z.Z(I):.490:OX.SX:OY.SY..C..X.X(I):Y.Y(I
):Z.Z(I):.490:@.,OX,OY,SX,SY,1..C..OX.SX
:OY.SY..C"....C,.@..,MC,45,10,70,55..C6.
A(CT).MC:MC.B(250).B(251).256.1..C@.D.D.
SD:.D.249.D.249..DJ.TH.TH..2:@.,320,0,30
0,75,0,0..DT...<D^.@.,0 : . BEWEGUNGSROU
TINE.QDH.@.,53248,15,0,2,3,  "3D GRAFIKE
N LEICHT GEMACHT"..DR.@.,53248,15,24,2,3
, " MIT PC-128 ULTRA-HIRES!".VD|.@.,5324
8,15,146,2,3,"  MIT @STASH UND @FETCH"..
E..@.,53248,15,170,2,3,"IN IHREN BASIC P
ROGRAMMEN!".9E... BLITTER ANIMATION MIT 
DEM @FETCH-BEFEHL.WE...K.1.64:@.!,A(K),2
50,65:..VE...K.33.64:@.!,A(K),250,65:...
E...K.64.33..1:@.!,A(K),250,65:...E...K.
64.1..1:@.!,A(K),250,65:..OEB...A$:.A$..
"*".410..FL.. RUECKKEHR IN TEXTMODUS, ST
ATUS DRUCKEN, PROGRAMMENDE..FV.@TEXT:.:.
._F... X,Y UND Z KOORDINATEN IN BILDSCHI
RMKOORDINATEN X UND Y UMWANDELN..F..XT..
X.S1.Y.C1:YT..X.C1.C2.Y.S1.C2.Z.S2:ZT..X
.S2.C1.Y.S2.S1.Z.C2.RH.HF..SX.D.XT.ZT.CX
:SY.CY.D.YT.ZT:..ZF... WUEFELDATEN..G...
 -1,-.75,.5,1,-.75,.5,1,-.75,-.5,-1,-.75
,-.5,-1,-.75,.5.OG... -1,.75,.5,-1,.75,-
.5,1,.75,-.5,1,.75,.5,-1,.75,.5..G... -1
,-.75,.5,-1,.75,.5,-1,-.75,-.5,-1,.75,-.
5,1,-.75,.5..G&.. 1,.75,.5,1,-.75,-.5,1,
.75,-.5...5

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL