NUSSEXTRA

FILE INFORMATION

FILENAME(S): NUSSEXTRA

FILE TYPE(S): SEQ

FILE SIZE: 2K

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

APPEARS ON: 6 disk(s)

FILE HASH

36417b047c69340e07917bc1fa5f461da596c608bd9f83ae6cc123a3435ba047

FOUND ON DISKS (6 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: 30 30 31 30 20 2F 2F 2A  20 50 52 4F 47 52 41 4D  |0010 //* PROGRAM|
00000010: 4D 3A 20 4E 55 53 53 45  58 54 52 41 20 2A 2F 2F  |M: NUSSEXTRA *//|
00000020: 0D 0A 30 30 32 30 20 56  4F 52 42 45 52 45 49 54  |..0020 VORBEREIT|
00000030: 55 4E 47 0D 0A 30 30 33  30 20 53 50 49 45 4C 45  |UNG..0030 SPIELE|
00000040: 4E 0D 0A 30 30 34 30 20  46 49 4E 49 54 4F 0D 0A  |N..0040 FINITO..|
00000050: 30 30 35 30 20 2F 2F 2A  20 45 4E 44 45 20 44 45  |0050 //* ENDE DE|
00000060: 53 20 50 52 4F 47 52 41  4D 4D 53 3A 20 4E 55 53  |S PROGRAMMS: NUS|
00000070: 53 45 58 54 52 41 20 2A  2F 2F 0D 0A 30 30 36 30  |SEXTRA *//..0060|
00000080: 20 2F 2F 0D 0A 30 30 37  30 20 50 52 4F 43 20 56  | //..0070 PROC V|
00000090: 4F 52 42 45 52 45 49 54  55 4E 47 20 0D 0A 30 30  |ORBEREITUNG ..00|
000000A0: 38 30 20 2F 2F 2D 57 49  52 20 53 49 4E 44 20 42  |80 //-WIR SIND B|
000000B0: 45 52 45 49 54 2D 2F 2F  0D 0A 30 30 39 30 20 50  |EREIT-//..0090 P|
000000C0: 52 49 4E 54 20 43 48 52  24 28 31 34 37 29 20 2F  |RINT CHR$(147) /|
000000D0: 2F 41 42 4C 4F 45 53 43  48 45 4E 20 44 45 53 20  |/ABLOESCHEN DES |
000000E0: 42 49 4C 44 53 43 48 49  52 4D 53 2F 2F 0D 0A 30  |BILDSCHIRMS//..0|
000000F0: 31 30 30 20 50 52 49 4E  54 20 22 4E 55 4E 20 57  |100 PRINT "NUN W|
00000100: 4F 4C 4C 45 4E 20 57 49  52 22 0D 0A 30 31 31 30  |OLLEN WIR"..0110|
00000110: 20 50 52 49 4E 54 20 22  4D 49 54 20 50 46 45 46  | PRINT "MIT PFEF|
00000120: 46 45 52 4E 55 45 53 53  45 4E 20 53 50 49 45 4C  |FERNUESSEN SPIEL|
00000130: 45 4E 2C 22 0D 0A 30 31  32 30 20 50 52 49 4E 54  |EN,"..0120 PRINT|
00000140: 20 22 57 49 45 56 49 45  4C 45 20 53 50 49 45 4C  | "WIEVIELE SPIEL|
00000150: 45 20 57 4F 4C 4C 45 4E  20 57 49 52 20 4D 41 43  |E WOLLEN WIR MAC|
00000160: 48 45 4E 22 2C 0D 0A 30  31 33 30 20 49 4E 50 55  |HEN",..0130 INPU|
00000170: 54 20 41 4E 5A 41 48 4C  0D 0A 30 31 34 30 20 50  |T ANZAHL..0140 P|
00000180: 52 49 4E 54 20 0D 0A 30  31 35 30 20 50 52 49 4E  |RINT ..0150 PRIN|
00000190: 54 20 22 45 53 20 47 45  48 54 20 4C 4F 53 3A 22  |T "ES GEHT LOS:"|
000001A0: 0D 0A 30 31 36 30 20 50  52 49 4E 54 20 22 57 45  |..0160 PRINT "WE|
000001B0: 4E 4E 20 44 55 20 47 4C  41 55 42 53 54 2C 20 44  |NN DU GLAUBST, D|
000001C0: 41 53 53 20 49 43 48 20  45 49 4E 45 20 55 4E 47  |ASS ICH EINE UNG|
000001D0: 45 52 41 44 45 20 41 4E  5A 41 48 4C 22 0D 0A 30  |ERADE ANZAHL"..0|
000001E0: 31 37 30 20 50 52 49 4E  54 20 22 56 4F 4E 20 50  |170 PRINT "VON P|
000001F0: 46 45 46 46 45 52 4E 55  45 53 53 45 4E 20 49 4E  |FEFFERNUESSEN IN|
00000200: 20 44 45 52 20 48 41 4E  44 20 48 41 4C 54 45 2C  | DER HAND HALTE,|
00000210: 22 0D 0A 30 31 38 30 20  50 52 49 4E 54 20 22 44  |"..0180 PRINT "D|
00000220: 41 4E 4E 20 54 41 53 54  45 20 31 3B 22 0D 0A 30  |ANN TASTE 1;"..0|
00000230: 31 39 30 20 50 52 49 4E  54 20 22 47 4C 41 55 42  |190 PRINT "GLAUB|
00000240: 53 54 20 44 55 20 44 41  47 45 47 45 4E 2C 20 44  |ST DU DAGEGEN, D|
00000250: 41 53 53 20 49 43 48 20  45 49 4E 45 20 47 45 52  |ASS ICH EINE GER|
00000260: 41 44 45 20 41 4E 5A 41  48 4C 22 0D 0A 30 32 30  |ADE ANZAHL"..020|
00000270: 30 20 50 52 49 4E 54 20  22 56 4F 4E 20 50 46 45  |0 PRINT "VON PFE|
00000280: 46 46 45 52 4E 55 45 53  53 45 4E 20 49 4E 20 44  |FFERNUESSEN IN D|
00000290: 45 52 20 48 41 4E 44 20  48 41 4C 54 45 2C 22 0D  |ER HAND HALTE,".|
000002A0: 0A 30 32 31 30 20 50 52  49 4E 54 20 22 44 41 4E  |.0210 PRINT "DAN|
000002B0: 4E 20 54 41 53 54 45 20  30 22 0D 0A 30 32 32 30  |N TASTE 0"..0220|
000002C0: 20 50 52 49 4E 54 20 0D  0A 30 32 33 30 20 47 45  | PRINT ..0230 GE|
000002D0: 57 49 4E 4E 5A 3A 3D 30  0D 0A 30 32 34 30 20 45  |WINNZ:=0..0240 E|
000002E0: 4E 44 50 52 4F 43 20 56  4F 52 42 45 52 45 49 54  |NDPROC VORBEREIT|
000002F0: 55 4E 47 0D 0A 30 32 35  30 20 2F 2F 0D 0A 30 32  |UNG..0250 //..02|
00000300: 36 30 20 50 52 4F 43 20  53 50 49 45 4C 45 4E 20  |60 PROC SPIELEN |
00000310: 0D 0A 30 32 37 30 20 46  4F 52 20 53 50 49 45 4C  |..0270 FOR SPIEL|
00000320: 3A 3D 31 20 54 4F 20 41  4E 5A 41 48 4C 20 44 4F  |:=1 TO ANZAHL DO|
00000330: 0D 0A 30 32 38 30 20 2F  2F 2D 4A 45 54 5A 54 20  |..0280 //-JETZT |
00000340: 42 45 47 49 4E 4E 54 20  44 41 53 20 45 49 47 45  |BEGINNT DAS EIGE|
00000350: 4E 54 4C 49 43 48 45 20  53 50 49 45 4C 2D 2F 2F  |NTLICHE SPIEL-//|
00000360: 0D 0A 30 32 39 30 20 50  52 49 4E 54 20 22 57 41  |..0290 PRINT "WA|
00000370: 53 20 49 53 54 20 44 45  49 4E 20 54 49 50 20 28  |S IST DEIN TIP (|
00000380: 30 2C 31 29 22 2C 0D 0A  30 33 30 30 20 49 4E 50  |0,1)",..0300 INP|
00000390: 55 54 20 54 49 50 0D 0A  30 33 31 30 20 45 49 4E  |UT TIP..0310 EIN|
000003A0: 53 41 54 5A 3A 3D 52 4E  44 28 31 2C 38 29 0D 0A  |SATZ:=RND(1,8)..|
000003B0: 30 33 32 30 20 41 55 53  46 41 4C 4C 3A 3D 45 49  |0320 AUSFALL:=EI|
000003C0: 4E 53 41 54 5A 20 4D 4F  44 20 32 0D 0A 30 33 33  |NSATZ MOD 2..033|
000003D0: 30 20 50 52 49 4E 54 20  0D 0A 30 33 34 30 20 45  |0 PRINT ..0340 E|
000003E0: 52 47 45 42 4E 49 53 0D  0A 30 33 35 30 20 53 49  |RGEBNIS..0350 SI|
000003F0: 45 47 45 52 0D 0A 30 33  36 30 20 50 52 49 4E 54  |EGER..0360 PRINT|
00000400: 20 0D 0A 30 33 37 30 20  49 46 20 53 50 49 45 4C  | ..0370 IF SPIEL|
00000410: 3C 41 4E 5A 41 48 4C 20  54 48 45 4E 20 50 52 49  |<ANZAHL THEN PRI|
00000420: 4E 54 20 22 4E 45 58 54  20 53 50 49 45 4C 3A 22  |NT "NEXT SPIEL:"|
00000430: 0D 0A 30 33 38 30 20 4E  45 58 54 20 53 50 49 45  |..0380 NEXT SPIE|
00000440: 4C 0D 0A 30 33 39 30 20  45 4E 44 50 52 4F 43 20  |L..0390 ENDPROC |
00000450: 53 50 49 45 4C 45 4E 0D  0A 30 34 30 30 20 2F 2F  |SPIELEN..0400 //|
00000460: 0D 0A 30 34 31 30 20 50  52 4F 43 20 46 49 4E 49  |..0410 PROC FINI|
00000470: 54 4F 20 0D 0A 30 34 32  30 20 2F 2F 2D 45 4E 44  |TO ..0420 //-END|
00000480: 45 52 47 45 42 4E 49 53  2D 2F 2F 0D 0A 30 34 33  |ERGEBNIS-//..043|
00000490: 30 20 50 52 49 4E 54 20  22 49 43 48 20 42 45 44  |0 PRINT "ICH BED|
000004A0: 41 4E 4B 45 20 4D 49 43  48 21 22 0D 0A 30 34 34  |ANKE MICH!"..044|
000004B0: 30 20 49 46 20 47 45 57  49 4E 4E 5A 3E 30 20 54  |0 IF GEWINNZ>0 T|
000004C0: 48 45 4E 0D 0A 30 34 35  30 20 50 52 49 4E 54 20  |HEN..0450 PRINT |
000004D0: 22 44 55 20 48 41 53 54  20 22 2C 47 45 57 49 4E  |"DU HAST ",GEWIN|
000004E0: 4E 5A 2C 22 20 50 46 45  46 46 45 52 4E 55 45 53  |NZ," PFEFFERNUES|
000004F0: 53 45 20 47 45 57 4F 4E  4E 45 4E 2E 22 0D 0A 30  |SE GEWONNEN."..0|
00000500: 34 36 30 20 45 4C 53 45  20 0D 0A 30 34 37 30 20  |460 ELSE ..0470 |
00000510: 50 52 49 4E 54 20 22 44  55 20 48 41 53 54 20 22  |PRINT "DU HAST "|
00000520: 2C 2D 47 45 57 49 4E 4E  5A 2C 22 20 50 46 45 46  |,-GEWINNZ," PFEF|
00000530: 46 45 52 4E 55 45 53 53  45 20 56 45 52 4C 4F 52  |FERNUESSE VERLOR|
00000540: 45 4E 2E 22 0D 0A 30 34  38 30 20 45 4E 44 49 46  |EN."..0480 ENDIF|
00000550: 20 0D 0A 30 34 39 30 20  50 52 49 4E 54 20 0D 0A  | ..0490 PRINT ..|
00000560: 30 35 30 30 20 50 52 49  4E 54 20 22 49 43 48 20  |0500 PRINT "ICH |
00000570: 53 50 49 45 4C 45 20 47  45 52 4E 20 42 41 4C 44  |SPIELE GERN BALD|
00000580: 20 27 4D 41 4C 20 57 49  45 44 45 52 20 4D 49 54  | 'MAL WIEDER MIT|
00000590: 20 44 49 52 21 22 0D 0A  30 35 31 30 20 45 4E 44  | DIR!"..0510 END|
000005A0: 50 52 4F 43 20 46 49 4E  49 54 4F 0D 0A 30 35 32  |PROC FINITO..052|
000005B0: 30 20 2F 2F 0D 0A 30 35  33 30 20 50 52 4F 43 20  |0 //..0530 PROC |
000005C0: 45 52 47 45 42 4E 49 53  20 0D 0A 30 35 34 30 20  |ERGEBNIS ..0540 |
000005D0: 49 46 20 41 55 53 46 41  4C 4C 3D 30 20 54 48 45  |IF AUSFALL=0 THE|
000005E0: 4E 0D 0A 30 35 35 30 20  50 52 49 4E 54 20 22 49  |N..0550 PRINT "I|
000005F0: 43 48 20 48 41 4C 54 45  20 22 2C 45 49 4E 53 41  |CH HALTE ",EINSA|
00000600: 54 5A 2C 22 20 50 46 45  46 46 45 52 4E 55 45 53  |TZ," PFEFFERNUES|
00000610: 53 45 22 0D 0A 30 35 36  30 20 50 52 49 4E 54 20  |SE"..0560 PRINT |
00000620: 22 41 4C 53 4F 20 45 49  4E 45 20 47 45 52 41 44  |"ALSO EINE GERAD|
00000630: 45 20 41 4E 5A 41 48 4C  2C 20 22 0D 0A 30 35 37  |E ANZAHL, "..057|
00000640: 30 20 45 4C 53 45 20 0D  0A 30 35 38 30 20 50 52  |0 ELSE ..0580 PR|
00000650: 49 4E 54 20 22 49 43 48  20 48 41 4C 54 45 20 22  |INT "ICH HALTE "|
00000660: 2C 45 49 4E 53 41 54 5A  2C 22 20 50 46 45 46 46  |,EINSATZ," PFEFF|
00000670: 45 52 4E 55 45 53 53 45  22 0D 0A 30 35 39 30 20  |ERNUESSE"..0590 |
00000680: 50 52 49 4E 54 20 22 41  4C 53 4F 20 45 49 4E 45  |PRINT "ALSO EINE|
00000690: 20 55 4E 47 45 52 41 44  45 20 41 4E 5A 41 48 4C  | UNGERADE ANZAHL|
000006A0: 2C 20 22 0D 0A 30 36 30  30 20 45 4E 44 49 46 20  |, "..0600 ENDIF |
000006B0: 0D 0A 30 36 31 30 20 45  4E 44 50 52 4F 43 20 45  |..0610 ENDPROC E|
000006C0: 52 47 45 42 4E 49 53 0D  0A 30 36 32 30 20 2F 2F  |RGEBNIS..0620 //|
000006D0: 0D 0A 30 36 33 30 20 50  52 4F 43 20 53 49 45 47  |..0630 PROC SIEG|
000006E0: 45 52 20 0D 0A 30 36 34  30 20 49 46 20 41 55 53  |ER ..0640 IF AUS|
000006F0: 46 41 4C 4C 3D 54 49 50  20 54 48 45 4E 0D 0A 30  |FALL=TIP THEN..0|
00000700: 36 35 30 20 50 52 49 4E  54 20 22 44 55 20 48 41  |650 PRINT "DU HA|
00000710: 53 54 20 47 45 57 4F 4E  4E 45 4E 2E 22 0D 0A 30  |ST GEWONNEN."..0|
00000720: 36 36 30 20 50 52 49 4E  54 20 22 47 52 41 54 55  |660 PRINT "GRATU|
00000730: 4C 49 45 52 45 21 22 0D  0A 30 36 37 30 20 47 45  |LIERE!"..0670 GE|
00000740: 57 49 4E 4E 5A 3A 3D 47  45 57 49 4E 4E 5A 2B 45  |WINNZ:=GEWINNZ+E|
00000750: 49 4E 53 41 54 5A 0D 0A  30 36 38 30 20 45 4C 53  |INSATZ..0680 ELS|
00000760: 45 20 0D 0A 30 36 39 30  20 50 52 49 4E 54 20 22  |E ..0690 PRINT "|
00000770: 44 55 20 48 41 53 54 20  56 45 52 4C 4F 52 45 4E  |DU HAST VERLOREN|
00000780: 2E 22 0D 0A 30 37 30 30  20 50 52 49 4E 54 20 22  |."..0700 PRINT "|
00000790: 54 55 54 20 4D 49 52 20  4C 45 49 44 21 22 0D 0A  |TUT MIR LEID!"..|
000007A0: 30 37 31 30 20 47 45 57  49 4E 4E 5A 3A 3D 47 45  |0710 GEWINNZ:=GE|
000007B0: 57 49 4E 4E 5A 2D 45 49  4E 53 41 54 5A 0D 0A 30  |WINNZ-EINSATZ..0|
000007C0: 37 32 30 20 45 4E 44 49  46 20 0D 0A 30 37 33 30  |720 ENDIF ..0730|
000007D0: 20 45 4E 44 50 52 4F 43  20 53 49 45 47 45 52 0D  | ENDPROC SIEGER.|
000007E0: 0A 30 37 34 30 20 2F 2F  0D 0A                    |.0740 //..      |

0010 //* PROGRAMM: NUSSEXTRA *//..0020 V
ORBEREITUNG..0030 SPIELEN..0040 FINITO..
0050 //* ENDE DES PROGRAMMS: NUSSEXTRA *
//..0060 //..0070 PROC VORBEREITUNG ..00
80 //-WIR SIND BEREIT-//..0090 PRINT CHR
$(147) //ABLOESCHEN DES BILDSCHIRMS//..0
100 PRINT "NUN WOLLEN WIR"..0110 PRINT "
MIT PFEFFERNUESSEN SPIELEN,"..0120 PRINT
 "WIEVIELE SPIELE WOLLEN WIR MACHEN",..0
130 INPUT ANZAHL..0140 PRINT ..0150 PRIN
T "ES GEHT LOS:"..0160 PRINT "WENN DU GL
AUBST, DASS ICH EINE UNGERADE ANZAHL"..0
170 PRINT "VON PFEFFERNUESSEN IN DER HAN
D HALTE,"..0180 PRINT "DANN TASTE 1;"..0
190 PRINT "GLAUBST DU DAGEGEN, DASS ICH 
EINE GERADE ANZAHL"..0200 PRINT "VON PFE
FFERNUESSEN IN DER HAND HALTE,"..0210 PR
INT "DANN TASTE 0"..0220 PRINT ..0230 GE
WINNZ:=0..0240 ENDPROC VORBEREITUNG..025
0 //..0260 PROC SPIELEN ..0270 FOR SPIEL
:=1 TO ANZAHL DO..0280 //-JETZT BEGINNT 
DAS EIGENTLICHE SPIEL-//..0290 PRINT "WA
S IST DEIN TIP (0,1)",..0300 INPUT TIP..
0310 EINSATZ:=RND(1,8)..0320 AUSFALL:=EI
NSATZ MOD 2..0330 PRINT ..0340 ERGEBNIS.
.0350 SIEGER..0360 PRINT ..0370 IF SPIEL
<ANZAHL THEN PRINT "NEXT SPIEL:"..0380 N
EXT SPIEL..0390 ENDPROC SPIELEN..0400 //
..0410 PROC FINITO ..0420 //-ENDERGEBNIS
-//..0430 PRINT "ICH BEDANKE MICH!"..044
0 IF GEWINNZ>0 THEN..0450 PRINT "DU HAST
 ",GEWINNZ," PFEFFERNUESSE GEWONNEN."..0
460 ELSE ..0470 PRINT "DU HAST ",-GEWINN
Z," PFEFFERNUESSE VERLOREN."..0480 ENDIF
 ..0490 PRINT ..0500 PRINT "ICH SPIELE G
ERN BALD 'MAL WIEDER MIT DIR!"..0510 END
PROC FINITO..0520 //..0530 PROC ERGEBNIS
 ..0540 IF AUSFALL=0 THEN..0550 PRINT "I
CH HALTE ",EINSATZ," PFEFFERNUESSE"..056
0 PRINT "ALSO EINE GERADE ANZAHL, "..057
0 ELSE ..0580 PRINT "ICH HALTE ",EINSATZ
," PFEFFERNUESSE"..0590 PRINT "ALSO EINE
 UNGERADE ANZAHL, "..0600 ENDIF ..0610 E
NDPROC ERGEBNIS..0620 //..0630 PROC SIEG
ER ..0640 IF AUSFALL=TIP THEN..0650 PRIN
T "DU HAST GEWONNEN."..0660 PRINT "GRATU
LIERE!"..0670 GEWINNZ:=GEWINNZ+EINSATZ..
0680 ELSE ..0690 PRINT "DU HAST VERLOREN
."..0700 PRINT "TUT MIR LEID!"..0710 GEW
INNZ:=GEWINNZ-EINSATZ..0720 ENDIF ..0730
 ENDPROC SIEGER..0740 //..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL