Cowboy showdown in the desert. Cacti are your shields.
Showdown
1 REM SHOWDOWN
5 POKE 23693,71: BORDER 0
10 CLEAR 30999
12 GO SUB 9000
14 RESTORE
15 PRINT AT 21,0; INK 6; PAPER 1; FLASH 1;" Please wait - Setting up game "
20 LET a=10: LET b=11: LET c=12
30 LET d=13: LET e=14: LET f=15
40 LET a$="": LET n=31000: LET t=0
50 IF a$="" THEN READ a$: IF a$="#" THEN GO TO 100
60 LET z=16*VAL a$(1)+VAL a$(2)
70 LET t=t+z: POKE n,z
80 LET a$=a$(3 TO )
90 LET n=n+1: GO TO 50
100 IF t<>72781 THEN PRINT "ERROR IN DATA": BEEP 2,-10: STOP
120 GO TO 1000
200 DATA "F33E02CD011621100022827B22847BAF32867B32877B3E05328E7B328F7B2A827BCD277B11907BCD"
210 DATA "5F7B01FEFBED78E61FFE1F280C2A827B2D3E08BD201D2C181A01FEFDED78E61FFE1F280C2A827B2C"
220 DATA "3EABBD20062D18032A827B22827BCD277B11BA7BCD5F7B2A847BCD277B111E001911907BCD5F7B01"
230 DATA "FEDFED78E61FFE1F280C2A847B2D3E08BD201D2C181A01FEBFED78E61FFE1F280C2A847B2C3EABBD"
240 DATA "20062D18032A847B22847BCD277B111E001911E47BCD5F7B3A867BB7201D01FEFEED78E61FFE1F28"
250 DATA "492A827B3E0A856F22887B3E02328C7B32867B2A887BCD277B3A8C7B5F16001936003A8C7B3CFE20"
260 DATA "2006AF32867B181A328C7B237EB72810AF32867B3A8C7BFE1ED2CC7A3600180236FF3A877BB7201D"
270 DATA "01FE7FED78E61FFE1F28482A847B3E0A856F228A7B3E1D328D7B32877B2A8A7BCD277B3A8D7B5F16"
280 DATA "001936003A8D7B3DFEFF2006AF32877B1819328D7B2B7EB7280FAF32877B3A8D7BFE023813360018"
290 DATA "0236FF060FC5060010FEC110F8C336792A827BCD277B110E7CCD5F7B3A8E7B3D328E7B286B3E16D7"
300 DATA "3E00D73E06D73A8E7BC630D7CD127B2A827BCD277B11907BCD5F7B21100022827BC336792A847BCD"
310 DATA "277B111E0019110E7CCD5F7B3A8F7B3D328F7B282B3E16D73E00D73E1FD73A8F7BC630D7CD127B2A84"
320 DATA "7BCD277B111E001911907BCD5F7B21100022847BC33679FBC921000211050006C8E5D5C5CDB503C1"
330 DATA "D1E12310F4C9C5D5444D21004079E6071E00571979E63F16005F79E6F8E526006F19160059ED5229"
340 DATA "29EBE11911000079E6C05FEB2929292929EB19D1C1C906151A772C131A772D24137CE60720107CD6"
350 DATA "08677DC6206FE6E020047CC6086710E0C90000000000000000000000000000000000000000000000"
360 DATA "000000000000000000000000000000000000000000000000000000000000000000078007801FE006"
370 DATA "8007C00780030007800FC01FC03FEF37F83FB01F800FC007C006C006C00EC01CE018F001E001E007"
380 DATA "F8016003E001E000C001E003F003F8F7FC1FEC0DFC01F803F003E003600360037007380F18000000"
390 DATA "00000003C007E00FF00FF03FFC3E7C3E7C3E7C300C300C3E7C3E7C3E7C3E7C3E7C3E7C3FFC3FFC00"
400 DATA "#"
1000 CLS : FOR n=1 TO 23: LET a=22528+32*n: POKE a,67: POKE a+1,67: POKE a+30,69: POKE a+31,69: NEXT n
1020 FOR n=1 TO 4
1030 LET y=INT (RND*20)+1: LET x=INT (RND*20)+6
1040 PRINT INK 4;AT y,x;"\a\b";AT y+1,x;"\c\d": NEXT n
1050 PRINT AT 0,0;"LIVES 5";TAB 25;"LIVES 5"
1060 LET z=USR 31000: LET z=USR 31506
1070 IF PEEK 31631=0 THEN PRINT AT 0,10;"PLAYER 1 WINS": GO TO 1090
1080 PRINT AT 0,10;"PLAYER 2 WINS"
1090 PRINT AT 21,0;"Do you want to play again? (Y/N)"
1100 IF INKEY$="Y" OR INKEY$="y" THEN GO TO 1000
1110 IF INKEY$<>"N" AND INKEY$<>"n" THEN GO TO 1100
1120 CLS : STOP
9000 RESTORE 9010: FOR n=0 TO 31: READ a: POKE USR "a"+n,a: NEXT n
9010 DATA 0,0,1,1,1,9,15,13,64,224,240,176,240,240,240,176
9020 DATA 7,7,7,2,3,1,1,31,240,240,240,240,224,192,192,248
9100 CLS : PRINT PAPER 1;TAB 31;TAB 8;"S H O W D O W N";TAB 31;" ";TAB 31;" "
9110 PRINT AT 5,0; INK 3;"LEFT PLAYER";AT 5,20;"RIGHT PLAYER"
9120 PRINT AT 7,1;"Q - UP";AT 7,24;"P - UP"
9130 PRINT AT 9,1;"A - DOWN";AT 9,24;"L - DOWN"
9140 PRINT AT 11,1;"Z - FIRE";AT 11,15;"SYM. SHIFT - FIRE"
9170 RETURN
9999 SAVE "showdown" LINE 1
People
No people associated with this content.