L4R Sii `ĩi   LOTHER PRODUCT OF THE SOFTWARE GUILDAĠ< LLW ^**5q$ !$ i+&H CIHJ Bh V`L> L><JCB V`LIHȱi湘ʝhiLCLIHL į`EXECUTōLBRANCeHȱehL0BRANC 7iLDiȱiL+ EMIԅ (D ?TERMINA̩ L$>>}}}LU/MO !  *>>8>>ưL+ AN s =H=LOk HLXO҅ ]H]LSP HLHLSP LLS >>LLS ~~LAS 80L RP  LRP 0 芦HLEXI( F hhLLEAV= Y L>O t HHLRm hhLR HLNOԕ L0 0 *L0 (D }}LD }}}}L) NEGATK8LDNEGAT@i8LLDEPT]( j51"D PIC{(U"PICK ARGUMENT < 1 D ROL̓(U"ROLL ARGUMENT < 1wU5 U  5 D OVEHLDRO )LSWA 7HLDU.WHL+Oh}ȱ}L) TOGGLa]L) HȱLCHLȽL) CL) ( xkrHHieL (ND dD CONSTAN>(HȱLVARIABLP(D USEn([eHeLcccB̯c C/̷c@FIRScLIMIcEPRINNTI WIDT WARNINFENCDVOC-LINBL#4>I10OU:DSCCHOFFSELBCONTEXU6CURRENa:STATnJBAS{2DP̆CSЙ8RFHLī@'-FINij'ABORԼ'BLOC'C'EMI'INTERPRE 'KE"'LOA$'NUMBE&'PAG('R/&*'T&SCAL1,'WOR;.RISPTS\(bD 1eyL1r8L2iL2L2>>LHERſ( D ALLO( f "DICTIONARY FULLD (D C (D 38L+ -(1 D DI( M5g  55'5'D UU(5ZD 8PIȘL+ (5D ROԼ(r 5 5D SPAC( D ?DU(U5UD TRAVERS(5 55'D LATES(xD LF#(1D CF6(D NFE(1D PFQ( D ?STREAf("INPUT STREAM EXHAUSTEDD ?COMy( " COMPILE ONLYD ?PAIRӠ(1"CONDITIONALS NOT PAIREDD ?CS( 1"DEFINITION NOT FINISHEDD ?LOADIN(7 "USE ONLY WHEN LOADINGD COMPIL( Ur D D(D `(D SMUDGn(, D HE}(D DECIMȂ( D <;CODE( ,lD NEXԷcUcIcDOES(N !ND hhHHiiiHiLCOUN(Uw5D TYP-(U 5 5 4   D -TRAILINA(U 15W 1XD <."n( 5Uw r HD .(Z"M5 @f>"5N?Uw "M 5 w5HD 255w D WOR(QD CONVER8(wUr i 5,5 ' w5f  D (U ID + ( 5ID D+ ( 5gD D LDDROж L) DDU ʈLAB (U D DAB (U D MI !( 55'D MA!( 55'D M/!( D ME!( r !5! D MR!(r r U ! 5 5D M*m!( 5!r 5!r  !5      5'5 D !( 'D /MO!(r r!D !(!5'D MO"(!'D */MO"(r W! r!D *"(%"5'D M/MO1"(r   5r  D US@"N"PRE^"N#BUFh"c+BUs"( UM5'Uo"1D UPDAT"(o" o"D SAVE-BUFFERӦ"({"w #'XD (*2*Y* D EMPTY-BUFFER"(1P{" 4 ! XD CLEA#(^ #"D DRD#(^D DRb#(h#V&D DRr#(x#V&D DR#(#V&D BUFFEҒ#(d"Ur {"5"5d"  5  q h'  o" D L+ CC5CC& CCɀ L L?% iLDISK-ERRO$NDEU%NDENSITf%NDRIVv%NSEÄ%N>MAX-DR֐%cSEC/BL˚%cSEC/DҨ%NSEC-REAĶ%%R S0d%LSEC-WRIT%&WL%SET-DRIV%(%wD SET-I &(d"%w D SET-DR)&(t&%&"^fD DR-DEL&(l% D SPDRk&(%!% D WORĴ6NNWORD6NF WKOUN6NALLOLD-RO6NVBSCAN6cGO7c VOF7c NOF7c<VMA)7c2NMA47cUT?7NLEXVERJ7NCOXOBS7N XNOU_7NALLXDIj7N >NOUx7N> XPREЃ7NPVER7NPDIқ7N PPREЧ7NPNOUβ7NALLP-TYPž7NXIN7N 7NO-FLA7NB/BU7cY7.Y#8c"8NDAMAG8(8D BIO-LE@8(8D FOLLOWO8(8 D M-LIFa8(8 D PACK-Ow8(8 D #IN-HAΌ8(8 D ROOM8(8 D MATCH-̸8(8 D OX-FLA8(8 D #MATCH8(8 D DEAD-F8(8 D TIMES-9(8 D BEAKER$9(8 D ENERGY:9(8 D #WARNIP9(8 D TERf9(8 D TFOLLO|9(8 D GAMEOVŏ9NZPOINTť9NQPOINTų9NTHENFL9NBARRA9(5!55wUr  D ON-MAS9N @OFF-MA :N߿BIT-O:(:  D BIT-OF2:((: q D BIT-SCG:(: q D BCONVE]:(!5D Bw:(r :r U 5;:Q:5D B:(:r  g:D .ø:(U%51"3HD H:NLEV:NLEHTA:(:3D VTA:(:.3D 0/ ;( D LET;(5D 1+*;(Uw5D 1-;;(U5D C1+O;(Uw5D 0c;(5D Qx;(991;9};D O;.EL ROUUTINES CONT < 1/13/83> 57)8INSERԚ;(C5;0D Qk<("K0;0D RNĀ=([7D PRL=(7D RMZ=(8D IOh=(7D N S>(>};D .ANY-K">(38.[ PRESS ANY KEY FOR MORE ]HD ANY-KE/>(9>W1o15W1D ( .3l>.332.3D HOM|>(75 .3l>a3D DO-SCRϦ>(>5>'>D CR>(>A; D -TYP>(HD TYP>(> >!>>A;5> 5>1U 5>U 5 D PRIN?(>8.* >; ?D PINSERjj7o?TdpU(-^S@nh;oA T5TH# gI'SJ(SJ,Z1 Y6THC]KQ=:*WWGFZR`R`U gI`^OcSJtCL3EVB3FQCD^;SF;WF*WG_^OcSV-GN228ؘи0؄B-S-I(5r  wD NM-PTgI0 -. !"#$%&',/0()*+STATU~INST3J(5071! `7_JgiPOSbK(07w1lK D POSK(507w1lK D ?IN-ROK(Kn=MD ?DO-HEK(D=KD ?IO-HEL(|=KD NOWHERL(KD PUT-HE+L(n=KD GON=L(KD ?INPUOL(@ ?5@D WORD`L(66 D ORDL(66 D SETWORęL(r 6 5 @ ?5 C5 /. 5 5D PFILTEҰL(U5wr .M5   'D A-ALLOMNS A-ACTI>MN C-ERROLMN QUZMNALLOT 3> 77)28PQUhMNALLOT DO-ANĄM(VM5dMD 0ANġM(HM};D SET-ANļM(HM5VM7dMD SET-THM(97>A;D CONM( LLMD COMN( LLND NOU5N( ULLVM50nM9 6M9 HMVM};9A;>7 5 HMM6wj;7=7r7 677 D VERUN( UL[76j;L67MMD DIN( UL76j;L67MMD PREO( UL76 j;L67MMD DRONLO( LLD ?PԆO(7MD .O¥O(75 >8. (>71C5>8.) ? D DO-SEԵO(f7r71;D IO-SEO(7r71;D .NAMO(UJ5071 I5C>D SETBEA P(UUD9I ";JJD ?NOT-S9P(FJ8 n=@q D AEIOiP(UJ5071 IC/]0r aM eM iM oM uM 5 8.n 8. >D SCALEӏP(n=bM 5D A 4 K5wX 5@8.7It sits on the scale and the scale isin proper balance.B8.=They sit on the scales, and the scales are not balanced. ?D THERE-P(U ><M5"8. There is a>PP8. here.8.A>PP8. is nearby. ?D O-LISQ(sP 5w 4 K5=4 J5 4 Q) >8.A >4 P8. is lurking nearby. ?XA 4 K4 XK q 54 QXQD .NOTHIR( 5 >)8.nothing ?D CARRY-̥R(A 4 K5 w>)4 P>A;XD WEAR-LR(VE 4 J5 w>)4 P>A;XD BODYSC S(8.$* BODY SCAN reveals we are carrying: ?RR 8.* We are wearing the following: ?SRD BIOSCACS(8.* MEDICAL SCANNERS: ? 8.$ CYBORG LEVEL DAMAGE % BIO LEVEL ? >3Z9.>3I8.>3Y8. ?D SPMSTAҨScSPMSIZ.TcPSPM/BLSwSZ$ U4 )! 5> X'3D FINDVA YN֤FINKY(^UUY5'D ?TEST-YY(r < q 5 r7 'D GET-NAvY(WUq wr ;wr 5 U D LOWER-òY(?5M/ U4 UAZ(=5 4 'X'@D V-RECOY(>5 8.?;0D? '>8.>> M@ZiL 5 D 4`Y5$UY;6C5.Y56A;761;D iL 5 w?D PTFILTRZ(O5 w?D D P4-FILZ(O5>;'>7};8.What should we ;.7t<\Z5  D D ?UZ(76  MD ?DOWP[(76  MD ?NO-NOn[(6w D $MATCHŎ[(8. matches (;.9.;08. left);0; C.D -MATCHŤ[(9U;[D EL+[(8 5 Z9f'D ONE-O[(r 5 5P M X 'D ?NOT-A\(r K K J J q 5 '?D ?DNOT-?\(D=I\D ?INOT-{\(|=I\D DELAُ\( XD CHIRУ\(E4  4   3,\]4D RAZڷ\(E4 3\]4D SIRE\(E4 H  3\#  3\X]4D 1SPDES](8.%The panel on the cylinder is ;.J58. unlatched  8.latched ;08.and ;0^J58.open. 8.closed.;0; ?D 2SPDES`](8.The viewscreens show a ;.J5&8.defunct cleaning robot,"8.berserk cleaning robot,;0pJ5.8.% revived sleepers in abig room and a *8.% rows of 'sleepers' incapsules and a ;0J5+8."repair patch on the hull breach.&8.!hull breach in the cargo hold.;0; ?D 3SPDES](J 5= 8..A little metal grill is mounted in the wall.;.; ?D SPDESJ_(B/;.n=_Mn=`M ^J q 5 j]n=7M5 ^n=JM5T_D RMPTң_N DIR-VE_NALLOT F IROOMST`c*ROOMSI`cURM/BL,`NRMBL:`NOR8.* >Aa B//5/ 8.(Logic circuits offer no further help. ?D .DQUIЪa(EJ 5D Aa B//5 D <M5 D >8.The droid says, '>>8..' ?D LIFELI bN?LOCATqb(D=D LOC>DIҐb(  'D=1`4 M5 4 wW XD DIRb(76 D SIZZLb(I8f[X \SD T-RECYb(k85GL\Y8=858U;8JZJSJSJWJWJ`J]JD IN-PRO c(7#Mn=Mq 7Mn=#Mq 5-[7c n=BM5I8faT \S D DEAĪc(;O7I81;dI8\SX>'> 8.Do you want me to help >=5.9A;9.9!O7 I8.9I8Z 5X9D X\Y8f*c8LJ8k89A K5AJAqKD K5DJDKWG 4 J5 4 J4 GLXEJ58EJEGLEJ5EJVGLVJuA 4 K5 4 J4 GLXn=D7;n=(==@n=(= 5H8  8n=`' aa9D SELF-Sd(k85D  U4 KM4 J q 54 9X9 5D ;Xk891;I8f< !F 8 \S D #DIe(  `4 5wXD ?2FOLLef(<5X dI8fX \S D ?FOLLO׌f(k8 5D ;lf5X X f' X f D TRAVEf(75>>UO7U5'D n=7` U 5'@D sP5<M5aT 'dD f5'D eUU`c'{b5:5 'a aa{b5:b$R*cD '>>gD ON-REAĕj(D=J5EAD U5D '>;Y>'>>gJD ;Z9 5 +aTD 8./* I can give opinions on objects or locations. ? 8.6Type 'L' for this location or enter the objects name. ? 8.>>@ZiL5R@?58.l/5 a2@`Y5$ U=(=5Gl'D `=(M5$Z9 5 +aTD OOD=GlvAD (KILLgl(OD=(= 5nBD \5D D=J5AD ;'>MJ5v8.9* How much energy should we charge the laser with (0 - >Z9*8.)? >@ ?<5!Z9!UI\8= ,8.(with bare hands) ?\ Y8=8= 8 5D=g1aT X f'$[7D=Xk8};9};D=JD 8.*Are you sure you want to do this (Y/N)? ;.D?= 5D=M5*D=J5 EAD oGLeGLD=JD=dMSK q 5SVL8. Ok. I'll try;.D? D=XD=^M5 ^JD=M5GL n=e'?;D VZ$ 5>D to continue. ?{D SAVE-Br|cVSAVE|.SAVEGAME|N DERRO|NLGAM|N1?PGDIS|(#|Z$5|/#D ?SGDIS|(#H|Z$5|/#D .PROGD }( 8.%* Place the 'Program disk' in drive 1>8.and press .>{D REP-DI)}(| 5 3}|5D (RESTO}(H|| Z$r .;0; ?{D >SAVE~(b||~{M5|#|H| Z$5|/# 5}|5@ 8.* Game number '>|.>8.' has been saved. ?x|O 8."* There is no room for additional > 8.saved games on this disk.>x||}|};D 8. your game >'>=5  '>gD .QMS( '>8.* Bye. Thanks for playing >D =5C 8.** Do you need to save your game ?=59D =5b||~}5D H|Z$ ||U 8. * There are '>. ?8.' saved games on this> 8.disk.>w 8.,* Enter the game number to be loaded >@?|}|}; '>gD ?DROP- (85U5 @ aTD (GETf(OK2K 5O@D L 5?D Omlp=(D=!\D=A{D=(=D=MD=YcD=(= 5AD ikD=(=5 aT;D BCD=(=5A aT;D n=iMD=hMLq q 5 aT;D U5D p5D D=5L8.* Taken ?D=VMD=LM 5 D=JD=SMD=WM 5 D=JxzD=(=5& 8 5\aT \SD=VLD D=SMD=WM n=aMq 5JD=JD=VM5D=JEJD D=J8A;n=bM 5D A 4 K5wX5 aT dD D ~n=!\q 5/aT dD D=VM 5D VJEJn=QM 5D QXK 5D QJQGL*aTD };7};.3l>X>aaD ~n=!\5 ]aTD D=LM9";q 5ZaTD=VLD=J8U;D 9 5 aT;D [D9MJ Kq 5CPaT  aT dD ?sP85 aa$RD ? '>@ ?hAD F-(r K5 '  'D 8.(>|=P8.)> O|=J8U;|=VL|=AM5 AqK|=DM5 DKD=kM5 D=JD=iM5,|=XM|=DM 5D=J [aTD D=XD wx8FrzɊxjpqlQۏfwh uNn%\sowj x Vhubtwې׈yVx8vqKkFiD ?LO÷(6w5M5,r7r7 5 Ar7 5D O O 5D O5*R=(=R=M 5A6R= M`='Mq R=M`=(Mq 5AD ?TEST=1(r   =q 5 [7 'D ?N/P/(7777q D N-RECOL(95w?D '>;7};> 5 8.)What should we do with the ;.7t<8.?;0D? 8.>> M@ZiL 5 D @`Y50UY;6C5.56A;761;7 D iL 5 w?D ?2Vq(6wUM 5 M57w?<'6 M57U57w?D ?VERM(691M57 6M5T 7D ?SA˜(6+M691q 5K 8.* Ok, >"K0>691 4 C5>XK0 ?"K0 ?;'>D ?SCA ({~r7(= 5J691M57[7,691M5R=7M5D ?DRONŀ(6wM56M5{w?w?D ?NOU(5 7D 6M5{w?D ?PRE'(w?D ?DIY(691M57[77D w?D ?SENSi(6- ʘ/paD ?SYNTA؞(6 '4 6 5_8.5Unable to comply. Vocabulary chip scan reveals word ;.<4 wt< W XD ?2VERBӿ(6D ?2DIRN(6D ?2PREPd(6 D ?3NOUN{(6wD ?LAST-ח(66 UM5M U5w?D ?TOOMAί(X5w?D 5w?D 5w?D m5aTD D ?ILLEG(O5D 3IR=%71!71 :U5w?D PARSE-+([7  4 7  PARSE TYPE 7*5'XD ?CONJUg(dMVM D P-CLEAΣ(6 M5O5 7D O5  7D D ?PARSŻ(5D ɚ5D 5D 5D 5D Ŝ8 5D 55D 5 9};w?D D ?ROBO(k8M 5D 7};R=$MR=/M r7Mq 5D ;'>\aT f'D EFLArNRECYCLϝ(ם 5XZ959\ S NaT;D Y85 MaT9;D Z9Y8!UO7&5O95? \8.$*** Approaching terminal level (500) ? S9A;p99};O75 p9Ep957p9A; \8.$*** WARNING! Energy levels critical! ? S99M 5< r7nM9 1;7M9 1;9A;{ 599M5ם}; 4 6LLX[7};7};7};76};6r77};7};7};79};9};HM};VM};dM};D CYBOR۝(>};PO7 '>8.>>iL5 M@iL 5D &V5D V7};@};9}; @`Y6UA;L65?D iL";9 q 55{ 5;iL";9q 59D WORDLIӻ9PROGRAv(ğ9U5Y>h5D EMSLj( 8.#* There's something terribly wrong.> 8..My logic circuits are not functioningproperly.> D E1MSǬ( 8.$* Your game may not have been saved.> |} '>gD E2MS( 8..* Your game may not have been restored.> |} '>gD gD RECOVEҾ(# 7@t33d"AD CATCHEء( |5-"oȡ 8.* Let's try that again.>|};ם坒D INHLN.TURNOl(>'>.38.WELCOME TO CYBORG: 8. TO BEGIN PLAY: 8."REMOVE THE GAME DISK FROM DRIVE 1.: 8.TURN THE GAME DISK OVER.: 8.REPLACE THE DISK IN DRIVE 1: 8.WITH THE LABEL FACE DOWN.: .3l>D TURNOVx(|5D INIT(s+ ⡣D ^'>>U+K:9}; `'Y.39>2UM53M533'>>;g{b :OGL坒D 'KEYWOjNOKEYWOR(=D WD-I(@}; ?<5D VB-I'(<N/D NOUN-IK(<^N/D DIR-Ic(<O/D PREP-I}(<UO/D DRONE-ɖ(<O/D LIST-Iΰ(t@1;xSySzm{m|}~7@t1;D an$N$NtheDN&$N1DNPROTECʤ(d"d"0U '2&%b%M 5sK:qD gAN wal듥N ruN scaNgeNtak弥NwavƥN)shakѥN)droܥNopeNreaN*saN+ente NleavNcrosN1pu+Nexi7NunlocANfliLN,unlatcYNcatcdNopiniorNfil~N drin댦N&emptN'pouN!spil쯦N!kic뺦NhiƦNkilѦN$attacۦN$throN,shooN/strangNea N"feeN%sin#N+fl.N1brea9N0smasCN0climON ti[NlacgNfolloqN1jum|NleaNrepaiNfiNweaN2bit嶧N"removN3punçNfin٧N.locatN.helN#scorN8savN6quiN5toucN-fee*N-cho6N/cuAN/ignitLN4explodVN4tracNholqNfuc|Nbrin燨NinserN<versioN7yel쫨N+screaN+shiĨNgivѨN turܨN;tastN1pisNcalN+kis N1graNsquasNru*N-activa7N;swiAN1asONquestiZNswallodN"slicrN/pee쀩N/presN-restor嗩N9attac裩N2destroN0las復N/unti̩NuntangשNpeN-closN:shuN:pulN-picNtwisN;unlac(Nligh4NapplAN(disablMN$disintYN$gNunharnuN3quer}NquiNinterrNgril좪dNtub尪dNGlendNFworkbeǪdNOequipmҪdNOglasdNOlasedNMbeakedNJwatedNBoxygedNCharnesdNEstep,dNcstair:dNcstaircFdNccontroSdNpsnakadNloodNCrung{dNcpackedNHmicrolᑫdNMsneakedNTtre嬫dNbtreedNOshoeūdNTweldeѫdNtorcݫdNmachindNOairlocdNcabinedNbadNlizar dNipac*dNxpower-7dNxgrasBdNOwalPdNOwalkwa\dNOfruigdNXtograudNjsneakdNTflas뎬dNJcrutc蛬dNOspacesdNQsmadᴬdNmatche¬dNLsigάdNObalܬdNytrapdodNYdoodNYringdNcrope dNcfliedNDbutto#dN`i/dNScarreadedNcrystadNqbalanc)dNscale7dNsloEdN_machinRdN=windo]dN?bleachkdN@chesxdNcasin熯dNecel쒯dNKunidNypower-dNypeac赯dNImanuaïdNniguanϯdNlaceܯdNhlockedNwirdNrsoldedNsbatter dNzpower-dNzbe(dNObed6dNOboar@dNOtablKdNOchaiWdNOcpcdNtreptilodNkpaneydN^bidN}biolog铰dN}medica읰dN}ful쫰dN{boddN~areİdN|patcϰdNhulڰdNlholdNldamagdNlbreacdNlfusela dNlnort%Onorthe$%Oeas0%Osouthe>%OsoutI%OsouthwW%Owesc%Onorthwq%Ou|%O dow%O %On垱%O妱%Os寱%O%Os%Oȱ%Onѱ%Oٱ%O %O wit[Ot[O'o[O(of[O)beneat[O*belo[O+abov'[O,fro3[O-ove?[O.foJ[OaU[Oint_[O'ih[O'abous[O(towar|[O'toward[O'ou[Oth売OX᭲OYaOZthi󿲖O[somȲO\pricklӲObweldin޲Obtwo-he첖ObberserObrotteObshouldObperman#Obpressu1Obstrang?ObpeeleMObblac[ObplastihObslicetObvendin炳ObjuicObmoldOb SAVE-FORTH45993Y( PROTECT < 0/ 0/ 0> 89) FORTH DEFINITIONS : PROTECT USE @ FIRST 2+ USE ! 560 DUP T&SCALC SET-IO SEC-READ DISK-ERROR @ 144 = NOT ( INSERT NOT TO COPY PROT) IF 0 32767 0 FILL ELSE ' INIT CFA 'ABORT ! FREEZE INIT THEN ; ( ' PROTECT CFA 'ABORT !) ( FOR NO COPY PROTECTION ' INIT CFA 'ABORT !) ( SAVE-FORTH) @Lx ###$$.$D$V$l$~$$$$$$$ %%.%4%E%V%\%m%~%%%%%%%%%%% &&#&3&E&K&[&m&s&&&&&&& '4'\'''''$(L(t(((()=)e))))*.*V*~****+F+l+y++++++ ,4,[,,,,,$-0-L-X-u--------. .=.H.e.p.......//./8/ UUUUU(UU(UUU UU U* U**U*U(*U  UUU  U*UU U*UU UUUUUUUUUUUUU UUU UU U* U U(  U*U *U ** U*** *U** *U *  *U   * U**( U***  **U*** ** U ***** U *** * U** * U** * U** * U** * U*** * U*** * U *** * U *** * U** * U** * U * * U * * U** * U*** * U  * ***U   ***U* U* U UU U*U *UU**U U UUU U*U UU??UU??UU00 00 UU00 00 U*U00 00 U*U00 00 U U??0U U??0UU0 00 UU0 00 UU0 00 U*U0 00 U*U0?0U U0?0U {  zA  L L A/ԅĩɩʥ ˹ UeɅɥiԠ0ͭ1Πͅȱ̠ͅ˩ǠȈŌĄƩ5 N5ȩ5ȩ 5i r 5  \ 8fť$4` O  O R R i`6` O F/ԥͤ Ј b \ C "/LC 0Ԍ1`$Lĥ$>` a L> ȢǦ  ѹ5i(5ȹ5i15 8FLb L L L R R H$h`D5565ݩA5ȩ5ȩ55`R Sii` `L `(`(`ANOTHER PRODUCT OF THE SOFTWARE GUILDY`&LP P0```@@@P P@  L