WEIHNACHT

FILE INFORMATION

FILENAME(S): WEIHNACHT

FILE TYPE(S): SEQ

FILE SIZE: 1.1K

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

APPEARS ON: 6 disk(s)

FILE HASH

118399fefcfcf9bbd41df388a0504f524a470a74d6b22e855cce7c0a3113fdaf

FOUND ON DISKS (6 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
C OMAL	WEIHNACHT	SEQ	Treasure Chest - Wolfgang Rauprich	22	18	DOWNLOAD FILE
FREEWARE DISK NR	WEIHNACHT	SEQ	Treasure Chest - Wolfgang Rauprich	22	18	DOWNLOAD FILE
COMAL 0 14	WEIHNACHT	SEQ	Treasure Chest - Wolfgang Rauprich	13	6	DOWNLOAD FILE
C OMAL 0 14	WEIHNACHT	SEQ	Treasure Chest - Wolfgang Rauprich	13	6	DOWNLOAD FILE
C OMAL	WEIHNACHT	SEQ	Treasure Chest - Wolfgang Rauprich	22	18	DOWNLOAD FILE
FREESOFT DISK NR	WEIHNACHT	SEQ	Treasure Chest - Wolfgang Rauprich	22	18	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 30 30 31 30 20 44 49 4D  20 41 42 53 45 4E 44 45  |0010 DIM ABSENDE|
00000010: 52 24 20 4F 46 20 33 30  2C 20 44 41 54 55 4D 24  |R$ OF 30, DATUM$|
00000020: 20 4F 46 20 32 30 0D 0A  30 30 32 30 20 44 49 4D  | OF 20..0020 DIM|
00000030: 20 45 4D 50 46 41 45 4E  47 45 52 24 20 4F 46 20  | EMPFAENGER$ OF |
00000040: 33 30 2C 20 41 4E 54 57  4F 52 54 24 20 4F 46 20  |30, ANTWORT$ OF |
00000050: 32 0D 0A 30 30 33 30 20  2F 2F 0D 0A 30 30 34 30  |2..0030 //..0040|
00000060: 20 5A 45 49 4C 45 28 33  29 0D 0A 30 30 35 30 20  | ZEILE(3)..0050 |
00000070: 50 52 49 4E 54 20 22 44  41 54 55 4D 20 28 5A 2E  |PRINT "DATUM (Z.|
00000080: 42 2E 20 31 32 2E 20 31  31 2E 20 31 39 37 39 29  |B. 12. 11. 1979)|
00000090: 22 2C 0D 0A 30 30 36 30  20 49 4E 50 55 54 20 44  |",..0060 INPUT D|
000000A0: 41 54 55 4D 24 0D 0A 30  30 37 30 20 41 42 53 45  |ATUM$..0070 ABSE|
000000B0: 4E 44 45 52 24 3A 3D 22  48 41 4E 4E 49 42 41 4C  |NDER$:="HANNIBAL|
000000C0: 22 0D 0A 30 30 38 30 20  2F 2F 0D 0A 30 30 39 30  |"..0080 //..0090|
000000D0: 20 52 45 50 45 41 54 20  0D 0A 30 31 30 30 20 5A  | REPEAT ..0100 Z|
000000E0: 45 49 4C 45 28 33 29 0D  0A 30 31 31 30 20 50 52  |EILE(3)..0110 PR|
000000F0: 49 4E 54 20 22 46 55 45  52 20 57 45 4E 22 2C 0D  |INT "FUER WEN",.|
00000100: 0A 30 31 32 30 20 49 4E  50 55 54 20 45 4D 50 46  |.0120 INPUT EMPF|
00000110: 41 45 4E 47 45 52 24 0D  0A 30 31 33 30 20 53 43  |AENGER$..0130 SC|
00000120: 48 52 45 49 42 45 4E 0D  0A 30 31 34 30 20 50 52  |HREIBEN..0140 PR|
00000130: 49 4E 54 20 0D 0A 30 31  35 30 20 50 52 49 4E 54  |INT ..0150 PRINT|
00000140: 20 22 57 45 49 54 45 52  45 20 57 2D 4B 41 52 54  | "WEITERE W-KART|
00000150: 45 4E 20 28 4A 2F 4E 29  22 2C 0D 0A 30 31 36 30  |EN (J/N)",..0160|
00000160: 20 49 4E 50 55 54 20 41  4E 54 57 4F 52 54 24 0D  | INPUT ANTWORT$.|
00000170: 0A 30 31 37 30 20 55 4E  54 49 4C 20 41 4E 54 57  |.0170 UNTIL ANTW|
00000180: 4F 52 54 24 3D 22 4E 22  0D 0A 30 31 38 30 20 5A  |ORT$="N"..0180 Z|
00000190: 45 49 4C 45 28 33 29 0D  0A 30 31 39 30 20 50 52  |EILE(3)..0190 PR|
000001A0: 49 4E 54 20 22 49 4E 20  4F 52 44 4E 55 4E 47 2C  |INT "IN ORDNUNG,|
000001B0: 20 44 41 53 20 57 41 45  52 27 53 2E 20 56 45 52  | DAS WAER'S. VER|
000001C0: 47 49 53 53 20 4E 49 43  48 54 22 0D 0A 30 32 30  |GISS NICHT"..020|
000001D0: 30 20 50 52 49 4E 54 20  22 44 41 53 20 46 52 41  |0 PRINT "DAS FRA|
000001E0: 4E 4B 49 45 52 45 4E 20  44 45 52 20 4B 41 52 54  |NKIEREN DER KART|
000001F0: 45 4E 21 22 0D 0A 30 32  31 30 20 2F 2F 0D 0A 30  |EN!"..0210 //..0|
00000200: 32 32 30 20 50 52 4F 43  20 53 43 48 52 45 49 42  |220 PROC SCHREIB|
00000210: 45 4E 20 0D 0A 30 32 33  30 20 5A 45 49 4C 45 28  |EN ..0230 ZEILE(|
00000220: 32 29 0D 0A 30 32 34 30  20 50 52 49 4E 54 20 22  |2)..0240 PRINT "|
00000230: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 54  |               T|
00000240: 4F 4E 44 45 52 4E 2C 20  22 2C 44 41 54 55 4D 24  |ONDERN, ",DATUM$|
00000250: 0D 0A 30 32 35 30 20 50  52 49 4E 54 20 0D 0A 30  |..0250 PRINT ..0|
00000260: 32 36 30 20 50 52 49 4E  54 20 22 4C 49 45 42 45  |260 PRINT "LIEBE|
00000270: 28 52 29 20 22 2C 45 4D  50 46 41 45 4E 47 45 52  |(R) ",EMPFAENGER|
00000280: 24 0D 0A 30 32 37 30 20  50 52 49 4E 54 20 0D 0A  |$..0270 PRINT ..|
00000290: 30 32 38 30 20 50 52 49  4E 54 20 22 45 49 4E 20  |0280 PRINT "EIN |
000002A0: 53 43 48 4F 45 4E 45 53  20 57 45 49 48 4E 41 43  |SCHOENES WEIHNAC|
000002B0: 48 54 53 46 45 53 54 22  0D 0A 30 32 38 35 20 50  |HTSFEST"..0285 P|
000002C0: 52 49 4E 54 20 22 55 4E  44 20 45 49 4E 20 45 52  |RINT "UND EIN ER|
000002D0: 46 4F 4C 47 52 45 49 43  48 45 53 22 0D 0A 30 32  |FOLGREICHES"..02|
000002E0: 39 30 20 50 52 49 4E 54  20 22 4E 45 55 45 53 20  |90 PRINT "NEUES |
000002F0: 4A 41 48 52 20 57 55 45  4E 53 43 48 45 20 49 43  |JAHR WUENSCHE IC|
00000300: 48 20 44 49 52 21 22 0D  0A 30 33 30 30 20 50 52  |H DIR!"..0300 PR|
00000310: 49 4E 54 20 0D 0A 30 33  31 30 20 50 52 49 4E 54  |INT ..0310 PRINT|
00000320: 20 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | "              |
00000330: 46 52 45 55 4E 44 4C 49  43 48 45 20 47 52 55 45  |FREUNDLICHE GRUE|
00000340: 53 53 45 22 0D 0A 30 33  32 30 20 50 52 49 4E 54  |SSE"..0320 PRINT|
00000350: 20 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | "              |
00000360: 20 20 20 20 22 2C 41 42  53 45 4E 44 45 52 24 0D  |    ",ABSENDER$.|
00000370: 0A 30 33 33 30 20 45 4E  44 50 52 4F 43 20 53 43  |.0330 ENDPROC SC|
00000380: 48 52 45 49 42 45 4E 0D  0A 30 33 34 30 20 2F 2F  |HREIBEN..0340 //|
00000390: 0D 0A 30 33 35 30 20 50  52 4F 43 20 5A 45 49 4C  |..0350 PROC ZEIL|
000003A0: 45 28 58 29 20 0D 0A 30  33 36 30 20 2F 2F 44 49  |E(X) ..0360 //DI|
000003B0: 45 53 45 20 50 52 4F 5A  45 44 55 52 0D 0A 30 33  |ESE PROZEDUR..03|
000003C0: 37 30 20 50 52 49 4E 54  20 43 48 52 24 28 31 34  |70 PRINT CHR$(14|
000003D0: 37 29 20 2F 2F 4C 4F 45  53 43 48 54 20 44 45 4E  |7) //LOESCHT DEN|
000003E0: 20 42 49 4C 44 53 43 48  49 52 4D 20 41 42 0D 0A  | BILDSCHIRM AB..|
000003F0: 30 33 38 30 20 46 4F 52  20 49 3A 3D 31 20 54 4F  |0380 FOR I:=1 TO|
00000400: 20 58 20 44 4F 20 50 52  49 4E 54 20 20 2F 2F 55  | X DO PRINT  //U|
00000410: 4E 44 20 42 45 57 49 52  4B 54 2C 20 44 41 53 53  |ND BEWIRKT, DASS|
00000420: 0D 0A 30 33 39 30 20 2F  2F 58 20 5A 45 49 4C 45  |..0390 //X ZEILE|
00000430: 4E 20 4C 45 45 52 20 42  4C 45 49 42 45 4E 0D 0A  |N LEER BLEIBEN..|
00000440: 30 34 30 30 20 45 4E 44  50 52 4F 43 20 5A 45 49  |0400 ENDPROC ZEI|
00000450: 4C 45 0D 0A                                       |LE..            |

0010 DIM ABSENDER$ OF 30, DATUM$ OF 20..
0020 DIM EMPFAENGER$ OF 30, ANTWORT$ OF 
2..0030 //..0040 ZEILE(3)..0050 PRINT "D
ATUM (Z.B. 12. 11. 1979)",..0060 INPUT D
ATUM$..0070 ABSENDER$:="HANNIBAL"..0080 
//..0090 REPEAT ..0100 ZEILE(3)..0110 PR
INT "FUER WEN",..0120 INPUT EMPFAENGER$.
.0130 SCHREIBEN..0140 PRINT ..0150 PRINT
 "WEITERE W-KARTEN (J/N)",..0160 INPUT A
NTWORT$..0170 UNTIL ANTWORT$="N"..0180 Z
EILE(3)..0190 PRINT "IN ORDNUNG, DAS WAE
R'S. VERGISS NICHT"..0200 PRINT "DAS FRA
NKIEREN DER KARTEN!"..0210 //..0220 PROC
 SCHREIBEN ..0230 ZEILE(2)..0240 PRINT "
               TONDERN, ",DATUM$..0250 P
RINT ..0260 PRINT "LIEBE(R) ",EMPFAENGER
$..0270 PRINT ..0280 PRINT "EIN SCHOENES
 WEIHNACHTSFEST"..0285 PRINT "UND EIN ER
FOLGREICHES"..0290 PRINT "NEUES JAHR WUE
NSCHE ICH DIR!"..0300 PRINT ..0310 PRINT
 "              FREUNDLICHE GRUESSE"..03
20 PRINT "                  ",ABSENDER$.
.0330 ENDPROC SCHREIBEN..0340 //..0350 P
ROC ZEILE(X) ..0360 //DIESE PROZEDUR..03
70 PRINT CHR$(147) //LOESCHT DEN BILDSCH
IRM AB..0380 FOR I:=1 TO X DO PRINT  //U
ND BEWIRKT, DASS..0390 //X ZEILEN LEER B
LEIBEN..0400 ENDPROC ZEILE..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL