Fur Trader

Gallery

Source Code

   6 LET ERV=0
   7 CLS 
   8 LET HF=5
   9 LET CF=50
  10 LET OF=100
  11 LET RF=200
  12 LET H=7
  13 LET D=7
  14 LET F=5
  15 LET M=100
  16 LET T=0
  17 GOTO 7000
  25 CLS 
  30 PRINT AT 3,0;"YOUR COMMANDS ARE :"
  40 PRINT 
  50 PRINT "<1> LOOK FOR TRADING POST."
  60 PRINT "<2> GO TO BED."
  70 PRINT "<3> EAT/DRINK FOOD AND WATER."
  80 PRINT "<4> FOOD/HUNGER/REST/STORES CK."
  90 PRINT 
 100 PRINT 
 110 PRINT "COMMANDS AT TRADING POST ONLY."
 120 PRINT 
 130 PRINT "<5> SEE GOING EXCHANGE RATE."
 140 PRINT "<6> MAKE A DEAL."
 150 PRINT AT 21,0;"WHAT IS YOUR COMMAND ?"
 160 INPUT A
 170 IF INT A<>A OR A<1 OR A>6 THEN GOTO 9020
 180 IF NOT T AND A>4 THEN GOTO 9040
 185 IF A=6 AND ERV=0 THEN GOTO 9000
 190 CLS 
 200 GOTO A*1000
1000 IF INT ((RND*10)+1)>6 THEN GOTO 1500
1010 LET T=1
1020 PRINT AT 8,0;"CONGRATULATIONS . YOU HAVE FOUND        A TRADING POST."
1025 LET A=INT (RND*2)+1
1030 PRINT 
1035 IF A=1 THEN LET F=F+1
1040 IF A=1 THEN PRINT "YOU ALSO MANAGED TO REFILL YOUR         STORE OF FOOD ."
1045 PAUSE 300
1050 GOTO 17
1500 LET T=0
1510 PRINT AT 11,0;" BAD LUCK.YOU DID NOT MANAGE TO  FIND A TRADING POST ANYWHERE ."
1515 PAUSE 300
1520 GOTO 17
2000 LET A=INT (RND*5)+1
2005 IF A<>1 THEN LET D=7
2010 PRINT AT 10,0;"NIGHT NIGHT.SLEEP TIGHT;MIND THE        BUGS DON""T BITE."
2011 PAUSE 300
2012 IF A=1 THEN PRINT AT 15,0;"THE BED BUGS BIT AND YOU DID NOT    MANAGE TO GET ANY SLEEP."
2013 IF A=1 THEN PRINT AT 17,0;""
2014 IF A=1 THEN PRINT AT 18,6;"  \:'\:' \':\': \:'\:' \:'\:' \':\': \':\':"
2015 IF A=1 THEN PAUSE 300
2020 GOTO 17
3010 IF F<>0 THEN PRINT AT 11,0;"YOU HAVE NOW TAKEN THE LOAD OFF         ONE PACKHORSE."
3015 IF F<>0 THEN LET H=7
3020 IF F=0 THEN PRINT AT 11,0;"BAD LUCK.THERE IS NO FOOD LEFT."
3030 IF F<>0 THEN LET F=F-1
3035 PAUSE 300
3040 GOTO 17
4000 PRINT "FOOD / HUNGER / REST / STORES CK"
4010 PRINT AT 3,0;"YOU HAVE ";HF;" HAGGIS FURS."
4020 PRINT 
4030 PRINT "YOU HAVE ";CF;" COYOTE FURS."
4040 PRINT 
4050 PRINT "YOU HAVE ";OF;" OCELOT FURS."
4060 PRINT 
4070 PRINT "YOU HAVE ";RF;" RABBIT FURS."
4080 PRINT AT 12,0;"YOU CAN SURVIVE ";H;" COMMANDS  WITHOUT ANY FOOD."
4090 PRINT 
4100 PRINT "YOU HAVE ";F;" PACK-HORSES OF FOOD AND WATER."
4110 PRINT 
4120 PRINT "YOU CAN SURVIVE ";D;" COMMANDS  WITHOUT ANY REST."
4125 PRINT AT 21,0;"YOU NOW HAVE $";M
4130 PAUSE 32768
4140 GOTO 17
5000 IF ERV=1 THEN GOTO 5040
5005 LET HFP=INT (RND*40)+61
5010 LET CFP=INT (RND*30)+31
5020 LET OFP=INT (RND*20)+11
5030 LET RFP=INT (RND*10)+1
5040 PRINT TAB 9;"EXCHANGE RATE."
5050 PRINT AT 4,0;"HAGGIS FUR =$";HFP
5060 PRINT AT 8,0;"COYOTE FUR =$";CFP
5070 PRINT AT 12,0;"OCELOT FUR =$";OFP
5080 PRINT AT 16,0;"RABBIT FUR =$";RFP
5090 PAUSE 32768
5095 LET ERV=1
5100 GOTO 17
6000 PRINT AT 4,0;"YOU HAVE ";HF;"    HAGGIS FURS"
6010 PRINT AT 8,0;"YOU HAVE ";CF;"   COYOTE FURS"
6020 PRINT AT 12,0;"YOU HAVE ";OF;"    OCELOT FURS"
6030 PRINT AT 16,0;"YOU HAVE ";RF;"    RABBIT FURS"
6035 PRINT AT 0,0;"YOU NOW HAVE A TOTAL OF $";M
6040 PRINT AT 20,0;"HOW MANY HAGGIS FURS WOULD YOU  LIKE TO SELL ?"
6045 IF HF<=0 THEN GOTO 6090
6050 INPUT X
6055 LET X=INT X
6060 IF X>HF OR X<0 THEN GOTO 6050
6070 LET M=M+(X*HFP)
6075 PRINT AT 0,25;M;"  "
6080 LET HF=HF-X
6085 PRINT AT 4,9;HF;"  "
6090 PRINT AT 20,9;"COYOTE FURS"
6095 IF CF<=0 THEN GOTO 6140
6100 INPUT X
6105 LET X=INT X
6110 IF X>CF OR X<0 THEN GOTO 6100
6120 LET M=M+(X*CFP)
6125 PRINT AT 0,25;M;"  "
6130 LET CF=CF-X
6135 PRINT AT 8,9;CF;"  "
6140 PRINT AT 20,9;"OCELOT FURS"
6145 IF OF<=0 THEN GOTO 6180
6150 INPUT X
6153 LET X=INT X
6155 IF X>OF OR X<0 THEN GOTO 6150
6160 LET M=M+(X*OFP)
6165 PRINT AT 0,25;M;"  "
6170 LET OF=OF-X
6175 PRINT AT 12,9;OF;"  "
6180 PRINT AT 20,9;"RABBIT FURS"
6185 IF RF<=0 THEN GOTO 6220
6190 INPUT X
6195 IF X>RF OR X<0 THEN GOTO 6190
6200 LET M=M+(X*RFP)
6205 PRINT AT 0,25;M;"  "
6210 LET RF=RF-X
6215 PRINT AT 16,9;RF;"  "
6220 PRINT AT 20,9;"HAGGIS FURS WOULD YOU  LIKE TO BUY ?  "
6225 IF M<HFP THEN GOTO 6270
6230 INPUT X
6235 LET X=INT X
6240 IF (X*HFP)>M OR X<0 THEN GOTO 6230
6250 LET M=M-(X*HFP)
6255 PRINT AT 0,25;M;"  "
6260 LET HF=HF+X
6265 PRINT AT 4,9;HF;"  "
6270 PRINT AT 20,9;"COYOTE FURS"
6275 IF M<CFP THEN GOTO 6320
6280 INPUT X
6285 LET X=INT X
6290 IF (X*CFP)>M OR X<0 THEN GOTO 6280
6300 LET M=M-(X*CFP)
6305 PRINT AT 0,25;M;"  "
6310 LET CF=CF+X
6315 PRINT AT 8,9;CF;"  "
6320 PRINT AT 20,9;"OCELOT FURS"
6325 IF M<OFP THEN GOTO 6370
6330 INPUT X
6335 LET X=INT X
6340 IF (X*OFP)>M OR X<0 THEN GOTO 6330
6350 LET M=M-(X*OFP)
6355 PRINT AT 0,25;M;"  "
6360 LET OF=OF+X
6365 PRINT AT 12,9;OF;"  "
6370 PRINT AT 20,9;"RABBIT FURS"
6375 IF M<RFP THEN GOTO 6420
6380 INPUT X
6385 LET X=INT X
6390 IF (X*RFP)>M OR X<0 THEN GOTO 6380
6400 LET M=M-(X*RFP)
6405 PRINT AT 0,25;M;"  "
6410 LET RF=RF+X
6413 PRINT AT 16,9;RF;"  "
6415 LET T=0
6420 LET ERV=0
6425 GOTO 17
7000 CLS 
7005 LET D=D-1
7010 LET H=H-1
7020 IF H<0 THEN GOTO 8020
7030 IF D<0 THEN GOTO 8000
7040 IF INT (RND*125)>5 THEN GOTO 7200
7050 LET HF=HF-INT (RND*(HF/2))
7070 LET CF=CF-INT (RND*(CF/2))
7090 LET OF=OF-INT (RND*(OF/2))
7110 LET RF=RF-INT (RND*(RF/2))
7130 PRINT AT 9,0;"  SOME ROBBERS HAVE JUST ROBBED YOUR PACK HORSES OF SOME OF YOUR             FURS."
7140 PAUSE 300
7150 CLS 
7200 IF INT (RND*125)>5 THEN GOTO 7250
7210 LET M=M-INT (RND*(M/2))
7220 PRINT AT 9,0;" SOME ROBBERS HAVE JUST ROBBED  YOUR PACK HORSES OF SOME OF YOUR              MONEY."
7230 PAUSE 300
7240 CLS 
7250 GOTO 20
8000 PRINT "YOU DIED DUE TO A LACK OF REST."
8010 GOTO 8030
8020 PRINT "BAD LUCK.YOU STARVED TO DEATH."
8030 PRINT 
8040 PRINT "YOU HAD ";F;" PACK-HORSES OF FOOD AND WATER LEFT"
8060 PRINT "YOU COULD HAVE SURVIVED ";D;" DAYS WITHOUT REST"
8080 PRINT "YOU COULD HAVE SURVIVED ";H;" DAYS WITHOUT FOOD/WATER"
8100 PRINT 
8110 PRINT "IN YOUR WILL,YOU LEFT :"
8112 LET M=M+(HF*HFP)
8114 LET M=M+(CF*CFP)
8116 LET M=M+(OF*OFP)
8118 LET M=M+(RF*RFP)
8120 PRINT 
8130 PRINT "A TOTAL OF $";M;" NET."
8140 PRINT 
8150 PRINT "( ";HF;" HAGGIS FURS )"
8160 PRINT 
8170 PRINT "( ";CF;" COYOTE FURS )"
8180 PRINT 
8190 PRINT "( ";OF;" OCELOT FURS )"
8200 PRINT 
8210 PRINT "( ";RF;" RABBIT FURS )"
8220 PAUSE 32768
8230 GOTO 7
9000 PRINT AT 17,0;"% % % % %W%H%A%T% %A%B%O%U%T% %C%O%M%M%A%N%D% %(%5%)% % % % % % "
9005 PAUSE 500
9010 GOTO 25
9020 PRINT AT 17,0;"%P%L%E%A%S%E% %E%N%T%E%R% %A% %C%O%R%R%E%C%T% %C%O%M%M%A%N%D% %."
9025 PAUSE 500
9030 GOTO 25
9040 PRINT AT 17,0;"% %Y%O%U% %A%R%E% %N%O%T% %A%T% %A% %T%R%A%D%I%N%G% %P%O%S%T% %."
9045 PAUSE 500
9050 GOTO 25
9060 CLEAR 
9070 SAVE "1029%6"
9080 RUN