_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

DREHEN

FILE INFORMATION

FILENAME(S): DREHEN

FILE TYPE(S): PRG

FILE SIZE: 5.2K

FIRST SEEN: 2025-10-20 14:37:13

APPEARS ON: 1 disk(s)

FILE HASH

e51da0a38a76462515222662f3a0a538be1c75bbcfaa4bd3b934e795012e403f

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
ET DREHEN PRG Treasure Chest - LehrerMIL 25 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 31 08 0A 00 20 8F  20 20 50 52 4F 47 52 41  |..1... .  PROGRA|
00000010: 4D 4D 45 20 46 55 45 52  20 44 45 4E 20 4D 41 54  |MME FUER DEN MAT|
00000020: 48 45 4D 41 54 49 4B 55  4E 54 45 52 52 49 43 48  |HEMATIKUNTERRICH|
00000030: 54 00 58 08 14 00 20 8F  20 20 44 52 45 48 45 4E  |T.X... .  DREHEN|
00000040: 20 20 20 28 44 52 45 48  45 4E 20 56 4F 4E 20 4B  |   (DREHEN VON K|
00000050: 4F 45 52 50 45 52 4E 29  00 5E 08 1E 00 3A 00 90  |OERPERN).^...:..|
00000060: 08 28 00 20 8F 20 20 50  52 4F 47 52 41 4D 4D 41  |.(. .  PROGRAMMA|
00000070: 55 54 4F 52 45 4E 3A 20  20 49 4E 47 4F 20 57 45  |UTOREN:  INGO WE|
00000080: 49 44 49 47 2C 20 50 41  55 4C 20 53 41 4E 44 20  |IDIG, PAUL SAND |
00000090: 00 C8 08 32 00 20 8F 20  20 43 4F 50 59 52 49 47  |...2. .  COPYRIG|
000000A0: 48 54 20 28 43 29 20 20  45 52 4E 53 54 20 4B 4C  |HT (C)  ERNST KL|
000000B0: 45 54 54 20 56 45 52 4C  41 47 45 20 47 4D 42 48  |ETT VERLAGE GMBH|
000000C0: 20 26 20 43 4F 20 4B 47  00 DF 08 3C 00 20 8F 20  | & CO KG...<. . |
000000D0: 20 53 54 55 54 54 47 41  52 54 20 31 39 38 36 00  | STUTTGART 1986.|
000000E0: E5 08 46 00 3A 00 19 09  50 00 20 8F 20 46 45 4C  |..F.:...P. . FEL|
000000F0: 44 45 52 20 55 4E 44 20  4B 4F 4E 53 54 41 4E 54  |DER UND KONSTANT|
00000100: 45 4E 20 28 50 55 4E 4B  54 45 29 20 44 45 46 49  |EN (PUNKTE) DEFI|
00000110: 4E 49 45 52 45 4E 20 20  20 00 3A 09 5A 00 9C 3A  |NIEREN   .:.Z..:|
00000120: 86 20 58 28 38 29 2C 59  28 38 29 2C 5A 28 38 29  |. X(8),Y(8),Z(8)|
00000130: 2C 57 28 38 29 2C 53 28  38 29 00 77 09 64 00 20  |,W(8),S(8).w.d. |
00000140: 86 20 51 58 28 38 29 2C  51 59 28 38 29 2C 51 5A  |. QX(8),QY(8),QZ|
00000150: 28 38 29 2C 50 58 28 34  29 2C 50 59 28 34 29 2C  |(8),PX(4),PY(4),|
00000160: 50 5A 28 34 29 2C 5A 58  28 38 29 2C 5A 59 28 38  |PZ(4),ZX(8),ZY(8|
00000170: 29 2C 5A 5A 28 38 29 00  A9 09 6E 00 83 20 20 32  |),ZZ(8)...n..  2|
00000180: 30 2C 34 30 2C 35 30 2C  20 2D 32 30 2C 34 30 2C  |0,40,50, -20,40,|
00000190: 35 30 2C 20 2D 32 30 2C  2D 34 30 2C 35 30 2C 20  |50, -20,-40,50, |
000001A0: 32 30 2C 2D 34 30 2C 35  30 00 DF 09 78 00 83 20  |20,-40,50...x.. |
000001B0: 20 32 30 2C 34 30 2C 2D  35 30 2C 20 2D 32 30 2C  | 20,40,-50, -20,|
000001C0: 34 30 2C 2D 35 30 2C 20  2D 32 30 2C 2D 34 30 2C  |40,-50, -20,-40,|
000001D0: 2D 35 30 2C 20 32 30 2C  2D 34 30 2C 2D 35 30 00  |-50, 20,-40,-50.|
000001E0: 09 0A 82 00 81 20 49 20  B2 20 31 20 A4 20 38 3A  |..... I . 1 . 8:|
000001F0: 20 87 20 51 58 28 49 29  2C 51 59 28 49 29 2C 51  | . QX(I),QY(I),Q|
00000200: 5A 28 49 29 3A 20 82 20  49 00 39 0A 8C 00 83 20  |Z(I): . I.9.... |
00000210: 20 32 36 2C 2D 34 35 2C  2D 32 34 2C 20 32 36 2C  | 26,-45,-24, 26,|
00000220: 34 35 2C 2D 32 34 2C 20  2D 35 32 2C 30 2C 2D 32  |45,-24, -52,0,-2|
00000230: 34 2C 20 30 2C 30 2C 37  32 00 64 0A 96 00 20 81  |4, 0,0,72.d... .|
00000240: 20 49 20 B2 20 31 20 A4  20 34 3A 20 87 20 50 58  | I . 1 . 4: . PX|
00000250: 28 49 29 2C 50 59 28 49  29 2C 50 5A 28 49 29 3A  |(I),PY(I),PZ(I):|
00000260: 20 82 20 49 00 92 0A A0  00 83 20 20 30 2C 30 2C  | . I......  0,0,|
00000270: 2D 35 30 2C 20 30 2C 2D  35 30 2C 2D 35 30 2C 20  |-50, 0,-50,-50, |
00000280: 35 30 2C 30 2C 2D 35 30  2C 20 30 2C 35 30 2C 2D  |50,0,-50, 0,50,-|
00000290: 35 30 00 BC 0A AA 00 83  20 20 30 2C 30 2C 35 30  |50......  0,0,50|
000002A0: 2C 20 30 2C 2D 35 30 2C  35 30 2C 20 35 30 2C 30  |, 0,-50,50, 50,0|
000002B0: 2C 35 30 2C 20 30 2C 35  30 2C 35 30 00 E7 0A B4  |,50, 0,50,50....|
000002C0: 00 20 81 20 49 20 B2 20  31 20 A4 20 38 3A 20 87  |. . I . 1 . 8: .|
000002D0: 20 5A 58 28 49 29 2C 5A  59 28 49 29 2C 5A 5A 28  | ZX(I),ZY(I),ZZ(|
000002E0: 49 29 3A 20 82 20 49 00  F8 0A BE 00 50 49 20 B2  |I): . I.....PI .|
000002F0: 20 33 2E 31 34 31 35 39  00 FE 0A C8 00 3A 00 1A  | 3.14159.....:..|
00000300: 0B D2 00 20 8F 20 41 55  53 57 41 48 4C 20 44 45  |... . AUSWAHL DE|
00000310: 53 20 4B 4F 45 52 50 45  52 53 00 26 0B DC 00 20  |S KOERPERS.&... |
00000320: 99 22 93 22 3B 20 00 4B  0B E6 00 20 99 20 22 44  |."."; .K... . "D|
00000330: 52 45 48 45 4E 20 56 4F  4E 20 4B 4F 45 52 50 45  |REHEN VON KOERPE|
00000340: 52 4E 22 3A 20 99 20 3A  20 99 20 00 66 0B F0 00  |RN": . : . .f...|
00000350: 20 8B 20 46 45 20 B2 20  30 20 A7 20 20 99 20 3A  | . FE . 0 .  . :|
00000360: 20 89 20 32 36 30 00 AF  0B FA 00 20 99 22 12 22  | . 260..... ."."|
00000370: 3B 20 3A 20 99 20 22 44  55 20 4D 55 53 53 54 20  |; : . "DU MUSST |
00000380: 45 49 4E 45 20 5A 41 48  4C 20 56 4F 4E 20 30 20  |EINE ZAHL VON 0 |
00000390: 42 49 53 20 33 20 45 49  4E 47 45 42 45 4E 21 22  |BIS 3 EINGEBEN!"|
000003A0: 3A 20 99 22 92 22 3B 20  3A 46 45 20 B2 20 30 00  |: ."."; :FE . 0.|
000003B0: D5 0B 04 01 99 20 3A 20  99 20 22 57 41 45 48 4C  |..... : . "WAEHL|
000003C0: 45 20 45 49 4E 45 4E 20  4B 4F 45 52 50 45 52 20  |E EINEN KOERPER |
000003D0: 41 55 53 2C 22 00 FF 0B  0E 01 20 99 20 22 44 45  |AUS,"..... . "DE|
000003E0: 52 20 47 45 44 52 45 48  54 20 57 45 52 44 45 4E  |R GEDREHT WERDEN|
000003F0: 20 53 4F 4C 4C 3A 22 3A  20 99 20 3A 20 99 20 00  | SOLL:": . : . .|
00000400: 17 0C 18 01 20 99 20 22  31 20 20 20 51 55 41 44  |.... . "1   QUAD|
00000410: 45 52 22 3A 20 99 20 00  31 0C 22 01 20 99 20 22  |ER": . .1.". . "|
00000420: 32 20 20 20 50 59 52 41  4D 49 44 45 22 3A 20 99  |2   PYRAMIDE": .|
00000430: 20 00 53 0C 2C 01 20 99  20 22 33 20 20 20 5A 59  | .S.,. . "3   ZY|
00000440: 4C 49 4E 44 45 52 22 3A  20 99 20 3A 20 99 20 3A  |LINDER": . : . :|
00000450: 20 99 20 00 8B 0C 36 01  20 99 20 22 30 20 20 20  | . ...6. . "0   |
00000460: 49 43 48 20 57 49 4C 4C  20 5A 55 52 55 45 43 4B  |ICH WILL ZURUECK|
00000470: 20 5A 55 52 20 48 41 55  50 54 41 55 53 57 41 48  | ZUR HAUPTAUSWAH|
00000480: 4C 2E 22 3A 20 99 20 3A  20 99 20 00 B8 0C 40 01  |L.": . : . ...@.|
00000490: 20 99 20 22 47 49 42 20  44 49 45 20 45 4E 54 53  | . "GIB DIE ENTS|
000004A0: 50 52 45 43 48 45 4E 44  45 20 5A 49 46 46 45 52  |PRECHENDE ZIFFER|
000004B0: 20 45 49 4E 20 20 22 3B  00 C2 0C 4A 01 20 85 20  | EIN  ";...J. . |
000004C0: 46 24 00 DF 0C 54 01 8B  20 46 24 20 B2 20 22 30  |F$...T.. F$ . "0|
000004D0: 22 20 A7 20 20 93 22 4D  45 4E 55 45 22 2C 38 00  |" .  ."MENUE",8.|
000004E0: 19 0D 5E 01 46 20 B2 20  20 C5 20 28 46 24 29 3A  |..^.F .  . (F$):|
000004F0: 20 8B 20 46 20 B2 20 31  20 A7 20 4E 20 B2 20 38  | . F . 1 . N . 8|
00000500: 3A 52 57 20 B2 20 2E 33  35 3A 52 53 20 B2 20 2E  |:RW . .35:RS . .|
00000510: 33 35 3A 20 89 20 37 37  30 00 47 0D 68 01 20 8B  |35: . 770.G.h. .|
00000520: 20 46 20 B2 20 32 20 A7  20 4E 20 B2 20 34 3A 52  | F . 2 . N . 4:R|
00000530: 57 20 B2 20 2E 33 35 3A  52 53 20 B2 20 2E 33 35  |W . .35:RS . .35|
00000540: 3A 20 89 20 37 37 30 00  72 0D 72 01 20 8B 20 46  |: . 770.r.r. . F|
00000550: 20 B2 20 33 20 A7 20 4E  20 B2 20 38 3A 52 57 20  | . 3 . N . 8:RW |
00000560: B2 20 30 3A 52 53 20 B2  20 2E 35 3A 20 89 20 37  |. 0:RS . .5: . 7|
00000570: 37 30 00 84 0D 7C 01 46  45 20 B2 20 31 3A 20 89  |70...|.FE . 1: .|
00000580: 20 32 32 30 00 8A 0D 86  01 3A 00 90 0D 90 01 3A  | 220.....:.....:|
00000590: 00 B2 0D 9A 01 20 8F 20  20 2A 20 47 52 41 46 49  |..... .  * GRAFI|
000005A0: 4B 2D 55 4E 54 45 52 50  52 4F 47 52 41 4D 4D 45  |K-UNTERPROGRAMME|
000005B0: 20 2A 00 B8 0D A4 01 3A  00 E0 0D AE 01 9E 33 36  | *.....:......36|
000005C0: 38 37 33 2C 20 31 31 32  2C 39 38 20 2C 20 31 34  |873, 112,98 , 14|
000005D0: 38 2C 36 32 3A 20 8F 20  20 58 2D 41 43 48 53 45  |8,62: .  X-ACHSE|
000005E0: 00 18 0E B8 01 9E 33 36  38 37 33 2C 20 31 31 30  |......36873, 110|
000005F0: 2C 38 37 20 2C 20 31 30  32 2C 39 35 3A 20 9E 33  |,87 , 102,95: .3|
00000600: 36 38 37 33 2C 20 31 30  32 2C 38 37 20 2C 20 31  |6873, 102,87 , 1|
00000610: 31 30 2C 39 35 3A 20 8E  00 3F 0E C2 01 9E 33 36  |10,95: ..?....36|
00000620: 38 37 33 2C 20 36 30 2C  38 30 20 2C 20 32 30 30  |873, 60,80 , 200|
00000630: 2C 38 30 3A 20 8F 20 20  59 2D 41 43 48 53 45 00  |,80: .  Y-ACHSE.|
00000640: 81 0E CC 01 9E 33 36 38  37 33 2C 20 32 30 36 2C  |.....36873, 206,|
00000650: 37 36 20 2C 20 32 31 30  2C 38 30 3A 20 9E 33 36  |76 , 210,80: .36|
00000660: 38 37 33 2C 20 32 31 34  2C 37 36 2C 32 31 30 2C  |873, 214,76,210,|
00000670: 38 30 3A 9E 33 36 38 37  39 2C 20 32 31 30 2C 38  |80:.36879, 210,8|
00000680: 34 00 89 0E D6 01 20 8E  20 00 B1 0E E0 01 9E 33  |4..... . ......3|
00000690: 36 38 37 33 2C 20 31 32  39 2C 35 20 2C 20 31 32  |6873, 129,5 , 12|
000006A0: 39 2C 31 35 30 3A 20 8F  20 20 5A 2D 41 43 48 53  |9,150: .  Z-ACHS|
000006B0: 45 00 E7 0E EA 01 9E 33  36 38 37 33 2C 31 33 35  |E......36873,135|
000006C0: 2C 32 2C 31 34 33 2C 32  3A 9E 33 36 38 37 39 2C  |,2,143,2:.36879,|
000006D0: 31 33 35 2C 31 30 3A 9E  33 36 38 37 39 2C 31 34  |135,10:.36879,14|
000006E0: 33 2C 31 30 3A 20 8E 00  ED 0E F4 01 3A 00 FB 0E  |3,10: ......:...|
000006F0: FE 01 8F 20 20 51 55 41  44 45 52 00 10 0F 08 02  |...  QUADER.....|
00000700: 20 81 20 49 20 B2 20 30  20 A4 20 34 20 A9 20 34  | . I . 0 . 4 . 4|
00000710: 00 2F 0F 12 02 20 9E 33  36 38 37 36 2C 20 57 28  |./... .36876, W(|
00000720: 49 20 AA 20 34 29 2C 53  28 49 20 AA 20 34 29 00  |I . 4),S(I . 4).|
00000730: 5E 0F 1C 02 81 20 4A 20  B2 20 31 20 A4 20 34 3A  |^.... J . 1 . 4:|
00000740: 20 9E 33 36 38 37 39 2C  57 28 49 20 AA 20 4A 29  | .36879,W(I . J)|
00000750: 2C 53 28 49 20 AA 20 4A  29 3A 20 82 20 4A 00 67  |,S(I . J): . J.g|
00000760: 0F 26 02 20 82 20 49 00  A4 0F 30 02 20 81 20 49  |.&. . I...0. . I|
00000770: 20 B2 20 31 20 A4 20 34  3A 20 9E 33 36 38 37 33  | . 1 . 4: .36873|
00000780: 2C 20 57 28 49 29 2C 53  28 49 29 20 2C 20 57 28  |, W(I),S(I) , W(|
00000790: 49 20 AA 20 34 29 2C 53  28 49 20 AA 20 34 29 3A  |I . 4),S(I . 4):|
000007A0: 20 82 20 49 00 AC 0F 3A  02 20 8E 20 00 B2 0F 44  | . I...:. . ...D|
000007B0: 02 3A 00 C2 0F 4E 02 8F  20 20 50 59 52 41 4D 49  |.:...N..  PYRAMI|
000007C0: 44 45 00 FC 0F 58 02 9E  33 36 38 37 36 2C 20 57  |DE...X..36876, W|
000007D0: 28 33 29 2C 53 28 33 29  3A 20 81 20 49 20 B2 20  |(3),S(3): . I . |
000007E0: 31 20 A4 20 33 3A 20 9E  33 36 38 37 39 2C 57 28  |1 . 3: .36879,W(|
000007F0: 49 29 2C 53 28 49 29 3A  20 82 20 49 00 31 10 62  |I),S(I): . I.1.b|
00000800: 02 20 81 20 49 20 B2 20  31 20 A4 20 33 3A 20 9E  |. . I . 1 . 3: .|
00000810: 33 36 38 37 33 2C 20 57  28 34 29 2C 53 28 34 29  |36873, W(4),S(4)|
00000820: 20 2C 20 57 28 49 29 2C  53 28 49 29 3A 20 82 20  | , W(I),S(I): . |
00000830: 49 00 39 10 6C 02 20 8E  20 00 3F 10 76 02 3A 00  |I.9.l. . .?.v.:.|
00000840: 4F 10 80 02 8F 20 20 5A  59 4C 49 4E 44 45 52 00  |O....  ZYLINDER.|
00000850: 90 10 8A 02 20 81 20 49  20 B2 20 32 20 A4 20 34  |.... . I . 2 . 4|
00000860: 20 A9 20 32 3A 20 9E 33  36 38 37 33 2C 20 57 28  | . 2: .36873, W(|
00000870: 49 29 2C 53 28 49 29 20  2C 20 57 28 49 20 AA 20  |I),S(I) , W(I . |
00000880: 34 29 2C 53 28 49 20 AA  20 34 29 3A 20 82 20 49  |4),S(I . 4): . I|
00000890: 00 C0 10 94 02 20 81 20  49 20 B2 20 30 20 A4 20  |..... . I . 0 . |
000008A0: 34 20 A9 20 34 3A 20 9E  33 36 38 37 36 2C 20 57  |4 . 4: .36876, W|
000008B0: 28 34 20 AA 20 49 29 2C  53 28 34 20 AA 20 49 29  |(4 . I),S(4 . I)|
000008C0: 00 F1 10 9E 02 20 81 20  57 20 B2 20 30 2E 31 20  |..... . W . 0.1 |
000008D0: A4 20 36 2E 34 20 A9 20  30 2E 31 3A 43 20 B2 20  |. 6.4 . 0.1:C . |
000008E0: 20 BE 20 28 57 29 3A 53  20 B2 20 20 BF 20 28 57  | . (W):S .  . (W|
000008F0: 29 00 3B 11 A8 02 57 48  20 B2 20 57 28 31 20 AA  |).;...WH . W(1 .|
00000900: 20 49 29 20 AA 20 28 57  28 31 20 AA 20 49 29 20  | I) . (W(1 . I) |
00000910: AB 20 57 28 32 20 AA 20  49 29 29 20 AC 20 43 20  |. W(2 . I)) . C |
00000920: AA 20 28 57 28 31 20 AA  20 49 29 20 AB 20 57 28  |. (W(1 . I) . W(|
00000930: 33 20 AA 20 49 29 29 20  AC 20 53 00 85 11 B2 02  |3 . I)) . S.....|
00000940: 53 48 20 B2 20 53 28 31  20 AA 20 49 29 20 AA 20  |SH . S(1 . I) . |
00000950: 28 53 28 31 20 AA 20 49  29 20 AB 20 53 28 32 20  |(S(1 . I) . S(2 |
00000960: AA 20 49 29 29 20 AC 20  43 20 AA 20 28 53 28 31  |. I)) . C . (S(1|
00000970: 20 AA 20 49 29 20 AB 20  53 28 33 20 AA 20 49 29  | . I) . S(3 . I)|
00000980: 29 20 AC 20 53 00 A3 11  BC 02 9E 33 36 38 37 39  |) . S......36879|
00000990: 2C 57 48 2C 53 48 3A 20  82 20 57 3A 20 82 20 49  |,WH,SH: . W: . I|
000009A0: 3A 20 8E 00 A9 11 C6 02  3A 00 AF 11 D0 02 3A 00  |: ......:.....:.|
000009B0: B5 11 DA 02 3A 00 DD 11  E4 02 20 8F 20 20 2A 2A  |....:..... .  **|
000009C0: 20 46 4F 52 54 53 45 54  5A 55 4E 47 20 48 41 55  | FORTSETZUNG HAU|
000009D0: 50 54 50 52 4F 47 52 41  4D 4D 20 2A 2A 00 E3 11  |PTPROGRAMM **...|
000009E0: EE 02 3A 00 17 12 F8 02  20 8F 20 4B 4F 45 52 50  |..:..... . KOERP|
000009F0: 45 52 20 49 4E 20 41 55  53 47 41 4E 47 53 4C 41  |ER IN AUSGANGSLA|
00000A00: 47 45 20 4D 49 54 20 41  4C 4C 45 4E 20 44 52 45  |GE MIT ALLEN DRE|
00000A10: 48 41 43 48 53 45 4E 00  28 12 02 03 20 81 20 49  |HACHSEN.(... . I|
00000A20: 20 B2 20 31 20 A4 20 4E  00 5E 12 0C 03 20 8B 20  | . 1 . N.^... . |
00000A30: 46 20 B2 20 31 20 A7 20  58 28 49 29 20 B2 20 51  |F . 1 . X(I) . Q|
00000A40: 58 28 49 29 3A 59 28 49  29 20 B2 20 51 59 28 49  |X(I):Y(I) . QY(I|
00000A50: 29 3A 5A 28 49 29 20 B2  20 51 5A 28 49 29 00 94  |):Z(I) . QZ(I)..|
00000A60: 12 16 03 20 8B 20 46 20  B2 20 32 20 A7 20 58 28  |... . F . 2 . X(|
00000A70: 49 29 20 B2 20 50 58 28  49 29 3A 59 28 49 29 20  |I) . PX(I):Y(I) |
00000A80: B2 20 50 59 28 49 29 3A  5A 28 49 29 20 B2 20 50  |. PY(I):Z(I) . P|
00000A90: 5A 28 49 29 00 CA 12 20  03 20 8B 20 46 20 B2 20  |Z(I)... . . F . |
00000AA0: 33 20 A7 20 58 28 49 29  20 B2 20 5A 58 28 49 29  |3 . X(I) . ZX(I)|
00000AB0: 3A 59 28 49 29 20 B2 20  5A 59 28 49 29 3A 5A 28  |:Y(I) . ZY(I):Z(|
00000AC0: 49 29 20 B2 20 5A 5A 28  49 29 00 0E 13 2A 03 57  |I) . ZZ(I)...*.W|
00000AD0: 28 49 29 20 B2 20 31 33  30 20 AA 20 59 28 49 29  |(I) . 130 . Y(I)|
00000AE0: 20 AB 20 52 57 20 AC 20  58 28 49 29 3A 53 28 49  | . RW . X(I):S(I|
00000AF0: 29 20 B2 20 38 30 20 AB  20 5A 28 49 29 20 AA 20  |) . 80 . Z(I) . |
00000B00: 52 53 20 AC 20 58 28 49  29 3A 20 82 20 49 00 1A  |RS . X(I): . I..|
00000B10: 13 2F 03 9E 20 33 36 38  36 34 00 47 13 34 03 20  |./.. 36864.G.4. |
00000B20: 8B 20 46 20 B2 20 33 20  A7 20 41 24 20 B2 20 22  |. F . 3 . A$ . "|
00000B30: 59 22 3A 41 20 B2 20 32  3A 20 99 22 93 22 3B 20  |Y":A . 2: ."."; |
00000B40: 3A 20 89 20 39 37 30 00  4D 13 3E 03 3A 00 57 13  |: . 970.M.>.:.W.|
00000B50: 48 03 99 22 93 22 3B 00  8E 13 52 03 20 9E 33 36  |H..".";...R. .36|
00000B60: 38 38 32 2C 20 32 31 3A  20 99 20 22 55 4D 20 57  |882, 21: . "UM W|
00000B70: 45 4C 43 48 45 20 41 43  48 53 45 20 57 49 4C 4C  |ELCHE ACHSE WILL|
00000B80: 53 54 20 44 55 20 44 52  45 48 45 4E 3F 22 00 C3  |ST DU DREHEN?"..|
00000B90: 13 5C 03 20 99 20 22 47  49 42 20 44 45 4E 20 45  |.\. . "GIB DEN E|
00000BA0: 4E 54 53 50 52 45 43 48  45 4E 44 45 4E 20 42 55  |NTSPRECHENDEN BU|
00000BB0: 43 48 53 54 41 42 45 4E  20 45 49 4E 2E 20 22 3A  |CHSTABEN EIN. ":|
00000BC0: 20 99 20 00 F3 13 66 03  20 99 20 22 45 49 4E 47  | . ...f. . "EING|
00000BD0: 41 42 45 20 56 4F 4E 20  30 3A 20 20 5A 55 52 55  |ABE VON 0:  ZURU|
00000BE0: 45 43 4B 20 5A 55 52 20  41 55 53 57 41 48 4C 20  |ECK ZUR AUSWAHL |
00000BF0: 20 22 3B 00 F9 13 70 03  3A 00 2F 14 7A 03 20 8D  | ";...p.:./.z. .|
00000C00: 20 34 33 30 3A 20 8D 20  34 35 30 3A 20 8D 20 34  | 430: . 450: . 4|
00000C10: 38 30 3A 20 91 20 46 20  8D 20 35 31 30 2C 35 39  |80: . F . 510,59|
00000C20: 30 3A 20 8F 20 47 52 41  46 49 4B 2D 55 50 52 00  |0: . GRAFIK-UPR.|
00000C30: 57 14 84 03 20 85 20 41  24 3A 20 8B 20 41 24 20  |W... . A$: . A$ |
00000C40: B2 20 22 30 22 20 A7 20  20 9E 33 36 38 36 37 20  |. "0" .  .36867 |
00000C50: 3A 20 89 20 32 32 30 00  97 14 8E 03 20 8B 20 41  |: . 220..... . A|
00000C60: 24 20 B3 20 20 B1 20 22  58 22 20 AF 20 41 24 20  |$ .  . "X" . A$ |
00000C70: B3 20 20 B1 20 22 59 22  20 AF 20 41 24 20 B3 20  |.  . "Y" . A$ . |
00000C80: 20 B1 20 22 5A 22 20 A7  20 20 99 22 93 22 3B 20  | . "Z" .  ."."; |
00000C90: 3A 20 89 20 38 35 30 00  AF 14 98 03 20 8B 20 41  |: . 850..... . A|
00000CA0: 24 20 B2 20 22 58 22 20  A7 20 41 20 B2 20 31 00  |$ . "X" . A . 1.|
00000CB0: C7 14 A2 03 20 8B 20 41  24 20 B2 20 22 59 22 20  |.... . A$ . "Y" |
00000CC0: A7 20 41 20 B2 20 32 00  DF 14 AC 03 20 8B 20 41  |. A . 2..... . A|
00000CD0: 24 20 B2 20 22 5A 22 20  A7 20 41 20 B2 20 33 00  |$ . "Z" . A . 3.|
00000CE0: E5 14 B6 03 3A 00 14 15  C0 03 20 8F 20 4B 4F 45  |....:..... . KOE|
00000CF0: 52 50 45 52 20 4D 49 54  20 41 55 53 47 45 57 41  |RPER MIT AUSGEWA|
00000D00: 45 48 4C 54 45 52 20 44  52 45 48 41 43 48 53 45  |EHLTER DREHACHSE|
00000D10: 20 20 20 20 00 54 15 CA  03 9E 33 36 38 37 30 20  |    .T....36870 |
00000D20: 3A 20 91 20 46 20 8D 20  35 31 30 2C 35 39 30 2C  |: . F . 510,590,|
00000D30: 36 34 30 3A 20 91 20 41  20 8D 20 34 33 30 2C 34  |640: . A . 430,4|
00000D40: 35 30 2C 34 38 30 3A 20  8F 20 47 52 41 46 49 4B  |50,480: . GRAFIK|
00000D50: 2D 55 50 52 00 83 15 D4  03 20 99 22 93 22 3B 20  |-UPR..... ."."; |
00000D60: 3A 20 9E 33 36 38 38 32  2C 20 32 34 3A 20 99 20  |: .36882, 24: . |
00000D70: 22 45 49 4E 47 41 42 45  20 56 4F 4E 20 30 3A 20  |"EINGABE VON 0: |
00000D80: 20 22 3B 00 AC 15 DE 03  20 8B 20 46 20 B3 20 33  | ";..... . F . 3|
00000D90: 20 A7 20 20 99 20 22 4E  45 55 45 20 57 41 48 4C  | .  . "NEUE WAHL|
00000DA0: 20 44 45 52 20 41 43 48  53 45 22 3B 00 D5 15 E8  | DER ACHSE";....|
00000DB0: 03 20 8B 20 46 20 B2 20  33 20 A7 20 20 99 20 22  |. . F . 3 .  . "|
00000DC0: 5A 55 52 55 45 43 4B 20  5A 55 52 20 41 55 53 57  |ZURUECK ZUR AUSW|
00000DD0: 41 48 4C 22 3B 00 04 16  F2 03 20 9E 33 36 38 38  |AHL";..... .3688|
00000DE0: 32 2C 20 32 31 3A 20 9E  33 36 38 38 35 2C 20 31  |2, 21: .36885, 1|
00000DF0: 3A 20 99 20 22 47 49 42  20 4A 45 54 5A 54 20 45  |: . "GIB JETZT E|
00000E00: 49 4E 3A 22 00 26 16 FC  03 20 99 20 22 44 52 45  |IN:".&... . "DRE|
00000E10: 48 57 49 4E 4B 45 4C 20  55 4D 20 22 3B 41 24 3B  |HWINKEL UM ";A$;|
00000E20: 22 3A 20 20 22 3B 00 56  16 06 04 20 85 20 57 24  |":  ";.V... . W$|
00000E30: 3A 20 8B 20 57 24 20 B2  20 22 30 22 20 AF 20 46  |: . W$ . "0" . F|
00000E40: 20 B2 20 33 20 A7 20 20  9E 33 36 38 36 37 20 3A  | . 3 .  .36867 :|
00000E50: 20 89 20 32 32 30 00 6C  16 10 04 20 8B 20 57 24  | . 220.l... . W$|
00000E60: 20 B2 20 22 30 22 20 A7  20 38 34 30 00 8B 16 1A  | . "0" . 840....|
00000E70: 04 57 20 B2 20 20 C5 20  28 57 24 29 3A 20 8B 20  |.W .  . (W$): . |
00000E80: 57 20 B2 20 30 20 A7 20  39 38 30 00 AB 16 24 04  |W . 0 . 980...$.|
00000E90: 20 8B 20 20 B6 20 28 57  29 20 B3 20 31 30 30 30  | .  . (W) . 1000|
00000EA0: 30 30 30 30 20 A7 20 31  30 39 30 00 DE 16 2E 04  |0000 . 1090.....|
00000EB0: 20 99 20 20 A6 31 38 29  3B 3A 20 99 22 12 22 3B  | .  .18);: .".";|
00000EC0: 20 3A 20 99 20 22 57 49  4E 4B 45 4C 20 5A 55 20  | : . "WINKEL ZU |
00000ED0: 47 52 4F 53 53 22 3A 20  99 22 92 22 3B 20 00 FE  |GROSS": ."."; ..|
00000EE0: 16 38 04 20 81 20 49 20  B2 20 31 20 A4 20 32 32  |.8. . I . 1 . 22|
00000EF0: 32 32 3A 20 82 20 49 3A  20 89 20 39 38 30 00 2D  |22: . I: . 980.-|
00000F00: 17 42 04 20 9E 33 36 38  38 32 2C 20 32 31 3A 20  |.B. .36882, 21: |
00000F10: 99 20 20 A6 34 30 29 3A  20 9E 33 36 38 38 32 2C  |.  .40): .36882,|
00000F20: 20 32 34 3A 20 99 20 20  A6 34 30 29 3B 00 33 17  | 24: .  .40);.3.|
00000F30: 4C 04 3A 00 4A 17 56 04  20 8F 20 20 44 52 45 48  |L.:.J.V. .  DREH|
00000F40: 45 4E 20 55 4D 20 57 20  20 20 00 82 17 60 04 57  |EN UM W   ...`.W|
00000F50: 20 B2 20 57 20 AC 20 50  49 20 AD 20 31 38 30 3A  | . W . PI . 180:|
00000F60: 53 20 B2 20 20 BF 20 28  57 29 3A 43 20 B2 20 20  |S .  . (W):C .  |
00000F70: BE 20 28 57 29 3A 20 81  20 49 20 B2 20 31 20 A4  |. (W): . I . 1 .|
00000F80: 20 4E 00 CA 17 6A 04 20  8B 20 41 20 B2 20 31 20  | N...j. . A . 1 |
00000F90: A7 20 58 20 B2 20 58 28  49 29 3A 59 20 B2 20 43  |. X . X(I):Y . C|
00000FA0: 20 AC 20 59 28 49 29 20  AB 20 53 20 AC 20 5A 28  | . Y(I) . S . Z(|
00000FB0: 49 29 3A 5A 20 B2 20 53  20 AC 20 59 28 49 29 20  |I):Z . S . Y(I) |
00000FC0: AA 20 43 20 AC 20 5A 28  49 29 00 15 18 74 04 20  |. C . Z(I)...t. |
00000FD0: 8B 20 41 20 B2 20 32 20  A7 20 58 20 B2 20 43 20  |. A . 2 . X . C |
00000FE0: AC 20 58 28 49 29 20 AA  20 53 20 AC 20 5A 28 49  |. X(I) . S . Z(I|
00000FF0: 29 3A 59 20 B2 20 59 28  49 29 3A 5A 20 B2 20 20  |):Y . Y(I):Z .  |
00001000: AB 20 53 20 AC 20 58 28  49 29 20 AA 20 43 20 AC  |. S . X(I) . C .|
00001010: 20 5A 28 49 29 00 5D 18  7E 04 20 8B 20 41 20 B2  | Z(I).].~. . A .|
00001020: 20 33 20 A7 20 58 20 B2  20 43 20 AC 20 58 28 49  | 3 . X . C . X(I|
00001030: 29 20 AB 20 53 20 AC 20  59 28 49 29 3A 59 20 B2  |) . S . Y(I):Y .|
00001040: 20 53 20 AC 20 58 28 49  29 20 AA 20 43 20 AC 20  | S . X(I) . C . |
00001050: 59 28 49 29 3A 5A 20 B2  20 5A 28 49 29 00 90 18  |Y(I):Z . Z(I)...|
00001060: 88 04 57 28 49 29 20 B2  20 31 33 30 20 AA 20 59  |..W(I) . 130 . Y|
00001070: 20 AB 20 52 57 20 AC 20  58 3A 53 28 49 29 20 B2  | . RW . X:S(I) .|
00001080: 20 38 30 20 AB 20 5A 20  AA 20 52 53 20 AC 20 58  | 80 . Z . RS . X|
00001090: 00 BB 18 92 04 58 28 49  29 20 B2 20 58 3A 59 28  |.....X(I) . X:Y(|
000010A0: 49 29 20 B2 20 59 3A 5A  28 49 29 20 B2 20 5A 3A  |I) . Y:Z(I) . Z:|
000010B0: 20 82 20 49 3A 20 89 20  39 37 30 00 C1 18 9C 04  | . I: . 970.....|
000010C0: 3A 00 C7 18 A6 04 3A 00  E6 18 B0 04 20 8F 20 42  |:.....:..... . B|
000010D0: 45 44 45 55 54 55 4E 47  20 44 45 52 20 56 41 52  |EDEUTUNG DER VAR|
000010E0: 49 41 42 4C 45 4E 00 22  19 BA 04 20 8F 20 41 20  |IABLEN."... . A |
000010F0: 20 20 4E 55 4D 4D 45 52  20 44 45 52 20 44 52 45  |  NUMMER DER DRE|
00001100: 48 41 43 48 53 45 3A 20  31 2C 32 2C 33 20 46 55  |HACHSE: 1,2,3 FU|
00001110: 45 52 20 58 2D 2E 20 59  2D 2C 20 5A 2D 41 43 48  |ER X-. Y-, Z-ACH|
00001120: 53 45 00 47 19 C4 04 20  8F 20 41 24 20 20 42 45  |SE.G... . A$  BE|
00001130: 5A 45 49 43 48 4E 55 4E  47 20 44 45 52 20 44 52  |ZEICHNUNG DER DR|
00001140: 45 48 41 43 48 53 45 00  59 19 CE 04 20 8F 20 43  |EHACHSE.Y... . C|
00001150: 20 20 20 43 4F 53 28 57  29 00 9A 19 D8 04 20 8F  |   COS(W)..... .|
00001160: 20 46 20 20 20 4E 55 4D  4D 45 52 20 44 45 53 20  | F   NUMMER DES |
00001170: 4B 4F 45 52 50 45 52 53  3A 20 31 20 51 55 41 44  |KOERPERS: 1 QUAD|
00001180: 45 52 2C 20 32 20 50 59  52 41 4D 49 44 45 2C 20  |ER, 2 PYRAMIDE, |
00001190: 33 20 5A 59 4C 49 4E 44  45 52 00 B8 19 E2 04 20  |3 ZYLINDER..... |
000011A0: 8F 20 46 24 20 20 49 4E  50 55 54 56 41 52 49 41  |. F$  INPUTVARIA|
000011B0: 42 4C 45 20 5A 55 20 46  00 ED 19 EC 04 20 8F 20  |BLE ZU F..... . |
000011C0: 46 45 20 20 48 49 4C 46  53 56 41 52 49 41 42 4C  |FE  HILFSVARIABL|
000011D0: 45 20 42 45 49 20 41 42  46 52 41 47 45 20 46 41  |E BEI ABFRAGE FA|
000011E0: 4C 53 43 48 45 20 45 49  4E 47 41 42 45 00 05 1A  |LSCHE EINGABE...|
000011F0: F6 04 20 8F 20 49 20 20  20 4C 41 55 46 56 41 52  |.. . I   LAUFVAR|
00001200: 49 41 42 4C 45 00 20 1A  00 05 20 8F 20 4A 20 20  |IABLE. ... . J  |
00001210: 20 32 2E 20 4C 41 55 46  56 41 52 49 41 42 4C 45  | 2. LAUFVARIABLE|
00001220: 00 56 1A 0A 05 20 8F 20  4E 20 20 20 5A 41 48 4C  |.V... . N   ZAHL|
00001230: 20 44 45 52 20 45 43 4B  45 4E 20 42 5A 57 2E 20  | DER ECKEN BZW. |
00001240: 41 55 53 47 45 5A 45 49  43 48 4E 45 54 45 4E 20  |AUSGEZEICHNETEN |
00001250: 50 55 4E 4B 54 45 00 6E  1A 14 05 20 8F 20 50 49  |PUNKTE.n... . PI|
00001260: 20 20 4B 52 45 49 53 5A  41 48 4C 20 50 49 00 A0  |  KREISZAHL PI..|
00001270: 1A 1E 05 20 8F 20 50 58  28 2C 50 59 28 2C 50 5A  |... . PX(,PY(,PZ|
00001280: 28 20 4B 4F 4F 52 44 49  4E 41 54 45 4E 20 44 45  |( KOORDINATEN DE|
00001290: 52 20 50 59 52 41 4D 49  44 45 4E 45 43 4B 45 4E  |R PYRAMIDENECKEN|
000012A0: 00 D2 1A 28 05 20 8F 20  51 58 28 2C 51 59 28 2C  |...(. . QX(,QY(,|
000012B0: 51 5A 28 20 4B 4F 4F 52  44 49 4E 41 54 45 4E 20  |QZ( KOORDINATEN |
000012C0: 44 45 52 20 51 55 41 44  45 52 45 43 4B 45 4E 20  |DER QUADERECKEN |
000012D0: 20 20 00 04 1B 32 05 20  8F 20 52 53 20 20 56 45  |  ...2. . RS  VE|
000012E0: 52 5A 45 52 52 55 4E 47  53 4D 41 53 53 54 41 42  |RZERRUNGSMASSTAB|
000012F0: 2C 20 53 45 4E 4B 52 45  43 48 54 45 52 20 41 4E  |, SENKRECHTER AN|
00001300: 54 45 49 4C 00 37 1B 3C  05 20 8F 20 52 57 20 20  |TEIL.7.<. . RW  |
00001310: 56 45 52 5A 45 52 52 55  4E 47 53 4D 41 53 53 54  |VERZERRUNGSMASST|
00001320: 41 42 2C 20 57 41 41 47  45 52 45 43 48 54 45 52  |AB, WAAGERECHTER|
00001330: 20 41 4E 54 45 49 4C 00  49 1B 46 05 20 8F 20 53  | ANTEIL.I.F. . S|
00001340: 20 20 20 53 49 4E 28 57  29 00 7A 1B 50 05 20 8F  |   SIN(W).z.P. .|
00001350: 20 53 28 20 20 53 45 4E  4B 52 45 43 48 54 45 20  | S(  SENKRECHTE |
00001360: 4B 4F 4F 52 44 49 4E 41  54 45 20 44 45 53 20 42  |KOORDINATE DES B|
00001370: 49 4C 44 53 43 48 49 52  4D 53 00 99 1B 5A 05 20  |ILDSCHIRMS...Z. |
00001380: 8F 20 53 48 20 20 48 49  4C 46 53 56 41 52 49 41  |. SH  HILFSVARIA|
00001390: 42 4C 45 20 5A 55 20 53  28 00 BA 1B 64 05 20 8F  |BLE ZU S(...d. .|
000013A0: 20 57 20 20 20 47 52 4F  45 53 53 45 20 45 49 4E  | W   GROESSE EIN|
000013B0: 45 53 20 57 49 4E 4B 45  4C 53 00 DB 1B 6E 05 20  |ES WINKELS...n. |
000013C0: 8F 20 57 24 20 20 45 49  4E 47 41 42 45 56 41 52  |. W$  EINGABEVAR|
000013D0: 49 41 42 4C 45 20 56 4F  4E 20 57 00 10 1C 78 05  |IABLE VON W...x.|
000013E0: 20 8F 20 57 28 20 20 57  41 41 47 45 52 45 43 48  | . W(  WAAGERECH|
000013F0: 54 45 20 4B 4F 4F 52 44  49 4E 41 54 45 20 44 45  |TE KOORDINATE DE|
00001400: 53 20 42 49 4C 44 53 43  48 49 52 4D 53 20 20 20  |S BILDSCHIRMS   |
00001410: 00 31 1C 82 05 20 8F 20  57 48 20 20 48 49 4C 46  |.1... . WH  HILF|
00001420: 53 56 41 52 49 41 42 4C  45 20 5A 55 20 57 28 20  |SVARIABLE ZU W( |
00001430: 20 00 65 1C 8C 05 20 8F  20 58 2C 59 2C 5A 20 42  | .e... . X,Y,Z B|
00001440: 5A 57 20 58 28 2C 59 28  2C 5A 28 20 4B 4F 4F 52  |ZW X(,Y(,Z( KOOR|
00001450: 44 49 4E 41 54 45 4E 20  45 49 4E 45 53 20 50 55  |DINATEN EINES PU|
00001460: 4E 4B 54 45 53 00 A9 1C  96 05 20 8F 20 5A 58 28  |NKTES..... . ZX(|
00001470: 2C 5A 59 28 2C 5A 5A 28  20 4B 4F 4F 52 44 49 4E  |,ZY(,ZZ( KOORDIN|
00001480: 41 54 45 4E 20 41 55 53  47 45 5A 45 49 43 48 4E  |ATEN AUSGEZEICHN|
00001490: 45 54 45 52 20 50 55 4E  4B 54 45 20 44 45 53 20  |ETER PUNKTE DES |
000014A0: 5A 59 4C 49 4E 44 45 52  53 00 00 00 00 20        |ZYLINDERS....   |
..1... .  PROGRAMME FUER DEN MATHEMATIKU
NTERRICHT.X... .  DREHEN   (DREHEN VON K
OERPERN).^...:...(. .  PROGRAMMAUTOREN: 
 INGO WEIDIG, PAUL SAND .H.2. .  COPYRIG
HT (C)  ERNST KLETT VERLAGE GMBH & CO KG
...<. .  STUTTGART 1986...F.:...P. . FEL
DER UND KONSTANTEN (PUNKTE) DEFINIEREN  
 .:.Z..:. X(8),Y(8),Z(8),W(8),S(8).W.D. 
. QX(8),QY(8),QZ(8),PX(4),PY(4),PZ(4),ZX
(8),ZY(8),ZZ(8)...N..  20,40,50, -20,40,
50, -20,-40,50, 20,-40,50...X..  20,40,-
50, -20,40,-50, -20,-40,-50, 20,-40,-50.
..... I . 1 . 8: . QX(I),QY(I),QZ(I): . 
I.9....  26,-45,-24, 26,45,-24, -52,0,-2
4, 0,0,72.D... . I . 1 . 4: . PX(I),PY(I
),PZ(I): . I... ..  0,0,-50, 0,-50,-50, 
50,0,-50, 0,50,-50......  0,0,50, 0,-50,
50, 50,0,50, 0,50,50..... . I . 1 . 8: .
 ZX(I),ZY(I),ZZ(I): . I.....PI . 3.14159
...H.:...R. . AUSWAHL DES KOERPERS.&... 
."."; .K... . "DREHEN VON KOERPERN": . :
 . .F... . FE . 0 .  . : . 260..... ."."
; : . "DU MUSST EINE ZAHL VON 0 BIS 3 EI
NGEBEN!": ."."; :FE . 0.U.... : . "WAEHL
E EINEN KOERPER AUS,"..... . "DER GEDREH
T WERDEN SOLL:": . : . ..... . "1   QUAD
ER": . .1.". . "2   PYRAMIDE": . .S.,. .
 "3   ZYLINDER": . : . : . ...6. . "0   
ICH WILL ZURUECK ZUR HAUPTAUSWAHL.": . :
 . ...@. . "GIB DIE ENTSPRECHENDE ZIFFER
 EIN  ";.B.J. . F$...T.. F$ . "0" .  ."M
ENUE",8...^.F .  E (F$): . F . 1 . N . 8
:RW . .35:RS . .35: . 770.G.H. . F . 2 .
 N . 4:RW . .35:RS . .35: . 770.R.R. . F
 . 3 . N . 8:RW . 0:RS . .5: . 770...|.F
E . 1: . 220.....:.....:..... .  * GRAFI
K-UNTERPROGRAMME *.....:......36873, 112
,98 , 148,62: .  X-ACHSE......36873, 110
,87 , 102,95: .36873, 102,87 , 110,95: .
.?.B..36873, 60,80 , 200,80: .  Y-ACHSE.
..L..36873, 206,76 , 210,80: .36873, 214
,76,210,80:.36879, 210,84...V. . ......3
6873, 129,5 , 129,150: .  Z-ACHSE......3
6873,135,2,143,2:.36879,135,10:.36879,14
3,10: ......:......  QUADER..... . I . 0
 . 4 . 4./... .36876, W(I . 4),S(I . 4).
^.... J . 1 . 4: .36879,W(I . J),S(I . J
): . J.G.&. . I...0. . I . 1 . 4: .36873
, W(I),S(I) , W(I . 4),S(I . 4): . I...:
. . ...D.:.B.N..  PYRAMIDE...X..36876, W
(3),S(3): . I . 1 . 3: .36879,W(I),S(I):
 . I.1.B. . I . 1 . 3: .36873, W(4),S(4)
 , W(I),S(I): . I.9.L. . .?.V.:.O....  Z
YLINDER..... . I . 2 . 4 . 2: .36873, W(
I),S(I) , W(I . 4),S(I . 4): . I..... . 
I . 0 . 4 . 4: .36876, W(4 . I),S(4 . I)
..... . W . 0.1 . 6.4 . 0.1:C .  . (W):S
 .  . (W).;...WH . W(1 . I) . (W(1 . I) 
. W(2 . I)) . C . (W(1 . I) . W(3 . I)) 
. S.....SH . S(1 . I) . (S(1 . I) . S(2 
. I)) . C . (S(1 . I) . S(3 . I)) . S...
...36879,WH,SH: . W: . I: ....F.:...P.:.
..Z.:..... .  ** FORTSETZUNG HAUPTPROGRA
MM **.....:..... . KOERPER IN AUSGANGSLA
GE MIT ALLEN DREHACHSEN.(... . I . 1 . N
.^... . F . 1 . X(I) . QX(I):Y(I) . QY(I
):Z(I) . QZ(I)..... . F . 2 . X(I) . PX(
I):Y(I) . PY(I):Z(I) . PZ(I).J. . . F . 
3 . X(I) . ZX(I):Y(I) . ZY(I):Z(I) . ZZ(
I)...*.W(I) . 130 . Y(I) . RW . X(I):S(I
) . 80 . Z(I) . RS . X(I): . I.../.. 368
64.G.4. . F . 3 . A$ . "Y":A . 2: ."."; 
: . 970.M.>.:.W.H..".";...R. .36882, 21:
 . "UM WELCHE ACHSE WILLST DU DREHEN?".C
.\. . "GIB DEN ENTSPRECHENDEN BUCHSTABEN
 EIN. ": . ...F. . "EINGABE VON 0:  ZURU
ECK ZUR AUSWAHL  ";...P.:./.Z. . 430: . 
450: . 480: . F . 510,590: . GRAFIK-UPR.
W... . A$: . A$ . "0" .  .36867 : . 220.
.... . A$ .  . "X" . A$ .  . "Y" . A$ . 
 . "Z" .  ."."; : . 850..... . A$ . "X" 
. A . 1.G... . A$ . "Y" . A . 2..... . A
$ . "Z" . A . 3.....:..... . KOERPER MIT
 AUSGEWAEHLTER DREHACHSE    .T.J..36870 
: . F . 510,590,640: . A . 430,450,480: 
. GRAFIK-UPR...T. ."."; : .36882, 24: . 
"EINGABE VON 0:  ";..... . F . 3 .  . "N
EUE WAHL DER ACHSE";.U... . F . 3 .  . "
ZURUECK ZUR AUSWAHL";..... .36882, 21: .
36885, 1: . "GIB JETZT EIN:".&... . "DRE
HWINKEL UM ";A$;":  ";.V... . W$: . W$ .
 "0" . F . 3 .  .36867 : . 220.L... . W$
 . "0" . 840.....W .  E (W$): . W . 0 . 
980...$. .  . (W) . 10000000 . 1090.....
 .  .18);: ."."; : . "WINKEL ZU GROSS": 
."."; ...8. . I . 1 . 2222: . I: . 980.-
.B. .36882, 21: .  .40): .36882, 24: .  
.40);.3.L.:.J.V. .  DREHEN UM W   ...`.W
 . W . PI . 180:S .  . (W):C .  . (W): .
 I . 1 . N.J.J. . A . 1 . X . X(I):Y . C
 . Y(I) . S . Z(I):Z . S . Y(I) . C . Z(
I)...T. . A . 2 . X . C . X(I) . S . Z(I
):Y . Y(I):Z .  . S . X(I) . C . Z(I).].
~. . A . 3 . X . C . X(I) . S . Y(I):Y .
 S . X(I) . C . Y(I):Z . Z(I).....W(I) .
 130 . Y . RW . X:S(I) . 80 . Z . RS . X
.....X(I) . X:Y(I) . Y:Z(I) . Z: . I: . 
970.A...:.G...:..... . BEDEUTUNG DER VAR
IABLEN."... . A   NUMMER DER DREHACHSE: 
1,2,3 FUER X-. Y-, Z-ACHSE.G.D. . A$  BE
ZEICHNUNG DER DREHACHSE.Y.N. . C   COS(W
)...X. . F   NUMMER DES KOERPERS: 1 QUAD
ER, 2 PYRAMIDE, 3 ZYLINDER..... . F$  IN
PUTVARIABLE ZU F..... . FE  HILFSVARIABL
E BEI ABFRAGE FALSCHE EINGABE..... . I  
 LAUFVARIABLE. ... . J   2. LAUFVARIABLE
.V... . N   ZAHL DER ECKEN BZW. AUSGEZEI
CHNETEN PUNKTE.N... . PI  KREISZAHL PI. 
... . PX(,PY(,PZ( KOORDINATEN DER PYRAMI
DENECKEN.R.(. . QX(,QY(,QZ( KOORDINATEN 
DER QUADERECKEN   ...2. . RS  VERZERRUNG
SMASSTAB, SENKRECHTER ANTEIL.7.<. . RW  
VERZERRUNGSMASSTAB, WAAGERECHTER ANTEIL.
I.F. . S   SIN(W).Z.P. . S(  SENKRECHTE 
KOORDINATE DES BILDSCHIRMS...Z. . SH  HI
LFSVARIABLE ZU S(...D. . W   GROESSE EIN
ES WINKELS...N. . W$  EINGABEVARIABLE VO
N W...X. . W(  WAAGERECHTE KOORDINATE DE
S BILDSCHIRMS   .1... . WH  HILFSVARIABL
E ZU W(  .E... . X,Y,Z BZW X(,Y(,Z( KOOR
DINATEN EINES PUNKTES..... . ZX(,ZY(,ZZ(
 KOORDINATEN AUSGEZEICHNETER PUNKTE DES 
ZYLINDERS.... 
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL