API tools faq
paste
Advertisement
Guest User

O R E G O N

a guest
Feb 8th, 2017
143
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Basic4GL 8.63 KB | None | 0 0
raw download clone embed print report
  1.  10  TEXT : HOME : POKE  - 16298,0: NORMAL : POKE 216,0:ZM = 20: PRINT :R = 768:Y7 = 600
  2.  15  POKE 232,0: POKE 233,64
  3.  20 A7$ = "                                       "
  4.  230  PRINT : HTAB (14): PRINT "O R E G O N": GOSUB 31800: PRINT : PRINT
  5.  240  PRINT "    THIS PROGRAM SIMULATES A TRIP OVER": PRINT "THE OREGON TRAIL FROM INDEPENDENCE,"
  6.  245  PRINT "MISSOURI TO OREGON CITY,OREGON IN 1847.": PRINT : PRINT "    YOUR FAMILY OF FIVE WILL COVER THE"
  7.  250  PRINT "2040 MILE TRAIL IN 5 OR 6 MONTHS --": PRINT : PRINT : SPEED= 10: HTAB 8: PRINT "IF YOU MAKE IT ALIVE!": SPEED= 255
  8.  251  NORMAL : PRINT : PRINT
  9.  255  PRINT "   YOU HAD SAVED $900 TO SPEND FOR THE": PRINT "TRIP, AND YOU'VE JUST PAID $200 FOR A ": PRINT "WAGON."
  10.  265  GOSUB 9000: HOME : NORMAL
  11.  270  PRINT : PRINT "   OXEN - YOU CAN SPEND $200-$300 ON": PRINT "          YOUR TEAM. THE MORE YOU "
  12.  275  PRINT "          SPEND, THE FASTER YOU WILL": PRINT "          GO, BECAUSE YOU WILL HAVE"
  13.  277  PRINT "          BETTER ANIMALS."
  14.  280  PRINT : PRINT "   FOOD - THE MORE YOU HAVE, THE LESS": PRINT "          CHANCE THERE IS OF SICKNESS."
  15.  285  PRINT : PRINT "   AMMUNITION - $1 BUYS A BELT OF 50": PRINT "          BULLETS. (YOU'LL BE SHOOTING"
  16.  290  PRINT "          AT ANIMALS AND BANDITS.)"
  17.  300  PRINT : PRINT "   CLOTHING - THIS IS VERY IMPORTANT": PRINT "          FOR THE COLD WEATHER YOU WILL"
  18.  305  PRINT "          ENCOUNTER CROSSING THE": PRINT "          MOUNTAINS."
  19.  310  PRINT : PRINT "   MISCELLANEOUS SUPPLIES - THIS ": PRINT "          INCLUDES MEDICINE AND OTHER"
  20.  315  PRINT "          THINGS YOU WILL NEED."
  21.  320  GOSUB 9000: HOME : PRINT : PRINT
  22.  325  PRINT : PRINT "    YOU CAN SPEND ALL OF YOUR MONEY": PRINT "BEFORE YOU START YOUR TRIP, OR AT FORTS"
  23.  330  PRINT "ALONG THE WAY. (ITEMS COST MORE AT": PRINT "THE FORTS.)": PRINT
  24.  335  PRINT "    YOU CAN HUNT ON YOUR WAY TO OREGON.": PRINT "WHEN YOU DO HUNT, YOU WILL BE SHOOTING"
  25.  340  PRINT "AT ANIMALS AS THEY MOVE ACROSS THE": PRINT "SCREEN BY PRESSING A KEY."
  26.  350  PRINT : PRINT : HTAB (15): PRINT "GOOD LUCK!": GOSUB 9000
  27.  370  HOME : VTAB (4): PRINT "HOW GOOD A SHOT ARE YOU?": PRINT : PRINT "  (1) ACE MARKSMAN     (2) GOOD SHOT": PRINT
  28.  380  PRINT "  (3) FAIR TO MIDDLIN' (4) NEED PRACTICE"
  29.  385  PRINT "  (5) SHAKY KNEES": PRINT : PRINT "ENTER ONE OF THE ABOVE -- THE BETTER"
  30.  390  PRINT "YOU CLAIM YOU ARE, THE LESS TIMES YOU": PRINT "WILL HAVE TO SHOOT AT THE ANIMAL."
  31.  395  VTAB 17: PRINT "WHICH NUMBER? ";: CALL  - 868: GOSUB 40000
  32.  400 D9 =  VAL (ZN$)
  33.  770  IF D9 > 5 OR D9 < 1 OR  INT (D9) < D9 THEN 395
  34.  800 X1 =  - 1: HOME : PRINT "   HOW MUCH DO YOU WANT TO SPEND ON-"
  35.  810  PRINT : PRINT : PRINT "OXEN": PRINT : PRINT "FOOD": PRINT : PRINT "AMMUNITION": PRINT : PRINT "CLOTHING"
  36.  820  PRINT : PRINT "MISC. SUPPLIES"
  37.  828  VTAB (4): HTAB (5): PRINT A7$
  38.  830  VTAB (4): HTAB (5): PRINT "? ";: GOSUB 40000
  39.  832 A =  VAL (ZN$): IF A >  = 200 AND A <  = 300 THEN 836
  40.  834  VTAB (17): PRINT "SPEND FROM 200 TO 300 DOLLARS...": VTAB (4): HTAB (5): PRINT A7$: GOTO 830
  41.  836  GOSUB 1000: VTAB (4): HTAB (38 -  LEN ( STR$ (A))): PRINT A
  42.  838  VTAB (6): HTAB (5): PRINT A7$
  43.  840  VTAB (6): HTAB (5): PRINT "? ";: GOSUB 40000
  44.  842 F =  VAL (ZN$): IF F >  = 0 THEN 846
  45.  844  VTAB (17): PRINT "YOU'LL WANT MORE FOOD THAN THAT!": VTAB (6): HTAB (5): PRINT A7$: GOTO 840
  46.  846  GOSUB 1000: VTAB (6): HTAB (38 -  LEN ( STR$ (F))): PRINT F
  47.  848  VTAB (8): HTAB (11): PRINT A7$
  48.  850  VTAB (8): HTAB (11): PRINT "? ";: GOSUB 40000
  49.  852 B =  VAL (ZN$): IF B >  = 0 THEN 856
  50.  854  VTAB (17): PRINT "YOU'LL NEED MORE THAN THAT!": VTAB (8): HTAB (11): PRINT A7$: GOTO 850
  51.  856  GOSUB 1000: VTAB (8): HTAB (38 -  LEN ( STR$ (B))): PRINT B
  52.  858  VTAB (10): HTAB (9): PRINT A7$
  53.  860  VTAB (10): HTAB (9): PRINT "? ";: GOSUB 40000
  54.  862 C =  VAL (ZN$): IF C >  = 0 THEN 866
  55.  864  VTAB (17): PRINT "BRRR...BUY MORE THAN THAT!": VTAB (10): HTAB (9): PRINT A7$: GOTO 860
  56.  866  GOSUB 1000: VTAB (10): HTAB (38 -  LEN ( STR$ (C))): PRINT C
  57.  868  VTAB (12): HTAB (15): PRINT A7$
  58.  870  VTAB (12): HTAB (15): PRINT "? ";: GOSUB 40000
  59.  872 M1 =  VAL (ZN$): IF M1 >  = 0 THEN 876
  60.  874  VTAB (17): PRINT "YOU SHOULD GET MORE THAN THAT!": VTAB (12): HTAB (15): PRINT A7$: GOTO 870
  61.  876  GOSUB 1000: VTAB (12): HTAB (36 -  LEN ( STR$ (M1))): PRINT "+ "M1
  62.  880  PRINT "------------------" SPC( 15)"-----"
  63.  884 T = A + F + B + C + M1: HTAB (29 -  LEN ( STR$ (T))): PRINT "TOTAL=  $"T
  64.  886  PRINT : PRINT  SPC( 15)"$700   SAVED": PRINT  SPC( 16 -  LEN ( STR$ (T)))"- $"T"   SPENT"
  65.  888  PRINT  SPC( 14)"-----":T = 700 - T: PRINT  SPC( 18 -  LEN ( STR$ (T)))"$"T"   BALANCE"
  66.  890  PRINT : IF T >  = 0 THEN 900
  67.  894  PRINT "YOU'VE SPENT TOO MUCH MONEY!": PRINT "YOU ONLY HAVE $700 TO SPEND.": PRINT "TRY AGAIN..."
  68.  896  GOSUB 2000: GOTO 800
  69.  900  PRINT "YOU HAVE $"T" DOLLARS LEFT TO": PRINT "SPEND ALONG THE WAY..."
  70.  910  GOSUB 2000: HOME : VTAB 12: PRINT "PREPARING FOR THE JOURNEY..."
  71.  915 Y = A: GOSUB 920:Y = F: GOSUB 920:Y = B: GOSUB 920:Y = C: GOSUB 920:Y = M1: GOSUB 920:Y = D9: GOSUB 920: GOTO 940
  72.  920 P1 = 0:P2 = 0:P3 = 0: IF  LEN ( STR$ (Y)) = 1 THEN P3 = Y
  73.  922  IF  LEN ( STR$ (Y)) = 2 THEN P2 =  VAL ( LEFT$ ( STR$ (Y),1)):P3 =  VAL ( RIGHT$ ( STR$ (Y),1))
  74.  924  IF  LEN ( STR$ (Y)) = 3 THEN P1 =  VAL ( LEFT$ ( STR$ (Y),1)):P2 =  VAL ( MID$ ( STR$ (Y),2,1)):P3 =  VAL ( RIGHT$ ( STR$ (Y),1))
  75.  930  POKE Y7,P1: POKE Y7 + 1,P2: POKE Y7 + 2,P3:Y7 = Y7 + 3: RETURN
  76.  931  CLEAR
  77.  940  PRINT  CHR$ (4)"NOMON C,I,O": PRINT  CHR$ (4)"BLOAD OREGONMAP": PRINT  CHR$ (4)"RUN OREGONA"
  78.  1000  VTAB (17): FOR G = 1 TO 5: PRINT A7$: NEXT G
  79.  1010  RETURN
  80.  2000  VTAB 24: CALL  - 868: HTAB 7: POKE  - 16368,0: PRINT "PRESS ";: INVERSE : PRINT "SPACE BAR";: NORMAL : PRINT " TO CONTINUE";: WAIT  - 16384,128: POKE  - 16368,0: HTAB 1: CALL  - 868: RETURN
  81.  2005  VTAB 24: HTAB 11: PRINT "PRESS '";: INVERSE : PRINT "SPACE BAR";: NORMAL : PRINT "'";: VTAB 1
  82.  2010 X7 =  PEEK ( - 16384): IF X7 < 128 THEN 2010
  83.  2015  VTAB (24): HTAB (13): PRINT "              ";: VTAB (1):
  84.  2020  POKE  - 16368,0: RETURN
  85.  8846  GOSUB 1000: VTAB (4): HTAB (38 -  LEN ( STR$ (F))): PRINT F
  86.  9000  POKE  - 16368,0
  87.  9005  VTAB 24: HTAB 7: PRINT "PRESS ";: INVERSE : PRINT "SPACE BAR";: NORMAL : PRINT " TO CONTINUE";: HTAB 1
  88.  9010 T1 = 35
  89.  9020 X7 =  PEEK ( - 16384): IF X7 > 127 THEN  POKE  - 16368,0: RETURN
  90.  9030  READ N,D1
  91.  9031  IF N = 99 THEN  FOR G = 1 TO 500: NEXT G: GOTO 9020
  92.  9033  IF N = 0 THEN  RESTORE : GOTO 9020
  93.  9035 D = D1 * T1:N = N(N): GOSUB 31000: GOTO 9020
  94.  30000  DATA 13,4,13,4,18,4,20,4,22,8,18,2,17,2,15,6,23,2,23,4,23,8,22,2,23,2,25,6,18,2,18,4,18,4,17,4
  95.  30010  DATA 18,4,20,20,13,4,13,4,18,4,20,4,22,8,18,2,17,2,15,6,23,2,23,4,23,8,23,2,23,2,22,6,20,2,18,4
  96.  30020  DATA  17,4,18,4,20,4,18,20,99,4,25,12,23,4,22,6,20,2,22,20,13,2,13,2,18,6,18,2,18,4,18,6,17,2,18,4
  97.  30030  DATA 20,20,13,4,13,4,18,4,20,4,22,8,18,2,17,2,15,6,23,2,23,4,23,8,23,2,23,2,22,6,20,2,18,4,17,4
  98.  30040  DATA   18,4,20,4,18,16,99,4,0,0
  99.  31000  POKE 0, INT (N / 256): POKE 1, INT (N -  INT (N / 256) * 256)
  100.  31010  POKE 2, INT (D / 256): POKE 3, INT (D -  INT (D / 256) * 256)
  101.  31020  CALL R
  102.  31030  RETURN
  103.  31800  FOR G = 1 TO 75: READ B,B: NEXT G
  104.  32000 A = 10:B = 11:C = 12:D = 13:E = 14:F = 15:S = 16
  105.  32010  POKE R,E * S + 6: POKE R + 1,0
  106.  32020  POKE R + 2,E * S + 6: POKE R + 3,1
  107.  32030  POKE R + 4,E * S + 6: POKE R + 5,2
  108.  32040  POKE R + 6,E * S + 6: POKE R + 7,3
  109.  32050  POKE R + 8,A * S + E: POKE R + 9,3 * S: POKE R + 10,C * S
  110.  32060  POKE R + 11,A * S + 6: POKE R + 12,0
  111.  32070  POKE R + 13,A * S + 4: POKE R + 14,1
  112.  32080  POKE R + 15,8 * S + 8
  113.  32090  POKE R + 16,D * S: POKE R + 17,3
  114.  32100  POKE R + 18,C * S + A
  115.  32110  POKE R + 19,F * S: POKE R + 20,F * S + 3
  116.  32120  POKE R + 21,E * S + 9: POKE R + 22,1
  117.  32130  POKE R + 23,D * S: POKE R + 24,F * S + 6
  118.  32140  POKE R + 25,C * S + 6: POKE R + 26,3
  119.  32150  POKE R + 27,D * S: POKE R + 28,F * S + 2
  120.  32160  POKE R + 29,C * S + 6: POKE R + 30,2
  121.  32170  POKE R + 31,D * S: POKE R + 32,E * S + E
  122.  32180  POKE R + 33,6 * S
  123.  32181  DIM N(37)
  124.  32182  FOR Z = 1 TO 37: READ N(Z): NEXT Z
  125.  32183  DATA 378,358,340,318,302,284,268,255,239,227,212,201,189,179,170,159,151
  126.  32184  DATA  142,134,127,119,113,106,101,94,89,85,80,75,71,67,64,60,56,53,50,47
  127.  32190  RESTORE : RETURN
  128.  40000  POKE  - 16368,0:CH =  PEEK (36):CV =  PEEK (37)
  129.  40001  INPUT "";ZN$: IF  LEN (ZN$) <  >  LEN ( STR$ ( VAL (ZN$))) THEN 40003
  130.  40002  IF  VAL (ZN$) <  > 0 OR ZN$ = "0" THEN 40006
  131.  40003  VTAB ZM: PRINT "I CAN'T UNDERSTAND YOUR ANSWER."
  132.  40004  PRINT "PLEASE TYPE A NUMBER.": GOSUB 40010: GOTO 40001
  133.  40006  VTAB ZM: CALL  - 868: VTAB ZM + 1: CALL  - 868: VTAB CV + 1 + (CV < 23):ZN =  VAL (ZN$): RETURN
  134.  40010  VTAB CV + 1: POKE 36,CH: CALL  - 868: RETURN
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!