DYNAMITE Vk INITIALIZATION "";: :`",,,:"";&(@);"Z-L: 15 M.";+RM$(,),MN$(,) SCHR &X:Y RM$(X,Y)"R"   STUHL & X:YCR(())%CRRM$(X,Y)RM$(X,Y)"C": FERNSEHER &X:YTV(())%TVRM$(X,Y)RM$(X,Y)"T": DYNAMITE X(() )Y(() )RM$(X,Y)RM$(X,Y)"*"#DY(()(RM$(X,Y)))%D$(RM$(X,Y),DY,)D$"*"  GELD MN4X(() ):Y(() )# MN$(X,Y)""MN$(X,Y)"M": " ! "# MATH INITIALIZATION \$X:Y:DR:RA:CH:"000000":MS:DS$""%LM$"001500";&E1$"+B0 +#A0+A0 +#G0+G0 +#F0+F0 +E0 +#D0+D0 +#C0+C0 ";'E2$"B0 #A0 A0 #G0 G0 #F0 F0 E0 #D0 D0 #C0 C0 ";(E3$"-B0 -#A0-A0 -#G0-G0 -#F0-F0 -E0 -#D0-D0 -#C0-C0 ")ES$E1$E2$E3$*MZ$(,)6+MZ$(,)"":MZ$(,)" "6,MZ$(,)"":MZ$(,)" "6-MZ$(,)"":MZ$(,)"".6/MZ$(,)"":MZ$(@,)""60MZ$(,)"":MZ$(@,)""61MZ$(,)"":MZ$(@,)""263MZ$(,)" ":MZ$( ,)""64MZ$(,)" ":MZ$( ,)""65MZ$(,)"":MZ$( ,)""667MZ$(@,)"":MZ$(`,)""68MZ$(@,)"":MZ$(`,)" "69MZ$(@,)"":MZ$(`,)" ":6;MZ$(,)"":MZ$(,)""6<MZ$(,)"":MZ$(,)""6=MZ$(,)"":MZ$(,)""> START ?""; @ A()(LM$) +B,,`,:,:" YC,:"GJD,:" N@E,8:" ";-F,8:"W ? ";C$GC$"S" QHC$"O" _IC$"Z" JC$"B" KC$"NI" OL(C$"Y")(DR)YY: :DR:RA:CH: OM(C$"N")(DR)YY: :DR:RA:CH: ON(C$"G")(DR)XX: :DR:RA:CH: OO(C$"J")(DR)XX: :DR:RA:CH: P AQ SUCHEN @R,8:" ";!S,8:" W? ";C$TC$"F" W!U(C$"SCH")(RA) [ V A W FERNSEHER SUCHEN -X(D$"T")((RM$(X,Y),)"*") b@Y,8:" ";CZ,8:" N ! ":Wz:: A[ SEARCH FOR RACK -\(D$"R")((RM$(X,Y),)"*") b@],8:" ";C^,8:" N ! ":Wz:: A_ AUF @`,8:" ";!a,8:" W? ";C$bC$"T"DRDR: e!cC$"SCH"RARA: d Ae TUER AUF 1f,,`,:DRDR: AgCH thX, : " iX,@: " jX,`: " kX,: " lX,: " mX, :" nX,0:" oX,@:" pX,P:" qX,`:" #rX,p:"": stX, : " uX,@: " vX,`: " wX,: " xX,: " yX, :" zX,0:"{X,@:"|X,P:" }X,`:" ~X,p:" , : "  ,@: "  ,`: "  ,: "  ,: "  , :"  ,0:"  ,@:"  ,P:"  ,`:"  ,p:"  ,:"  ,:"  ,:" ,:"  , :"  ,(:" @, : " @,@: " @,`: " @,: " @,: " @, :" @,0:" @,@:" @,P:" @,`:" @,p:" @,:" @,:" @,:"@,:" A OPEN THE RACK /,,`,: , :" " ,0:" " ,@:" " ,P:" " ,`:" " ,p:" "* ,:[,];" * ,:[,];" A MOVE @,8:" ";!,8:" W? ";C$C$"ST"CH: A MOVE CHAIR I`,0:[`,];" ";:[,];" L`,@:[`,];" ";:[,];" L`,P:[`,];" ";:[,];" L`,`:[`,];" ";:[,];" a`,p:[`,];"";:[`,];"";:[,];" 7`,:[,];" 7`,:[,];" 7`,:[,];" 7`,:[,];" 7`, :[,];" 2`,(:[,];" -(D$"C")((RM$(X,Y),)"*") b@,8:" ";@,8:" N ! ";:WAz:: A TAKE @,8:" ";",8:" W ? ";C$$(C$"GE")(MN$(X,Y)"M") A,,,,:@,:" " @,:" " @, :" " @,(:" "MSMS:MN$(X,Y)"" A ROOM DISPLAY D,,`,:" ";1" ";1" ";1" ";1" ";1" ";1" ";1" ";1" ";1" ";1" ";1" ";1" ";1" ";1" ";1" ";1" ";1" ";1" ";1" ";1" ";1" "; "";I(RM$(X,Y))R$(RM$(X,Y),I,)R$"R" R$"T" R$"C" MN$(X,Y)"M"  RACK DISPLAY 3,,,:, :" 1 , :[`,];" ";1 ,0:[`,];" ";1 ,@:[`,];" ";1 ,P:[`,];" ";1 ,`:[`,];" ";1 ,p:[`,];""; TV DISPLAY 2,,,:,:" ;,@:"";:[`,];"";:";,:"";:[`,];"";:";, :"";:[`,];" pp";:";,@:"";:[`,];"pp";:";,`:"";:[`,];"";:" ,:"  CHAIR DISPLAY 3,,,:`,0:"$`,@:" $`,P:" $`,`:" $`,p:" $`,:" $`,:" $`,:" $`,:" $ `, :"  `,(:"   MONEY DISPLAY / ,,@,:@,:" @,:"DM@, :" @,(:" 6(X)(X)(Y)(Y)  FALL(GAME OVER) ,,, :""; [, ];"![, ];""[, ];"![`,];" ![`,];" ![`,];"![, ];"![, ];" ![, ];" ![, ];" ! [, ];" !![, ];" !"[, ];" !#[, ];" !$[, ];" !%[, ];" &[, ];" '[, ];" 8([, ];" ";:[, ];" 9)[, ];" ";:[, ];" G*[, ];" ";:[, ];" H+[, ];" ";:[, ];" V,[, ];" ";:[, ];" ";V-[, ];" ";:[, ];"";.HM$(@)2/HM$()(F):HM$()(H)20HM$()(L):HM$(@)(J))1ES:HM:Y@ :20,Y:HM$(HM):HMHM:HM@HMK3WH:W:(ES$,ES,):0,Y:" ":ESES:4,:""5,:""6, :""7,(:""8?9@:"A5R0A4R0A1R0A5R0C4B1R0B4A1R0A4#G2A7":X0:Y;X,Y:(F);"";!<XXX:H(())=HXX1>K :(ES$,K,):9?K :(ES$,K,):@XX,Y:"  ";:A"";:,,, B();" "C();" "D();" "E();" FG:WAz:,H(p);" S T!! "*I(p);" ",J(p);" D "*K(p);" T, ? W S -"*L(p);" , "*M(p);" S "*N(p);" A !"O-P(p);" T (J/N)? ";QZ$RZ$"J": SZ$"N" U T QUCT$();VCT$()"";WCT$()"";XCT$()"";YCT$(@)"";ZCT$()"";[CT$( )"";\CT$(@)"";]CT$(`)"";^CT$()" "P_Y8:CT:,Y:[,];CT$(CT);::\`,,@,:"";:,@:"MANUFACTURED BY BOND SOFTWARES/ N.ICHISE ";ab FIND c,,,:"";2d[`,];(0);" 2e[@,];(0);" 2f[,];(0);" 2g[ ,];(0);" hi:,,@,j( );" k( );" SAFE &l( );" ";(DS$,MS)#m( );" $n( );"$o( );"$p( );" $q( );" $r( );"$s( );" GEHEIM - CODE $t( );"u( );"#v( );" #w( );" xyKW$(@):ATzKW@&{KW$(KW)((() ))|1},8:"B C : ";IK$~IK(IK$)9KW$(IK)(IK$,IK,)ATAT:   W@(IK),@:[ ,];MZ$((KW$(IK)),)W@(IK),P:[ ,];MZ$((KW$(IK)),)Y@(IK),`:[ ,];MZ$((KW$(IK)),):-:(x):MSMS:MS AT `,:(MS)8,:" "AT: } FIND KEYWORDS ,,,:"";4X :YH:Y(Z)(RRZZ):X,YYRR:,,(()`):ZR:TY(Z):XZ,YT:XZ,YTXZ,YT:XZ,YT:RP =R:X :YH:Z(Y)(RRZZ):X,YYRR :,,(()`):ZR:TZ(Y):XZ,YT:XZ,YTXZ,YT:XZ,YT:Rp ,,@,:"";A[`,];" ";A[@,];" ";A[,];" ";A[ ,];" ";@[,];" "4" N S !! D S  "1" C. M . D  "1" A . W  "3" S ? E  "." ! S S  ")" F  "&" T 'J' !! "Z$Z$"J": Z$"N" U   NOT FIND KI :,,(()),(()):"";;(ES$,((()p)),),,@,:"";2[,];( );" 3[@,];( );"2[,];( );" 3[ ,];( );" 3[,];( );" /" L S S- "0" K ! D  "/" I E. D S S! "%" A (J/N)??"Z$Z$"J": Z$"N" U   TIME "";3[,];( );"3[,];( );" 3[,];( );" 3[,];( );" 3[,];( );"2[,];( );" Z (J/NN)D0, :[,];MZ$(((,)),)D0, :[,];MZ$(((,)),)C0, :[,];MZ$(((,)),)Kp, :[,];MZ$(((,,)),)Kp, :[,];MZ$(((,,)),)Jp, :[,];MZ$(((,,)),)K , :[,];MZ$(((,@,)),)K , :[,];MZ$(((,@,)),)J , :[,];MZ$(((,@,)),)K@, :[,];MZ$(((,,)),)K@, :[,];MZ$(((,,)),)J@, :[,];MZ$(((,,)),)Z$Z$"J" ?   START DEMO  ,,,:"";1"";1"";1"";1"";k[`,];"";:[`,];" ";:[`,];"";k[`,];"";:[`,];" ";:[`,];"";k[`,];"";:[`,];" ";:[`,];" M. WOLK ";k[`,];"";:[`,];" ";:[`,];"";k[`,];"";:[`,];" ";:[`,];"";A[`,];"";A[,];" ";A[@,];" ";A[,];" ";A[ ,];" ";A[,];" ";S[`,];"";:,,@,1"I H S ";1" C. M S ";1"D T , ";1"T F. H ";1" , G-";1"C . V G! ";1" ";A[,];" W T ";Z$:Z$""  "";A[,];" ";A[@,];" ";A[,];" ";A[ ,];" ";A[,];" ";A[ ,];" ";A[,];" ";A[@,];" ";A[,];" ";S[`,];"";:,,@,L"I S -";:[,];" B : ";[,];"e[@,];" 'OEFFNE' ";:[`,];" .B.:";:[,];" [TUER, SCHRANK]"\[@,];" 'BEWEG' ";:[`,];" .B.:";:[,];" [STUHL]j[@,];" 'SUCH' ";:[`,];" .B.:";:[,];" [SCHRANK, FERNSEHER]"W[@,];" 'ZEIT' ";:[`,];" D R ";\[@,];" 'NIMM' ";:[`,];" .B.:";:[,];" [GELD]"X[@,];" 'Y'";:[`,];"...... " ";X[@,];" 'N'";:[`,];"...... " ";X[@,];" 'G'";:[`,];"...... " ";X[@,];" 'J'";:[`,];"...... " ";@[`,];"";B[,];" PUSH ANY KEY ";@[`,];"";Z$:Z$""   ,,,:"";D$(@)9D$()" "9D$()" "9D$()" "9 D$(@)" " D@ Y0D' ,Y:[`,];D$(D);S ,Y:[`,];" ";:AHC(()@)CC$"."CC$"*"CC$"{"N(() ),(() ):[`,];C$;Q, :[`,];"PUSH ANY KEY TO EXPLANATIONS AND START"; XXCL(() ):X,,CL:(XX)(XX) Y@:X,Y,CL$:XX:XXA$:A$"" $ *****************************$ * *$ * DYNAMITE 2 *$  * *$! *COPYRIGHT (C) 1983 BY N.ICH*$" *ISE FOR SHARP MZ-700 SERIES*$# * WITH S-BASIC ADAPTED. MANU*$$ *FACTURED BY BOND SOFTWARES.*$% * PLAN AND PRODUCT BY PASCAL*$& *-HAMAMATSU. ORIGINAL WRITTE*$' *N FOR MZ-1200 BY N.ICHISE 1*$( *983.4. REWRITTEN FOR MZ-700*$) *SERIES COLOR VERSION BY N.I*$* *CHISE 1983.5. IT'S HERE. *$+ * *$, *****************************