murgr81 r/&r/t/1MURGATROYDS REVENGE - ZX81 VERSION - 13K BYTES +CGM02 COPYRIGHT COLLINS COMPUTING 1982 speccy port by RJM 2003 9000(# D9=49152 46517,6  T$(14) ( S2=0 <"WHAT'S YOUR NAME?" F PT$ Z(T$=" "T$="NAMELESS ONE" dI=13 1-1 nT$(I)=" "140 xT$(I+1)="." I=1 I N$=T$(1) N$<"A"N$>"Z"N$="X" 46516,(N$)-27 ("RIGHT, A LETTER """;N$;""" WILL MARK" "YOUR POSITION, ";T$  200  M2=2  P(10 )  L(10 )  D(10 ) " Q$(3) , S1=0 6 V(4) @ W(4) TM2=M2+1 ^ L1=0 | F1=0  G1=0  C1=1  W1=0  C2=1  K1=0  M1=0 ,10 ,5;"HERE WE GO - GOOD LUCK" 50,0;"" N19,0;"";1;"SCORE:";0;"" 51,0;"..................--ACTIONS--" 0618,0;".................. " D52,0;"..... " X617,0;"..... " l53,0;"................1.PANIC " 616,0;"................ " 54,0;"......2.LAY MINE " 615,0;"...... " 55,0;"...............3.DROP GLUE" 614,0;"............... " 56,0;".........4.SET DECOY" 613 ,0;"........."  57,0;"............5.BLOCKAGE "  612 ,0;".......... " 458,0;"........6.DETONATE " HN11 ,0;"..........";1;"HI-SCORE";0;"" \59 ,0;"............. MINE " f 100d p610 ,0;"......... "  8,10 ;1;"$" #S2>012 ,24;S2  z=conv I=14 $V(I)=(*16)+2 8W(I)=(*16)+2 L:(D9+1+W(I)+(V(I)*33!))1361060$ `V(I),W(I);"" j)D9+1+W(I)+(V(I)*33!),8 tI I=1M2 (L(I)=((*17)+2) <P(I)=((*18)+1) P9(D9+1+P(I)+(L(I)*33!))271320( dL(I),P(I);1;"""" n+D9+1+P(I)+(L(I)*33!),139 xI @!*11 >5L1=18 TL118L1=1 hP1=((*17)+1) | L1,P1;N$ L2=L1 P2=P1+1 $21,1;"MAKE YOUR MOVE"  Q$  15,21;" COLLINS "  16,21;"COMPUTING" &%21,1;"WAIT . . . . . " 0-Q$(1)>"0"Q$(1)<"7"5200P :*Q$(2)=" "Q$(2)=Q$(1) D*Q$(3)=" "Q$(3)=Q$(2) NK1=0S1=S1+10 S19,26;S1 XI=13 ]P2=P1 bL2=L1 Q$(I)="N"L1=L1-1 Q$(I)="S"L1=L1+1 Q$(I)="W"P1=P1-1 Q$(I)="E"P1=P1+1 #D8=(D9+1+P1+(L1*33!)) 2D8=139D8=21D8=235000 D827L1=L2 D827P1=P2  L2,P2;"."  L1,P1;N$ L1=L2P1=P2P2=P4 L1=L2P1=P2L2=L4  L1=L2P1=P221004 %L4=L2 *P4=P2 4K102300 HL19 2300 \P110 2300 p P5=0 #(*2)=1P5=19 L5=(*8)+6  L5,P5;"." 8,10 ;"" S1=S1+200 19,26;S1  15,21;" BONUS "  16,21;" 200 " !19,31;1;"$" 19,26;S1  K1=1 K112400` L1L52400` $P1P52400` 8 8000@ `I TC123000 hL6=L1 |P6=P1 L1=L7 P1=P7 C2=C2+1 I=1M2 L(I)=04940L J=12  L9=L1-L(I)  P9=P1-P(I) 0V$="S" DL9<0V$="N" XH$="E" lP9<0H$="W" D$=H$ P9128ƾ(D8-1)139)((D8+1)>128ƾ(D8+1)139)D$="S" D$"N"4200h ;((D8-1)<129ž(D8-1)=139)D$="W" D$="W"4200h ;((D8+1)<129ž(D8+1)=139)D$="E"  4200h N((D8+33!)<129ž(D8+33!)=139)D(I)14200h 8BH$"E"((D8-1)<129ž(D8-1)=139)D$="W" LBH$"W"((D8+1)<129ž(D8+1)=139)D$="E" `m((D8-1)>128ƾ(D8-1)139)((D8+1)>128ƾ(D8+1)139)D$="N" D$"S"4200h ;((D8-1)<129ž(D8-1)=139)D$="W" D$="W"4200h ;((D8+1)<129ž(D8+1)=139)D$="E"  4200h L((D8-1)<129ž(D8-1)=139)D(I)24200h DV$"N"((D8+33!)<129ž(D8+33!)=139)D$="S" DV$"S"((D8-33!)<129ž(D8-33!)=139)D$="N" (q((D8-33!)>128ƾ(D8-33!)139)((D8+33!)>128ƾ(D8+33!)139)D$="E" PD$"W"4200h d=((D8-33!)<129ž(D8-33!)=139)D$="N" xD$="N"4200h =((D8+33!)<129ž(D8+33!)=139)D$="S"  4200h L((D8+1)<129ž(D8+1)=139)D(I)44200h DV$"N"((D8+33!)<129ž(D8+33!)=139)D$="S" DV$"S"((D8-33!)<129ž(D8-33!)=139)D$="N" q((D8-33!)>128ƾ(D8-33!)139)((D8+33!)>128ƾ(D8+33!)139)D$="W" D$"E"4200h ,=((D8-33!)<129ž(D8-33!)=139)D$="N" @D$="N"4200h T=((D8+33!)<129ž(D8+33!)=139)D$="S" ^ 4200h h L8=L(I) | P8=P(I) D$="N"L(I)=L(I)-1 D$="N"D(I)=1 D$="S"L(I)=L(I)+1 D$="S"D(I)=3 D$="W"P(I)=P(I)-1 D$="W"D(I)=4 D$="E"P(I)=P(I)+1 D$="E"D(I)=2 'D8=(D9+1+P(I)+(L(I)*33!)) 0%D8139D834560 DL(I)=(*18)+1 XP(I)=(*18)+1 l9(D9+1+P(I)+(L(I)*33!))274420D L(I),P(I);1;""""  L8,P8;"." D(I)=0  49208 D8(N$)-274600 L(I),P(I);1;""""  L8,P8;"." 621,0;"BAD LUCK, A MURGATROYD GOT YOU. "  85004! D8214860 /D7=(D9+1+P(I)+(L(I)*33!))-34" *46514,D7-(D7/256)*256 46515,(D7/256) 46516,(N$)-27 46517,6 46518,0  z=conv:46519  M1=2  "46518=27600 4"46518=17800x \S1=S1+100d f19,26;S1 i 15,21;" BONUS " k 16,21;" 100 " L(I)=0  4940L L(I),P(I);1;""""  L8,P8;"." D8=15C2=3 D8=154960` D82349208 L(I),P(I);"" $L(I)=0 )S1=S1+502 +19,26;S1 . 4940L 8J B"(*5)=33040 LI VC121800 `L1=L6 eL1=L6 jP1=P6 tC2=3C1=1 yC2=3L7,P7;"." ~ 1800  L1,P1;N$  L2,P2;"." D8215100 )D7=(D9+1+P1+L1*33!)-34" *46514,D7-(D7/256)*256 46515,(D7/256) 46518,0 z=conv:46519 621,0;"IDIOT, YOU'VE BLOWN YOURSELF UP."  85004! D8235150  L1,P1;1;N$ 521,0;"YOU FOOL, YOU'RE STUCK NOW. "  85004! L1,P1;1;"""" (621,0;"RIGHT INTO A MURGATROYD, TWERP. " 2 85004! PQ$(1)="1"5400 dQ$(1)="2"5800 xQ$(1)="3"62008 Q$(1)="4"6600 Q$(1)="5"7000X Q$(1)="6"7400 F115410" 15,22;"ILLEGAL"  16,21;" MOVE. "  5560 "L2=L1 ,P2=P1 6L1=(*18)+1 @P1=(*18)+1 T,z=conv:D8=(D9+1+P1+(L1*33!)) hD82754306 | L2,P2;"."  L1,P1;N$  F1=1 3,22;"USED "  2900T M1=05820 15,22;"ILLEGAL"  16,21;" MOVE. "  5920   M1=1 4,22;"USED " ,z=conv:D8=(D9+1+P2+(L2*33!)) D8=139M1=2 D8=1393000  L2,P2;"+" +D6=(D9+1+P2+(L2*33!))-34"  2900T 8G116220L =15,22;"ILLEGAL" B 16,21;" MOVE. " G 6320 L G1=1 `,z=conv:D8=(D9+1+P2+(L2*33!)) tD8=1393000  L2,P2;"*" 5,22;"USED "  2900T L1<10 C1=10 P1<10 C2=10 L7=(*9 )+C1 P7=(*9 )+C2 >z=conv:(D9+1+P7+(L7*33!))276640 , L7,P7;"?" @6,22;"USED " T C2=0 h C1=2 | 2900T XW117020l ]15,22;"ILLEGAL" b 16,21;" MOVE. " g 7120 l W1=1 ,z=conv:D8=(D9+1+P2+(L2*33!)) D8=1392900T  L2,P2;"" 7,22;"USED "  2900T *M1115,22;"ILLEGAL" ,M1116,21;" MOVE. " M112900T  M1=2 8,22;"USED " 9 ,22;" " 46516,(N$)-27 $*46514,D6-(D6/256)*256 846515,(D6/256) B46518,0 Lz=conv:46519 V"46518=17800x `"4651822900T 621,0;"YOU WERE TOO NEAR THAT EXPLOSION"  85004! x621,0;"YOU'RE DONE FOR--THE KEY IS GONE"  85004! @WIN J T ^S1=S1+300, h" CONGRATULATIONS - " r |  $"YOU'VE BEATEN THEM THIS TIME."   " AND SCORED ";S1     $"READY FOR A NEW SHEET WITH MORE"    #" M U R G A T R O Y D S ? "  400  340T !4LOST - OFFER NEW GAME !H 150 !RS1>S2S2=S1 !\ !p"YOUR FINAL SCORE WAS ";S1 ! ! "WOULD YOU LIKE ANOTHER GAME?" !Q$ !Q$(1)="Y"250 !Q$(1)="N"8720" ! !"ANSWER YES OR NO" ! 8620! " "$#5,8;"COPYRIGHT 1982" ". "8&7,7;"COLLINS COMPUTING" "L #(:40003C: #2conv=4e4@ #<23658j\,8 #f="a""a"+62 #!f,170:f+1,85U #)f+8,85U:f+9 ,170 #f # &239999?:''" Loading nearly finished..."''' &2"murgr81.1"4e4@:"murgr81.2"46514: murgr81.1 ua2m| #R!~c>}|>>. >DMzS|!>x(>o[|R>_= >!I"{\>?2\!XXw! @~#!@ ! @ ~$, "`$:?()><=+-*/;,.0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZUUUUUUUU!!@t!Ht!P$$$$$~>(%%%%ͫw##  vs@ ${>@! @/ ${>@! ݯ murgr81.2 M0p2>>*W~!~>2!V>2d!~wF #ɵ ŵFd %#!6ÿ