ZXTape! 0Created with Ramsoft MakeTZXoALPHA ` 0 % b "ALPHA"  7:0: 32439~  421,3;" LEAVE THE TAPE RUNNING " (.N=119:G$:R=07:B 2G$+R,B:R:N <"A",254,252,248,248,249,248,192,128,"B",0,0,0,130,199,130,0,0,"C",255,127,63?,63?,63?,63?,7,3 F"D",128,132,130,129,128,192,224,240,"E",568,0,3,15,60<,112p,0,16,"F",67C,195,131,3,67C,67C,67C,99c P"G",248,240,224,246,254,248,240,240,"H",16,32 ,96`,0,32 ,32 ,32 ,32 ,"I",103g,231,255,255,255,63?,31,31 d"L",1,3,3,6,7,3,0,3,"M",240,248,240,224,224,224,240,248 n"N",4,1,2,0,0,0,0,7,"O",252,126~,63?,127,219,137,132,158,"P",0,0,0,0,128,128,200,112p x"Q",240,240,255,248,248,248,248,252,"R",0,0,255,0,0,0,0,0,"S",15,15,255,31,31,31,31,63? "T",252,243,239,223,190,188,120x,112p,"U",63?,207,247,251,125},61=,30,14 &6:6:0:0: &2,10 ;" ALPHA BASE " F" You are in the basement of the Alpha Base station. " f" Find your way to the Control Room (level 5) and reprogram theKorth computer if you can. " (" Some doors are worth opening! " &"   " &"    " &"    " " WALL CORRIDOR DOOR" ""   " ""    " ""  " " LIFT STAIRS " ."     " 2"     " "2"    " ," GUARD YOU KORTH" 6'"  LEAVE THE TAPE RUNNING  " @621,1;:"":21,0;:"ALPHA" ((bGUTkALPHA ~* \~# #^#V#F#~# #^#V~# >07:\(2\2:\(82\/G *\&o>@2\~# { _0zWS\ %( "\;ALPHA ` b "ALPHA" #O(C$3},D$|)=32440~ J19,0;" PLEASE STOP THE TAPE AND WAIT ":1,0 >>  MACBRIDE 1983 << R(X,Y)=(*X)+Y HS$(15):A$(5,8,8):W$(8,3,3) #23658j\,8 (QN=25:L=36:C=36:A$(N,L,C)="1":C:L:N 2QL=262:C=262:A$(1,L,C)="1":C:L 10 KK=0:KG=0 1I$=:KTƾ23672x\>20+KT*KN500 I$<"3"I$>"8"200 KTI$"4"200 20,1;S$;S$ \I$="3"20,1;"NOW AT LEVEL ";F;" -THAT MUST HELP":1,0:190 !KTI$="4"700:185 KTI$<"5"190 A$(F,L,C)=" " C1=C+(I$="8")-(I$="5") L1=L+(I$="6")-(I$="7") DC1<1C1>8L1<1L1>81000:185 (A$(F,L1,C1)=" "L=L1:C=C1:185 "D500+500*A$(F,L1,C1):A$(F,L1,C1)="2"A$(F,L1,C1)=" " , 185 KT=7900 I$="4"700 820,1;S$;S$:I=07:7:I XN=13:7+N,8;W$(8,N):N:.05|L,10 :I:0 #D=D+1:530+10 *D D$="KANE":600X &D$="LOUIS":600X 0 D$="XENIA" X^20,5;D$;" IS DEAD.":1,-10 :1,-20:D<3185 b721,7;" MISSION FAILED ":800  I=07:7:I :750:.05|L,30:I:0:KN=KN-1 GN>0GN=GN-1: KT=0: cN=13:(L1-L+3)*3-2+N,(C1-C+3)*3-1;W$(KT,N):N:  C0,0;"LIKE ANOTHER GAME ?(Y/N)";I$:I$=""800  *I$="Y"30 4I$="N"8204 > 800  820,1;" ALARM ACTIVATED !!! " +Q=140(:.05|L,30:Q #AL=1:KT=6:190 >20,5;"THAT'S A WALL!!":1,-10 : #F>21300+F*100d #KG=0ƥ<.51650r HL1=320,0;" GENERATOR ROOM - NO KORTH HERE ": [2,2;" You are in a ";3,2;" Switch Room. ";4,2;s$ 5,2;"The Switch will";6,2;"turn the oxygen";7,2;"off - or the ";8,2;"alarms on. " i9 ,2;s$;10 ,2;s$;11 ,2;s$;12 ,2;s$;13 ,2;s$ 90,0;" Activate the switch ?(Y/N) ";i$ " i$="N" ,I$="Y"ƥ>.523673y\,0:20,0;" THAT WILL SLOW DOWN THE KORTH ":KK=1:1,25: 1I$"Y"1560 6 900 J#KG=0ƥ>.51650r TS20,0;" GUARD POWER SUPPLY.TYPE ""OFF"" ":.5,10 :I$="" Y23672x\,0 `502:I$=I$+: azI$="OFF"20,0;" GUARDS SHUT DOWN - FOR A WHILE ":23673y\,0:KG=1:3,-10 : c&23672x\<100d1632 ` eR20,0;" TOO SLOW.THEY ARE STILL ACTIVE ":1,30: |dKT=6:20,0;" WHOOPS!! THERE'S A GUARD!! ":.5,30:195 J$="EMPTY " 0>.5KK1790::3,20: 2J$="OCCUPIED":1790:KT=7:190 720,0;" KORTH MESS AND IT'S ";J$;"": *KN>0GN=KN:KT=6:195 G1,20:18,2;" AT LAST THE CONTROL ROOM! " !820,3;" Press  ENTER  to go on." "13 1826" $1,0:0: &4,7;" TRINARY NUMBERS ";6,5;"1 TRINARY = 1 DECIMAL";8,4;"10 TRINARY = 3 DECIMAL";10 ,3;"100 TRINARY = 9 DECIMAL" .3w$(5,3):S=0:T=15 0dX=0:Z$="":N=13:Z=R(3,0):Z$=Z+Z$:X=X+Z*3^(N-1):N 55w$(t)=z$:n=1t-1:w$(n)=z$18400 6n NQ0,0;(" What is ";z$;"(T) in decimal ?");I$:I$=""1870N XEI$=X.5,10 :S=S+1:q$=" WELL DONE ":1900l b(q$=Z$+" (T) is "+X:1,-10 l0,0;(" ";q$;"  ENTER  to go on");i$:T:S>312 ,2;"Your Trinary Maths is good";14,2;"enough to reprogram the Korth";16,2;"military computer.";20,5;" MISSION ACCOMPLISHED ":800  vU20,0;"YOU HAVE MADE TOO MANY ERRORS. THE COMPUTER WILL SELF-DESTRUCT" [200:T=15:N=07:N::.05|L,N*5:N:T:502  800  HPX=1:F=1(F=3L1=1)FX=1:2030 ;F=5(F=3L1>1)FX=-1:2030 !FX=1-(2ƥ>.5) #F$=" UP ":FX=-1F$="DOWN" HPC=0:20,0;" THIS LIFT GOES ";F$;" " JF=F+FX:N=213 :N,2;2+PC;S$:PC=PC*-1:N 5P=20*-FX20*FXFX*PX:.04|# =*PX,P:P % KKKG *<.75@-(.5AL) >(KT=R(2,6):KKKT=6 HKGKT=7 R kPC=2:PX=5:1,15:20,0;" UP OR DOWN ? PRESS  U  OR  D  " =I$=:I$="U"F$=" UP ":FX=1-(F=5):2540 8I$="D"F$="DOWN":FX=-1+(F=2):2540 2510 0FX=-1(F=4L1>1)2580 /FX=1(F=4L1=1)2580 FX2070 \20,1;" THESE STAIRS DO NOT GO ";F$;" ":1,10 :1,0: X=L-2L+1 )(X-L+3)*3-1,2; *LL=C-2:UL=C+2:T$="":U$="" 3C<3T$="1":LL=1:C<2T$="11" 3C>6U$="1":UL=8:C>7U$="11" GX<1X>8RUBB=O("11111",W$(1,1)):5040 2RUBB=O(T$+A$(F,X,LLUL)+U$,W$(1,1)) X: pM(23730\+256*23731\)-(23653e\+256*23654f\)  G 1 1 1 1 1 1 3 1 1 1 4 1211 1112 1111 3 1111 3 4 1112 1111 1111 3 41111 3 4 1112 1111 1111 41111 3 1111 1111 2111 41111 O  d2fd ubqH TU1IUF UP @