FESTE

FILE INFORMATION

FILENAME(S): FESTE

FILE TYPE(S): SEQ

FILE SIZE: 1.1K

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

APPEARS ON: 6 disk(s)

FILE HASH

ab4a36ae47ac4f9c026834bf10c043f162322a7383c22a9b175424090c768b73

FOUND ON DISKS (6 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
C OMAL	FESTE	SEQ	Treasure Chest - Wolfgang Rauprich	24	15	DOWNLOAD FILE
FREEWARE DISK NR	FESTE	SEQ	Treasure Chest - Wolfgang Rauprich	24	15	DOWNLOAD FILE
COMAL 0 14	FESTE	SEQ	Treasure Chest - Wolfgang Rauprich	12	7	DOWNLOAD FILE
C OMAL 0 14	FESTE	SEQ	Treasure Chest - Wolfgang Rauprich	12	7	DOWNLOAD FILE
C OMAL	FESTE	SEQ	Treasure Chest - Wolfgang Rauprich	24	15	DOWNLOAD FILE
FREESOFT DISK NR	FESTE	SEQ	Treasure Chest - Wolfgang Rauprich	24	15	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 30 30 31 30 20 2F 2F 44  45 4B 4C 41 52 41 54 49  |0010 //DEKLARATI|
00000010: 4F 4E 45 4E 0D 0A 30 30  32 30 20 44 49 4D 20 41  |ONEN..0020 DIM A|
00000020: 42 53 45 4E 44 45 52 24  20 4F 46 20 33 30 2C 20  |BSENDER$ OF 30, |
00000030: 44 41 54 55 4D 24 20 4F  46 20 32 30 0D 0A 30 30  |DATUM$ OF 20..00|
00000040: 33 30 20 44 49 4D 20 45  4D 50 46 41 45 4E 47 45  |30 DIM EMPFAENGE|
00000050: 52 24 20 4F 46 20 33 30  2C 20 41 4E 54 57 24 20  |R$ OF 30, ANTW$ |
00000060: 4F 46 20 31 0D 0A 30 30  34 30 20 2F 2F 2A 0D 0A  |OF 1..0040 //*..|
00000070: 30 30 35 30 20 2F 2F 48  41 55 50 54 5A 45 49 4C  |0050 //HAUPTZEIL|
00000080: 45 4E 2F 2F 0D 0A 30 30  36 30 20 50 52 49 4E 54  |EN//..0060 PRINT|
00000090: 20 43 48 52 24 28 31 34  37 29 20 2F 2F 41 42 4C  | CHR$(147) //ABL|
000000A0: 4F 45 53 43 48 45 4E 2F  2F 0D 0A 30 30 37 30 20  |OESCHEN//..0070 |
000000B0: 50 52 49 4E 54 20 22 56  4F 4E 20 57 45 4D 22 2C  |PRINT "VON WEM",|
000000C0: 0D 0A 30 30 38 30 20 49  4E 50 55 54 20 41 42 53  |..0080 INPUT ABS|
000000D0: 45 4E 44 45 52 24 0D 0A  30 30 39 30 20 52 45 50  |ENDER$..0090 REP|
000000E0: 45 41 54 20 20 2F 2F 42  52 49 45 46 45 53 43 48  |EAT  //BRIEFESCH|
000000F0: 52 45 49 42 45 4E 2F 2F  0D 0A 30 31 30 30 20 50  |REIBEN//..0100 P|
00000100: 52 49 4E 54 20 22 41 4E  20 57 45 4E 22 2C 0D 0A  |RINT "AN WEN",..|
00000110: 30 31 31 30 20 49 4E 50  55 54 20 45 4D 50 46 41  |0110 INPUT EMPFA|
00000120: 45 4E 47 45 52 24 0D 0A  30 31 32 30 20 50 52 49  |ENGER$..0120 PRI|
00000130: 4E 54 20 0D 0A 30 31 33  30 20 50 52 49 4E 54 20  |NT ..0130 PRINT |
00000140: 22 31 3D 57 45 49 48 4E  41 43 48 54 20 2F 20 32  |"1=WEIHNACHT / 2|
00000150: 3D 4F 53 54 45 52 4E 20  2F 20 33 3D 50 46 49 4E  |=OSTERN / 3=PFIN|
00000160: 47 53 54 45 4E 20 22 2C  0D 0A 30 31 34 30 20 49  |GSTEN ",..0140 I|
00000170: 4E 50 55 54 20 46 45 53  54 0D 0A 30 31 35 30 20  |NPUT FEST..0150 |
00000180: 42 52 49 45 46 53 43 48  52 45 49 42 0D 0A 30 31  |BRIEFSCHREIB..01|
00000190: 36 30 20 50 52 49 4E 54  20 43 48 52 24 28 31 39  |60 PRINT CHR$(19|
000001A0: 29 20 2F 2F 4E 41 43 48  20 48 41 55 53 45 2F 2F  |) //NACH HAUSE//|
000001B0: 0D 0A 30 31 37 30 20 50  52 49 4E 54 20 22 57 45  |..0170 PRINT "WE|
000001C0: 49 54 45 52 45 20 42 52  49 45 46 45 20 28 4A 41  |ITERE BRIEFE (JA|
000001D0: 2F 4E 45 49 4E 29 22 2C  0D 0A 30 31 38 30 20 49  |/NEIN)",..0180 I|
000001E0: 4E 50 55 54 20 41 4E 54  57 24 0D 0A 30 31 39 30  |NPUT ANTW$..0190|
000001F0: 20 50 52 49 4E 54 20 43  48 52 24 28 31 34 37 29  | PRINT CHR$(147)|
00000200: 0D 0A 30 32 30 30 20 55  4E 54 49 4C 20 41 4E 54  |..0200 UNTIL ANT|
00000210: 57 24 3D 22 4E 22 0D 0A  30 32 31 30 20 2F 2F 2A  |W$="N"..0210 //*|
00000220: 0D 0A 30 32 32 30 20 50  52 4F 43 20 42 52 49 45  |..0220 PROC BRIE|
00000230: 46 53 43 48 52 45 49 42  20 0D 0A 30 32 33 30 20  |FSCHREIB ..0230 |
00000240: 50 52 49 4E 54 20 43 48  52 24 28 31 34 37 29 20  |PRINT CHR$(147) |
00000250: 2F 2F 41 42 4C 4F 45 53  43 48 45 4E 0D 0A 30 32  |//ABLOESCHEN..02|
00000260: 34 30 20 46 4F 52 20 49  3A 3D 31 20 54 4F 20 38  |40 FOR I:=1 TO 8|
00000270: 20 44 4F 20 50 52 49 4E  54 20 20 2F 2F 38 20 4C  | DO PRINT  //8 L|
00000280: 45 45 52 5A 45 49 4C 45  4E 0D 0A 30 32 35 30 20  |EERZEILEN..0250 |
00000290: 50 52 49 4E 54 20 22 4C  49 45 42 45 28 52 29 20  |PRINT "LIEBE(R) |
000002A0: 22 2C 45 4D 50 46 41 45  4E 47 45 52 24 0D 0A 30  |",EMPFAENGER$..0|
000002B0: 32 36 30 20 50 52 49 4E  54 20 0D 0A 30 32 37 30  |260 PRINT ..0270|
000002C0: 20 43 41 53 45 20 46 45  53 54 20 4F 46 0D 0A 30  | CASE FEST OF..0|
000002D0: 32 38 30 20 57 48 45 4E  20 31 0D 0A 30 32 39 30  |280 WHEN 1..0290|
000002E0: 20 50 52 49 4E 54 20 22  45 49 4E 20 53 43 48 4F  | PRINT "EIN SCHO|
000002F0: 45 4E 45 53 20 57 45 49  48 4E 41 43 48 54 53 46  |ENES WEIHNACHTSF|
00000300: 45 53 54 22 0D 0A 30 33  30 30 20 50 52 49 4E 54  |EST"..0300 PRINT|
00000310: 20 22 55 4E 44 20 45 49  4E 20 47 4C 55 45 43 4B  | "UND EIN GLUECK|
00000320: 4C 49 43 48 45 53 20 4E  45 55 45 53 20 4A 41 48  |LICHES NEUES JAH|
00000330: 52 22 0D 0A 30 33 31 30  20 57 48 45 4E 20 32 0D  |R"..0310 WHEN 2.|
00000340: 0A 30 33 32 30 20 50 52  49 4E 54 20 22 5A 55 4D  |.0320 PRINT "ZUM|
00000350: 20 4F 53 54 45 52 46 45  53 54 20 53 45 4E 44 45  | OSTERFEST SENDE|
00000360: 20 49 43 48 22 0D 0A 30  33 33 30 20 50 52 49 4E  | ICH"..0330 PRIN|
00000370: 54 20 22 44 49 45 20 42  45 53 54 45 4E 20 57 55  |T "DIE BESTEN WU|
00000380: 45 4E 53 43 48 45 22 0D  0A 30 33 34 30 20 57 48  |ENSCHE"..0340 WH|
00000390: 45 4E 20 33 0D 0A 30 33  35 30 20 50 52 49 4E 54  |EN 3..0350 PRINT|
000003A0: 20 22 53 43 48 4F 45 4E  45 20 50 46 49 4E 47 53  | "SCHOENE PFINGS|
000003B0: 54 54 41 47 45 22 0D 0A  30 33 36 30 20 50 52 49  |TTAGE"..0360 PRI|
000003C0: 4E 54 20 22 4D 49 54 20  56 49 45 4C 20 53 4F 4E  |NT "MIT VIEL SON|
000003D0: 4E 45 4E 53 43 48 45 49  4E 22 0D 0A 30 33 37 30  |NENSCHEIN"..0370|
000003E0: 20 50 52 49 4E 54 20 22  57 55 45 4E 53 43 48 45  | PRINT "WUENSCHE|
000003F0: 20 49 43 48 2E 22 0D 0A  30 33 38 30 20 45 4E 44  | ICH."..0380 END|
00000400: 43 41 53 45 20 0D 0A 30  33 39 30 20 50 52 49 4E  |CASE ..0390 PRIN|
00000410: 54 20 0D 0A 30 34 30 30  20 50 52 49 4E 54 20 22  |T ..0400 PRINT "|
00000420: 20 20 20 20 20 20 20 20  20 48 45 52 5A 4C 49 43  |         HERZLIC|
00000430: 48 45 20 47 52 55 45 53  53 45 22 0D 0A 30 34 31  |HE GRUESSE"..041|
00000440: 30 20 50 52 49 4E 54 20  22 20 20 20 20 20 20 20  |0 PRINT "       |
00000450: 20 20 22 2C 41 42 53 45  4E 44 45 52 24 0D 0A 30  |  ",ABSENDER$..0|
00000460: 34 32 30 20 45 4E 44 50  52 4F 43 20 42 52 49 45  |420 ENDPROC BRIE|
00000470: 46 53 43 48 52 45 49 42  0D 0A 30 34 33 30 20 2F  |FSCHREIB..0430 /|
00000480: 2F 0D 0A                                          |/..             |

0010 //DEKLARATIONEN..0020 DIM ABSENDER$
 OF 30, DATUM$ OF 20..0030 DIM EMPFAENGE
R$ OF 30, ANTW$ OF 1..0040 //*..0050 //H
AUPTZEILEN//..0060 PRINT CHR$(147) //ABL
OESCHEN//..0070 PRINT "VON WEM",..0080 I
NPUT ABSENDER$..0090 REPEAT  //BRIEFESCH
REIBEN//..0100 PRINT "AN WEN",..0110 INP
UT EMPFAENGER$..0120 PRINT ..0130 PRINT 
"1=WEIHNACHT / 2=OSTERN / 3=PFINGSTEN ",
..0140 INPUT FEST..0150 BRIEFSCHREIB..01
60 PRINT CHR$(19) //NACH HAUSE//..0170 P
RINT "WEITERE BRIEFE (JA/NEIN)",..0180 I
NPUT ANTW$..0190 PRINT CHR$(147)..0200 U
NTIL ANTW$="N"..0210 //*..0220 PROC BRIE
FSCHREIB ..0230 PRINT CHR$(147) //ABLOES
CHEN..0240 FOR I:=1 TO 8 DO PRINT  //8 L
EERZEILEN..0250 PRINT "LIEBE(R) ",EMPFAE
NGER$..0260 PRINT ..0270 CASE FEST OF..0
280 WHEN 1..0290 PRINT "EIN SCHOENES WEI
HNACHTSFEST"..0300 PRINT "UND EIN GLUECK
LICHES NEUES JAHR"..0310 WHEN 2..0320 PR
INT "ZUM OSTERFEST SENDE ICH"..0330 PRIN
T "DIE BESTEN WUENSCHE"..0340 WHEN 3..03
50 PRINT "SCHOENE PFINGSTTAGE"..0360 PRI
NT "MIT VIEL SONNENSCHEIN"..0370 PRINT "
WUENSCHE ICH."..0380 ENDCASE ..0390 PRIN
T ..0400 PRINT "         HERZLICHE GRUES
SE"..0410 PRINT "         ",ABSENDER$..0
420 ENDPROC BRIEFSCHREIB..0430 //..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL