Difference Report
File 1: SU8400w002092Miner-v2.P
File 2: SU8308w017069Miner-v1.P

File   Line
   1      1  1 REMMINER
   2      1  1 REMMINERBYMARKEVANS

   1      2  2 REMSINCLAIRUSER
   2      2  FROMSINCLAIRUSER17(AUG.83)

   1      3  3 REM1984ANNUALPAGE92
   1      4  5 GOSUB1000
   1      5  6 CLS

   1      9  40 LETA=CODE"(96)"
   2      6  40 LETA=CODE" "

   1     10  50 LETS=CODE"(COS)"
   2      7  50 LETS=CODE"COS"

   1     13  80 PRINTAT0,0;"CREDIT$";S;"";AT1,0;"MINED$";C;"";"DEPTH
   2     10  80 PRINTAT0,0;"CREDIT$";S;"";AT1,0;"MINED$";C;"";"DEP

   1     14  ";E;""
   2     11  TH";E;""

   1     16  100 IFE>20THENLETA=8
   2     13  100 IFINKEY$="7"THENGOTO20

   1     17  110 IFINKEY$="7"THENGOTO20

   1     23  170 PRINTATCODE"(95)",0;"GOL"
   2     19  170 PRINTATCODE" ",0;"GOL"

   1     24  180 LETC=C+INT(RND*CODE"(95)")+CODE"(95)"
   2     20  180 LETC=C+INT(RND*CODE" ")+CODE" "

   1     27  210 PRINTATCODE"(95)",0;"EXP"
   2     23  210 PRINTATCODE" ",0;"EXP"

   1     31  250 PRINTATCODE"(95)",0;"COA"
   2     27  250 PRINTATCODE" ",0;"COA"

   1     38  1000 CLS
   1     39  1010 PRINTAT0,0;"MINERINSTRUCTIONSSINCLAIRUSER"
   1     40  1020 PRINTAT1,0;" ANNUAL1984WRITTENBYM.EVANS "
   1     41  1030 PRINTAT3,0;"YOUSTARTWITH$200INTHEBANK"
   1     42  1040 PRINTAT4,0;"ANDYOURAIMISTOMAKEASMUCH"
   1     43  1050 PRINTAT5,0;"PROFITASPOSSIBLEFROMYOUR"
   1     44  1060 PRINTAT6,0;"MINE.ITCOSTSYOU$4TODIG1"
   1     45  1070 PRINTAT7,0;"METREANDEACHTIMEYOURETURN"
   1     46  1080 PRINTAT8,0;"TOTHESURFACEYOURFUNDSARE"
   1     47  1090 PRINTAT9,0;"ALTEREDTOTAKEACCOUNTOFYOUR"
   1     48  1100 PRINTAT10,0;"PROFITANDEXPENDITURE.YOUMAY"
   1     49  1110 PRINTAT11,0;"FINDCOALORGOLD,ORYOUMAY"
   1     50  1120 PRINTAT12,0;"BEUNLUCKYANDBEINVOLVEDIN"
   1     51  1130 PRINTAT13,0;"ANEXPLOSION,WHICHITWILLCOST"
   1     52  1140 PRINTAT14,0;"YOU$200.KEY6MOVESYOUDOWN"
   1     53  1150 PRINTAT15,0;"THEMINE,WHILEKEY7MOVESYOU"
   1     54  1160 PRINTAT16,0;"BACKTOTHESURFACE."
   1     55  1170 PRINTAT18,0;"MINERWASWRITTENBYMARKEVANS"
   1     56  1180 PRINTAT19,0;"OFWELLING,KENTFORTHEZX81."
   1     57  1190 PRINTAT21,0;"PRESS(B)KEYTOBEGINTHEGAME"
   1     58  1200 IFINKEY$=""THENGOTO1200
   1     59  1210 IFINKEY$="B"THENRETURN