1 POKE53280,0:POKE53281,0:PRINT"[147]"CHR$(5)CHR$(142):GOTO100
10 SI=54272:FL=SI:FH=SI+1:WW=SI+4:AA=SI+5:HH=SI+6:LL=SI+24
11 POKELL,15:POKEAA,16+9:POKEHH,4*16+4
12 IFMU=1THEN30
13 IFMU=2THENPOKEFH,9 :POKEFL,10 :POKEWW,129:FORI=1TO90:NEXT:GOTO29
14 I=1:IFMU>3THEN17
15 I=I+1:IFI>10THEN29
16 POKEFH,I:POKEFL,I*I+10:POKEWW,33:FORI=1TO1000:NEXT:GOTO15
17 IFMU=5THEN20
18 POKEFH,3:POKEFL,100:POKEWW,33:RETURN
20 FORI=250TO0 STEP-3:POKEFH,10:POKEFL,I:POKEWW,33:NEXT:GOTO29
29 POKEWW,0:POKEAA,0:POKEHH,0:RETURN
30 FORI=20TO0 STEP-1:POKELL,I:POKEAA,15:POKEHH,0:POKEFH,40:POKEFL,200
31 POKEWW,129:NEXT:GOTO29
50 GOTO29
100 PRINT""
101 PRINT"     [146]       [146]      [146]    [146]    [146]      [146]      [146]"
102 PRINT"      [146]      [146]      [146]    [146]    [146]      [146]      [146]"
103 PRINT"   [146]   [146]   [146]   [146]   [146]   [146]        [146]   [146]"
104 PRINT"[145]"TAB(33)"  [146]   "
105 PRINT"   [146]   [146]      [146]   [146]   [146]        [146]   [146]"
106 PRINT"[145]"TAB(33)"  [146]   "
107 PRINT"   [146]   [146]      [146]      [146]        [146]   "
108 PRINT"[145]"TAB(33)"  [146]   "
109 PRINT"   [146]   [146]      [146]      [146]        [146]      "
110 PRINT"[145]"TAB(33)"  [146]   "
111 PRINT"   [146]   [146]      [146]   [146]   [146]    [146]    [146]   [146]   "
112 PRINT"[145]"TAB(33)"  [146]   "
113 PRINT"   [146]   [146]      [146]   [146]   [146]    [146]    [146]   [146]   "
114 PRINT"[145]"TAB(33)"  [146]   "
115 PRINT"      [146]      [146]   [146]   [146]    [146]    [146]      [146]"
116 PRINT"[145]"TAB(33)"     "
117 PRINT"     [146]       [146]   [146]   [146]    [146]    [146]      [146]"
118 PRINT"[145]"TAB(33)"     "
119 FORI=1TO1000:NEXT:MU=1
120 POKE1344+21,87:POKE55296+(1344+21-1024),2:GOSUB10
125 FORI=1TO500:NEXT:MU=1
130 POKE1384+16,87:POKE55296+(1384+16-1024),2:GOSUB10
135 FORI=1TO500:NEXT:MU=1
140 POKE1544+10,87:POKE55296+(1544+10-1024),2:GOSUB10
145 FORI=1TO500:NEXT:MU=1
150 POKE1584+35,87:POKE55296+(1584+35-1024),2:GOSUB10
151 PRINT"...(C) 1985 SASCHA BEHRENDT":GOSUB190
155 G1$="SLIME-JOE      "
156 G2$="CHICKEN-BURNS  "
157 G3$="SPIDER-BLACKY  "
158 G4$="INDIAN-JONES   "
159 G5$="MAC THE NIGGER "
160 G6$="DOC HOLIDAY    "
161 G7$="DEVIL-BROTHER  "
162 G8$="NOBODY         "
163 G9$="BILLY THE CID  "
164 G0$="BROTHER DEAD   ":IFEN$="EN"THENRETURN
170 A$="Y":ZZ=500:GOSUB300:A$="W":ZZ=1000:GOSUB300:ZZ=250:A$="W":GOSUB300
171 A$="E":GOSUB300:A$="R":GOSUB300:A$="T":ZZ=1000:GOSUB300:ZZ=100
172 A$="Y":GOSUB300:A$="T":GOSUB300:A$="R":GOSUB300:A$="T":GOSUB300
173 GETX$:IFU>0OR X$<>""THEN180
175 U=1:GOTO170
180 IFU$="R"THENRETURN
185 GOTO1000
190 S=13*4096+1024:DIMF(26):DIMK(255)
200 FORI=0TO28:POKES+I,0:NEXT
210 F1=7040:FORI=1TO26:F(27-I)=F1*5.8+30:F1=F1/2^(1/12):NEXT
220 K$="Q2W3ER5T6Y7UI9O0P@-*\^"
230 FORI=1TOLEN(K$):K(ASC(MID$(K$,I)))=I:NEXT
250 AT=0:DE=0:SU=15:RE=10:SR=SU*16+RE:AD=AT*16+DE:WV=64:W=1:M=8:OC=1:HB=256:Z=0
260 FORI=0TO2:T=I*7:POKES+5+T,AD:POKES+6+T,SR
270 POKES+2+T,4000AND255:POKES+3+T,4000/256:NEXT:POKES+24,15:RETURN
300 REM
310 FR=K(ASC(A$)):IFFR=ZTHEN300
315 FR=F(FR)/M:T=V*7:CR=S+T+4
320 POKES+5+T,Z:POKES+6+T,Z:POKECR,8:POKEZR,Z
340 POKES+T,FR-HB*INT(FR/HB):POKES+1+T,FR/HB:POKES+5+T,AD:POKES+6+T,SR
370 POKECR,WV+1:FORI=1TO50*AT:NEXT:POKECR,WV:FORII=1TOZZ:NEXT:RETURN
1000 PRINT"[147]"
1010 PRINT" JOYSTICK IN PORT 2 UND PRESS RETURN!":FORI=1TO10:GETX$:NEXT
1020 GETX$:IFX$=CHR$(13)THEN1200
1030 GOTO1020
1050 GETX$:IFX$<>""THEN1090
1055 A$="U":ZZ=2:GOSUB300:A$="P":GOSUB300:A$="U":GOSUB300:A$="P":GOSUB300
1056 GETX$:IFX$<>""THEN1090
1060 A$="U":ZZ=1000:GOSUB300:A$="T":ZZ=150:GOSUB300:A$="Y":GOSUB300
1061 GETX$:IFX$<>""THEN1090
1070 A$="E":GOSUB300:IFEN$<>"EN"THEN1050
1080 GETX$:IFX$=""THENZ=Z+1
1081 IFX$=""ANDZ<250THEN1080
1082 IFX$=""THENZ=0:GOTO1050
1085 RUN
1090 PRINT"[147] SEI NUN WACHSAM UND WARTE!":GOSUB1600:GOTO1300
1200 PRINT"             JOYSTICK NACH:"
1210 PRINT"  LINKS [146]        FIRE! [146]       RECHTS [146]"
1220 PRINT"DU ZIEHST         DU       DU ZIEHST"
1230 PRINT"LEFT COLT      SCHIESST    RIGHT COLT"
1240 PRINT" ZIEH' UND SCHIESSE NICHT, BEVOR DEIN "
1250 PRINT" GEGNER DIES TUT! SONST HANDELST DU  "
1260 PRINT" NICHT IN NOTWEHR UND WIRST ALS MOER-"
1270 PRINT" DER AM GALGEN HAENGEN...":GOTO1050
1300 PRINT"[147]"CHR$(5)
1301 PRINTTAB(15)"WARTE AUF...":GM=GM+1
1302 AZ=1:IFGM=1THENGM$=G1$:GOTO1314
1303 IFGM=2THENGM$=G2$:GOTO1314
1304 IFGM=3THENGM$=G3$:AZ=2:GOTO1314
1305 IFGM=4THENGM$=G4$:GOTO1314
1306 IFGM=5THENGM$=G5$:GOTO1314
1307 IFGM=6THENGM$=G6$:GOTO1314
1308 IFGM=7THENGM$=G7$:AZ=3:GOTO1314
1309 IFGM=8THENGM$=G8$:GOTO1314
1310 IFGM=9THENGM$=G9$:GOTO1314
1311 IFGM=10THENGM$=G0$:AZ=4:GOTO1314
1312 STOP
1314 PRINT""GM$
1315 PRINT"  [149][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
1316 PRINT"  [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
1317 PRINT" [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
1318 PRINT" [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]":FORI=1TO5
1320 PRINT"  [151][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
1321 PRINT"  [151]                               ":NEXT
1330 PRINT"  [149][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178]"
1331 PRINT"  [177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177]"
1340 PRINT"  [212] [217][146]    [212]  [217][146]  [152][198][198][198][198][198][146]  [149][212]  [217][146]    [212] [217][146]"
1341 PRINT"  [212] [217][146]    [212]  [217][146] [152][210][210][210][210][210][210][210][146] [149][212]  [217][146]    [212] [217][146]"
1342 PRINT"  [212] [217][146]    [212]  [217][146][152][210][210][210][210][210][210][210][210][210][146][149][212]  [217][146]    [212] [217][146]"
1345 PRINT"[152]                                      ":PRINT"[207][207]"
1350 PRINTTAB(15)"[144]     [146]"
1351 PRINTTAB(4)"[158]  [144] [158]  [146]"TAB(15)"[144]  [158] [144]  [146]"TAB(25)"[158]  [144] [158]  "
1352 PRINTTAB(4)"[158][162][162][144] [158][162][162][146]"TAB(15)"[144]  [158] [144]  [146]"TAB(25)"[158][162][162][144] [158][162][162]"
1353 PRINTTAB(4)"[158]  [144] [158]  [146]"TAB(15)"[144]  [158] [144]  [146]"TAB(25)"[158]  [144] [158]  "
1354 PRINTTAB(4)"[158]  [144] [158]  [146]"TAB(15)"[144]  [158] [144]  [146]"TAB(25)"[158]  [144] [158]  "
1356 PRINTTAB(15)"[144]     [146]"
1357 PRINTTAB(15)"[144]     [146]"
1358 PRINTTAB(14)"[144]       [146]"
1400 PRINT"[145][145][145][145][145][145][145][145]":FORI=1TO5000:NEXT
1410 PRINTTAB(4)"[144]     "TAB(25)"[144]     "
1411 PRINTTAB(4)"[144]     "TAB(25)"[144]     "
1412 PRINTTAB(4)"[144]     "TAB(25)"[144]     "
1413 PRINTTAB(4)"[144]     "TAB(25)"[144]     "
1414 PRINTTAB(4)"[144]     "TAB(25)"[144]     "
1420 MU=2:GOSUB10:FORI=1TO1000:NEXT
1423 MU=2:GOSUB10:FORI=1TO1000:NEXT
1424 MU=2:GOSUB10:FORI=1TO1000:NEXT
1425 MU=2:GOSUB10:FORI=1TO1000:NEXT
1426 MU=2:GOSUB10:FORI=1TO3000:NEXT
1430 PRINT"[145][145][145][145][145][145][158] [144][146]":FORI=1TO2000:NEXT
1431 PRINTTAB(15)"[205]   [206]"
1432 PRINTTAB(15)" [212] [217] "
1433 PRINTTAB(15)" [212] [217] "
1434 PRINTTAB(15)"[163]   [163]"
1435 PRINTTAB(15)"     "
1436 PRINTTAB(15)"     "
1500 X=146:Y=152
1510 GOSUB1550:POKEV,X:POKEV+1,Y:POKEV+2,X:POKEV+3,Y+21:POKEV+4,X+24:POKEV+5,Y
1511 POKEV+6,X+24:POKEV+7,Y:POKEV+21,7:IFGM=2OR GM=4OR GM=6OR GM=8THEN1900
1520 IFGM=10THEN1900
1540 MU=3:GOSUB10:Z=GM:GOTO1700
1550 IFGM=1THENRETURN
1551 IFGM=2THENF=3:M1=4:M2=6
1553 IFGM=3THENF=11:M1=12:M2=15
1554 IFGM=4THENF=4 :M1=5 :M2=6
1555 IFGM=5THENF=0 :M1=6 :M2=14
1556 IFGM=6THENF=7 :M1=9 :M2=15
1557 IFGM=7THENF=9 :M1=11:M2=2
1558 IFGM=8THENF=7 :M1=8 :M2=2
1559 IFGM=9THENF=7 :M1=11:M2=14
1560 IFGM=10THENF=4 :M1=6 :M2=14
1590 POKE2040,11:POKE2041,13:POKE2042,14:POKE2043,15:POKEMC,7
1591 POKEV+39,F:POKEV+40,F:POKEV+41,F:POKEV+42,F:POKE53285,M1:POKE53286,M2
1592 POKEV+23,0:POKEV+29,0:RETURN
1600 V=53248:POKEV+21,0:X=146:Y=152:MC=53276:F=7:M1=2:M2=9
1610 FORI=704TO766:READA:POKEI,A:NEXT
1611 POKE2040,11:POKE2041,13:POKE2042,14:POKE2043,15:POKEMC,7
1612 POKEV+39,F:POKEV+40,F:POKEV+41,F:POKEV+42,F:POKE53285,M1:POKE53286,M2
1615 POKEV+23,0:POKEV+29,0
1620 FORI=832TO894:READA:POKEI,A:NEXT
1625 FORI=896TO958:READA:POKEI,A:NEXT
1626 FORI=960TO1022:READA:POKEI,A:NEXT
1630 POKEV,X:POKEV+1,Y:POKEV+2,X:POKEV+3,Y+21:POKEV+4,X+24:POKEV+5,Y
1631 POKEV+6,X+24:POKEV+7,Y:RETURN
1700 TD=1:GZ=0:ZI=INT(RND(XX)*300)-(CM*10):MU=1:IFZI<25ORZI>300THENZI=155
1756 ZI=ZI-1:IFZI=250OR ZI=225OR ZI=200OR ZI=150OR ZI=75 THENMU=3:GOSUB10:MU=1
1757 IFZI=150OR ZI=100THENX=X+3:GOSUB1630
1760 IFZI=60THENX=X-3:GOSUB1630
1761 IFZI=<0THENPOKEV+21,11:POKEMC,11:GOTO1765
1762 VO=0:JJ=PEEK(56320):IFJJ=127THEN1756
1763 IFJJ=123OR JJ=119THENPOKEV+21,11:POKEMC,11:GZ=1:VO=1:GOTO1765
1764 IFZI>0THEN1761
1765 ZI=0:ZZ=40-(Z*3)
1767 ZI=ZI+1:IFZI=>ZZTHENPOKE53280,7:GOSUB10:POKE53280,0:TD=1:GOTO1810
1770 JJ=PEEK(56320):IFJJ=127THEN1767
1771 IFJJ=<111 AND GZ=1 THENPOKE53280,1:GOSUB10:POKE53280,0:TD=0:GOTO1820
1772 IFGZ=0THENGZ=1:GOTO1767
1773 GZ=1:GOTO1767
1800 IFVO=1THEN2000
1801 IFGM=3ANDGG=1THENFORI=1TO3:GETX$:NEXT:GOTO1500
1802 IFGM=7ANDGG=1THENFORI=1TO3:GETX$:NEXT:GOTO1500
1803 IFGM=9ANDGG=1THENFORI=1TO3:GETX$:NEXT:GOTO1500
1810 GG=0:POKEV+21,0:GOTO2000
1820 POKE53285,8:POKE53286,10:POKEV+39,2:FORI=1TO1000:NEXT:GOTO1810
1900 IFGM>3THEN1910
1901 X=X-3:MU=3:GOSUB10:GOSUB1630:IFX<120THEN1540
1902 JJ=PEEK(56320):IFJJ<>127THENMU=1:GOTO1763
1903 GOTO1901
1910 IFGM>4THEN1920
1911 X=X+3:MU=3:GOSUB10:GOSUB1630:IFX=>220THEN1540
1912 JJ=PEEK(56320):IFJJ<>127THENMU=1:GOTO1763
1913 GOTO1911
1920 IFGM>6THEN1930
1921 Y=Y+9:MU=3:GOSUB10:GOSUB1630:IFY=170THEN1540
1922 JJ=PEEK(56320):IFJJ<>127THENMU=1:GOTO1763
1923 GOTO1921
1930 IFGM>8THEN1940
1931 Y=Y+9:MU=3:GOSUB10:GOSUB1630:IFY=188THENY=189:GOTO1540
1932 JJ=PEEK(56320):IFJJ<>127THENMU=1:GOTO1763
1933 GOTO1931
1940 Y=Y+9:MU=3:GOSUB10:GOSUB1630:IFY=188THENY=189:GOTO1950
1941 JJ=PEEK(56320):IFJJ<>127THENMU=1:GOTO1763
1942 GOTO1940
1950 X=X-5:MU=3:GOSUB10:GOSUB1630:IFX<100THEN1540
1951 JJ=PEEK(56320):IFJJ<>127THENMU=1:GOTO1763
1952 GOTO1950
1990 GOTO1540
2000 PRINT"[147]":POKE53280,0:POKE53281,0:MU=2:POKEV+21,0:IFTD=0ANDVO=1THENOV=1
2001 FORI=1TO5:PRINT"[154]                                       ":NEXT
2002 FORI=1TO17:PRINT"[153]                                       ":NEXT
2003 IFVO=1ANDTD=0THENGOSUB2500
2005 PRINT"":IFTD=0THENTT=TT+1
2006 IFVO=1THENTD=1
2010 IFTT>0THENX=1:NA$="S.J.":GOSUB2100:GOSUB10
2011 IFTT>1THENX=9:NA$="C.B.":GOSUB2100:GOSUB10
2012 IFTT>2THENX=17:NA$="S.B.":GOSUB2100:GOSUB10
2013 IFTT>3THENX=24:NA$="I.J.":GOSUB2100:GOSUB10
2014 IFTT>4THENX=32:NA$="M.N.":GOSUB2100:GOSUB10
2015 PRINT""
2016 IFTT>5THENX= 1:NA$="D.H.":GOSUB2100:GOSUB10
2017 IFTT>6THENX= 9:NA$="D.B.":GOSUB2100:GOSUB10
2018 IFTT>7THENX=17:NA$="NOB.":GOSUB2100:GOSUB10
2019 IFTT>8THENX=24:NA$="B.C.":GOSUB2100:GOSUB10
2020 IFTT>9THENX=32:NA$="B.D.":GOSUB2100:GOSUB10:GOTO2200
2025 IFTD=1THEN2030
2026 PRINT""TAB(1)"SLEEP WELL, "GM$:FORI=1TO4000:NEXT:PRINT"[147]":GOTO1301
2030 X=32:NA$="[219]DU[219]":GOSUB2100:GOSUB10:GOTO2350
2100 PRINTTAB(X+2)"[149]  ":PRINTTAB(X+2)"[149]  ":PRINTTAB(X)"[149] [158]"NA$"[149] "
2101 PRINTTAB(X+2)"[149]  ":PRINTTAB(X+2)"[149]  ":PRINTTAB(X+2)"[149]  "
2102 PRINTTAB(X)"[158][166][166][166][166][166][166]":PRINT"[145][145][145][145][145][145][145][145]":RETURN
2200 PRINT" OKAY, DU BIST ECHT DER BESTE GUNMAN!":GOTO2400
2300 NA=1842+TT:IFVO=1THEN2350
2310 PRINT""NA"[157] ERSCHOSSEN, DU WARST ZU LANGSAM!":GOTO2400
2350 IFOV=1THENPRINT"[145]"TAB(1)"ZU SCHNELL UM ZU HAENGEN, BIG COWBOY!":GOTO2400
2360 PRINT"[145][145]"TAB(1)"SCHNELLER ZIEHEN UND SCHIESSEN, DEAR!"
2400 CLR:EN$="EN":FORI=1TO10:GETX$:NEXT:GOSUB190:GOSUB155:GOTO1050
2500 PRINT""TAB(1)"LEIDER HAST DU DEIN COLT ZU FRUEH GE-"
2510 PRINTTAB(1)"ZOGEN UND GEMORDET. WIE'S DAS GESETZ "
2520 PRINTTAB(1)"WILL, DU HAENGST AM HOECHSTEN BAUM!  ":RETURN
9000 REM:SPRITE GUN
9001 DATA 0,243,0,63,255,192,0,103,252
9002 DATA 0,170,0,0,150,0,0,168,0
9003 DATA 7,239,127,53,253,127,255,117,255
9004 DATA 243,87,240,243,255,240,243,255,192
9005 DATA 243,255,192,242,191,192,82,171,192
9006 DATA 33,102,131,161,90,175,161,85,191
9007 DATA 33,81,188,33,81,112,1,209,112
9010 REM:SPRITE GUN2
9011 DATA 1,209,112,5,209,84,7,64,116
9012 DATA 23,64,117,31,64,125,31,64,125
9013 DATA 31,64,125,31,64,125,63,192,255
9014 DATA 63,192,255,10,0,40,15,0,60
9015 DATA 63,0,252,243,3,204,243,3,204
9016 DATA 0,0,0,0,0,0,0,0,0
9017 DATA 0,0,0,0,0,0,0,0,0
9020 REM:SPRITE GUN3
9021 DATA 0,0,0,0,0,0,0,0,0
9022 DATA 0,0,0,0,0,0,0,0,0
9023 DATA 192,0,0,252,0,0,255,192,0
9024 DATA 255,240,0,15,240,0,0,240,0
9025 DATA 0,80,0,0,32,0,192,160,0
9026 DATA 192,160,0,0,160,0,0,128,0
9027 DATA 0,0,0,0,0,0,0,0,0
9030 REM:SPRITE GUN4
9031 DATA 0,0,0,0,0,0,0,0,0
9032 DATA 0,0,0,0,0,0,0,0,0
9033 DATA 192,0,0,252,0,0,255,0,0
9034 DATA 255,0,0,15,0,0,15,0,0
9035 DATA 63,0,0,20,0,0,160,0,0
9036 DATA 224,0,0,224,0,0,160,0,0
9037 DATA 0,0,0,0,0,0,0,0,0