7.23
FILE INFORMATION
FILENAME(S): 7.23
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-11-02 22:11:33
APPEARS ON: 1 disk(s)
FILE HASH
ea91c3ed36064cf11a39b9643575beff314523b016cf741fd709d129e2caed0e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MAGIC DISK 64 | 7.23 | PRG | Treasure Chest - ToGuMi | 31 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 40 33 30 20 50 52 49 4E 54 20 43 48 52 24 28 |.@30 PRINT CHR$(| 00000010: 31 34 29 43 48 52 24 28 38 29 20 20 20 20 20 20 |14)CHR$(8) | 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 34 30 20 50 52 49 4E 54 22 | 40 PRINT"| 00000040: 5B C3 CC D3 5D D0 52 4F 47 52 41 4D 4D 20 5A 55 |[...].ROGRAMM ZU| 00000050: 52 20 C2 45 52 45 43 48 4E 55 4E 47 20 56 4F 4E |R .ERECHNUNG VON| 00000060: 20 CB 52 45 49 53 55 4D 2D 20 20 20 46 41 4E 47 | .REISUM- FANG| 00000070: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000A0: 20 35 30 20 50 52 49 4E 54 22 55 4E 44 20 2D 49 | 50 PRINT"UND -I| 000000B0: 4E 48 41 4C 54 2E 22 20 20 20 20 20 20 20 20 20 |NHALT." | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000D0: 20 20 20 20 20 20 36 30 20 49 4E 50 55 54 22 5B | 60 INPUT"[| 000000E0: 32 20 C4 CF D7 CE 5D D2 41 44 49 55 53 20 22 3B |2 ....].ADIUS ";| 000000F0: 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |R | 00000100: 20 20 20 20 20 20 20 20 20 20 20 37 30 20 55 3D | 70 U=| 00000110: 46 4E 55 28 52 29 20 20 20 20 20 20 20 20 20 20 |FNU(R) | 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: 38 30 20 49 3D 46 4E 49 28 52 29 20 20 20 20 20 |80 I=FNI(R) | 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 20 20 20 20 20 20 20 20 20 20 20 | | 00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 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 C4 49 45 20 DA 45 | .IE .E| 000001B0: 49 4C 45 4E 20 33 30 2D 35 30 20 44 52 55 43 4B |ILEN 30-50 DRUCK| 000001C0: 45 4E 20 44 49 45 20 D4 49 54 45 4C 5A 45 49 4C |EN DIE .ITELZEIL| 000001D0: 45 20 44 45 53 20 D0 52 4F 47 52 41 4D 4D 53 41 |E DES .ROGRAMMSA| 000001E0: 55 53 2E 20 C9 4E 20 DA 45 49 4C 45 20 33 30 20 |US. .N .EILE 30 | 000001F0: 57 49 52 44 20 87 42 52 49 47 45 4E 53 20 20 57 |WIRD .BRIGENS W| 00000200: 49 45 44 45 52 20 20 4D 49 54 20 20 C3 C8 D2 24 |IEDER MIT ...$| 00000210: 28 31 34 29 44 49 45 20 20 CB 4C 45 49 4E 53 43 |(14)DIE .LEINSC| 00000220: 48 52 49 46 54 20 20 45 49 4E 47 45 53 43 48 41 |HRIFT EINGESCHA| 00000230: 4C 54 45 54 20 20 55 4E 44 20 4D 49 54 20 C3 C8 |LTET UND MIT ..| 00000240: D2 24 28 38 29 20 44 49 45 D5 4D 53 43 48 41 4C |.$(8) DIE.MSCHAL| 00000250: 54 4D 86 47 4C 49 43 48 4B 45 49 54 20 44 55 52 |TM.GLICHKEIT DUR| 00000260: 43 48 20 C4 52 87 43 4B 45 4E 20 44 45 52 20 D3 |CH .R.CKEN DER .| 00000270: C8 C9 C6 D4 2D 20 55 4E 44 20 20 44 45 52 C3 CF |....- UND DER..| 00000280: CD CD CF C4 CF D2 C5 2D D4 41 53 54 45 4E 20 20 |.......-.ASTEN | 00000290: 42 4C 4F 43 4B 49 45 52 54 2E 20 D7 49 52 20 48 |BLOCKIERT. .IR H| 000002A0: 41 54 54 45 4E 20 44 49 45 53 20 4A 41 20 53 43 |ATTEN DIES JA SC| 000002B0: 48 4F 4E 45 49 4E 4D 41 4C 20 42 45 49 20 55 4E |HONEINMAL BEI UN| 000002C0: 53 45 52 45 4D 20 DA 59 4C 49 4E 44 45 52 42 45 |SEREM .YLINDERBE| 000002D0: 52 45 43 48 4E 55 4E 47 53 50 52 4F 47 52 41 4D |RECHNUNGSPROGRAM| 000002E0: 4D 2E 2E 2E 20 20 20 20 C9 4E 20 DA 45 49 4C 45 |M... .N .EILE| 000002F0: 20 36 30 20 46 52 41 47 54 20 44 41 53 20 D0 52 | 60 FRAGT DAS .R| 00000300: 4F 47 52 41 4D 4D 20 4A 45 54 5A 54 20 4E 41 43 |OGRAMM JETZT NAC| 00000310: 48 20 44 45 4D 20 D2 41 44 49 55 53 2C 44 45 52 |H DEM .ADIUS,DER| 00000320: 20 4E 41 43 48 20 C5 49 4E 47 41 42 45 20 45 49 | NACH .INGABE EI| 00000330: 4E 45 53 20 42 45 4C 49 45 42 49 47 45 4E 20 D7 |NES BELIEBIGEN .| 00000340: 45 52 54 45 53 20 49 4E 20 20 44 45 52 20 20 D6 |ERTES IN DER .| 00000350: 41 2D 52 49 41 42 4C 45 4E 20 27 52 27 20 47 45 |A-RIABLEN 'R' GE| 00000360: 53 50 45 49 43 48 45 52 54 20 57 49 52 44 2E 20 |SPEICHERT WIRD. | 00000370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000380: 20 20 20 20 20 20 20 CA 45 54 5A 54 20 46 4F 4C | .ETZT FOL| 00000390: 47 54 20 45 4E 44 4C 49 43 48 20 55 4E 53 45 52 |GT ENDLICH UNSER| 000003A0: 20 20 4C 41 4E 47 45 52 57 41 52 54 45 54 45 52 | LANGERWARTETER| 000003B0: 20 20 C6 55 4E 4B 54 49 4F 4E 53 2D 41 55 46 52 | .UNKTIONS-AUFR| 000003C0: 55 46 2E 20 20 D3 49 45 20 53 45 48 45 4E 2C 20 |UF. .IE SEHEN, | 000003D0: 44 41 88 20 49 4E 20 DA 45 49 4C 45 20 37 30 20 |DA. IN .EILE 70 | 000003E0: 20 44 41 53 20 C5 52 47 45 42 4E 49 53 20 44 45 | DAS .RGEBNIS DE| 000003F0: 52 C6 55 4E 4B 54 49 4F 4E 20 20 45 52 53 54 20 |R.UNKTION ERST | 00000400: 20 45 49 4E 4D 41 4C 20 20 44 45 52 20 20 D6 41 | EINMAL DER .A| 00000410: 52 49 41 42 4C 45 4E 20 27 20 55 27 20 5A 55 47 |RIABLEN ' U' ZUG| 00000420: 45 4F 52 4E 45 54 57 49 52 44 2E 20 C4 45 52 20 |EORNETWIRD. .ER | 00000430: C1 55 46 52 55 46 20 41 4E 53 49 43 48 20 47 45 |.UFRUF ANSICH GE| 00000440: 53 54 41 4C 54 45 54 20 53 49 43 48 20 48 86 43 |STALTET SICH H.C| 00000450: 48 53 54 20 45 49 4E 46 41 43 48 55 4E 44 20 53 |HST EINFACHUND S| 00000460: 43 48 4D 45 52 5A 4C 4F 53 2E 20 D3 49 45 20 53 |CHMERZLOS. .IE S| 00000470: 43 48 52 45 49 42 45 4E 20 47 41 4E 5A 20 45 49 |CHREIBEN GANZ EI| 00000480: 4E 46 41 43 48 20 57 49 45 44 45 52 20 44 45 4E |NFACH WIEDER DEN| 00000490: D0 52 45 46 49 58 20 27 C6 CE 27 20 47 45 46 4F |.REFIX '..' GEFO| 000004A0: 4C 47 54 20 56 4F 4D 20 C6 55 4E 4B 54 49 4F 4E |LGT VOM .UNKTION| 000004B0: 53 4E 41 4D 45 4E 20 55 4E 44 20 20 44 45 4D 20 |SNAMEN UND DEM | 000004C0: 20 D3 55 46 2D | .UF- |
.@30 PRINT CHR$(14)CHR$(8)
40 PRINT"[CLS]PROGRAMM ZU
R BERECHNUNG VON KREISUM- FANG"
50 PRINT"UND -INHALT."
60 INPUT"[2 DOWN]RADIUS ";
R 70 U=FNU(R)
80 I=FNI(R)
DIE ZEILEN 30-
50 DRUCKEN DIE TITELZEILE DES PROGRAMMSA
US. IN ZEILE 30 WIRD .BRIGENS WIEDER M
IT CHR$(14)DIE KLEINSCHRIFT EINGESCHA
LTET UND MIT CHR$(8) DIEUMSCHALTM.GLICH
KEIT DURCH DR.CKEN DER SHIFT- UND DERCO
MMODORE-TASTEN BLOCKIERT. WIR HATTEN DI
ES JA SCHONEINMAL BEI UNSEREM ZYLINDERBE
RECHNUNGSPROGRAMM... IN ZEILE 60 FRAG
T DAS PROGRAMM JETZT NACH DEM RADIUS,DER
NACH EINGABE EINES BELIEBIGEN WERTES IN
DER VA-RIABLEN 'R' GESPEICHERT WIRD.
JETZT FOLGT ENDLI
CH UNSER LANGERWARTETER FUNKTIONS-AUFR
UF. SIE SEHEN, DA. IN ZEILE 70 DAS ERG
EBNIS DERFUNKTION ERST EINMAL DER VA
RIABLEN ' U' ZUGEORNETWIRD. DER AUFRUF A
NSICH GESTALTET SICH H.CHST EINFACHUND S
CHMERZLOS. SIE SCHREIBEN GANZ EINFACH WI
EDER DENPREFIX 'FN' GEFOLGT VOM FUNKTION
SNAMEN UND DEM SUF-
> CLICK IMAGE PREVIEW FOR FULL MODAL