WOERTERSPIEL

FILE INFORMATION

FILENAME(S): WOERTERSPIEL

FILE TYPE(S): SEQ

FILE SIZE: 1.9K

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

APPEARS ON: 6 disk(s)

FILE HASH

1ae633cedc8eacedd549b577d9d9ed17842ef5451b80af958d62d965e6488ed2

FOUND ON DISKS (6 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 30 30 30 35 20 2F 2F 2A  20 57 4F 45 52 54 45 52  |0005 //* WOERTER|
00000010: 53 50 49 45 4C 20 2A 2F  2F 0D 0A 30 30 31 30 20  |SPIEL *//..0010 |
00000020: 44 49 4D 20 4D 45 49 4E  57 4F 52 54 24 28 35 29  |DIM MEINWORT$(5)|
00000030: 20 4F 46 20 32 30 2C 20  44 45 49 4E 57 4F 52 54  | OF 20, DEINWORT|
00000040: 24 20 4F 46 20 32 30 0D  0A 30 30 32 30 20 44 49  |$ OF 20..0020 DI|
00000050: 4D 20 4C 45 45 52 5A 24  20 4F 46 20 33 39 2C 20  |M LEERZ$ OF 39, |
00000060: 43 48 24 20 4F 46 20 31  2C 20 46 41 4C 4C 45 24  |CH$ OF 1, FALLE$|
00000070: 20 4F 46 20 31 30 30 0D  0A 30 30 33 30 20 4C 45  | OF 100..0030 LE|
00000080: 45 52 5A 24 28 31 3A 33  39 29 3A 3D 22 22 0D 0A  |ERZ$(1:39):=""..|
00000090: 30 30 34 30 20 50 52 49  4E 54 20 43 48 52 24 28  |0040 PRINT CHR$(|
000000A0: 31 34 37 29 20 2F 2F 41  42 4C 4F 45 53 43 48 45  |147) //ABLOESCHE|
000000B0: 4E 20 44 45 53 20 42 49  4C 44 53 43 48 49 52 4D  |N DES BILDSCHIRM|
000000C0: 53 0D 0A 30 30 35 30 20  2F 2F 0D 0A 30 30 36 30  |S..0050 //..0060|
000000D0: 20 45 49 4E 46 55 45 48  52 55 4E 47 0D 0A 30 30  | EINFUEHRUNG..00|
000000E0: 37 30 20 57 4F 45 52 54  45 52 53 50 49 45 4C 0D  |70 WOERTERSPIEL.|
000000F0: 0A 30 30 38 30 20 52 45  53 55 4C 54 41 54 0D 0A  |.0080 RESULTAT..|
00000100: 30 30 39 30 20 2F 2F 0D  0A 30 31 30 30 20 50 52  |0090 //..0100 PR|
00000110: 4F 43 20 45 49 4E 46 55  45 48 52 55 4E 47 20 0D  |OC EINFUEHRUNG .|
00000120: 0A 30 31 31 30 20 46 45  4E 53 54 45 52 28 38 2C  |.0110 FENSTER(8,|
00000130: 32 30 29 0D 0A 30 31 32  30 20 50 52 49 4E 54 20  |20)..0120 PRINT |
00000140: 22 49 4E 20 44 49 45 53  45 4D 20 53 50 49 45 4C  |"IN DIESEM SPIEL|
00000150: 20 45 52 53 43 48 45 49  4E 45 4E 22 0D 0A 30 31  | ERSCHEINEN"..01|
00000160: 32 35 20 50 52 49 4E 54  20 22 46 55 45 4E 46 20  |25 PRINT "FUENF |
00000170: 57 4F 45 52 54 45 52 22  0D 0A 30 31 33 30 20 50  |WOERTER"..0130 P|
00000180: 52 49 4E 54 20 22 41 55  46 20 44 45 4D 20 42 49  |RINT "AUF DEM BI|
00000190: 4C 44 53 43 48 49 52 4D  2E 22 0D 0A 30 31 33 35  |LDSCHIRM."..0135|
000001A0: 20 50 52 49 4E 54 20 22  53 49 45 20 42 4C 45 49  | PRINT "SIE BLEI|
000001B0: 42 45 4E 20 46 55 45 52  22 0D 0A 30 31 34 30 20  |BEN FUER"..0140 |
000001C0: 50 52 49 4E 54 20 22 45  54 57 41 20 46 55 45 4E  |PRINT "ETWA FUEN|
000001D0: 46 20 53 45 4B 55 4E 44  45 4E 20 53 49 43 48 54  |F SEKUNDEN SICHT|
000001E0: 42 41 52 2C 22 0D 0A 30  31 35 30 20 50 52 49 4E  |BAR,"..0150 PRIN|
000001F0: 54 20 22 44 41 4E 4E 20  56 45 52 53 43 48 57 49  |T "DANN VERSCHWI|
00000200: 4E 44 45 4E 20 53 49 45  2E 22 0D 0A 30 31 35 35  |NDEN SIE."..0155|
00000210: 20 50 52 49 4E 54 20 22  45 53 20 49 53 54 20 44  | PRINT "ES IST D|
00000220: 41 4E 4E 20 44 45 49 4E  45 20 41 55 46 47 41 42  |ANN DEINE AUFGAB|
00000230: 45 2C 22 0D 0A 30 31 36  30 20 50 52 49 4E 54 20  |E,"..0160 PRINT |
00000240: 22 41 55 53 20 44 45 4D  20 47 45 44 41 45 43 48  |"AUS DEM GEDAECH|
00000250: 54 4E 49 53 22 0D 0A 30  31 36 35 20 50 52 49 4E  |TNIS"..0165 PRIN|
00000260: 54 20 22 4D 4F 45 47 4C  49 43 48 53 54 20 56 49  |T "MOEGLICHST VI|
00000270: 45 4C 45 20 44 41 56 4F  4E 22 0D 0A 30 31 37 30  |ELE DAVON"..0170|
00000280: 20 50 52 49 4E 54 20 22  45 49 4E 5A 55 54 49 50  | PRINT "EINZUTIP|
00000290: 50 45 4E 2E 22 0D 0A 30  31 38 30 20 50 52 49 4E  |PEN."..0180 PRIN|
000002A0: 54 20 0D 0A 30 31 39 30  20 50 52 49 4E 54 20 22  |T ..0190 PRINT "|
000002B0: 44 52 55 45 43 4B 45 20  44 49 45 20 52 45 54 55  |DRUECKE DIE RETU|
000002C0: 52 4E 2D 54 41 53 54 45  2C 22 0D 0A 30 31 39 35  |RN-TASTE,"..0195|
000002D0: 20 49 4E 50 55 54 20 22  55 4D 20 46 4F 52 54 5A  | INPUT "UM FORTZ|
000002E0: 55 46 41 48 52 45 4E 3A  20 22 3A 20 43 48 24 0D  |UFAHREN: ": CH$.|
000002F0: 0A 30 32 30 30 20 46 45  4E 53 54 45 52 28 38 2C  |.0200 FENSTER(8,|
00000300: 32 30 29 0D 0A 30 32 31  30 20 50 52 49 4E 54 20  |20)..0210 PRINT |
00000310: 22 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |"---------------|
00000320: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 22 0D 0A 30 32  |-----------"..02|
00000330: 32 30 20 46 4F 52 20 49  3A 3D 31 20 54 4F 20 35  |20 FOR I:=1 TO 5|
00000340: 20 44 4F 0D 0A 30 32 33  30 20 52 45 41 44 20 4D  | DO..0230 READ M|
00000350: 45 49 4E 57 4F 52 54 24  28 49 29 0D 0A 30 32 34  |EINWORT$(I)..024|
00000360: 30 20 50 52 49 4E 54 20  54 41 42 28 35 29 2C 4D  |0 PRINT TAB(5),M|
00000370: 45 49 4E 57 4F 52 54 24  28 49 29 0D 0A 30 32 35  |EINWORT$(I)..025|
00000380: 30 20 4E 45 58 54 20 49  0D 0A 30 32 36 30 20 50  |0 NEXT I..0260 P|
00000390: 52 49 4E 54 20 22 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |RINT "----------|
000003A0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000003B0: 22 0D 0A 30 32 37 30 20  45 4E 44 50 52 4F 43 20  |"..0270 ENDPROC |
000003C0: 45 49 4E 46 55 45 48 52  55 4E 47 0D 0A 30 32 38  |EINFUEHRUNG..028|
000003D0: 30 20 2F 2F 0D 0A 30 32  39 30 20 50 52 4F 43 20  |0 //..0290 PROC |
000003E0: 57 4F 45 52 54 45 52 53  50 49 45 4C 20 0D 0A 30  |WOERTERSPIEL ..0|
000003F0: 33 30 30 20 57 41 52 54  45 28 35 29 0D 0A 30 33  |300 WARTE(5)..03|
00000400: 31 30 20 46 4F 52 20 4E  52 3A 3D 31 20 54 4F 20  |10 FOR NR:=1 TO |
00000410: 35 20 44 4F 0D 0A 30 33  32 30 20 46 45 4E 53 54  |5 DO..0320 FENST|
00000420: 45 52 28 38 2C 32 30 29  0D 0A 30 33 33 30 20 50  |ER(8,20)..0330 P|
00000430: 52 49 4E 54 20 22 54 49  50 50 45 20 44 45 49 4E  |RINT "TIPPE DEIN|
00000440: 20 22 2C 4E 52 2C 22 2E  20 57 4F 52 54 20 45 49  | ",NR,". WORT EI|
00000450: 4E 3A 20 22 2C 0D 0A 30  33 34 30 20 49 4E 50 55  |N: ",..0340 INPU|
00000460: 54 20 22 22 3A 20 44 45  49 4E 57 4F 52 54 24 0D  |T "": DEINWORT$.|
00000470: 0A 30 33 35 30 20 49 3A  3D 31 0D 0A 30 33 36 30  |.0350 I:=1..0360|
00000480: 20 57 48 49 4C 45 20 44  45 49 4E 57 4F 52 54 24  | WHILE DEINWORT$|
00000490: 3C 3E 4D 45 49 4E 57 4F  52 54 24 28 49 29 20 41  |<>MEINWORT$(I) A|
000004A0: 4E 44 20 49 3C 35 20 44  4F 20 49 3A 3D 49 2B 31  |ND I<5 DO I:=I+1|
000004B0: 0D 0A 30 33 37 30 20 50  52 49 4E 54 20 0D 0A 30  |..0370 PRINT ..0|
000004C0: 33 38 30 20 49 46 20 44  45 49 4E 57 4F 52 54 24  |380 IF DEINWORT$|
000004D0: 3D 4D 45 49 4E 57 4F 52  54 24 28 49 29 20 54 48  |=MEINWORT$(I) TH|
000004E0: 45 4E 0D 0A 30 33 39 30  20 46 41 4C 4C 45 24 3A  |EN..0390 FALLE$:|
000004F0: 3D 46 41 4C 4C 45 24 2B  44 45 49 4E 57 4F 52 54  |=FALLE$+DEINWORT|
00000500: 24 2B 22 20 22 0D 0A 30  34 30 30 20 45 4E 44 49  |$+" "..0400 ENDI|
00000510: 46 20 0D 0A 30 34 31 30  20 4E 45 58 54 20 4E 52  |F ..0410 NEXT NR|
00000520: 0D 0A 30 34 32 30 20 45  4E 44 50 52 4F 43 20 57  |..0420 ENDPROC W|
00000530: 4F 45 52 54 45 52 53 50  49 45 4C 0D 0A 30 34 33  |OERTERSPIEL..043|
00000540: 30 20 2F 2F 0D 0A 30 34  34 30 20 50 52 4F 43 20  |0 //..0440 PROC |
00000550: 52 45 53 55 4C 54 41 54  20 0D 0A 30 34 35 30 20  |RESULTAT ..0450 |
00000560: 46 45 4E 53 54 45 52 28  38 2C 31 35 29 0D 0A 30  |FENSTER(8,15)..0|
00000570: 34 36 30 20 50 52 49 4E  54 20 22 4D 45 49 4E 45  |460 PRINT "MEINE|
00000580: 3A 20 22 2C 0D 0A 30 34  37 30 20 46 4F 52 20 4E  |: ",..0470 FOR N|
00000590: 52 3A 3D 31 20 54 4F 20  35 20 44 4F 20 50 52 49  |R:=1 TO 5 DO PRI|
000005A0: 4E 54 20 4D 45 49 4E 57  4F 52 54 24 28 4E 52 29  |NT MEINWORT$(NR)|
000005B0: 3B 0D 0A 30 34 38 30 20  46 4F 52 20 49 3A 3D 31  |;..0480 FOR I:=1|
000005C0: 20 54 4F 20 32 20 44 4F  20 50 52 49 4E 54 20 0D  | TO 2 DO PRINT .|
000005D0: 0A 30 34 39 30 20 50 52  49 4E 54 20 22 44 45 49  |.0490 PRINT "DEI|
000005E0: 4E 45 3A 20 22 2C 0D 0A  30 35 30 30 20 50 52 49  |NE: ",..0500 PRI|
000005F0: 4E 54 20 46 41 4C 4C 45  24 0D 0A 30 35 31 30 20  |NT FALLE$..0510 |
00000600: 45 4E 44 50 52 4F 43 20  52 45 53 55 4C 54 41 54  |ENDPROC RESULTAT|
00000610: 0D 0A 30 35 32 30 20 2F  2F 0D 0A 30 35 33 30 20  |..0520 //..0530 |
00000620: 50 52 4F 43 20 46 45 4E  53 54 45 52 28 58 2C 59  |PROC FENSTER(X,Y|
00000630: 29 20 0D 0A 30 35 34 30  20 50 52 49 4E 54 20 43  |) ..0540 PRINT C|
00000640: 48 52 24 28 31 34 37 29  0D 0A 30 35 35 30 20 46  |HR$(147)..0550 F|
00000650: 4F 52 20 49 3A 3D 31 20  54 4F 20 58 20 44 4F 20  |OR I:=1 TO X DO |
00000660: 50 52 49 4E 54 20 20 2F  2F 58 20 5A 45 49 4C 45  |PRINT  //X ZEILE|
00000670: 4E 20 41 42 57 41 45 52  54 53 0D 0A 30 35 36 30  |N ABWAERTS..0560|
00000680: 20 46 4F 52 20 49 3A 3D  31 20 54 4F 20 59 2D 58  | FOR I:=1 TO Y-X|
00000690: 2B 31 20 44 4F 20 50 52  49 4E 54 20 4C 45 45 52  |+1 DO PRINT LEER|
000006A0: 5A 24 20 2F 2F 5A 45 49  4C 45 4E 20 4C 4F 45 53  |Z$ //ZEILEN LOES|
000006B0: 43 48 45 4E 0D 0A 30 35  37 30 20 50 52 49 4E 54  |CHEN..0570 PRINT|
000006C0: 20 43 48 52 24 28 31 39  29 20 2F 2F 57 49 45 44  | CHR$(19) //WIED|
000006D0: 45 52 20 4E 41 43 48 20  48 41 55 53 45 0D 0A 30  |ER NACH HAUSE..0|
000006E0: 35 38 30 20 46 4F 52 20  49 3A 3D 31 20 54 4F 20  |580 FOR I:=1 TO |
000006F0: 58 20 44 4F 20 50 52 49  4E 54 20 20 2F 2F 5A 55  |X DO PRINT  //ZU|
00000700: 4D 20 41 55 53 47 41 4E  47 53 50 55 4E 4B 54 0D  |M AUSGANGSPUNKT.|
00000710: 0A 30 35 39 30 20 45 4E  44 50 52 4F 43 20 46 45  |.0590 ENDPROC FE|
00000720: 4E 53 54 45 52 0D 0A 30  36 30 30 20 2F 2F 0D 0A  |NSTER..0600 //..|
00000730: 30 36 31 30 20 50 52 4F  43 20 57 41 52 54 45 28  |0610 PROC WARTE(|
00000740: 54 29 20 0D 0A 30 36 32  30 20 46 4F 52 20 49 3A  |T) ..0620 FOR I:|
00000750: 3D 31 20 54 4F 20 39 30  30 2A 54 20 44 4F 0D 0A  |=1 TO 900*T DO..|
00000760: 30 36 33 30 20 4E 45 58  54 20 49 0D 0A 30 36 34  |0630 NEXT I..064|
00000770: 30 20 45 4E 44 50 52 4F  43 20 57 41 52 54 45 0D  |0 ENDPROC WARTE.|
00000780: 0A 30 36 35 30 20 2F 2F  0D 0A 30 36 36 30 20 44  |.0650 //..0660 D|
00000790: 41 54 41 20 22 46 49 53  43 48 22 2C 22 54 41 55  |ATA "FISCH","TAU|
000007A0: 42 45 22 2C 22 50 46 45  52 44 22 2C 22 4B 41 54  |BE","PFERD","KAT|
000007B0: 5A 45 22 2C 22 45 55 4C  45 22 0D 0A              |ZE","EULE"..    |

0005 //* WOERTERSPIEL *//..0010 DIM MEIN
WORT$(5) OF 20, DEINWORT$ OF 20..0020 DI
M LEERZ$ OF 39, CH$ OF 1, FALLE$ OF 100.
.0030 LEERZ$(1:39):=""..0040 PRINT CHR$(
147) //ABLOESCHEN DES BILDSCHIRMS..0050 
//..0060 EINFUEHRUNG..0070 WOERTERSPIEL.
.0080 RESULTAT..0090 //..0100 PROC EINFU
EHRUNG ..0110 FENSTER(8,20)..0120 PRINT 
"IN DIESEM SPIEL ERSCHEINEN"..0125 PRINT
 "FUENF WOERTER"..0130 PRINT "AUF DEM BI
LDSCHIRM."..0135 PRINT "SIE BLEIBEN FUER
"..0140 PRINT "ETWA FUENF SEKUNDEN SICHT
BAR,"..0150 PRINT "DANN VERSCHWINDEN SIE
."..0155 PRINT "ES IST DANN DEINE AUFGAB
E,"..0160 PRINT "AUS DEM GEDAECHTNIS"..0
165 PRINT "MOEGLICHST VIELE DAVON"..0170
 PRINT "EINZUTIPPEN."..0180 PRINT ..0190
 PRINT "DRUECKE DIE RETURN-TASTE,"..0195
 INPUT "UM FORTZUFAHREN: ": CH$..0200 FE
NSTER(8,20)..0210 PRINT "---------------
-----------"..0220 FOR I:=1 TO 5 DO..023
0 READ MEINWORT$(I)..0240 PRINT TAB(5),M
EINWORT$(I)..0250 NEXT I..0260 PRINT "--
------------------------"..0270 ENDPROC 
EINFUEHRUNG..0280 //..0290 PROC WOERTERS
PIEL ..0300 WARTE(5)..0310 FOR NR:=1 TO 
5 DO..0320 FENSTER(8,20)..0330 PRINT "TI
PPE DEIN ",NR,". WORT EIN: ",..0340 INPU
T "": DEINWORT$..0350 I:=1..0360 WHILE D
EINWORT$<>MEINWORT$(I) AND I<5 DO I:=I+1
..0370 PRINT ..0380 IF DEINWORT$=MEINWOR
T$(I) THEN..0390 FALLE$:=FALLE$+DEINWORT
$+" "..0400 ENDIF ..0410 NEXT NR..0420 E
NDPROC WOERTERSPIEL..0430 //..0440 PROC 
RESULTAT ..0450 FENSTER(8,15)..0460 PRIN
T "MEINE: ",..0470 FOR NR:=1 TO 5 DO PRI
NT MEINWORT$(NR);..0480 FOR I:=1 TO 2 DO
 PRINT ..0490 PRINT "DEINE: ",..0500 PRI
NT FALLE$..0510 ENDPROC RESULTAT..0520 /
/..0530 PROC FENSTER(X,Y) ..0540 PRINT C
HR$(147)..0550 FOR I:=1 TO X DO PRINT  /
/X ZEILEN ABWAERTS..0560 FOR I:=1 TO Y-X
+1 DO PRINT LEERZ$ //ZEILEN LOESCHEN..05
70 PRINT CHR$(19) //WIEDER NACH HAUSE..0
580 FOR I:=1 TO X DO PRINT  //ZUM AUSGAN
GSPUNKT..0590 ENDPROC FENSTER..0600 //..
0610 PROC WARTE(T) ..0620 FOR I:=1 TO 90
0*T DO..0630 NEXT I..0640 ENDPROC WARTE.
.0650 //..0660 DATA "FISCH","TAUBE","PFE
RD","KATZE","EULE"..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL