7.30
FILE INFORMATION
FILENAME(S): 7.30
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-11-02 22:11:33
APPEARS ON: 1 disk(s)
FILE HASH
48f98426ad42cff239c6df76c9abf3154e58550f5fb69bd9f1dbfcc9caf7aba5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MAGIC DISK 64 | 7.30 | PRG | Treasure Chest - ToGuMi | 32 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 40 47 45 44 52 87 43 4B 54 20 57 49 52 44 2E |.@GEDR.CKT WIRD.| 00000010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000030: 20 20 20 20 20 20 20 CA 45 54 5A 54 20 20 4B 86 | .ETZT K.| 00000040: 4E 4E 45 4E 20 57 49 52 20 50 52 87 46 45 4E 2C |NNEN WIR PR.FEN,| 00000050: 20 57 45 4C 43 48 45 20 D4 41 53 54 45 20 44 49 | WELCHE .ASTE DI| 00000060: 45 53 20 57 41 52 2E 20 C4 49 45 53 46 55 4E 4B |ES WAR. .IESFUNK| 00000070: 54 49 4F 4E 49 45 52 54 20 47 41 4E 5A 20 20 45 |TIONIERT GANZ E| 00000080: 49 4E 46 41 43 48 20 20 87 42 45 52 20 20 45 49 |INFACH .BER EI| 00000090: 4E 20 20 50 41 41 52 20 20 C9 C6 2D D4 C8 C5 CE |N PAAR ..-....| 000000A0: 2D C1 42 46 52 41 47 45 4E 2C 20 53 49 45 48 45 |-.BFRAGEN, SIEHE| 000000B0: 20 41 55 43 48 20 44 49 45 20 46 4F 4C 47 45 4E | AUCH DIE FOLGEN| 000000C0: 44 45 4E 20 DA 45 49 4C 45 4E 3A 20 20 20 20 20 |DEN .EILEN: | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000100: 20 20 20 20 20 20 20 20 20 20 20 37 30 20 49 46 | 70 IF| 00000110: 20 41 24 3D 22 5B C6 31 5D 22 20 54 48 45 4E 20 | A$="[.1]" THEN | 00000120: 33 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 |300 | 00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000140: 38 30 20 49 46 20 41 24 3D 22 5B C6 37 5D 22 20 |80 IF A$="[.7]" | 00000150: 54 48 45 4E 20 32 30 30 20 20 20 20 20 20 20 20 |THEN 200 | 00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000170: 20 20 20 20 20 39 30 20 49 46 20 41 24 3D 22 45 | 90 IF A$="E| 00000180: 22 20 54 48 45 4E 20 45 4E 44 20 20 20 20 20 20 |" THEN END | 00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001A0: 20 20 20 20 20 20 20 20 20 20 31 30 30 20 47 4F | 100 GO| 000001B0: 54 4F 20 36 30 20 20 20 20 20 20 20 20 20 20 20 |TO 60 | 000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000210: 20 20 20 20 D7 49 45 20 44 49 45 20 45 43 4B 49 | .IE DIE ECKI| 00000220: 47 45 4E 20 CB 4C 41 4D 4D 45 52 4E 20 4A 41 20 |GEN .LAMMERN JA | 00000230: 41 4E 5A 45 49 47 45 4E 2C 20 48 41 42 45 4E 20 |ANZEIGEN, HABEN | 00000240: 57 49 52 20 48 49 45 52 2D 57 49 45 44 45 52 20 |WIR HIER-WIEDER | 00000250: 20 32 20 20 4E 45 55 45 20 20 D3 4F 4E 44 45 52 | 2 NEUE .ONDER| 00000260: 5A 45 49 43 48 45 4E 2C 20 20 44 49 45 20 20 20 |ZEICHEN, DIE | 00000270: 53 45 48 52 20 4C 45 49 43 48 54 20 5A 55 45 52 |SEHR LEICHT ZUER| 00000280: 4B 4C 85 52 45 4E 20 53 49 4E 44 2E 20 D3 49 45 |KL.REN SIND. .IE| 00000290: 20 45 4E 54 53 54 45 48 45 4E 2C 20 57 45 4E 4E | ENTSTEHEN, WENN| 000002A0: 20 D3 49 45 20 49 4E 4E 45 52 48 41 4C 42 20 20 | .IE INNERHALB | 000002B0: 44 45 52 C7 85 4E 53 45 46 87 88 43 48 45 4E 20 |DER..NSEF..CHEN | 000002C0: 20 44 49 45 20 C6 31 2D 20 28 49 4E 20 DA 45 49 | DIE .1- (IN .EI| 000002D0: 4C 45 20 37 30 29 20 4F 44 45 52 20 44 49 45 20 |LE 70) ODER DIE | 000002E0: C6 37 2D D4 41 53 54 45 28 49 4E 20 DA 45 49 4C |.7-.ASTE(IN .EIL| 000002F0: 45 20 38 30 29 20 20 44 52 87 43 4B 45 4E 2E 20 |E 80) DR.CKEN. | 00000300: 20 C4 49 45 53 45 20 20 42 45 49 44 45 4E 20 20 | .IESE BEIDEN | 00000310: DA 45 49 43 48 45 4E 20 20 53 49 4E 44 87 42 52 |.EICHEN SIND.BR| 00000320: 49 47 45 4E 53 20 20 47 55 54 45 20 20 C2 45 49 |IGENS GUTE .EI| 00000330: 53 50 49 45 4C 45 20 46 87 52 20 44 49 45 20 D3 |SPIELE F.R DIE .| 00000340: 4F 4E 44 45 52 5A 45 49 43 48 45 4E 2C 20 44 45 |ONDERZEICHEN, DE| 00000350: 4E 4E 4F 42 57 4F 48 4C 20 53 49 45 20 4E 49 43 |NNOBWOHL SIE NIC| 00000360: 48 54 20 53 49 43 48 54 42 41 52 20 53 49 4E 44 |HT SICHTBAR SIND| 00000370: 2C 20 20 57 45 4E 4E 20 20 4D 41 4E 20 20 53 49 |, WENN MAN SI| 00000380: 45 20 20 41 55 53 2D 44 52 55 43 4B 54 2C 20 20 |E AUS-DRUCKT, | 00000390: 53 49 4E 44 20 20 53 49 45 20 20 44 4F 43 48 20 |SIND SIE DOCH | 000003A0: 52 45 4C 41 54 49 56 20 57 49 43 48 54 49 47 2C |RELATIV WICHTIG,| 000003B0: 20 44 41 20 4D 41 4E 20 4F 48 4E 45 53 49 45 20 | DA MAN OHNESIE | 000003C0: 44 49 45 20 C1 42 46 52 41 47 45 20 44 45 52 20 |DIE .BFRAGE DER | 000003D0: C6 2D D4 41 53 54 45 4E 20 4E 55 52 20 20 53 43 |.-.ASTEN NUR SC| 000003E0: 48 57 45 52 20 20 52 45 41 4C 49 53 49 45 52 45 |HWER REALISIERE| 000003F0: 4E 4B 86 4E 4E 54 45 2E 20 D3 49 45 20 4B 86 4E |NK.NNTE. .IE K.N| 00000400: 4E 54 45 4E 20 48 49 45 52 20 87 42 52 49 47 45 |NTEN HIER .BRIGE| 00000410: 4E 53 20 45 42 45 4E 53 4F 20 53 43 48 52 45 49 |NS EBENSO SCHREI| 00000420: 42 45 4E 3A 20 20 20 20 20 20 20 20 20 20 20 20 |BEN: | 00000430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000450: 20 20 20 20 20 20 20 20 20 20 20 37 30 20 49 46 | 70 IF| 00000460: 20 41 24 3D 43 48 52 24 28 31 33 33 29 20 54 48 | A$=CHR$(133) TH| 00000470: 45 4E 20 33 30 30 20 20 20 20 20 20 20 20 20 20 |EN 300 | 00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000490: 38 30 20 49 46 20 41 24 3D 43 48 52 24 28 31 33 |80 IF A$=CHR$(13| 000004A0: 36 29 20 54 48 45 4E 20 32 30 30 20 20 20 20 20 |6) THEN 200 | 000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004C0: 20 20 20 20 20 | |
.@GEDR.CKT WIRD.
JETZT K.NNEN WIR PR.FEN,
WELCHE TASTE DIES WAR. DIESFUNKTIONIERT
GANZ EINFACH .BER EIN PAAR IF-THEN
-ABFRAGEN, SIEHE AUCH DIE FOLGENDEN ZEIL
EN:
70 IF A$="[F1
]" THEN 300
80 IF A$="[F7]" THEN 200
90 IF A$="E" THEN END
100 GOTO 60
WIE DIE ECKIGEN KLAMMERN JA
ANZEIGEN, HABEN WIR HIER-WIEDER 2 NEUE
SONDERZEICHEN, DIE SEHR LEICHT ZUER
KL.REN SIND. SIE ENTSTEHEN, WENN SIE INN
ERHALB DERG.NSEF..CHEN DIE F1- (IN ZEI
LE 70) ODER DIE F7-TASTE(IN ZEILE 80) D
R.CKEN. DIESE BEIDEN ZEICHEN SIND.BR
IGENS GUTE BEISPIELE F.R DIE SONDERZEI
CHEN, DENNOBWOHL SIE NICHT SICHTBAR SIND
, WENN MAN SIE AUS-DRUCKT, SIND SI
E DOCH RELATIV WICHTIG, DA MAN OHNESIE
DIE ABFRAGE DER F-TASTEN NUR SCHWER RE
ALISIERENK.NNTE. SIE K.NNTEN HIER .BRIGE
NS EBENSO SCHREIBEN:
70 IF
A$=CHR$(133) THEN 300
80 IF A$=CHR$(136) THEN 200
> CLICK IMAGE PREVIEW FOR FULL MODAL