30 REM
40 REM
50 REM
60 REM
70 REM
80 REM
90 REM
100 REM
110 REM
120 REM ** Henrik ]shuvud 85-01-01 **
130 REM
135 ; INP(3%);
140 RESTORE : GOTO 1680
150 L4%=3%
160 T%=S2%
170 REM
180 RANDOMIZE
190 P$="-,l||xy  " : P1$='-,#s;"#, '
200 N$="  ep   " : N1$="  *=!7!" : N2$=" hk#! " : N3$="  ko   " : N4$=" '#j0  "
210 M$="  *p0  " : M1$="   o&j#" : M2$="  67# " : M3$='  "?e  ' : M4$="   u u "
220 A$="   `d` `&dd`d   pd0 0   08)08)00 08)0  " : B$='p&)! !)!  (! #d&  "&"dd&"  &  ""&"  "dd' : A$=A$+A$ : B$=B$+B$
230 GOSUB 1670
240 A%=1% : E%=-50% : F%=34% : K%=-22% : K1%=7% : K2%=2% : L%=14% : M%=2% : Q%=70% : Q1%=1% : R%=47% : S%=46%
250 ; CHR$(12%) : FOR I%=1% TO 24% : ; : ; CHR$(151%); : NEXT I%
260 ; CUR(0%,0%)U%CUR(0%,10%)L4%
270 ; CUR(10%,17%)"||"CUR(11%,16%)'"{1'
280 ; CUR(12%,17%)"{wpx,`~0"CUR(13%,17%)"5  h}t"CUR(14%,13%)"x~|}||%#'"CUR(15%,12%)"z7"
290 GOSUB 600
300 FOR I%=0% TO T%/4% : NEXT I%
310 GOSUB 620
320 ; CUR(16%,11%)" ?o'#+/o% "CUR(17%,10%)' z%z7     "   'CUR(18%,11%)"  k5         "CUR(19%,13%)"j5      "
330 GOSUB 580
340 IF D6%>20% L4%=L4%-1% : FOR I%=0% TO 5000% : NEXT I% : D8%=0% : K3%=0% : D4%=0%
350 IF D6%>20% AND L4%=0% 1680
360 IF D6%>20% D6%=0% : GOTO 160
370 Z%=Z%+1% : IF Z%>110% AND E%<-30% AND K%<-10% AND Q%>55% AND D4%<>4% 1950
380 FOR I%=0% TO T%/4% : NEXT I%
390 GOSUB 620
400 FOR I%=0% TO T%/4% : NEXT I%
410 GOSUB 620
420 ; CUR(17%,12%)"(w    `'"CUR(18%,13%)'"/}p /~% 'CUR(19%,13%)"   #     "
430 D%=4%
440 GOSUB 580
450 D%=4%
460 FOR I%=0% TO T%/4% : NEXT I%
470 GOSUB 620
480 GOSUB 580
490 FOR I%=0% TO T%/4% : NEXT I%
500 GOSUB 620
510 FOR I%=0% TO T%/4% : NEXT I%
520 GOSUB 620
530 ; CUR(16%,11%)"`?o'#+/ou0"CUR(17%,10%)"x' z?     ""+//}"CUR(18%,11%)"*m?!        |'"CUR(19%,16%)" "
540 GOSUB 580
550 FOR I%=0% TO T%/4% : NEXT I%
560 GOSUB 620
570 GOTO 290
580 ; CUR(1%,1%)MID$(A$,A%,39%)CUR(2%,1%)MID$(B$,A%,39%) : A%=A%+1% : IF A%=40% A%=1%
590 IF D%=4% D%=0% : RETURN
600 D%=0% : OUT 6,0 : OUT 6,121
610 RETURN
620 REM
630 IF D4%=4% 1420
640 IF INP(56%)=218% H1%=4%
650 IF H1%=4% 890
660 E%=E%+1% : IF E%>-20% GOSUB 750
670 IF D4%=4% ; CUR(13%,21%)"h" : GOTO 690
680 IF INP(56%)=173% R4%=4%
690 IF R4%=4% 1570
700 K%=K%+1% : IF K%>1% 960
710 Q%=Q%-1% : IF Q%<38% 1440
720 REM
730 IF D4%<>4% AND H%>4% AND ( NOT DOT(31%,34%) OR NOT DOT(31%,37%)) ; CUR(10%,17%)"||"
740 RETURN
750 REM \RN
760 IF E%=-10% T%=T%-250%
770 IF E%=-10% OR E%=30% ; CUR(4%,F%)"(n,"CUR(5%,F%-1%)"  &  "CUR(6%,F%)"  "
780 IF E%=-6% OR E%=27% ; CUR(4%,F%)"<{ "CUR(5%,F%-1%)"y||v "CUR(6%,F%)"(?"
790 IF E%<=0% OR E%>=26% 800 ELSE ; CUR(4%,35%-E%)"  "CUR(5%,32%-E%)"8|0    ";
795 ; CUR(6%,28%-E%)"p  *kup||s "CUR(7%,28%-E%)",}|~/##, "
800 IF E%>0% AND E%<26% ; CUR(8%,28%-E%)'# "#k$ 'CUR(9%,31%-E%)"`0' "CUR(10%,32%-E%)"&4 "
810 IF E%=26% FOR I%=6% TO 10% : ; CUR(I%,3%)"           " : NEXT I% : F%=5%
820 IF E%=15% AND DOT(33%,35%) G%=4% : D4%=4% : ; CUR(14%,17%)"||"CUR(13%,17%)"    "CUR(12%,17%)"     "
830 IF G%=4% 860
840 IF E%<>34% 850 ELSE ; CUR(4%,F%)"   "CUR(5%,F%+1%)" " : F%=34% : E%=INT(RND*400%)*(-1%)-100% : T%=T%+250%
845 U%=U%+100% : ; CUR(0%,0%)U%
850 RETURN
860 ; CUR(10%,27%-E%)" x805"CUR(11%,27%-E%)" o/'//#5 "CUR(12%,34%-E%)"# "
870 IF E%=26% G%=0% : FOR I%=10% TO 12% : ; CUR(I%,1%)"        " : NEXT I%
880 GOTO 840
890 REM
900 IF D8%=8% AND H%>5% D8%=0% : GOSUB 1400
910 H%=H%+1% : IF H%>1% 930
920 ; CUR(10%,17%)"  "CUR(11%,16%)"   x=0"CUR(12%,17%)" x6'$"CUR(13%,17%)'z?"d'
930 IF H%=5% ; CUR(10%,17%)"||"CUR(11%,16%)'"{1  'CUR(12%,17%)"{wpx,"CUR(13%,17%)"5  "
940 IF H%=15% H1%=0% : H%=0%
950 GOTO 660
960 REM
970 IF K3%=4% 1200
980 IF K3%=5% 1290
990 IF K3%=6% 1330
1000 IF K2%=2% K2%=1% : GOTO 1020
1010 GOTO 1090
1020 IF K1%=1% 1140
1030 K1%=K1%-1%
1040 IF K1%=6% T%=T%-250%
1050 K%=K%-1%
1060 ; CUR(15%,K%)RIGHT$(N$,K1%)CUR(16%,K%)RIGHT$(N1$,K1%)CUR(17%,K%)RIGHT$(N2$,K1%)
1070 ; CUR(18%,K%)RIGHT$(N3$,K1%)CUR(19%,K%)RIGHT$(N4$,K1%)
1080 GOTO 710
1090 K2%=2%
1100 K%=K%-2%
1110 ; CUR(15%,K%+1%)RIGHT$(M$,K1%)CUR(16%,K%+1%)RIGHT$(M1$,K1%)CUR(17%,K%+1%)RIGHT$(M2$,K1%)
1120 ; CUR(18%,K%+1%)RIGHT$(M3$,K1%)CUR(19%,K%+1%)RIGHT$(M4$,K1%)
1130 GOTO 710
1140 IF RND<.04 THEN 1150 ELSE 1060
1150 IF E%=5% 1170
1160 IF E%<22% AND E%>-11% 1060
1170 REM
1180 FOR I%=15% TO 19% : ; CUR(I%,2%)"       " : NEXT I%
1190 K3%=4%
1200 REM
1210 ; CUR(L%,M%+4%)" *p0"CUR(L%+1%,M%)" `d#st/&"CUR(L%+2%,M%)" `ds/'#k"
1220 IF M%=8% ; CUR(11%,M%)"        "
1230 IF M%>7% 1260
1240 L%=L%-1%
1250 ; CUR(L%+4%,M%)"        "
1260 M%=M%+1% : IF M%=12% AND DOT(33%,35%) D4%=4% : GOSUB 1400
1270 IF M%=24% K3%=5% : FOR I%=8% TO 10% : ; CUR(I%,M%)"       " : NEXT I% : M%=M%+3%
1280 GOTO 710
1290 REM
1300 ; CUR(L%-1%,M%)"   "CUR(L%,M%)'k"5'CUR(L%+1%,M%-1%)" j~ "CUR(L%+2%,M%-1%)"8cu,"CUR(L%+3%,M%)"*;"
1310 L%=L%+1% : IF L%=19% K3%=6% : FOR I%=18% TO 21% : ; CUR(I%,26%)"    " : NEXT I% : P%=1% : M%=19%
1320 GOTO 710
1330 REM
1340 ; CUR(21%,M%)RIGHT$(P$,P%)CUR(22%,M%)RIGHT$(P1$,P%)
1350 M%=M%-1%
1360 IF P%=9% K3%=0% : K%=INT(RND*200)*(-1%)-50% : M%=2% : L%=14% : K1%=7% : K2%=2% : U%=U%+100% : ; CUR(0%,0%)U%
1370 IF M%=0% P%=P%+1% : M%=1%
1380 IF P%=8% T%=T%+250%
1390 GOTO 710
1400 IF D8%=8% RETURN
1410 ; CUR(10%,17%)"  "CUR(11%,16%)"    "CUR(12%,13%)"``  p0   "CUR(13%,13%)"}=n|~0"CUR(14%,13%)"z~|}" : RETURN
1420 D6%=D6%+1%
1430 GOTO 650
1440 REM
1450 IF Q%<2% 1530
1460 IF Q%=37% T%=T%-150%
1470 ; CUR(20%,Q%)LEFT$(Q$,Q1%)CUR(21%,Q%)LEFT$(Q1$,Q1%)CUR(22%,Q%)LEFT$(Q2$,Q1%);
1480 Q1%=Q1%+1% : IF Q1%=10% Q1%=9%
1490 IF Q%=2% Q1%=1%
1500 IF Q%=4% AND NOT D5%=5% AND D4%<>4% AND H%>0% AND H%<5% D8%=8%
1510 IF NOT (Q%=4% AND NOT D5%=5% AND D4%<>4%) 1520 ELSE  D4%=4% : OUT 6%,0% : OUT 6%,137%
1515 FOR I%=0% TO 600% : NEXT I% : D5%=0% : GOSUB 1400
1520 GOTO 720
1530 ; CUR(20%,1%)RIGHT$(Q$,Q1%)CUR(21%,1%)RIGHT$(Q1$,Q1%)CUR(22%,1%)RIGHT$(Q2$,Q1%)
1540 D5%=0%
1550 Q1%=Q1%+1% : IF Q1%=10% Q%=INT(RND*150%)+46% : Q1%=1% : T%=T%+150% : GOSUB 1670
1560 GOTO 720
1570 REM
1580 IF R%=47% ; CUR(12%,20%)"80"CUR(13%,21%)"bz" : OUT 6%,0% : OUT 6%,137%
1590 IF R%=49% AND D4%<>4% ; CUR(12%,20%)"x,"CUR(13%,21%)"h"
1600 SETDOT S%,R% : CLRDOT S%-2%,R%-1% : R%=R%+1% : S%=S%+2%
1610 IF R%>55% AND Q%>21% AND DOT(66%,57%) 1640
1620 IF R%=57% R4%=0% : R%=47% : S%=46% : CLRDOT 64%,56%
1630 GOTO 700
1640 Q$="0  `,0`  " : Q1$="3#{=}5 " : Q2$='## ",!   '
1650 D5%=5% : U%=U%+150% : ; CUR(0%,0%)U%
1660 GOTO 1620
1670 Q$="    |d 8 " : Q1$='"upp{!b$ ' : Q2$="<,.//#!  " : RETURN
1680 ; CHR$(12%); : A9$=STRING$(39%,42%) : ; A9$ : ; A9$
1690 FOR I%=2% TO 19% : ; CUR(I%,0%)"**"CUR(I%,37%)"** "; : NEXT I%
1700 ; A9$ : ; A9$
1710 ; CUR(12%,14%)"STYR MED:"CUR(14%,7%)"Z=HUKNING       -=SKOTT"CUR(4%,14%)"WILD WEST"
1720 ; CUR(6%,8%)"RID \VER DEN AMERIKANSKA"CUR(8%,8%)"KONTINENTEN OCH \VERL[MNA"
1730 ; CUR(10%,4%)"ETT MEDDELANDE TILL PRESIDENTEN."
1740 RESTORE
1750 IF U%>U9% U9%=U%
1760 ; CUR(16%,10%)"DIN PO[NG "U%CUR(18%,10%)"HIGH SCORE"U9%
1770 U%=0% : D6%=0% : Z%=0% : S2%=900%
1780 FOR I%=0% TO 2000% : NEXT I%
1790 IF INP(56%)<128% 1790
1795 POKE 65013%,0%
1800 READ [%,\% : IF [%=0% OR PEEK(65013%) 150
1810 FOR X%=1% TO [% : OUT 6%,0%,6%,121% : FOR I%=1% TO \% : NEXT I% : NEXT X%
1820 ; CHR$(13%) : GOTO 1800
1830 DATA 30,64,15,64,15,64
1840 DATA 30,64,15,64,15,64
1850 DATA 30,64,15,64,15,64
1860 DATA 30,64,15,64,15,64
1870 DATA 50,46,100,35
1880 DATA 30,64,15,64,15,64
1890 DATA 30,64,15,64,15,64
1900 DATA 30,64,15,64,15,64
1910 DATA 30,64,15,64,15,64
1920 DATA 30,64,30,64,40,56,50,49,120,46,0,0
1930 DATA "El Paso",850,"Houston",775,"Dallas",700,"Memphis",650,"Nashville",600,"Cincinnati",550,"Pittsburgh",500
1940 DATA "Washington",0
1950 REM
1960 RANDOMIZE : W2%=INT(RND*8%)+2%
1970 Z%=0%
1980 READ S$,S2%
1990 T%=S2%
2000 ; CUR(0%,27%)S$ : FOR I%=0% TO 8000% : NEXT I% : IF T%<>0% 2010
2005 ; CHR$(12%)CUR(10%,4%)"Uppdraget slutf|rt,GRATTIS!!" : END
2010 GOTO 2410
2020 W%=13% : V%=21%
2030 ; CUR(12%,W%+3%)"zu "CUR(13%,W%+3%)"n~5 "CUR(14%,W%)'"+,,4 'CUR(15%,W%+4%)"5 "CUR(16%,W%+2%)"j#!5 "
2040 ; CUR(17%,W%+2%)"# `5  "
2050 ; CUR(12%,V%-1%)" dzu8"CUR(13%,V%)" j}="CUR(14%,V%)" h,,'!"CUR(15%,V%)" j"CUR(16%,V%)' j"#5'
2060 ; CUR(17%,V%-1%)"  j0 #"
2070 FOR I%=0% TO 1000% : IF INP(56%)=173% GOSUB 2370
2080 NEXT I%
2090 ; CUR(12%,W%+2%)"`0 "CUR(13%,W%+2%)"(} "CUR(14%,W%)'#-,n} 'CUR(15%,W%+3%)"j "CUR(16%,W%+2%)" jk "
2100 ; CUR(17%,W%+2%)' z"#% '
2110 ; CUR(12%,V%-1%)" (pp$"CUR(13%,V%+1%)" ~$"CUR(14%,V%+1%)" ~=,.#"CUR(15%,V%+1%)" 5"CUR(16%,V%+1%)' 55 '
2120 ; CUR(17%,V%-1%)" *#!u "
2130 FOR I%=0% TO 1000% : IF INP(56%)=173% GOSUB 2370
2140 NEXT I%
2150 W%=W%-1% : V%=V%+1% : IF W%=W2% 2170
2160 GOTO 2030
2170 ; CUR(12%,W%)" ||    "CUR(13%,W%)'"{1  'CUR(14%,W%)" {wpx,"CUR(15%,W%)" 5   "CUR(16%,W%)" /=4  "
2180 ; CUR(17%,W%)"<,%u    "
2190 ; CUR(12%,V%-2%)"0h|4`   "CUR(13%,V%-2%)'"{{7!  'CUR(14%,V%-4%)"(lpr1     "CUR(15%,V%)"5  "
2200 ; CUR(16%,V%-1%)"<?%  "CUR(17%,V%-2%)"`5-,4 "
2210 W5%=0%
2220 FOR I%=0% TO 320% : IF INP(56%)=173% W5%=5%
2230 NEXT I%
2240 IF W5%=5% AND I4%<>4% 2310
2250 OUT 6%,0%,6%,137%
2260 FOR I1%=V%*2%-11% TO W%*2%+12% STEP -1% : SETDOT 43%,I1% : FOR I%=0% TO 60% : NEXT I% : CLRDOT 43%,I1% : NEXT I1%
2270 FOR I%=12% TO 14% : ; CUR(I%,W%)"      " : NEXT I%
2280 ; CUR(15%,W%)' 00  "5'CUR(16%,W%)"w|||5"CUR(17%,W%)"#'#*ss!"
2290 I4%=0% : L4%=L4%-1%
2300 GOTO 2350
2310 OUT 6%,0%,6%,137%
2320 FOR I1%=W%*2%+12% TO V%*2%-9% : SETDOT 43%,I1% : FOR I%=0% TO 60% : NEXT I% : CLRDOT 43%,I1% : NEXT I1%
2330 FOR I%=12% TO 14% : ; CUR(I%,V%-4%)"       " : NEXT I%
2340 ; CUR(15%,V%-5%)"0    `h!"CUR(16%,V%-7%)'"&"l|||{'CUR(17%,V%-7%)"*,,&ss%#k#"
2350 FOR I%=0% TO 8000% : NEXT I% : IF L4%=0% 1680
2360 GOTO 180
2370 IF I4%=4% RETURN
2380 OUT 6%,0%,6%,137% : I4%=4%
2390 FOR I1%=W%*2%-3% TO 3% STEP -1% : SETDOT 42%,I1% : FOR I2%=0% TO 40% : NEXT I2% : CLRDOT 42%,I1% : NEXT I1%
2400 RETURN
2410 ; CHR$(12%) : FOR I%=1% TO 24% : ; : ; CHR$(151%); : NEXT I%
2420 FOR I%=15% TO 34% : SETDOT I%,12% : SETDOT I%,59% : NEXT I%
2430 ; CUR(1%,16%)"`p,,d"CUR(2%,12%)"`p,#!    #,p"CUR(3%,9%)"p,#!  SALOON   #,p0"
2440 ; CUR(4%,6%)'`|sppppppppppppppppppryt'CUR(7%,11%)"<,l  7####5  <,l"CUR(8%,11%)"upz  =,4<,5  upz"
2450 ; CUR(9%,16%)"ws5ws5"CUR(10%,16%)"=,%-,5"CUR(11%,6%)"-,,,,,,,,,%    -,,,,,,,."
2460 IF \6%=6% \6%=0% : GOTO 2020
2470 \6%=6% : FOR I%=0% TO 14000% : NEXT I%
2480 RANDOMIZE : REM
2490 ; CHR$(12%) : FOR I%=1% TO 24% : ; : ; CHR$(151%); : NEXT I%
2500 ; CUR(6%,12%)"` ` `          `,,,,p"CUR(7%,3%)"8,,,,0`ppuuup00h|4` `e     5"
2510 ; CUR(8%,2%)'j     j  `p0      "{{7! ! ),,,,!'CUR(9%,2%)'",,,,,!) n?=       bq   8!'
2520 ; CUR(10%,11%)"*'  85j  555  5"CUR(11%,9%)"ppzsssr}~ppqu1  5"CUR(12%,11%)"jp0         5  5"
2530 ; CUR(13%,11%)'#7!5   "k#   upp5'CUR(14%,12%)"5 -    j    5`&up"CUR(15%,12%)"5      j    =a&"
2540 ; CUR(16%,10%)'"#"#    #!#!  }q'
2550 FOR I%=0% TO 10000% : NEXT I%
2560 IF I7%=7% I7%=0% : GOTO 2600
2570 ; CUR(8%,11%)"pp0"CUR(9%,9%)"00pp5"CUR(10%,8%)"w|24     "CUR(11%,8%)"#'#jpppppp"
2580 FOR I%=0% TO 10000% : NEXT I%
2590 I7%=7% : GOTO 2480
2600 IF RND>.5 THEN 2650
2610 FOR I%=1% TO 19% : ; CUR(8%,3%)MID$("    VILKET R[VGIFT     ",I%,5%) : FOR I1%=0% TO 800% : NEXT I1% : NEXT I%
2620 FOR I%=1% TO 31% : ; CUR(7%,28%)MID$("    HUR V]GAR DU F\ROL[MPA MIG     ",I%,5%) : FOR I1%=0% TO 800% : NEXT I1%
2630 NEXT I%
2640 GOTO 2670
2650 FOR I%=1% TO 24% : ; CUR(7%,28%)MID$("    DET BLIR TV] DOLLAR     ",I%,5%) : FOR I1%=0% TO 800% : NEXT I1%
2655 NEXT I%
2660 FOR I%=1% TO 28% : ; CUR(8%,3%)MID$("    MEN JAG HAR INGA PENGAR     ",I%,5%) : FOR I1%=0% TO 800% : NEXT I1%
2665 NEXT I%
2670 FOR I%=1% TO 32% : ; CUR(7%,28%)MID$("    VI G\R UPP OM SAKEN UTOMHUS     ",I%,5%) : FOR I1%=0% TO 800%
2675 NEXT I1% : NEXT I%
2680 FOR I%=1% TO 12% : ; CUR(8%,3%)MID$("    OKAY        ",I%,5%) : FOR I1%=0% TO 800% : NEXT I1% : NEXT I%
2690 GOTO 2410