ZXTape!SURVIVAL [&[[by Wolfgang Haller  first written on ZX81  then on Speccy between  10/85 and 5/86  bF$="WASSERREINIGUNGSTABLETTE":G$="AMPULLE":H$=" GEGEN SCHLANGENGIFT":I$=" GEGEN SKORPIONGIFT" 23658j\,8 Wplhoch=64000:plrunter=64067C:pllinks=64319?:plrechts=64358f:prhoch=64230:prrunter=64135:prlinks=64430:prrechts=64397:athoch=64499:atrunter=64463:atlinks=64570::atrechts=64535:beep=64605]:cls=64660:inv=64688:attr=64710:fill=64733 A(Q)=(*Q) :6:6:0: " " &''"DU BRAUCHST NUR ZU UEBERLEBEN..." VS=0:SR=0:TA=0:WA=20:NA=5:TS=40(:A(9 ):A(1)=1:A(2)=1:A(3)=2:A(4)=2:A(5)=3:A(6)=2:A(7)=4:A(8)=1:A(9 )=1 \''''"BIST DU ANFAENGER"''9 ;"EXPERTE ODER"''9 ;"SUPER-SURVIVOR ?" &''"" ="A"SZ=190:502 ="E"SZ=260:502 ="S"SZ=320@:502 # 20 2.SZ=19014,9 ;1;"A" 7.SZ=26016,9 ;1;"E" <.SZ=320@18,9 ;1;"S" ZEG=14:F=19 :.05|L,F*1.5@*G:F:G d#CLS:7:7:6: e5000:5050 f(23672x\) iJTA=TA+1:0,0;6;"DER ";TA;". TAG HAT BEGONNEN." n)1;6;"DU VERFUEGST UEBER:" oc1;6;WA;" LITER WASSER":1;6;NA;" TAGE NAHRUNG":A(5);" ";F$;"N" s#A(1)>0"EIN KOMPASS" t"A(2)>0"EIN MESSER" u$A(8)>0"EINE PISTOLE" xAA(7);" PATRONEN":A(9 )>0"EINE SIGNALRAKETE" y%0,92\:255,0 G#0;1,0;1;"*** DRUECKE BITTE EINE TASTE ***" =""140 $5060:5050:5070 5080:5060 ^0,0;"DEIN ZIEL IST NOCH ";SZ-SR;" KM"'"ENTFERNT.":"DU KANNST TAEGLICH MAXIMAL" .X=(WA-3)*4:X<0X=0 TS+X;" KM ZURUECKLEGEN." WA>3182 i#1;1,0;1;" ACHTUNG - DEIN WASSERVORRAT ! ":WA=0:300,:200 C"WIEVIEL WASSER WILLST DU HEUTE TRINKEN ? DU HAST ";WA;" LITER." $X=0:X:X3190 ]#1;1,0;1;" MINDESTENS 3 LITER PRO TAG ! ":300,:183 cX>WA#1;1,0;1;"DU HAST NUR ";WA;" LITER WASSER.":300,:175 'WA=WA-X:X-3<0196 VS=VS-4*(X-3) WA=0180 NA>0205 R#1;1,0;1;"ACHTUNG - DEIN NAHRUNGSVORRAT !!":300, 5060 Y=1X*8:PLLINKS Y/2=(Y/2)15,10 ;" ";16,10 ;" ";17,10 ;" ";18,10 ;" ";19,0;6;0;"" Y/2ɺ(Y/2)15,10 ;" ";16,10 ;" ";17,10 ;" ";18,10 ;" ";19,0;6;0;"" Y ZUF=(*8)+1 H("10001500170019002100220024002800"(ZUF*4-3ZUF*4)) 15080:NA=NA-1:TS-VS<0VS=TS . SR=SR+TS-VS:SRSZ3500 /JWA017,14;1;"DU BIST VERDURSTET":3000 0JNA<017,14;1;"DU BIST VERHUNGERT":3000 1 20:0,24:30,15:20,-5:15,10 :30,-20:15,5:15,-3:30,8:20,-8:40(,3:30,-2:10 ,5 3TF=010 2:*100d+20,F:*75K+502,0:F 4$0,0:255,0 5F=120:*200+20,*502+100d:-1,-1:1,1:1,1:-1,-1:1,-1:-1,1:-1,1:F 6P11 ,0;"DU HAST HEUTE ";TS-VS;" KM"'"ZURUECKGELEGT.":TS=TS-3 Ag0,0;6;1;"DIE NACHT IST ANGEBROCHEN UND DUSCHLAEFST! " B 0 EINV ^VS=0:5080 _EG=14:F=19 :.05|L,F*1.5@*G:F:G ` 100d d5080:5090:5;"AM HORIZONT ERBLICKST DU EINE KARAWANE, DIE AUF DICH ZUKOMMT." 5;'"WILLST DU"''6;"WEGLAUFEN ODER"''6;"DABLEIBEN UND WARTEN";6;"BIS DIE KARAWANE DICH";6;"EINHOLT?" ="W"1010 ="D"1020  1006 A(3)>1 C5090:5;"SORRY, DIE NOMADEN HABEN DICH EINGEHOLT." AVS=VS+A(10 ):5080:A(3)>11200 k5090:5;"PECH GEHABT, DIE NOMADEN SIND KRIEGERISCHER NATUR. WILLST DU DICH VERTEIDIGEN ?" ="J"1040 ="N"1030  1024 !A(5)<110808 5090:5;"DIE NOMADEN HABEN DICH LAUFEN- GELASSEN, NACHDEM SIE DIR":4800:5;"ABGENOMMEN HABEN.":A(7)=0:A(8)=0 P5;'"AUSSERDEM HAST DU JETZT KEINE PISTOLE UND KEINE PATRONEN MEHR.": !A(3)<11050  A(7)<11050 5090:5;"DEINE VERTEIDIGUNG WAR ERFOLG- REICH. DU KONNTEST DIE NOMADEN IN DIE FLUCHT SCHLAGEN.":X=A(A(7)):5;'"DAFUER HAST DU ";X;" PATRONEN"'"GEBRAUCHT." NA(7)=A(7)-X:5;'"DU HAST NUN NOCH ";A(7);" SCHUSS."  !A(3)>01060$ Z5;'"DU HAST LEIDER NICHT UEBERLEBT. DIE NOMADEN HABEN DICH GETOETET.":3000 $m5;'"DU HAST UEBERLEBT. GRATULIERE ! JEDOCH HABEN DIE NOMADEN DIR":4800:5;"ENTWENDET." *5080:5090:5;"AUSSERDEM HAST DU DICH BEI DER VERTEIDIGUNG LEICHT VERLETZT."''"DESHALB KOMMST DU JETZT NUR NOCHLANGSAMER VORAN." +OX=A(A(7)):5;'"ZUR VERTEIDIGUNG HAST DU ";X'"SCHUSS GEBRAUCHT." ,/A(7)=A(7)-X:TS=TS-A(10 ): 8W5;'"DIE NOMADEN HABEN DICH TROTZ DEINER KAPITULATION GETOETET.":3000 5090:5;"ES SIND FRIEDLICHE NOMADEN, DIE DIR IHRE HILFE ANBIETEN. FUER IRGENDEIN TEIL DEINER AUSRUES- TUNG BIETEN SIE DIR 10 LITER WASSER ODER FUER 2 TAGE NAHRUNG AN." "WILLST DU TAUSCHEN ? ";X$  X$="N" X$="J"1220  1205 BZ=0:X=19 :Z=Z+A(X):X:Z11230 B1;'"DU HAST LEIDER NICHTS MEHR ZUM TAUSCHEN.":7: 65090:5;1;"WAS BIETEST DU AN ?"' 4A(1)>05;"1 EIN KOMPASS" 1A(2)>05;"2 EIN MESSER" DA(3)>05;"3 EINE AMP. GEGEN SCHLANGENGIFT" EA(4)>05;"4 EINE AMP. GEGEN SKORPIONGIFT" DA(5)>05;"5 EINE WASSERREINIGUNGSTABLETTE" BA(6)>05;"6 EIN BREITBANDANTIBIOTIKUM" 7A(7)>05;"7 EINE PATRONE" 9A(8)>05;"8 EINE PISTOLE" @A(9 )>05;"9 EINE SIGNALRAKETE" "WELCHE NUMMER ? ";X$ X$=""1240 X$<"1"X$>"9"1240 !X=X$:A(X)<11240 ݱA(X)=A(X)-1:5090:5;"WAS WILLST DU DAFUER HABEN ?  1 10 LITER WASSER 2 NAHRUNG FUER 2 TAGE" X$:X$<"1"X$>"2"1246 2X$="1"WA=WA+10 :WA>20WA=20 X$="2"NA=NA+2 ."WILLST DU NOCH ETWAS TAUSCHEN (J/N): ";X$  X$="N" X$="J"1220  1257 B5080:5090:X=A(2)+3:VS=VS+A(5) gX=35180<:0,0;5;9 ;"DU WURDEST VON EINER SCHLANGE GEBISSEN." hX=45190F:0,0;5;9 ;"DU WURDEST VON EINEM SKORPION GESTOCHEN." A(X)>01510 Q1;'"DU HAST KEIN GEGENGIFT MEHR."'"TRAGE ES MIT FASSUNG !!!":1600@ J#0;0,0;"WILLST DU DAS GEGENGIFT EIN- NEHMEN ? ";X$ X$="N"1600@ 'X$="J"A(X)=A(X)-1:1520  1510 5080:5090  5:"DEIN MEDIZINVORRAT:" ''A(3);" ";G$;"N";H$ A(4);" ";G$;"N";I$ %A(6);" BREITBANDANTIOBIOTIKA"  7: @!A(2)<11610J AD5;'"SORRY, DU HAST ES LEIDER NICHT UEBERLEBT.":3000 Ja5080:5090:5;"GLUECK GEHABT !!! DU UEBERLEBST!":TS=TS-A(10 )+1 LF5;'"JEDOCH SCHAFFST DU NICHT MEHR SOVIEL KILOMETER AM TAG.": 5080:5090:5;"DU BIST IN TREIBSAND GERATEN.":5150:1,0;:A(3)>01710 ?5;'"DAS HAST DU LEIDER NICHT UEBER- LEBT.":3000 .5;'"GLUECK GEHABT !!! DU UEBERLEBST!" 85;'"JEDOCH HAST DU ETWAS VERLOREN:":4800 5080:5090:5;"WEGEN DER ANSTRENGENDEN BEFREI- UNG MUSSTEST DU DICH LANGE AUS- RUHEN UND KAMST AN DIESEM TAG NICHT SEHR WEIT.":VS=VS+A(10 )+5: lN5080:5090:5;"DU BIST AN EINE WASSERQUELLE GEKOMMEN." mS5100:5;'"DU HAST ";WA;" LITER WASSER"'"UND ";A(5);" ";F$;"N." nD0,0;"WILLST DU DEINEN WASSERVORRAT ERGAENZEN ? ";X$ p X$="N" qX$="J"1910v r 1902n vVS=VS+A(5)+1 w80,0;"WILLST DU DAS WASSER REINIGEN ? ";X$ zX$="N"1930 {X$="J"1920 | 1911w 85080:5090:A(5)>01924 S5;"DU HAST LEIDER KEINE WASSER- REINIGUNGSTABLETTEN MEHR."':1930 c5;'"DU HAST JETZT WIEDER 20 LITER WASSER.":A(5)=A(5)-1:WA=20: !A(3)<11950 5080:5090:5;"DU HAST HEUTE AUSGESPROCHENES GLUECK. DAS WASSER WAR NICHT VERGIFTET!":A(5)=A(5)+1:1924 !A(3)>01960 \5090:5;'"SORRY - DAS VERGIFTETE WASSER HAT DICH UMGEBRACHT...":3000 5080:5090:5;'"DU HAST DAS VERGIFTETE WASSER UEBERLEBT - ABER UM WELCHEN PREIS. DU ERREICHST DEIN ZIEL JETZT NOCH LANGSAMER." WA=WA-A(WA-1)-1 WA<0WA=0 D5;'"AUSSERDEM HAST DU JETZT NUR NOCH";WA;" LITER WASSER.": 4K5080:5090:5;"AM HORIZONT TAUCHT EIN FLUGZEUG AUF..." 56000p:E="Q""R"+7:A:E,A:E:E=2229:12 ,E;" ":.001wn,E:.1}L,-E:E:2,0; 6ZA(9 )<11;'"DU HAST LEIDER KEINE SIGNAL- RAKETE MEHR.":2160p 7A0,0;"WILLST DU DIE SIGNALRAKETE AB- FEUERN ? ";X$ 8X$="N"2160p 9X$="J"2107; : 21037 ;YE=50272H:1;80P,E:.005y# =,E/20:1;80P,E:E =2;80P,72H:2;0,-2:2,2:-2,-2:2,0:-2,0:2,-2:-2,2:0,-2:0,2:-2,-2:2,2:-2,0:2,0:-2,2 >X5;'"OK. - DU HAST SIE ABGEFEUERT !":A(9 )=0:5080:5090 ?!A(2)<12130R @J5;"DAS FLUGZEUG HAT DICH ENTDECKT !DU BIST GERETTET.":3500 RM5;"SCHADE - MAN HAT DICH NICHT GE- SEHEN. DER MARSCH GEHT WEITER.": p!A(7)<12180 r?5;'"SCHADE - DAS FLUGZEUG HAT DICH NICHT ENTDECKT.": *5;'"SO EIN GLUECK...":2112@ =5080:5090:5;"DU SIEHST EIN KANINCHEN." 5200P:1,0; bA(7)=01;'"DU HAST LEIDER KEINE MUNITION MEHR ZUR VERFUEGUNG.":2250 SA(8)=01;'"DU HAST LEIDER KEINE PISTOLE MEHR.":2250 "WILLST DU ES ERLEGEN ? ";X$  X$="N" X$="J"2210  2204 @A(7)=A(7)-1:A(5)>02220 5;'"LEIDER DANEBENGESCHOSSEN ! DAS KANINCHEN IST VOR SCHRECK DAVON-GELAUFEN.":17,26;" ";18,26;" ";19,26;6;"": 5;'"GRATULIERE ! GETROFFEN !":17,26;" ";18,26;" ";19,26;6;"":5080:5090  A(2)>02230 ?5;"DU HAST LEIDER KEIN MESSER MEHR,UM ES AUSZUNEHMEN." >5;'"DU MUSST DAS FLEISCH DAHER ZURUECKLASSEN.": ENA=NA+2:5;"DU HAST JETZT FUER ";NA;" TAGE"'"NAHRUNG." F5;'"AN MUNITION HAST DU JETZT NOCH ";A(7);" SCHUSS.": +5;'"ES TUT MIR AUFRICHTIG LEID.": `@5080:5090:5;"DU BIST AN FIEBER ERKRANKT." a 5120 cbA(6)<11;'"DU HAST LEIDER KEIN ANTIBIOTIKA MEHR ZUR VERFUEGUNG.":2480 dJ#0;0,0;"WILLST DU EINE TABLETTE EIN- NEHMEN ? ";X$ fX$="N"2480 gX$="J"2410j h 2405e jT5;'"DAS FIEBER IST EINGEDAEMMT.":A(6)=A(6)-1:1520 !A(4)<12490 5080:5090:5;"DU HAST UEBERLEBT, BIST ABER SO SEHR GESCHWAECHT, DASS DU VON NUN AN LANGSAMER VORANKOMMST.":TS=TS-A(10 )-1: F5;'"PECH GEHABT."'"DAS FIEBER HAT DICH GETOETET.":3000 5080:5090:5;"DU BIST IN EINEN SANDSTURM GE- RATEN.":5140:2,0;:A(2)<12820 F5;'"IM STURM HAST DU ETWAS VERLOREN:":4800:2830 J5;'"IM SANDSTURM HAST DU GLUECK- LICHERWEISE NICHTS VERLOREN." 85080:5090:A(1)<12850" W5;"DANK DEM KOMPASS HAST DU DICH NICHT VERIRRT.":VS=VS+A(10 )+1 >5;'"DU KAMST JEDOCH NUR NOCH SEHR LANGSAM VORAN.": "\5;"DA DU KEINEN KOMPASS MEHR HAST, HAST DU DICH WAEHREND DES SAND- STURMS VERIRRT." $q5;'"DAS BEDEUTET, DASS DU DICH AN DIESEM TAG UNTER DEM STRICH DEM ZIEL NICHT GENAEHERT HAST.":VS=TS: 15,10 ;" ";16,10 ;" ";17,10 ;"";18,8;" ";19,8;6;"";20,10 ;"";21,10 ;"" h5080:5090:Y=10 13 :Y,0;5;" ":Y i0,0;5;9 ;"DU HAST ";TA;" TAGE DURCHGEHALTEN.":5;9 ;'"DAS IST "; ETA<35;9 ;"SEHR SCHLAPP, VERSAGER!":3040 VTA<55;9 ;"NICHT GERADE GUT, ABER"'"NOCH ANNEHMBAR.":3040 YTA<75;9 ;"GANZ GUT. SCHADE,DASS DU"'"ABGEKRATZT BIST.":3040 k5;9 ;"SUPER.TROTZ DEINES TODES"'"BIST DU WUERDIG, SUPER-SURVIVOR GENANNT ZU WERDEN." j'5;9 ;"DIR FEHLTEN NOCH ";SZ-SR;" KILOMETER"'"ZUM ZIEL.":SR=0X=9 :3043 X=SZ/SR dX<1.3&fff5;9 ;'"HIERMIT HAST DU EINE STOLZE LEISTUNG VOLLBRACHT.":3050 ZX1.7Y5;9 ;'"EINE DOCH RECHT BEEINDRUCKENDE LEISTUNG !":3050 `X<25;9 ;'"DU HAST IMMERHIN DIE HAELFTE DERSTRECKE GESCHAFFT.":3050 hX<45;9 ;'"ICH HOFFE, DASS FUER DICH NIE EIN 'ERNSTFALL' EINTRITT !":3050 55;9 ;'"SPIELE LIEBER ETWAS ANDERES..." `5;9 ;1;'" WILLST DU NOCHMAL DAS WAGNIS AUF DICH NEHMEN ? " X$ X$="J" X$="N" 3051 [300,:7::6:5090:9000(#:L$=" DU HAST DIE STADT ERREICHT !" TBEEP:1,0;:X=1̱L$:5;9 ;L$(X);:.005y# =,X:X +5;8;''" DAS IST SUPER !"''' 3050 +Z=0:X=19 :Z=Z+A(X):X  1 1Z<1"NICHTS, DA NICHTS MEHR VORHANDEN": 1X=A(9 )+1:A(X)=04800 -A(X)=A(X)-1:X=1"DEN KOMPASS" X=2"DAS MESSER" X=3"EINE ";G$;H$ X=4"EINE ";G$;I$ X=5"EINE ";F$ (X=6"EIN BREITBANDANTIBIOTIKUM" X=7"EINE PATRONE" X=8"DIE PISTOLE" X=9 "DIE SIGNALRAKETE"  0: S6:180,70F,15:6;180,70F:6:FILL 19,0;6;0;"" 0;15,10 ;" ";16,10 ;" ";17,10 ;" ";18,10 ;" ";19,11 ;6;""  0:0,0;6;" ":1,0;1;7;" "  NY=09 :Y,0;7;" ":Y 0,0;  >0,0;6;"DEIN MEDIZINVORRAT: " ,1;7;A(3);" ";G$;"N";H$ ,1;7;A(4);" ";G$;"N";I$ B1;7;A(6);" ";"BREITBANDANTIBIOTIKATABLETTEN"  G#1;1,0;1;"*** DRUECKE BITTE EINE TASTE ***" =""5082  0  NY=09 :Y,0;5;" ":Y 0,0;0;  aW=515:1;170-(*8),W:1;35#+(*480),0:W  53;95_,502:3:1:FILL 53;94^,535:3:1:FILL 53;97a,502:3:1:FILL 0:0: 15,10 ;" ";16,10 ;" ";17,10 ;" ";18,10 ;" ";19,10 ;6;0;"" 9B=1100d:*250,*24+24:B  -19,10 ;6;0;"" B=1418  B,10 ;" " "0B+1<19B+1,10 ;" " $0B+2<19B+2,10 ;" " &0B+3<19B+3,10 ;" " (0B+4<19B+4,10 ;" " *0B+5<19B+5,10 ;" " 2.25~,B:B 7 <^19,8;6;5;1;"_";19,8;2;0;"_" A 0: F5190F:F="S""U"+7:A:F,A:F:0,0,0,0,0,12 ,16,36$,66B,71G,95_,59;,63?,10 ,17,2,92\,226,248,248,250,68D,40(,16 Ht18,9 ;"";19,8;6;3;1;" ";19,8;1;0;" " K 0: P,5200P:F="Q""T"+7:A:F,A:F Q0,0,15,31,27,27,31,15,6,15,30,252,248,240,224,224 R0,1,3,7,7,7,3,1,224,240,248,252,254,255,255,255 T[17,26;0;"";18,26;"";19,26;6;"" Z p1,80P,32 ,93],15,0,0,0,255,16,124|,254,254,124|,68D,130 #(f0:0,0:255,0:0,95_:-255,0:0,-95_ #-P0,95_:104h,-31:0,-40(:-104h,-24 #2L104h,24:47/,8:0,14:-39',12 #790,-31:104h,64@:8,-6 #<168,36$:0,10 :-3,-2:15,8:168,36$:12 ,0:180,32 :0,36$:16,0:0,-16 #A180,32 :16,0:0,12 :0,-20:36$,-24:0,40(:23,0 #F;176,66B:12 ,10 :12 ,-10 #K{136,524:6,4:4,2:6,4:4,1:3,3:6,-2 #P2,-4:4,-1:4,-3:4,0:255,88X:-12 ,-4:-12 ,-8:-4,-1:-8,-7:-8,-3:-8,-8 #U9-4,-2:-4,-8:-3,-2 #Z6,-4:4,2:2,-2:8,-2:3,3:6,-4:4,-1:6,3 #_]8,80P:12 ,-4:0,-16:-12 ,4:0,16 #d^40(,70F:10 ,-3:0,-12 :-10 ,3:0,12 #i\70F,62>:8,-2:0,-10 :-8,2:0,10 #nZ94^,557:5,-1:0,-8:-5,1:0,8 #s2,568:101e,-16:Y=568:DR=26:X=2103g3:X,Y:3,-DR:Y=Y-.5:DR=DR-.5:X #x@X=62>28-2:105i,X:8,-3:X #}]16,4:0,26:28,30:0,-22:-12 ,3 #H568,30:0,-9 :20,3:0,6 #T120x,44,,3:134,42*,2:144,40(,1 #186,60<,3 #J184,32 :0,12 :5,0:0,-12 #204,31,4 #V224,6:0,12 :-10 ,10 ,/2:0,-14 #\240,16:0,16:8,0:0,-16:-8,0 #I6:120x,80P,6:120x,80P:6:FILL #108l,76L:-12 ,-4:114r,72H:-4,-8:120x,68D:0,-8:126~,72H:4,-8:132,76L:12 ,-4 # 0 #&153,36$:14,0 #160,60<:FILL #105i,24:FILL &H & & 63999 &0,0;"SURVIVAL" & "SURVIVAL_1":64000 ' ' ' "SURVIVAL"9980& WSURVIVAL_1PSj(4^%-98%8%>#%ͦ >h% >( \(ͦJ%Fy x2 p* h" ` X P  H@(>>ͻy(:= ~w!Wx0 %%0@%@ %( 7?R= 9  Yy(7? O;%VWvW Wq+%(> P P P P 03c%MZZL0Wq !v>(`A 0P`$Cx$  _