ZXTape! 0Created with Ramsoft MakeTZXEverest 2} 2 1000 dA6:6::0;"" i0;"";31;""; n:1;" ";0;""; s:1;" ";0;""; xy1;" ";0;"";31;"";16;3;0;"";7;"ASP"; }x0;31;"";16;0;"";0;31;"";0;16;"";0;31;""; d2;15;"";0;31;"";2;15;"";0;31;""; p2;11 ;" ";0;31;"";2;11 ;" ";0;31;""; x2;11 ;" ";0;31;"";2;8;" ";0;31;""; 2;8;" ";22;"";0;31;"";2;4;" ";24;"";0;31;""; y2;" ";22;" ";0;31;"";2;" ";26;"";0;31;""; 2;" ";1;4;7;" LOADING ";0;6;2;26;"";0;31;"";31;"" !6:19,1;:"" #f=07:a:"a"+f,a:f K24,36$,66B,153,153,66B,36$,24 (f=07:"b"+f,192:f  aEVEREST c?1;5e? 300, C3;7;1;(" Enter a No. (1 to o";N;") ");Z$ Z$>110 Z$<"1"Z$>N10  28Y1=.001wn:Z=10 -20-3:70F 7*I=12:X1:.04|# =+Y1,X1+Z <I:Y1=Y1+.002xn:Z A1,0+Z+1: F:0,6,9 ,15,9 ,6,0 d7Y1=.001wn:Z=-10 206:70F i'I=13:X1:.04|# =,X1+Z nI:Z: , 9800H& @4:6:0::2;7;1;1,6;E$(1,20);2,6;" CONQUERING EVEREST ";3,6;E$(1,20) Jx'''3;7;" Game Options: "'''6;" 1 New assault"''" 2 Continue previous assault" ^n=2:10 rz$="1"1000 :5,2;3;7;" INSERT AND REWIND DATA TAPE ";10 ,3;" PRESS ANY KEY WHEN READAY ";12 ,9 ;" TO LOAD DATA " 0:""E():""R() DD=R(8,1) T$="DAY "+DD )I=17:O(I)=E(7,I):I &5:5:2500 #5:5::DD=DD+1 T$="DAY "+DD:2000 &NM=0:RF=-1:SF=-1 $2200:2300:6000p W=-11240 NM=NM+1 NM10 1040  }''''2;7;1;" *** No more carries *** ":.5,-20:NM=NM-1:200:1240   6;'"Movement ";nm;":": ,3;7;"Input type of movement" "1) Carry 2) Move" $/"3) Route 4) Summit ....... ";1;"?"; ."n=4:10 :8;Z$ 8M1=Z$ =$M1=34000:1210 B$M1=45000:1210 L*:3;7;"Input type of load" V"1) Equipment 2) Tents" [ "3) Food" `/"4) Oxygen 5) No load .... ";1;"?"; j"n=5:10 :8;Z$ oM2=Z$ t(:3;7;"Input carrier..." ~"1) Climber 2) Sherpa" /"3) Porter .................. ";1;"?"; "N=3:10 :8;Z$ M3=Z$ i'3;7;"Camp of origin";:" ............. ";1;"?";:N=7:10 :8;Z$ M4=Z$ ]3;7;"Destination camp";:" ........... ";1;"?";:10 :8;Z$ M5=Z$ F3;7;"Number of loads";:" ............ ";1;"?"; C3;7;1;"Enter No. ";Z$:Z$=""1192 <I=1̱Z$:Z$(I)<480ůZ$(I)>5791192 I:8;Z$:M6=Z$  3000  V23658j\,8:3;7;1;"Another movement today? (Y/N) ";R$ "R$="Y":2000:1025 R$"N"1210 $7000X:9000(#:8000@ 2500 :1000 ,6;" ";T$;E$(1,T$+2): 4 D=8 >+D=D-1:E(2,D)0HP=D: H D1 R 2110> D=17 )H(D)=E(4,D):I(D)=E(5,D):D )D=13:J(D)=E(6,D):D M$(11 ,9 )  1;7;'"WEATHER:" W=(*4)+1 2340$ +20*W 82<.85Y"Very bad - snow & wind forecast": =A1;2;7;"* STORM *";:" - No movement today" BL3;7;1;" Press ENTER to continue ";Z$:W=-1: L""Poor - strong winds forecast": `&"Good - only light snow predicted": t"Perfect conditions": :2000 |2,5;1;7;" Camp ";3,5;E$(1,27):3,0; ?D=17:8;7;2+4*D;D;:D 2;7;'''"Equip"; 8D=17:2+4*d;e(1,d);:d 2;7''"Tents"; 8d=17:2+4*d;e(2,d);:d 2;7''"Food "; 8d=17:2+4*d;e(3,d);:d 2;7''"Oxygn"; 0d=17:2+4*d;O(D);:d (2;7'''"Clmrs"; 28d=17:2+4*d;e(4,d);:d <2;7''"Sherp"; F8d=17:2+4*d;e(5,d);:d P2;7''"Portr"; Z8d=13:2+4*d;e(6,d);:d z23658j\,8:3;7;0,0;"Press ""S"" to SAVE this position or ENTER to continue ";Z$ Z$="S"2800  :5,2;1;7;"INSERT AND REWIND DATA TAPE";10 ,3;"PRESS ANY KEY WHEN READY";12 ,8;"TO RECORD DATA" 0:R(8,1)=DD )I=17:E(7,I)=O(I):I "Everest"E() "Everest"R() "5,2;6;0;;" SWAP LEADS AND REWIND TAPE ";10 ,3;" PRESS ANY KEY WHEN READY ";12 ,7;" TO VERIFY DATA ";5;18,1;"Enter GOTO 2800 if Verify fails" ,""E():""R() r 9500% M$(NM)=M1+M2+M3+M4+M5+M6 &ME=0:3500 :ME=2 ME=1NM=NM-1: 3060 +10 *M2 @E(1,M4)=E(1,M4)-M6:E(1,M5)=E(1,M5)+M6  31200 @E(2,M4)=E(2,M4)-M6:E(2,M5)=E(2,M5)+M6 31200 @E(3,M4)=E(3,M4)-M6:E(3,M5)=E(3,M5)+M6  31200  O(M4)=O(M4)-M6:O(M5)=O(M5)+M6 0M1=1 D3140D +10 *M3 N@E(4,M4)=E(4,M4)-M6:E(4,M5)=E(4,M5)+M6 S X@E(5,M4)=E(5,M4)-M6:E(5,M5)=E(5,M5)+M6 ] b@E(6,M4)=E(6,M4)-M6:E(6,M5)=E(6,M5)+M6 g #M33M533510 <E$(2)="*** Porters too high ***":ME=1 3510 +10 *M2 &E(1,M4)-M603560 3555 &E(2,M4)-M603560 3555 &E(3,M4)-M603560 3555 O(M4)-M603560 <E$(3)="** Too few supplies for carry **":ME=1 3560 +10 *M3 H(M4)-M6<03600 H(M4)=H(M4)-M6:3610 I(M4)-M6<03600 I(M4)=I(M4)-M6:3610 J(M4)-M6<03600  J(M4)=J(M4)-M6:3610 <E$(4)="** Too few carriers for carry **":ME=1 M5-M423620$ <E$(5)="*** Too much height gain ***":ME=1 $M5-M423630. )9R(M4+1,2)R(M4+1,1)36408 .1(R(M4,1)=R(M4,2))M4>M53650B 8<E$(6)="*** Route not established ***":ME=1 BME=13800 G W=4 LM3=1 V WF=*(W+) `M52WF>.8L jM54WF>1 tM56WF>1.25 M$(NM,8)="NC" ME=2: :2000  6;''" Movement:";NM;" "  I=26 E$(I)=32 3860  B2;7'E$(I):.5,-15:E$(I)="":M$(NM)="" I : :2000  M$(NM)="3" '1;7'" ROUTE FORCING " A'3;7;"Route forcing from camp No. ";1;"?"; N=7:10 M4=Z$:8;Z$ RFM44045 I'2;7;1;" One try per day ":.5,-20:: #E(1,M4)>04060 P'2;7;1;" No equipment available ":.5,-15:: )R(M4,1)R(M4,2)4080 Q'2;7;1;" Route already completed ":.5,-15:: RF=M4 #R(M4,2)04110 '"You are on a fresh route":  4130" ''R(M4,1)-R(M4,2);" rope"; '" lengths to go to finish"'" route": "R3;7;1;" No. of climbers on route ";Z$:Z$=""4130" $<I=1̱Z$:Z$(I)<480ůZ$(I)>5794130" '#I:M6=Z$:M604130" ,#E(4,M4)04160@ 6O'2;7;1;" No climbers available ":.5,-15:: @&e(4,m4)-m604180T J_'2;7;1;" Only ";E(4,M4);" climbers available ":.5,-15 O 4130" TM644200h YS'2;7;1;" Group too large ":.5,-15::4130" hRT=(*M6)+1 r$RT>E(1,M4)RT=E(1,M4) | E(1,M4)=E(1,M4)-RT  R(M4,2)=R(M4,2)+RT )R(M4,2)R(M4,1)4280 -'4;1;RT;" rope lengths laid." 8'"Still ";R(M4,1)-R(M4,2);" lengths to go" '"Try again tomorrow":: R(M4,2)=R(M4,1) <'1;4;7;1;" Congratulations " @'4;0;1;" You have completed this section" 100d:: :2000 _SF=M12;7'" Only one attempt each day ":.5,-15::NM=NM-1: C'1;7;1;" SUMMIT BID "::M$(NM)="4":SF=M1 230:R(7,2)=25040 K'2;7;" Top rope sections not laid ":.5,-15:: (E(4,7)25100 H2;7'" Too few climbers for bid ":.5,-15:: *W>25130  12;7;1'" Bid unsuccessful " %'"Try again tomorrow":502::  5:SR=SR+E(4,7):S=((SR*1000)/DD) X1;7;1''E$(1);" *** SUMMIT REACHED *** ";E$(1) \6'''E$(1);" ";4;7;" Congratulations ";6;" " (\L=S:6;E$(1);" Your score is ";S;" ";E$(1,L+1) -100d:100d 2~23658j\,8:3;7;0,0;" Do you want to make another "'" attempt tomorrow? (Y/N) ";Z$ FZ$="Y":: PZ$"N"51702 d 9500% p<.9ffff z#6100+100d*(>.5) 21004:HP<1 CTV=(*2)+2:R(1,2)=R(1,2)-TV Y2;7'"An avalanche has swept away part"'" route between camps 1 and 2. " i'TV;" lengths of rope have gone."''"This must be repaired before any"'"loads can be moved from Camp 1." $JW=-13;7;1;" Press ENTER to continue ";R$ . 8 21004:AC=(*HP)+1 Ln2;7'"Camp ";AC;" hit by an avalanche! ":TV=(*2)+2:'TV;" tents have been lost." t E(2,AC)=E(2,AC)-TV ~IW=-13;7;1;" Press ENTER to continue ";R$  XD=17 ]TP=E(4,D)+E(5,D) bD3TP=TP+E(6,D) lTP=0D: q+D=5O(D)=O(D)-E(4,D)/2 v!D=6O(D)=O(D)-TP/2 D=7O(D)=O(D)-TP 2E(3,D)=E(3,D)-(TP/4+.5) O(D)<0O(D)=0 ,E(3,D)<0E(3,D)=0 D  @:2000: J(1;7'" Supply Check ": Od=17:EV=0 TTP=E(4,D)+E(5,D) ^D3TP=TP+E(6,D) hTP=08170 r%TP2*E(2,D)8080 |?2;7'" Too few tents at camp ";D;" ":EV=1 %TP>4*E(2,D)EV=2 %TP<4*E(3,D)8110 B2;7'" Food running out at camp ";D;" ":EV=1 %TP>6*E(3,D)EV=2 D<58150 TP<2*O(D)8150 C2;7'" Oxygen is running out at camp ";D:EV=1 TP>3*O(D)EV=2 $EV=285004!:8170 AEV14;1'" Everything O.K. at camp ";D;" " D @3;7;1;" Press ENTER to continue ";R$: !4d=18600! !>C1;2;7'" ** The climbers at camp ";D;" ** " !HA1;2;7;" ** are retreating ** ": !RNE(4,D-1)=E(4,D-1)+E(4,D):E(4,D)=0 !\NE(5,D-1)=E(5,D-1)+E(5,D):E(5,D)=0 !fYD3E(6,D-1)=E(6,D-1)+E(6,D):E(6,D)=0 !p !?1;2;7'" **** Men are dying **** " !A1;2;7;" **** at camp 1 **** ": !bE(4,D)=(E(4,D)*((*.5)+.5)):E(4,D)<0E(4,D)=0 !bE(5,D)=(E(5,D)*((*.5)+.5)):E(5,D)<0E(5,D)=0 !bE(6,D)=(E(6,D)*((*.5)+.5)):E(6,D)<0E(6,D)=0 !<E(4,D)+E(5,D)+E(6,D)=08700! ! ! 200 "A2;7;1'"!! Everyone at base camp DIED !!": #(:2000 #282;7'" The day's movements: ": #<d=1nm #AM$(D)=""9150# #F2;7;D; #P26:0:9045U#+5*M(1) #U 9150# #Z" Carry ";:9070n# #_" Move ";:9070n# #d" Route ":9150# #i" Summit":9150# #n 9070n#+5*M(2) #s"Equip ";:9100# #x"Tents ";:9100# #}"Food ";:9100# #"Oxygen ";:9100# #2;7;"No Load"; #21:7:9100#+5*M(3) #" Climber ";:9120# #" Sherpa ";:9120# #" Porter "; #L=N(6):4;0;1;M(4);"";M(5);0;3;7;" "(3-L);N(6); #!M$(D,8)="NC"9140# #:9150# #2;7;"NC" #D #>3;7;1;" Press ENTER to continue ";R$ #5:0: %1:7:3: %&4:f=41308:.01z# =,12 :127,30:-f,120x-f/3:.01z# =,12 :127,30:f,120x-f/3:f %0f=41308:.01z# =,0:127,150:-f,-120x+f/3:.01z# =,0:127,150:f,-120x+f/3:f %:100d:0 %D &HE(7,7):O(7):H(7):I(7):J(7):R(8,2):M$(11 ,9 ):E$(6,32 ) &RnE(1,1)=100d:E(2,1)=75K:E(3,1)=900:O(1)=80P &\cSR=0:E(4,1)=18:E(5,1)=34":E(6,1)=25 &f<9970&:D=17:R(D,1):D:DD=0 &pM(K)=M$(D,K) &zN(K)=M$(D,KK+1) &#F=07:A:"A"+F,A:F & &96,5,4,3,4,3,2 &C0,0,8,4,254,4,8,0 &anwwnd @bldK"&P&&"&U TDAY 1h RYZ aaaaaaaaaaaaaaaaaaaa