TEST82

FILE INFORMATION

FILENAME(S): TEST82

FILE TYPE(S): SEQ

FILE SIZE: 1.6K

FIRST SEEN: 2025-11-30 01:08:01

APPEARS ON: 6 disk(s)

FILE HASH

b08e7c065940b73e966bde8a67baad9beb6799b27c6bb109ef17cab9c562dd34

FOUND ON DISKS (6 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
C OMAL	TEST82	SEQ	Treasure Chest - Wolfgang Rauprich	8	11	DOWNLOAD FILE
FREEWARE DISK NR	TEST82	SEQ	Treasure Chest - Wolfgang Rauprich	8	11	DOWNLOAD FILE
COMAL 0 14	TEST82	SEQ	Treasure Chest - Wolfgang Rauprich	28	7	DOWNLOAD FILE
C OMAL 0 14	TEST82	SEQ	Treasure Chest - Wolfgang Rauprich	28	7	DOWNLOAD FILE
C OMAL	TEST82	SEQ	Treasure Chest - Wolfgang Rauprich	8	11	DOWNLOAD FILE
FREESOFT DISK NR	TEST82	SEQ	Treasure Chest - Wolfgang Rauprich	8	11	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 30 30 31 30 20 2F 2F 2A  20 44 41 53 20 50 52 4F  |0010 //* DAS PRO|
00000010: 47 52 41 4D 4D 20 56 4F  4E 20 53 43 48 4C 41 43  |GRAMM VON SCHLAC|
00000020: 48 54 45 52 4D 45 49 53  54 45 52 20 42 41 43 4F  |HTERMEISTER BACO|
00000030: 4E 20 2A 2F 2F 0D 0A 30  30 32 30 20 2F 2F 2A 20  |N *//..0020 //* |
00000040: 47 45 53 43 48 52 49 45  42 45 4E 20 56 4F 4E 20  |GESCHRIEBEN VON |
00000050: 43 48 52 49 53 54 49 41  4E 20 42 4F 45 52 47 45  |CHRISTIAN BOERGE|
00000060: 20 2A 2F 2F 0D 0A 30 30  33 30 20 2F 2F 0D 0A 30  | *//..0030 //..0|
00000070: 30 34 30 20 44 49 4D 20  4E 41 4D 45 24 20 4F 46  |040 DIM NAME$ OF|
00000080: 20 33 30 2C 20 44 41 54  55 4D 24 20 4F 46 20 31  | 30, DATUM$ OF 1|
00000090: 30 0D 0A 30 30 35 30 20  2F 2F 2D 48 41 55 50 54  |0..0050 //-HAUPT|
000000A0: 5A 45 49 4C 45 4E 2D 2F  2F 0D 0A 30 30 36 30 20  |ZEILEN-//..0060 |
000000B0: 50 52 49 4E 54 20 22 45  49 4E 47 41 42 45 20 44  |PRINT "EINGABE D|
000000C0: 45 53 20 44 41 54 55 4D  53 20 28 54 41 47 2F 4D  |ES DATUMS (TAG/M|
000000D0: 4F 4E 41 54 2F 4A 41 48  52 29 22 0D 0A 30 30 37  |ONAT/JAHR)"..007|
000000E0: 30 20 49 4E 50 55 54 20  44 41 54 55 4D 24 0D 0A  |0 INPUT DATUM$..|
000000F0: 30 30 38 30 20 52 45 50  45 41 54 20 0D 0A 30 30  |0080 REPEAT ..00|
00000100: 39 30 20 45 49 4E 47 41  42 45 0D 0A 30 31 30 30  |90 EINGABE..0100|
00000110: 20 41 55 53 44 52 55 43  4B 45 4E 0D 0A 30 31 31  | AUSDRUCKEN..011|
00000120: 30 20 50 52 49 4E 54 20  0D 0A 30 31 32 30 20 50  |0 PRINT ..0120 P|
00000130: 52 49 4E 54 20 22 57 45  49 54 45 52 45 20 42 52  |RINT "WEITERE BR|
00000140: 49 45 46 45 20 28 31 3D  4A 41 2F 30 3D 4E 45 49  |IEFE (1=JA/0=NEI|
00000150: 4E 29 22 2C 0D 0A 30 31  33 30 20 49 4E 50 55 54  |N)",..0130 INPUT|
00000160: 20 43 4F 44 45 0D 0A 30  31 34 30 20 55 4E 54 49  | CODE..0140 UNTI|
00000170: 4C 20 43 4F 44 45 3D 30  0D 0A 30 31 35 30 20 2F  |L CODE=0..0150 /|
00000180: 2F 0D 0A 30 31 36 30 20  50 52 4F 43 20 45 49 4E  |/..0160 PROC EIN|
00000190: 47 41 42 45 20 0D 0A 30  31 37 30 20 50 52 49 4E  |GABE ..0170 PRIN|
000001A0: 54 20 22 57 45 52 20 53  4F 4C 4C 20 41 4E 47 45  |T "WER SOLL ANGE|
000001B0: 4D 41 48 4E 54 20 57 45  52 44 45 4E 22 2C 0D 0A  |MAHNT WERDEN",..|
000001C0: 30 31 38 30 20 49 4E 50  55 54 20 4E 41 4D 45 24  |0180 INPUT NAME$|
000001D0: 0D 0A 30 31 39 30 20 50  52 49 4E 54 20 22 55 4D  |..0190 PRINT "UM|
000001E0: 20 57 45 4C 43 48 45 4E  20 42 45 54 52 41 47 20  | WELCHEN BETRAG |
000001F0: 47 45 48 54 20 45 53 22  2C 0D 0A 30 32 30 30 20  |GEHT ES",..0200 |
00000200: 49 4E 50 55 54 20 42 45  54 52 41 47 0D 0A 30 32  |INPUT BETRAG..02|
00000210: 31 30 20 50 52 49 4E 54  20 22 53 4F 4C 4C 20 44  |10 PRINT "SOLL D|
00000220: 49 45 20 4D 41 48 4E 55  4E 47 20 44 52 49 4E 47  |IE MAHNUNG DRING|
00000230: 45 4E 44 20 53 45 49 4E  20 28 31 3D 4A 41 2F 30  |END SEIN (1=JA/0|
00000240: 3D 4E 45 49 4E 29 22 2C  0D 0A 30 32 32 30 20 49  |=NEIN)",..0220 I|
00000250: 4E 50 55 54 20 47 52 41  44 0D 0A 30 32 33 30 20  |NPUT GRAD..0230 |
00000260: 46 4F 52 20 49 3A 3D 31  20 54 4F 20 33 20 44 4F  |FOR I:=1 TO 3 DO|
00000270: 20 50 52 49 4E 54 20 0D  0A 30 32 34 30 20 45 4E  | PRINT ..0240 EN|
00000280: 44 50 52 4F 43 20 45 49  4E 47 41 42 45 0D 0A 30  |DPROC EINGABE..0|
00000290: 32 35 30 20 2F 2F 0D 0A  30 32 36 30 20 50 52 4F  |250 //..0260 PRO|
000002A0: 43 20 41 55 53 44 52 55  43 4B 45 4E 20 0D 0A 30  |C AUSDRUCKEN ..0|
000002B0: 32 37 30 20 50 52 49 4E  54 20 43 48 52 24 28 31  |270 PRINT CHR$(1|
000002C0: 34 37 29 20 2F 2F 41 42  4C 4F 45 53 43 48 45 4E  |47) //ABLOESCHEN|
000002D0: 20 44 45 53 20 42 49 4C  44 53 43 48 49 52 4D 53  | DES BILDSCHIRMS|
000002E0: 0D 0A 30 32 38 30 20 50  52 49 4E 54 20 22 20 20  |..0280 PRINT "  |
000002F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 4E  |               N|
00000300: 49 45 42 55 45 4C 4C 2C  20 22 2C 44 41 54 55 4D  |IEBUELL, ",DATUM|
00000310: 24 0D 0A 30 32 39 30 20  50 52 49 4E 54 20 0D 0A  |$..0290 PRINT ..|
00000320: 30 33 30 30 20 49 46 20  47 52 41 44 3D 31 20 54  |0300 IF GRAD=1 T|
00000330: 48 45 4E 0D 0A 30 33 31  30 20 42 4F 45 53 45 52  |HEN..0310 BOESER|
00000340: 42 52 49 45 46 0D 0A 30  33 32 30 20 45 4C 53 45  |BRIEF..0320 ELSE|
00000350: 20 0D 0A 30 33 33 30 20  4E 45 54 54 45 52 42 52  | ..0330 NETTERBR|
00000360: 49 45 46 0D 0A 30 33 34  30 20 45 4E 44 49 46 20  |IEF..0340 ENDIF |
00000370: 0D 0A 30 33 35 30 20 45  4E 44 50 52 4F 43 20 41  |..0350 ENDPROC A|
00000380: 55 53 44 52 55 43 4B 45  4E 0D 0A 30 33 36 30 20  |USDRUCKEN..0360 |
00000390: 2F 2F 0D 0A 30 33 37 30  20 50 52 4F 43 20 4E 45  |//..0370 PROC NE|
000003A0: 54 54 45 52 42 52 49 45  46 20 0D 0A 30 33 38 30  |TTERBRIEF ..0380|
000003B0: 20 50 52 49 4E 54 20 22  4C 49 45 42 45 28 52 29  | PRINT "LIEBE(R)|
000003C0: 20 22 2C 4E 41 4D 45 24  0D 0A 30 33 39 30 20 50  | ",NAME$..0390 P|
000003D0: 52 49 4E 54 20 0D 0A 30  34 30 30 20 50 52 49 4E  |RINT ..0400 PRIN|
000003E0: 54 20 22 53 49 45 20 57  45 52 44 45 4E 20 48 49  |T "SIE WERDEN HI|
000003F0: 45 52 4D 49 54 20 48 4F  45 46 4C 49 43 48 53 54  |ERMIT HOEFLICHST|
00000400: 20 45 52 53 55 43 48 54  2C 22 0D 0A 30 34 31 30  | ERSUCHT,"..0410|
00000410: 20 50 52 49 4E 54 20 22  49 48 52 45 20 52 45 43  | PRINT "IHRE REC|
00000420: 48 4E 55 4E 47 20 42 45  49 20 55 4E 53 20 55 45  |HNUNG BEI UNS UE|
00000430: 42 45 52 20 22 2C 42 45  54 52 41 47 2C 22 20 44  |BER ",BETRAG," D|
00000440: 4D 22 0D 0A 30 34 32 30  20 50 52 49 4E 54 20 22  |M"..0420 PRINT "|
00000450: 5A 55 20 42 45 47 4C 45  49 43 48 45 4E 2C 20 53  |ZU BEGLEICHEN, S|
00000460: 4F 42 41 4C 44 20 45 53  20 49 48 4E 45 4E 20 4D  |OBALD ES IHNEN M|
00000470: 4F 45 47 4C 49 43 48 20  49 53 54 2E 22 0D 0A 30  |OEGLICH IST."..0|
00000480: 34 33 30 20 50 52 49 4E  54 20 0D 0A 30 34 34 30  |430 PRINT ..0440|
00000490: 20 50 52 49 4E 54 20 22  4D 49 54 20 46 52 45 55  | PRINT "MIT FREU|
000004A0: 4E 44 4C 49 43 48 45 4D  20 47 52 55 53 53 22 0D  |NDLICHEM GRUSS".|
000004B0: 0A 30 34 35 30 20 50 52  49 4E 54 20 22 41 4C 46  |.0450 PRINT "ALF|
000004C0: 52 45 44 20 42 41 43 4F  4E 2E 22 0D 0A 30 34 36  |RED BACON."..046|
000004D0: 30 20 45 4E 44 50 52 4F  43 20 4E 45 54 54 45 52  |0 ENDPROC NETTER|
000004E0: 42 52 49 45 46 0D 0A 30  34 37 30 20 2F 2F 0D 0A  |BRIEF..0470 //..|
000004F0: 30 34 38 30 20 50 52 4F  43 20 42 4F 45 53 45 52  |0480 PROC BOESER|
00000500: 42 52 49 45 46 20 0D 0A  30 34 39 30 20 50 52 49  |BRIEF ..0490 PRI|
00000510: 4E 54 20 4E 41 4D 45 24  0D 0A 30 35 30 30 20 50  |NT NAME$..0500 P|
00000520: 52 49 4E 54 20 0D 0A 30  35 31 30 20 50 52 49 4E  |RINT ..0510 PRIN|
00000530: 54 20 22 53 4F 46 45 52  4E 20 44 45 52 20 42 45  |T "SOFERN DER BE|
00000540: 54 52 41 47 20 56 4F 4E  20 22 2C 42 45 54 52 41  |TRAG VON ",BETRA|
00000550: 47 2C 22 20 44 4D 22 0D  0A 30 35 32 30 20 50 52  |G," DM"..0520 PR|
00000560: 49 4E 54 20 22 56 4F 4D  20 48 45 55 54 49 47 45  |INT "VOM HEUTIGE|
00000570: 4E 20 54 41 47 45 20 41  4E 20 47 45 52 45 43 48  |N TAGE AN GERECH|
00000580: 4E 45 54 20 4E 49 43 48  54 20 49 4E 4E 45 52 48  |NET NICHT INNERH|
00000590: 41 4C 42 22 0D 0A 30 35  33 30 20 50 52 49 4E 54  |ALB"..0530 PRINT|
000005A0: 20 22 56 4F 4E 20 38 20  54 41 47 45 4E 20 42 45  | "VON 8 TAGEN BE|
000005B0: 49 20 55 4E 53 20 45 49  4E 47 45 48 54 2C 20 55  |I UNS EINGEHT, U|
000005C0: 45 42 45 52 47 45 42 45  4E 20 57 49 52 20 44 49  |EBERGEBEN WIR DI|
000005D0: 45 22 0D 0A 30 35 34 30  20 50 52 49 4E 54 20 22  |E"..0540 PRINT "|
000005E0: 41 4E 47 45 4C 45 47 45  4E 48 45 49 54 20 55 4E  |ANGELEGENHEIT UN|
000005F0: 53 45 52 45 4D 20 52 45  43 48 54 53 41 4E 57 41  |SEREM RECHTSANWA|
00000600: 4C 54 2E 22 0D 0A 30 35  35 30 20 50 52 49 4E 54  |LT."..0550 PRINT|
00000610: 20 0D 0A 30 35 36 30 20  50 52 49 4E 54 20 22 41  | ..0560 PRINT "A|
00000620: 2E 20 42 41 43 4F 4E 2E  22 0D 0A 30 35 37 30 20  |. BACON."..0570 |
00000630: 45 4E 44 50 52 4F 43 20  42 4F 45 53 45 52 42 52  |ENDPROC BOESERBR|
00000640: 49 45 46 0D 0A                                    |IEF..           |

0010 //* DAS PROGRAMM VON SCHLACHTERMEIS
TER BACON *//..0020 //* GESCHRIEBEN VON 
CHRISTIAN BOERGE *//..0030 //..0040 DIM 
NAME$ OF 30, DATUM$ OF 10..0050 //-HAUPT
ZEILEN-//..0060 PRINT "EINGABE DES DATUM
S (TAG/MONAT/JAHR)"..0070 INPUT DATUM$..
0080 REPEAT ..0090 EINGABE..0100 AUSDRUC
KEN..0110 PRINT ..0120 PRINT "WEITERE BR
IEFE (1=JA/0=NEIN)",..0130 INPUT CODE..0
140 UNTIL CODE=0..0150 //..0160 PROC EIN
GABE ..0170 PRINT "WER SOLL ANGEMAHNT WE
RDEN",..0180 INPUT NAME$..0190 PRINT "UM
 WELCHEN BETRAG GEHT ES",..0200 INPUT BE
TRAG..0210 PRINT "SOLL DIE MAHNUNG DRING
END SEIN (1=JA/0=NEIN)",..0220 INPUT GRA
D..0230 FOR I:=1 TO 3 DO PRINT ..0240 EN
DPROC EINGABE..0250 //..0260 PROC AUSDRU
CKEN ..0270 PRINT CHR$(147) //ABLOESCHEN
 DES BILDSCHIRMS..0280 PRINT "          
       NIEBUELL, ",DATUM$..0290 PRINT ..
0300 IF GRAD=1 THEN..0310 BOESERBRIEF..0
320 ELSE ..0330 NETTERBRIEF..0340 ENDIF 
..0350 ENDPROC AUSDRUCKEN..0360 //..0370
 PROC NETTERBRIEF ..0380 PRINT "LIEBE(R)
 ",NAME$..0390 PRINT ..0400 PRINT "SIE W
ERDEN HIERMIT HOEFLICHST ERSUCHT,"..0410
 PRINT "IHRE RECHNUNG BEI UNS UEBER ",BE
TRAG," DM"..0420 PRINT "ZU BEGLEICHEN, S
OBALD ES IHNEN MOEGLICH IST."..0430 PRIN
T ..0440 PRINT "MIT FREUNDLICHEM GRUSS".
.0450 PRINT "ALFRED BACON."..0460 ENDPRO
C NETTERBRIEF..0470 //..0480 PROC BOESER
BRIEF ..0490 PRINT NAME$..0500 PRINT ..0
510 PRINT "SOFERN DER BETRAG VON ",BETRA
G," DM"..0520 PRINT "VOM HEUTIGEN TAGE A
N GERECHNET NICHT INNERHALB"..0530 PRINT
 "VON 8 TAGEN BEI UNS EINGEHT, UEBERGEBE
N WIR DIE"..0540 PRINT "ANGELEGENHEIT UN
SEREM RECHTSANWALT."..0550 PRINT ..0560 
PRINT "A. BACON."..0570 ENDPROC BOESERBR
IEF..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL