ZXTape! 0Created with Ramsoft MakeTZXPTHE-BYTE t\ 1:1:7: $a=.25~:b=.5:c=1 "BYTE-":70F (?X$="  C.C.S. SOFTWARE ":Y$="BY OFER BEN-AMI, ISRAEL, 1983" -p11 ,9 ;6;1;"STOP THE TAPE":a=1700:a:11 ,9 ;" " 2Va=.25~:x=1̱Y$:10 ,x+1;7;1;Y$(x):y,z:y,z:x ,240,240,480,480,480,33!,33!,63? 0:0: a12 ;7;1;"THE BYTE":3;7;1;"BY OFER AND SHELLY BEN-AMI" v:5:"This program is dedicated with ",,"LOVE to my parents, my sister ",,"my grandparents, and to SHELLY!" A::6:20;"OFER BEN-AMI":20;"ISRAEL, 1983" E:b=17:a=031:b;"*";:.01z# =,a:a:b ȍ1;20,15;"";1;21,15;"":16,3;5;1;"PRESS ANY KEY TO CONTINUE":0 7If you wish this routine about copying - change it... P:7:a=031:0,a;"*";10 ,a;"*":.007ye`A,a:a Ea=110 :a,0;"*";a,31;"*":.007ye`A,a:a 5:2,2;"THIS PROGRAM IS COPYRIGHT OF";4,2;"C.C.S. SOFTWARE.YOU MAY ONLY";6,2;"MAKE ONE ADDITIONAL COPY FOR";8,11 ;"YOURSELF." /6::::12 ;1;"REMEMBER!" 8:9 ;2;1;"START THE TAPE":0 F14,9 ;" ":14,0;:"THE BYTE-I" lPBYTE- @EI)?????????????????????????????????????????????P????m??Z????~?߀??Z߀hoP߀ho?m?Z?Z?~߀                                              PTHE BYTE-I&$Copyright The Ben-Ami Family (5)  z$=" ":ze=ç:on=/:tw="2":th=:fo="4":fi="5":si="6":se="7":ei="8":ni="9":tn="10":te="12"::on:on: N"11",ni;si;on;"STOP THE TAPE":a=on̰"500":a:"11",ni;" " 2si:"11",si;on;"INSTRUCTION (y/n)?" si$:i$"y"i$"n"a=te-te-on:װ".02",a:"11",th;se;on;"Hey idiot, answer properly":a:"11",th;z$: tn i$="y""1500" (ii$="n":"11",ni;si;on;"START THE TAPE":a=on̰"500":a:"11",ni;" ":"THE BYTE-G" Instructions Ize:ze:fo::"13";on;"BYTE":th;on;"BY OFER AND SHELLY BEN-AMI": th,ze;" The evil chips and the hideous",,"circuits of BYTE welcome you to ",,"this new adventure game. The ",,"object of this game is to travel",,"through a three dimensional maze",,"and to find ten computer ",,"circuits in order to build a ",,"computer system." #,,"Press any key to continue":ze :fi:"13";on;"BYTE":th;on;"BY OFER AND SHELLY BEN-AMI":th,ze;" To prevent you from completing ",,"your mission the mighty computer",,"BYTE has sent his many monsters ",,"to kill you. Your mission is ",,", therefore, to build the system",,"and to escape alive." (,,"Press any key to continue":0 ?:si:"13";on;"BYTE":th;on;"BY OFER AND SHELLY BEN-AMI" Kth,ze;" The ten circuits which include",,"four language cards, two ",,"interfaces, a printer, a disk ",,"drive, a monitor, and a teletext",,"module, are randomly spread ",,"around the maze in boxes, caches",,"and other hidden places. However",,", since life is not that easy, ",,"some of the hiding places will->" #,,"Press any key to continue":ze ?:se:"13";on;"BYTE":th;on;"BY OFER AND SHELLY BEN-AMI" 3th,ze;">have evil circuits, in order to",,"weaken your traits culminating ",,"in your possible killing. ",,"Although the map, the estimate ",,"circuit and some other treasures",,"will assist you in differencia- ",,"ting between ~heaven~ and ~hell~",,"they will not give you a precise",,"opinion." #,,"Press any key to continue":ze :fi:"13";on;"BYTE":th;on;"BY OFER AND SHELLY BEN-AMI":th,ze;" WATCH-OUT: the map, the ",,"estimate circuit, and the other ",,"tools that can help you must be ",,"found in the same way as the ",,"other treasures...":,,"Press any key to continue":ze ?:fo:"13";on;"BYTE":th;on;"BY OFER AND SHELLY BEN-AMI" th,ze;" You control your movements and",,"actions by entering one and two ",,"letters abbreviations of the ",,"basic adventure game commands." ,,"Nonetheless there are some new ",,"commands which allow you to get ",,"around the new 'MONSTERS' and ",,"'OBJECTS' found in the game."::"Press any key to continue":ze::se:"13";on;"BYTE":th;on;"BY OFER AND SHELLY BEN-AMI":th,ze;" If you feel lost type in 'h' ",,"and the explanations of the ",,"commands will be displayed."::"Press any key to continue":ze ?:fo:"13";on;"BYTE":th;on;"BY OFER AND SHELLY BEN-AMI" 7th,ze;" You will have to use common ",,"sense and to act fastly in order",,"to survive in this game. LUCK ",,"will not be the only reason for ",,"your success or defeat. You may ",,"choose between seven skill ",,"levels depending on your ",,"capabilities."::"Press any key to continue":ze ?:se:"13";on;"BYTE":th;on;"BY OFER AND SHELLY BEN-AMI" th,ze;" The first level is designed ",,"for the beginner who wishes to ",,"have a mild introduction or an ",,"easy game. The higher the level ",,"of difficulty rises gradually ",,"multiplies the number of rooms, ",,"monsters, and evil circuits" _,,"whereas the number of ~healthy~ ",,"circuits dwindles.":,,"Press any key to continue":ze :si:"13";on;"BYTE":th;on;"BY OFER AND SHELLY BEN-AMI":th,ze;" Basically, each level is twice",,"as hard as its previous phase ",,"with the exception of level one ",,"which is very easy compared with",,"level two. In addition, you will",,"become more vulnrable as a ",,"target for the monsters in their",,"drive to hit you physically and ",,"hurt you spiritually...":,,"Press any key to continue":ze  ?:fi:"13";on;"BYTE":th;on;"BY OFER AND SHELLY BEN-AMI" th,ze;" Also you may select any one of",,"the ten micros to represent you ",,"in this venture into darkness ",,"and hopelessness. Each micro has",,"its advantages and disadvantages",,"but cheap micros are weaker than",,"expensive ones."::"Press any key to continue":ze::si:"13";on;"BYTE":th;on;"BY OFER AND SHELLY BEN-AMI":th,ze;" REMEMBER: you are given a ",,"certain amount of money at the ",,"beginning and you shall be ",,"offered several items to carry"; &". ",,:"You will have to find a ",,"compromise between several items",,", micros, paths, money etc... "::"Press any key to continue":ze::se:"13";on;"BYTE":th;1;"BY OFER AND SHELLY BEN-AMI":th,ze;" NOTE: Instead of the normal ",,"traits found in a mediocre ",,"adventure game, there are new ",,"categories in this game. ",,"1. SPEED (0-7) Mhz ",,"2. RAM LEVEL (0-1000) Kbytes ",,"3. ROM LEVEL (0-100) Kbytes ",,"4. LINGUISTIC LEVEL (0-200) IQ ",,"5. EXPANSION LEVEL (0-18) Slots " 1,,"Press any key to continue":ze::fo:"13";on;"BYTE":th;on;"BY OFER AND SHELLY BEN-AMI":3,0;" Well, the rest is for you to ",,"find out - after all this is an ",,"ADVENTURE game..."::"I WISH YOU LUCK - YOU'LL NEED IT"::"Press: S to start":" R to see the instructions" va$=:a$="s"a$="S"on:on::"11",ni;"START THE TAPE":a=on̰"5e2":a:"11",ni;" ":"THE BYTE-G" a$="r"a$="R""1500" " "1560" RTHE BYTE-GLlLlNl$Copyright The Ben-Ami Family (5)  Music Subroutines `m1="1760":m2="1785":m3="1805":m4="1830":m5="1815":m6="1855":m7="1880":m8="1890" h$="You don't have money for this...":z$=" ":s1="1870":ze=ç:on=/:tw="2":th=:fo="4":fi="5":si="6":se="7":ei="8":ni="9":tn="10":te="12": Sze:ze::"11",ze;si;on;"STOP THE TAPE FOR THE LAST TIME!":"3e2"::"1575" Initialisation H"1005":M$("16","20"):m=on̰"16":N$:M$(m,on̰"18")=N$:M$(m,"19"̰"20")=N$:m:"Andy the Android","Rusty Robot","Pack-man","Dollarpede","The Bug","Charley chip","Hexa the kid","Gobbler Gay","Franky Frog","The ZX 99","The Vicious Vic","Oric the Orc","Bitter Byter","Eliot the Alien","The Emotional Chip","Saturn Queen" iT$(fi,"16"):t=onfi:T$(t):t:"SPEED","RAM LEVEL","ROM LEVEL","LINGUISTIC LEVEL","EXPANSION LEVEL" F$("20","22"):f=on̰"20":E$:F$(f,̰"20")=E$:F$(f,"21"̰"22")=E$:f:"COBOL Compiler","FORTRAN Compiler","PASCAL Compiler","R.P.G. Compiler","Teletext Module","Parallel Interface","Series Interface","Printer","Monitor","Disk Drive","RAM Circuit","ROM Circuit","CPU Chip","Faulty RAM Circuit","Faulty ROM Circuit","Speed Blocker","DESTRUCTION Compiler","Lousy Interface","Map","Estimate Circuit" VC$("21","15"):B$("21",tw):c=on̰"21":C$(c):B$(c):c:"south","s","north","n","east","e","west","w","northeast","ne","northwest","nw","southeast","se","southwest","sw","up","u","down","d","help","h","read","r","pick","p","open","o","run","ru","estimate","es","telecommunicate","t","challenge","c","fatalize","f","load","l","save","sa" P$(te):P$(onte)="000000000000":S$("22","32"):s=ontn:S$(s)="You can't go that way":s:S$(te)="I can't read without a map":S$("13")="I can't pick 'nothing'":S$("14")="I don't see anything to open":S$("16")="I don't have an estimate circuit":S$("17")="I don't have a teletext module":S$("18")="I don't see an enemy":S$("19")=S$("18"):S$("22")="I can't comprehend your language" l"1030":R$(fi,te):r=onfi:R$(r):r:"Hey Moron,","Hey Imbecil,","Hey Idiot,","Hey Fool,","Hey ZX80...,"  ZA$(l,l,l,te):z=onl:gr="1640"+z*tn:gr:y=onl:x=onl:A$(z,y,x)="000000000000":k= bk<".4+.04*l"k>".3"kk=(*"16")+on:A$(z,y,x,ontw)=kk:A$(z,y,x,thfo)=M$(kk,"19"̰"20") vk>".4+.05*l"kk="11"+(*ei):A$(z,y,x,fisi)=kk:A$(z,y,x,seei)=F$(kk,"21"̰"22"):A$(z,y,x,te)=(on+(*ni)) 2k<".01*l"ưA$(z,y,x,fisi)=zeA$(z,y,x,ni)="1" vk<".5-.04*l"kk="19"+(*tw):A$(z,y,x,fisi)=kk:A$(Z,y,x,seei)=F$(kk,"21"̰"22"):A$(z,y,x,te)=((*ni)+on)  x:y:z OW("30"):a=ontn:W(a)=on+(*l):W(a+tn)=on+(*l):W(a+"20")=on+(*l):a !a=ontn:b=ontn:abw(a)=w(b)w(a+tn)=w(b+tn)w(a+"20")=w(b+"20")w(a)=(*l)+on:w(a+tn)=(*l)+on:w(a+"20")=(*l)+on:"1057" "b:a $a=ontn:A$(w(a),w(a+tn),w(a+"20"),fisi)=a:A$(w(a),w(a+tn),w(a+"20"),seei)=F$(a,"21"̰"22"):A$(w(a),w(a+tn),w(a+"20"),te)=(on+(*ni)) )a .gr+tn:a=onl 3a=l"1085" 8,x=on+(*l):y=on+(*l):A$(a,x,y,tn)="2" :a=on"1090" =,x=on+(*l):y=on+(*l):A$(a,x,y,tn)="1" Bta:gr+"20":"1090":x=zḛ"151":j$:"a"+x,j$:x:"on","on","on","on","on","on","on","on","ze","ze","ze","ze","ze","ze","ze","255","128","128","128","128","128","128","128","128","255","ze","ze","ze","ze","ze","ze","ze","ei","ei","ei","ei","ei","ei","ei","ei","128","65","32","255","32","65","128","ze","ze","ze","130","255","130","ze","ze","ze","se","56","64","152" C"129","66","56","se","224","28","2","25","129","66","28","224","192","32","16","ei","fo","fo","tw","on","th","fo","ei","16","32","32","64","128","16","17","tn","ni","fo","fo","tw","on","ei","136","80","144","32","32","64","128","se","ei","16","38","38","32","32","33","224","16","ei","100","100","fo","132","196","19","58","146","115","91","th","ze","31","241","209","210","241","49","241","193","255","19","19","27","th","th","34","34","62","240","240","48","48","48","33","33","63" Dl=eigr+"30" El=segr+"30":gr+"40" FIl=fogr+tn:gr+"20":gr+"30":gr+"40":gr+"50":gr+"60":gr+"70" GxX$(ni,ni):x=onni:X$(x):x:"A coffin","A box","An ark","A locker","A case","A chest","A safe","A cache","A hideout" HSl=thgr+tn:gr+"20":gr+"30":gr+"40":gr+"50":gr+"60":gr+"70":gr+"80" I$l=sigr+"30":gr+"40":gr+"50" J.l=figr+"30":gr+"40":gr+"50":gr+"60" L^esc=ze:mc=ze:pk=ze:vc=ze:st=ze:x=on:y=on:z=on:Ti=0:Sc=0:"250":"2e3" 'G:se:"13";si;on;"BYTE":th;on;si;"BY OFER AND SHELLY BEN-AMI" ,%:"Enter level of difficulty (1-7)" 1:l:lselɺlx="24"ze-on:װ".013",x:x:"1585" 6cl=l+2:money="2e3-l*100+(*200)"::"You have ` ";money:,,"Now choose a computer (1-10)" ;!"1595":a=ontn:Y$:y:fi:a+ei,ze;a;". ";Y$;a+ei,"26";"` ";y:a:"Jupiter Ace",90Z,"ZX 81",120x,"ZX Spectrum",175,"Vic 20",200,"BBC Model A",300,,"BBC Model B",400,"APPLE 2",500,"APPLE 2E",650,"SUPER BRAIN",930,"IBM PC",1170 @>sk:sktnskɺskx="36"te-on:װ".01",x:x:"1600" ET"1595":a=onsk:Y$:y:a:money=money-y:money` 200)":"2. ROM Packs (2K ->` 300)":"3. SPEED Chips (250 Khz ->` 350)":"4. LANGUAGE Cards ->` 450":"5. EXPANSION Slots ->` 500":"6. Nothing -` 0" U3money<"200""20",ze;si;on;"6. Nothing -` 0" V;b:bsibɺbx=zḛ"-24"-on:װ".025",x:x:"1622" Wb=ont(tw)=t(tw)+"15":money=money-"200":moneyset(on)=se t(tw)>"1e3"t(tw)="1e3" t(th)>"100"t(th)="100" t(fo)>"18"t(fo)="18" t(fi)>"200"t(fi)="200" U"21",th;fi;on;"Press any key to continue":ze:Ti=Ti+on:Sc=Sc+"13"-l:"2005" Conditionals &P$(onte)=zesi,"18";"nothing": it=th =p=ontn:P$(p)=onfi+it,fi;"A ";F$(p,on̰"20"):it=it+on Jp:P$(te)=onit+fi,fi;"An ";F$("20",on̰"20"):esc=1:it=it+on @P$("11")=onit+fi,fi;"A ";F$("19",on̰"20"):mc=1:  KA$(z,y,x,ontw)=zeưA$(z,y,x,fisi)=zeưA$(z,y,x,tn)=zeni;"nothing": p$(11 )="1"mc=on p$(12 )="1"esc=on TA$(z,y,x,ontw)zem=A$(z,y,x,ontw):mm=A$(z,y,x,thfo):ni;M$(m,1mm) 8A$(z,y,x,fisi)=20p$(12 )="1"3036 8A$(z,y,x,fisi)=19p$(11 )="1"3036 \A$(z,y,x,fisi)zef=A$(z,y,x,fisi):ff=A$(z,y,x,seei):xx=A$(z,y,x,te):ni;X$(xx) Tmc=onưA$(z,y,x,fisi)="19"ưA$(z,y,x,ontw)=zeưA$(z,y,x,tn)=zeni;"Nothing": Uesc=onưA$(z,y,x,fisi)="20"ưA$(z,y,x,ontw)=zeưA$(z,y,x,tn)=zeni;"Nothing": A$(z,y,x,tn)=ze st=A$(z,y,x,tn) st=onni;"stairs going down" st=twni;"stairs going up"  Command's Editor %K$="":"14","13";ze;tw;on;"" Zze:V$=:V$"""14","13";V$;"14","14";ze;tw;on;"":K$=K$+V$:K$=tw"4020"  m7:"4010" Bm8:"14","13";K$:K$(tw)<"97"ůK$(tw)>"122"K$=K$(on)+" " &k=on̰"21":B$(k)=K$(ontw)"4035" yk:"16",ni;on;se;" ";R$((*fi)+on):"17",ze;on;se;S$("22"):s1:"200":"13",ze;z$+z$+z$+z$+z$+z$:"2030" 5d=onte:װ".01",d:d:"14","13";se;C$(k):"50" k>onk<"11"k="15"pk=ze "5980+20*k":"2035" p(y-onls1:,,R$((*fi)+on):S$(k):  y=y+on: 'x+on>ls1:,,R$((*fi)+on):S$(k):  x=x+on: (x-onlx+on>ls1:,,R$((*fi)+on):S$(k): x=x+on:y=y+on: /y+on>lx-onls1:,,R$((*fi)+on):S$(k): y=y-on:x=x+on: 0y-onfif"11"f<"14""Its a ";F$(f,onff):"6250":A$(z,y,x,fiei)="0000":t(th)=t(th)+((th+(*fi)-".2"*l+".1"*sk)f=te):t(on)=t(on)+"((1.5-l*.1+sk*.07)f=13)": gV f>"18"m5:P$(f-ei)="1":"The ";F$(f,onff);" is yours":A$(z,y,x,fiei)="0000": iPf>"13"f<"19""You find a ";F$(f,onff):"6250":A$(z,y,x,fiei)="0000":t(on)=t(on)-"((.15*((*tn))+.45+.05*l-.07*sk)f=16)":t(tw)=t(tw)-((tn+(*"25")+l*tw-sk*tw)f="14"):t(th)=t(th)-((tw+(*fo)+".5"*l-sk*".5")f="15"):t(fi)=t(fi)-((fi+(*"13")+l-sk)f="18"):t(fo)=t(fo)-((on+(*on)+l*".1"-sk*".07")f="17"): j1f="18"m6:"Your expansion level decreases": k,ffofnifkȰ".3"k<".4""You see a red triangular circuit":pk=on: z7kȰ".4"k<".5""You see a metallic object":pk=on: {TkȰ".5"k<".6""You see a circuit with spiritual":"integrity... -> IC":pk=on: |=kȰ".6"k<".7""You see an object with wires...":pk=on: };kȰ".7"k<".8""You see a female chip circuit":pk=on: ~>kȰ".8"k<".9""You see a 'technological' object":pk=on: 5kȰ".9""You see a cheap chip circuit...":pk=on: /k=:k<".125"xonx=x-on:,,"You go west": 4kȰ".25"k<".375"yony=y-on:,,"You go south": CkȰ".5"k<".625"xony>onx=x-on:y=y-on:,,"You go southwest": EkȰ".75"k<".875"x>onyonx=x+on:y=y-on:,,"You go southeast":  "6280" +P$(te)="0"s1:,,R$((*fi)+on):S$(k): "f=(*tn)+on:P$(f)="1""6302" h:ff=F$(f,"21"̰"22"):xd=w(f+"20")-x:yd=w(f+tn)-y:zd=w(f)-z:"To find the ";F$(f,onff):"Go: "; 4xd=zeyd=zezd=ze"nowhere. search here stupid": xd>zefo;"east" xdzefo;"north" ydzefo;"up" zdlb>lc>l"6325" ,,"Room ";a;",";b;"16";"Level ";c:,,"I see: ";:m=A$(c,b,a,ontw):mm=A$(c,b,a,thfo):f=A$(c,b,a,fisi):ff=A$(c,b,a,seei):f>zese;F$(f,onff) m>zese;M$(m,onmm) &A$(c,b,a,tn)="1"se;"An exit down" $A$(c,b,a,tn)="2"se;"An exit up" 'A$(c,b,a,ni)="1"se;"A Brain Storm" -A$(c,b,a,ontn)="0000000000"se;"Nothing" :: 4A$(z,y,x,ontw)=zes1:,,R$((*fi)+on):S$(k):  "8e3":si  4A$(z,y,x,ontw)=zes1:,,R$((*fi)+on):S$(k): e:k=:<".5+(l*.02)"th;on;"Oh no!!! You bit the dust":a=on̰"21":a/th:װ".07",a:a:vc=on: yth;on;"Well, You made it this time. but":te;on;"BEWARE!":a=zḛ"14":a/tw:װ".013",a:a:A$(z,y,x,onfo)="0000": cP$(te):W("30"):T(fi):Z("45"):"Z"Z():d=on̰"30":W(d)=Z(d):d:d=onfi:T(d)=Z(d+"30"):d mc=Z("44"):esc=Z("45") gl=Z("43"):st=Z("42"):money=Z("36"):Sc=Z("37"):Ti=Z("38"):x=Z("39"):y=Z("40"):z=Z("41") &A$(l,l,l,te):"A$"A$():"P$"P$(): <:"The program will save in three parts so be patient..." AZ("45"):d=on̰"30":Z(d)=W(d):d:d=onfi:Z(d+"30")=T(d):d  gZ("43")=l:Z("42")=st:Z("36")=money:Z("37")=Sc:Z("38")=Ti:Z("39")=x:Z("40")=y:Z("41")=z  Z("44")=mc:Z("45")=esc  "Z"Z()  "A$"A$()  "P$"P$()  X Brain Storm ]l-x>zea=(*(l-x)):x=x+a bl-y>zeb=(*(l-y)):y=y+b gl-z>zec=(*(l-z)):z=z+c lx>ona=(*x):x=x-a qy>onb=(*y):y=y-a vz>onc=(*z):z=z-a xx Monster":"75" G"21",ze;z$;"21",ze;on;si;"T";ze;" -> Possible treasure":"75"  J"21",ze;z$;"21",ze;on;fo;"P";ze;" -> Place visited by you":"75" C"21",ze;z$;"21",ze;fi;on;"E";ze;" -> Empty room":"75":d Xa=1l:b=1l:A$(z,a,b,"11")="1"tw*l+tw-tw*a,(b*th)-on;fo;on;"P";ze OA$(z,a,b,ontw)=zeưA$(z,a,b,fisi)=zetw*l+tw-tw*a,(b*th);fi;on;"E";ze BA$(z,a,b,ontw)>zetw*l+th-tw*a,(b*th)-on;tw;on;"M";ze $;A$(z,a,b,fisi)>zetw*l+th-tw*a,(b*th);si;on;"T";ze )b:a ._21,0;"Room ";x;",";y;" - Level ";z:"500":21,0;" ":6230V @,,ni;tw;on;"A MONSTER!!!":m3::fi:k=:"So, ";Y$:k<".1",,"You're the technological genius":"of our era? HA HA HA!!!" AkkȰ".1"k<".2",,"If I had asked BYTE what were mychances to kill you he would say'6 Number Too Big..." BjkȰ".2"k<".3",,"I hope that you have prepared your will because you are going to BYTE the dust..." CWkȰ".3"k<".4",,"BYTE said: 'Only the good die young' - so your time has come.." EkȰ".4"kǰ".5",,"If you're our future I'll pray to the devil to bring back the past. But meanwhile, I might just as well kill you..." Jdk>".5"k<".6",,"Life is a chemical reaction so, why should'nt I change you chemically..." KUkȰ".6"k<".7",,"In computer language I would saythat you have 3 Mhz to live..." LkȰ".7"k<".8",,"Yesterday I bought (stole) a book called ~How to kill a":y$;" in 1.5 microns~.":"I'll make it in .0024 microns..." M`kȰ".8"k<".9",,"You are going to die because youhave tried to acquire HUMAN traits..." NWkȰ".9",,"I suggest you commit suicide if you wish to remain in one piece..." OV,,ei;"Do you wish to:":,,"1. bribe me":"2. fight mentally":"3. fight physically" T:"Enter 1,2, or 3" Y i:ithiɺis1:"8025" ^ii=i:"8e3+i*100":"2035" rv:fo:"You've decided to fight son!"::"Do you wish to fight"::"1. mentally":"2. physically"::"Enter 1, or 2": w i:itwiɺis1:"8055" |ii=i+1:"8100+i*100"  "2035" :si:"So, you finally found sense in":"your chip-py head"::"100+l*40">moneyưP$(onte)=ze"You don't have anything to give":"me. you'll just have to fight...":"200":"8050" P$(onte)=ze"8150" 1P$(onte)zep=(*te)+on:P$(p)="0""8105" pp=p:p>tnpp=p+ei RP$(onte)ze"I want your ";F$(pp,on̰"20"):,,"Will you give it to me (y/n)?"  i$:i$"y"i$"n"s1:"8115" i$="y"p<11 :"Good. I'll leave you for now.":"9200":w(p)=(*l)+on:w(p+tn)=(*l)+on:w(p+"20")=(*l)+on:P$(p)="0":A$(w(p),w(p+tn),w(p+"20"),fisi)=p:A$(w(p),w(p+tn),w(p+"20"),seei)=F$(p,"21"̰"22"):"8065" mi$="n"p>tnưp$("11"te)>on:"Some computers know how valuablelife is... Some don't!!!":"3e2":"8050" gi$="y"(p="11"p=te),,"Good. I'll spare you for a while":"3e2":P$(p)="0":p=teesc=ze:"8065" p="11"mc=ze:"8065" N:"Well, you'll have to show your":"skills in fighting...":"3e2":"8050" Ak=(*money):"I want ` ";k::"Will you give it to me (y/n) ?"  i$:i$"y"i$"n"s1:"8155" fi$="y":"At least your survival logic":"circuit is working fine.":"300":money=money-k:"8065" l:"So you refuse? well tough luck!":"After all I'll just rearrange":"you chemically...":"300":"8050" si::y(fi):a=onfi:y(a)=on+(*l):a:" Welcome to the mental test!!!":,,"I will display five numbers in a":"fast sequence and you will have ":"to multiply them fast and give ":"me the answer. If you get the ":"right answer, you'll cause my ":"evil brain to evaporate and I'll":"die. If not, you'll get weaker. ":,,fi;fo;on;"PRESS ANY KEY WHEN READY":ze:tn,ze;z$: "M is not the same for all levels Gpa="35-3*l":a=onfi:"13","15";se;y(a):pa:"13","15";" ":a b=y(on)*y(tw)*y(th)*y(fo)*y(fi):,,"Enter answer":a:a=bA$(z,y,x,onfo)="0000":,,fo;on;"Oh no, I am evaporating.........":mon=(*("50"*(m+on))):m2:,,"You gained ` ";mon:money=money+mon:sc=sc+"25"-l+sk:"8065"  "8400" R,,fo;"You with your decimal points... You blew it Ha Ha Ha!!!":"100":"8065" l!Arcade Part - Numbers for speed ni$="":tu=0:mo=3+(*l)+(l*m/"20"):0:0:7::10 ,7;1;"PRESS 'F' TO FIRE":200: q i$="q" r0mo<0A$(z,y,x,14)="0000": s`4:k=3+(*15):kk=:kk<.5k,30;"";k-1,30;"" v8kk.5k,30;"";k-1,30;"" {7tu=1k,30;"";k-1,30;"" wa=418:a,0;5;"":4-l*.3:a,0;" ":="f"Ŧ="F"tu=08330 p<.4Ltu=1kk1=k+((*(11 -l))+(*sk*.2~L))-(*(11 -l))+(*sk*.2~L):8327 a:8320 &kk1<4kk1>188320 $tu=1a=kk1:a=(a+.5) E2:mh=25:n=177-a*8:b=0:a=a-1 jmh,n+mh:0,-2*mh,-/2:c=0282:mh,n+mh:c-mh,-mh:mh,n-mh:c-mh,mh Lc=0c=8c=16c=24a,b;6;"":b=b+1 81;mh,n+mh:1;c-mh,-mh:1;mh-c,-mh Hc=4c=12 c=20c=28a,b-1;0;" " vc:c=b284:.06|u\,12 :a,c;c/4;"";a,c;"":c:c=b294:a,c;" ":c ^ka+1kac=36$12 -1:a,30;c/5.2&fff;"":.03{u\,c:c i$="q" 8377 :mo<0mmm=(600X+*(502*m)-l^2.7,+sk^2):13 ,4;"Oh No, You killed me!!!";15,6;4;1;"You gained ` ";mmm:money=money+mmm:m2:A$(z,y,x,14)="0000": 100d::9 ;4;1;"DAMAGE REPORT":5,,"Monster: ";M$(m,118)::5;"Strength: ";mo;" hit points left" Rt=15:6;t+5,0;T$(t);t+5,27;t(t):t .tu=(1tu=0)(0tu=1) -tu=1,,tw;1;"MONSTER'S TURN" $tu=0,,1;"YOUR TURN" 500::8305q tu=18387 C5:mos=2+(*(6-l*.4L))-(*(sk*.3)) nk=a+111 ,5;1;"You got me this time...":85004!:mos=(mos/2):mo=mo-mos [k=a11 ,0;1;"I'll have my revenge, technocrat":85004!:mo=mo-mos Tka+1kamos=0:11 ,4;1;"Ha Ha Ha!!! you blew it" 100d: pk=ak=a+111 ,0;1;4;"what do you think about that...":85004!:8400 G20,0;"Press: Q to quit fighting":" C to continue" 0 %i$=:i$"c"i$"q"s1:8391 i$="q" )t=15:t(t)<0i$="q" t:mo<0i$="q"  1t(on)=t(on)-"(.13*((*10))+.17+.07*l-.05*sk)" (t(tw)=t(tw)-"((10+(*25)+l*5-sk*3))" !t(th)=t(th)-((ni+(*fo)+l-sk)) 2t(fi)=t(fi)-((5+(*17)+l-sk*".5")) +t(fo)=t(fo)-"((1+(*1.5)+l*.11-s*.07))" Sc=Sc-l:Sc #( Bad End #-i:a=on̰"6e1":"11",fo;a/ni;on;"DEATH: WHAT A CONCEPT!!!":װ".007",a:on:tw:si:fo:th:fi:ze:a #/m1 #2ron:on:se::Y$;",":,,"Having lived for ";Ti;" centons":tsi"you have died from an acute lack":"of ";T$(t) #4_t=si"you died because you were stupid":"enough to allow me to decide":"upon your fate..." #6,,"You scored ";Sc;" bits/points":,,"You gained ";money;" `.":,,"Better luck next time...":,,"Do you wish to play again (y/n)?" #7 i$:i$"y"i$"n"s1:"9015" #< i$="y" #A #a=ontn:paw(a)=w(p)w(a+tn)=w(p+tn)w(a+"20")=w(p+"20")w(p)=on+(*l):w(p+tn)=on+(*l):w(p+"20")=on+(*l):"9200" #a: % Good End %&ze:ze::a=on̰"672":٥*se;"";:a % N"11",on;on;on;on;se;"LIFE: THE CHEMICAL REACTION...":m4:on:on:se: %!+on;si;Y$;",";ze:,,"You made it!!!":a=zḛ"42":a/si:װ".006",a:a:,,"You scored ";Sc;" bits/points":"You gained ";money;" `.":"You survived ";Ti;" centons.":,,"And most important, you built a":on;"COMPUTER SYSTEM.";ze:,,ei;on;"CONGRATULATIONS!":,,"Do you wish to play again (y/n)?" %& i$:i$"y"i$"n"s1:"9015" %+ i$="y" %0