ZX81 filename : [ZONK-19XX---DE-ZONK-19XX---DE]
File type : Cassette
Video frame buffer at : 51E4 (Video buffer expanded)
BASIC variables begin at : 54FD
End of save area : 5505
Video mode : PAL 50Hz
Next BASIC line : 508B (autostarts after loading)

BASIC listing
------------------------------------------------
1 CLS
2 PRINT "(1111 FUER DEN ERSTEN LEVEL)"
3 INPUT S$
4 IF S$=C$ THEN GOTO 10
5 IF S$=D$ THEN GOTO 170
6 GOTO 1
10 CLS
11 LET L=0
12 PRINT "ZONK. DAS SPIEL DER GEHEIMNISSE"
13 PRINT "DU KRIEGST ALS EINSATZ:EINE STINKENDE SPORTSOCKE."
21 PRINT "DU SIEHST DREI KISTEN:"
22 PRINT
25 PRINT "1.EINE ROTE"
30 PRINT "2.EINE BLAUE (...WIE DER HIMMEL)"
35 PRINT "3.EINE GRUENE"
36 PRINT
37 PRINT AT 21,0;"WELCHE KISTE NIMMST DU,HUMBOLDT?"
40 GOSUB 8900
41 GOTO 50
50 CLS
51 PRINT "UND WEITER GEHTS MIT DEN"
52 PRINT "SCHACHTELN."
53 PRINT
54 PRINT "1.EINE GLITZERNDE SCHACHTEL"
55 PRINT "2.EINE ANGEKNABERTE SCHACHTEL"
56 PRINT "3.EINE SCHACHTEL"
57 PRINT "4.ICH HOER AUF"
60 PRINT AT 21,0;"WIE HEISST DEINE WAHL,BARBIE?"
61 GOSUB 8900
62 GOTO 70
70 CLS
72 PRINT "UND WEITER GEHTS IM SPIEL MIT"
73 PRINT "DEN GELDBOERSEN (GEWINNE TW.ALS FOTO).WILLST DU:"
74 PRINT
75 PRINT "1. EDLE PROFI-GELDBOERSE"
76 PRINT "2. EINE SCHMUDDELIGE,HUEBSCHE"
77 PRINT "3. EINE ULTRA-POPPIGE"
79 PRINT AT 21,0;"DEINE AUSWAHL,SONIC."
80 GOSUB 8900
81 GOTO 90
90 CLS
91 PRINT "OH,AEGYBTISCHES FLAIR IST "
92 PRINT "ANGESAGT HERR SAMUEL."
93 PRINT
94 PRINT "1. GROSSE PYRAMIDE"
95 PRINT "2. EINE KLEINE SPHINX"
96 PRINT "3. KLEINE PYRAMIDE"
97 PRINT "4. ICH LASS ES BLEIBEN."
99 LET L=INT (RND*3)+1
100 LET A$=INKEY$
101 IF A$="" THEN GOTO 100
102 LET Q=VAL A$
103 IF Q<>1 AND Q<>2 AND Q<>3 AND Q<>4 THEN GOTO 100
104 IF Q=L THEN GOTO 7000
105 IF Q=4 THEN GOTO 5000
106 GOSUB 4000
110 CLS
111 PRINT "ES GEHT WEITER MIT DRI TOREN, JANET:"
112 PRINT
113 PRINT "1. TOR 1 (GRUEN)"
114 PRINT "2. TOR 2 (ROT)"
115 PRINT "3. TOR 3 (VERROSTET)"
116 PRINT "4. ICK WIL NET MER."
117 PRINT AT 21,0;"DEINE AUSWAHL (1-4)?"
118 GOSUB 8900
119 GOTO 130
130 CLS
131 PRINT "JETZT HABEN WIR DREI SCHATZKISTEN,STEFFI."
132 PRINT
133 PRINT "1. ALTE TRUHE"
134 PRINT "2. NEUE KISTE"
135 PRINT "3. ECHT GEILE TRUHE."
136 PRINT "4. NEIN,NICHT MEHR."
139 GOSUB 8900
140 GOTO 150
150 CLS
151 PRINT "UND NUN WERDEN DREI LEERE"
152 PRINT "COMPUTERGEHAEUSE PRAESENTIERT."
153 PRINT
154 PRINT "GUTER EINFALL NICHT,BRIAN?"
155 PRINT
156 PRINT "1. VZ200-GEHAEUSE"
157 PRINT "2. EINSTEIN TATUNG-GEHAEUSE"
158 PRINT "3. C116-GEHAEUSE"
159 GOSUB 8900
160 CLS
161 PRINT "ZONK ZONK ZONK ZONK ZONK ZONK "
162 PRINT "JUGENDZEITSCHRIFT,DU HAST DIE"
163 PRINT "ERSTEN LEVEL UEBERSTANDEN."
164 PRINT "DEIN PASSWORT:";D$
170 CLS
171 PRINT "IN DER 2.RUNDE HIER UND JETZT FUER DICH,RUFUS."
172 PRINT
173 PRINT "1. ZONK-T-SHIRT"
174 PRINT "2. ZONK-POSTER"
175 PRINT "3. ZONK-SPIEL"
176 PRINT AT 21,0;"YOU,CHOOSE,KLAUS."
177 GOSUB 8900
178 GOTO 180
180 CLS
181 PRINT "2.RUNDE SELBES PRINZIP:DU WAEHLST UND DU KRIEGST DEN ZONK."
182 PRINT
183 PRINT " 1 EINEN STEIN"
184 PRINT " 2 EINEN ZWEITEN STEIN."
185 PRINT " 3 EINEN DRITTEN STEIN (TOLL)"
186 PRINT AT 21,0;"WAEHLE ODER GIB AUF,MORITZ."
187 GOSUB 8900
2000 STOP
4000 REM GEWINNE
4001 LET L=INT (RND*10)+1
4002 PRINT AT 7,1;"DU HAST GEWONNEN..."
4003 GOSUB 4005+5*L
4004 PAUSE 4E4
4005 PRINT AT 8,0;" "
4006 PRINT AT 9,0;" "
4007 RETURN
4010 PRINT AT 8,1;"EINE SKIFAHRER-AUSRUESTUNG."
4011 RETURN
4015 PRINT AT 8,1;"DAS BUCH:MEIN ZX81."
4016 RETURN
4020 PRINT AT 8,1;"DIE INSEL ZYPERN(?)"
4021 RETURN
4025 PRINT AT 8,1;"EIN SEGA MEGA DRIVE MIT DEM"
4026 PRINT AT 9,1;"TOPMODUL:SONIC,THE HEDGEHOG"
4027 RETURN
4030 PRINT AT 8,0;"EINE SONDERAUSGABE VON MINI-QUIZ"
4031 RETURN
4035 PRINT AT 8,1;"EINEN S/W FERNSEHER."
4036 RETURN
4040 PRINT AT 8,1;"EINEN URALTEN ZX80."
4041 RETURN
4045 PRINT AT 8,1;"DIE <PER ANHALTER DURCH DIE "
4046 PRINT AT 9,1;"GALAXIS> BUCHREIHE"
4047 RETURN
4050 PRINT AT 8,0;"EINEN EPSON LQ2500."
4051 RETURN
4055 PRINT AT 8,0;"EINE ULTRA LONG HAIR BARBIE-"
4056 PRINT AT 9,0;"PUPPE.WERT:45 DM."
4057 RETURN
5000 REM
5001 PRINT AT 8,1;"EIN SEHR VERNUENFTIGER "
5005 PRINT AT 9,1;"ENTSCHLUSS.ABER DEN BIG DEAL"
5010 PRINT "HAST DU NICHT."
5011 GOTO 7020
7000 SCROLL
7001 SCROLL
7009 FOR I=1 TO 10
7010 PRINT AT I,I;" "
7011 PRINT AT I+1,I;" 0123456789 "
7012 PRINT AT I+2,I;" 0 ZONK 0 "
7013 PRINT AT I+3,I;" 0123456789 "
7014 NEXT I
7020 PRINT AT 21,0;"NOCH EIN SPIEL (J/N)?"
7021 LET A$=INKEY$
7022 IF INKEY$="" THEN GOTO 7022
7023 IF INKEY$="J" THEN GOTO 1
7099 CLS
7100 FOR I=1 TO 20
7101 PRINT "????????????????????????????????"
7102 NEXT I
7103 PRINT AT 8,5;"LOOSERS DONT RISK."
7104 LET A$=INKEY$
7105 IF A$="" THEN GOTO 7104
7106 STOP
8000 SAVE "ZONK"
8001 GOTO 1
8899 REM ***+++ UP.PRUEF +++***
8900 LET L=INT (RND*3)+1
8901 LET Q$=INKEY$
8902 PRINT AT 16,0;"?????????"
8903 PRINT AT 17,0;"?WAHL????"
8904 PRINT AT 18,0;"?????????"
8990 IF Q$="" THEN GOTO 8901
8991 LET Q=VAL Q$
8992 IF Q<>1 AND Q<>2 AND Q<>3 AND Q<>4 THEN GOTO 8901
8993 IF Q=L THEN GOTO 7000
8994 IF Q=4 THEN GOTO 5000
8995 GOSUB 4000
8996 RETURN
------------------------------------------------