7.2

FILE INFORMATION

FILENAME(S): 7.2

FILE TYPE(S): PRG

FILE SIZE: 1.2K

FIRST SEEN: 2025-10-20 14:30:22

APPEARS ON: 1 disk(s)

FILE HASH

1a2a8bc20e489c9ec6c7370c30c062aae6f3513e841aa2ba864edadc73762859

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
MAGIC DISK 64	7.2	PRG	Treasure Chest - Klaus Der Suhler, Treasure Chest - ToGuMi	11	16	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 40 C4 4F 43 48 20 20  4E 55 4E 20 57 45 49 54  |.@.OCH  NUN WEIT|
00000010: 45 52 20 49 4D 20 D4 45  58 54 2C 20 53 50 52 49  |ER IM .EXT, SPRI|
00000020: 43 48 20 49 4D 20 CC 49  53 54 49 4E 47 20 28 53  |CH IM .ISTING (S|
00000030: 4F 20 4E 45 4E 4E 54 4D  41 4E 20 44 49 45 20 56  |O NENNTMAN DIE V|
00000040: 4F 4D 20 C3 4F 4D 50 55  54 45 52 20 47 45 4F 52  |OM .OMPUTER GEOR|
00000050: 44 4E 45 54 45 20 20 CC  49 53 54 45 20 20 44 45  |DNETE  .ISTE  DE|
00000060: 52 20 20 45 49 4E 5A 45  4C 4E 45 4E D0 52 4F 47  |R  EINZELNEN.ROG|
00000070: 52 41 4D 4D 5A 45 49 4C  45 4E 29 20 55 4E 53 45  |RAMMZEILEN) UNSE|
00000080: 52 45 53 20 4B 4C 45 49  4E 45 4E 20 D0 52 4F 47  |RES KLEINEN .ROG|
00000090: 52 41 4D 4D 53 2C 20 4D  41 43 48 45 4E 20 57 49  |RAMMS, MACHEN WI|
000000A0: 52 57 45 49 54 45 52 20  20 41 42 20 20 DA 45 49  |RWEITER  AB  .EI|
000000B0: 4C 45 20 20 35 30 2C 20  41 4C 53 4F 20 CC C9 D3  |LE  50, ALSO ...|
000000C0: D4 20 35 30 2D 20 28 D3  49 45 20 57 49 53 53 45  |. 50- (.IE WISSE|
000000D0: 4E 20 44 4F 43 48 57 4F  48 4C 20 48 4F 46 46 45  |N DOCHWOHL HOFFE|
000000E0: 4E 54 4C 49 43 48 20 4E  4F 43 48 2C 20 57 41 53  |NTLICH NOCH, WAS|
000000F0: 20 44 49 45 53 20 42 45  57 49 52 4B 54 20 3F 21  | DIES BEWIRKT ?!|
00000100: 3F 29 3A 20 20 20 20 20  20 20 20 20 20 20 20 20  |?):             |
00000110: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
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 20 20 20 20 20  |                |
00000140: 35 30 20 4F 3D 32 2A 52  2A DE 2A 28 52 2B 48 29  |50 O=2*R*.*(R+H)|
00000150: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000160: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000170: 20 20 20 20 20 36 30 20  50 52 49 4E 54 22 5B 32  |     60 PRINT"[2|
00000180: 20 C4 CF D7 CE 5D C4 49  45 20 CF 42 45 52 46 4C  | ....].IE .BERFL|
00000190: 41 45 43 48 45 20 45 49  4E 45 53 20 DA 59 4C 49  |AECHE EINES .YLI|
000001A0: 4E 44 45 52 53 20 4D 49  54 22 37 30 20 50 52 49  |NDERS MIT"70 PRI|
000001B0: 4E 54 22 44 45 52 20 C8  4F 45 48 45 22 48 22 55  |NT"DER .OEHE"H"U|
000001C0: 4E 44 20 44 45 4D 20 D2  41 44 49 55 53 22 52 20  |ND DEM .ADIUS"R |
000001D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 38  |               8|
000001E0: 30 20 50 52 49 4E 54 22  42 45 54 52 41 45 47 54  |0 PRINT"BETRAEGT|
000001F0: 22 3B 4F 20 20 20 20 20  20 20 20 20 20 20 20 20  |";O             |
00000200: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000210: 20 20 20 20 39 30 20 49  4E 50 55 54 22 5B 32 20  |    90 INPUT"[2 |
00000220: C4 CF D7 CE 5D CE 4F 43  48 20 45 49 4E 45 20 C2  |....].OCH EINE .|
00000230: 45 52 45 43 48 4E 55 4E  47 20 28 CA 2F CE 29 22  |ERECHNUNG (./.)"|
00000240: 3B 41 24 20 20 20 20 20  20 31 30 30 20 49 46 20  |;A$      100 IF |
00000250: 41 24 3D 22 4A 22 54 48  45 4E 20 52 55 4E 20 20  |A$="J"THEN RUN  |
00000260: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000270: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 31 31  |              11|
00000280: 30 20 45 4E 44 20 20 20  20 20 20 20 20 20 20 20  |0 END           |
00000290: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002E0: 20 20 20 20 20 20 20 20  DA 45 49 4C 45 20 20 35  |        .EILE  5|
000002F0: 30 20 4B 45 4E 4E 45 4E  20 57 49 52 20 4A 41 20  |0 KENNEN WIR JA |
00000300: 4E 4F 43 48 20 56 4F 4E  20 55 4E 53 45 52 45 4E  |NOCH VON UNSEREN|
00000310: 20 D6 45 52 53 55 43 48  45 4E 20 49 4D C4 49 52  | .ERSUCHEN IM.IR|
00000320: 45 4B 54 4D 4F 44 55 53  2E 20 CD 49 54 20 49 48  |EKTMODUS. .IT IH|
00000330: 52 20 4B 86 4E 4E 45 4E  20 57 49 52 20 44 49 45  |R K.NNEN WIR DIE|
00000340: 20 C2 45 52 45 43 48 4E  55 4E 47 20 20 55 4E 53  | .ERECHNUNG  UNS|
00000350: 45 2D 52 45 53 20 20 DA  59 4C 49 4E 44 45 52 53  |E-RES  .YLINDERS|
00000360: 20 20 44 55 52 43 48 46  87 48 52 45 4E 2C 20 55  |  DURCHF.HREN, U|
00000370: 4E 44 20 44 41 53 20 41  4C 4C 47 45 4D 45 49 4E  |ND DAS ALLGEMEIN|
00000380: 47 87 4C 54 49 47 2C 44  45 4E 4E 20 57 49 52 20  |G.LTIG,DENN WIR |
00000390: 4B 86 4E 4E 45 4E 20 46  87 52 20 D2 41 44 49 55  |K.NNEN F.R .ADIU|
000003A0: 53 20 28 52 29 20 55 4E  44 20 C8 86 48 45 20 28  |S (R) UND ..HE (|
000003B0: 48 29 20 42 45 4C 49 45  42 49 47 45 D7 45 52 54  |H) BELIEBIGE.ERT|
000003C0: 45 20 41 4E 47 45 42 45  4E 2E 20 C4 49 45 53 45  |E ANGEBEN. .IESE|
000003D0: 20 4D 87 53 53 45 4E 20  48 41 4C 54 20 4E 55 52  | M.SSEN HALT NUR|
000003E0: 20 20 56 4F 52 48 45 52  20 20 46 45 53 54 47 45  |  VORHER  FESTGE|
000003F0: 2D 4C 45 47 54 20 20 57  45 52 44 45 4E 2E 20 20  |-LEGT  WERDEN.  |
00000400: D7 49 45 20 D3 49 45 20  53 49 43 48 20 45 52 49  |.IE .IE SICH ERI|
00000410: 4E 4E 45 52 4E 2C 20 48  41 54 54 45 4E 20 57 49  |NNERN, HATTEN WI|
00000420: 52 20 44 49 45 53 49 4E  20 44 45 4E 20 DA 45 49  |R DIESIN DEN .EI|
00000430: 4C 45 4E 20 33 30 20 55  4E 44 20 34 30 20 45 52  |LEN 30 UND 40 ER|
00000440: 4C 45 44 49 47 54 2C 20  20 57 4F 20 20 57 49 52  |LEDIGT,  WO  WIR|
00000450: 20 20 44 49 45 20 20 5A  57 45 49 C9 CE D0 D5 D4  |  DIE  ZWEI.....|
00000460: 2D C2 45 46 45 48 4C 45  20 20 55 4E 54 45 52 47  |-.EFEHLE  UNTERG|
00000470: 45 42 52 41 43 48 54 20  48 41 54 54 45 4E 2C 20  |EBRACHT HATTEN, |
00000480: 44 49 45 20 44 49 45 53  45 20 42 45 49 44 45 4E  |DIE DIESE BEIDEN|
00000490: D6 41 52 49 41 42 4C 45  4E 20 45 49 4E 4C 45 53  |.ARIABLEN EINLES|
000004A0: 45 4E 20 53 4F 4C 4C 54  45 4E 2E 20 C1 4C 53 4F  |EN SOLLTEN. .LSO|
000004B0: 20 57 49 52 44 20 49 4E  20 44 49 45 53 45 52 20  | WIRD IN DIESER |
000004C0: DA 45 49 4C 45                                    |.EILE           |

.@DOCH  NUN WEITER IM TEXT, SPRICH IM LI
STING (SO NENNTMAN DIE VOM COMPUTER GEOR
DNETE  LISTE  DER  EINZELNENPROGRAMMZEIL
EN) UNSERES KLEINEN PROGRAMMS, MACHEN WI
RWEITER  AB  ZEILE  50, ALSO LIST 50- (S
IE WISSEN DOCHWOHL HOFFENTLICH NOCH, WAS
 DIES BEWIRKT ?!?):                     
                                        
50 O=2*R*.*(R+H)                        
             60 PRINT"[2 DOWN]DIE OBERFL
AECHE EINES ZYLINDERS MIT"70 PRINT"DER H
OEHE"H"UND DEM RADIUS"R                8
0 PRINT"BETRAEGT";O                     
            90 INPUT"[2 DOWN]NOCH EINE B
ERECHNUNG (J/N)";A$      100 IF A$="J"TH
EN RUN                                11
0 END                                   
                                        
                        ZEILE  50 KENNEN
 WIR JA NOCH VON UNSEREN VERSUCHEN IMDIR
EKTMODUS. MIT IHR K.NNEN WIR DIE BERECHN
UNG  UNSE-RES  ZYLINDERS  DURCHF.HREN, U
ND DAS ALLGEMEING.LTIG,DENN WIR K.NNEN F
.R RADIUS (R) UND H.HE (H) BELIEBIGEWERT
E ANGEBEN. DIESE M.SSEN HALT NUR  VORHER
  FESTGE-LEGT  WERDEN.  WIE SIE SICH ERI
NNERN, HATTEN WIR DIESIN DEN ZEILEN 30 U
ND 40 ERLEDIGT,  WO  WIR  DIE  ZWEIINPUT
-BEFEHLE  UNTERGEBRACHT HATTEN, DIE DIES
E BEIDENVARIABLEN EINLESEN SOLLTEN. ALSO
 WIRD IN DIESER ZEILE

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL