home *** CD-ROM | disk | FTP | other *** search
- 0 GOTO500
- 1 POKE792,207:POKE793,2:CLR:RESTORE:DIM FL(52),C%(52):X=RND(-TI)
- 2 POKE 53280,5:POKE 53281,15:PRINT"[151]":DO=1000
- 3 GOTO 11
- 4 PRINT" [213][195][195][195][201]"
- 5 PRINT" [221][166][166][166][221]"
- 6 PRINT" [221][166][166][166][221]"
- 7 PRINT" [221][166][166][166][221]"
- 8 PRINT" [221][166][166][166][221]"
- 9 PRINT" [202][195][195][195][203]"
- 10 GOTO76
- 11 PRINT"[147]";SPC(8);"***********************"
- 12 PRINTSPC(8);"* WAR GAMES BLACKJACK[146] *"
- 13 PRINTSPC(8);"***********************"
- 16 GOTO19
- 17 IF H>=41 THENGOTO19
- 18 FORTD=1TO2000:NEXT:PRINT"[147]":GOTO 31
- 19 PRINT"";:ZW=ZW+1:IFZW>2THENGOTO1000
- 20 PRINT" SHUFFLING":SAY"I'M SHUFFLING.":T=149
- 21 FORDT=1TO300:PRINTCHR$(T);" SHUFFLING":IFT>155THENT=149
- 22 T=T+1:NEXTDT:H=1
- 23 FOR XY=0TO52
- 24 FL(XY)=0:C%(XY)=0
- 25 NEXT XY
- 26 REM
- 27 FOR I=1TO52
- 28 D%=52*RND(TI)+1
- 29 IF FL(D%)<>0 GOTO 28
- 30 C%(I)=D%:FL(D%)=1:NEXTI
- 31 PRINT"[151][147]":DB$=""
- 32 DO$=STR$(DO):IFDO=0THENPRINT" SORRY BROKE!!":SAY"SORRY YOUR BROKE.":DO=1000:GOTO19
- 33 PRINT" BANK ";:SAY"THE BANK IS.":PRINTTAB(8);"";DO;"[151]";
- 34 GOSUB300:PRINT" YOUR BET* ";:SAY"YOUR BET?"
- 35 DI$="":GETDI$:IFDI$=""THEN35
- 36 IFASC(DI$)>47ANDASC(DI$)<58THENPRINTDI$;:DB$=DB$+DI$:GOTO35
- 37 IFASC(DI$)=13THENDB=VAL(DB$):GOTO42
- 38 IFASC(DI$)=133THENDO=1000:GOTO31
- 39 IFASC(DI$)=134ANDDO<24001THENDO=DO+1000:GOTO31
- 40 IFASC(DI$)=135THEN31
- 41 GOTO35
- 42 IFDO<DBORDB<1THEN32
- 43 CS(1)=0:CS(2)=0:CS(4)=0:CS(5)=0:CS(3)=0:CS(6)=0:CH=0:CD=0
- 44 GOTO 71
- 45 AA=C%(H):H=H+1:BB=AA:GOTO 4
- 46 AA=BB:J=4
- 47 A=O:GOSUB 101
- 48 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
- 49 GOTO54
- 50 AA=C%(H):H=H+1:J=4
- 51 A=6:GOSUB 101
- 52 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
- 53 GOTO 80
- 54 GOTO 191
- 55 AA=C%(H):H=H+1:J=4
- 56 A=12:GOSUB 101
- 57 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
- 58 GOTO191
- 59 AA=C%(H):H=H+1:J=4
- 60 A=18:GOSUB 101
- 61 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
- 62 GOTO191
- 63 AA=C%(H):H=H+1:J=4
- 64 A=24:GOSUB 101
- 65 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
- 66 GOTO191
- 67 AA=C%(H):H=H+1:J=4
- 68 A=30:GOSUB 101
- 69 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
- 70 GOTO 197
- 71 REM
- 72 AA=C%(H):H=H+1:J=1
- 73 A=400:GOSUB 101
- 74 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
- 75 GOTO 45
- 76 AA=C%(H):H=H+1:J=1
- 77 A=406:GOSUB 101
- 78 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
- 79 GOTO 50
- 80 GOTO166
- 81 AA=C%(H):H=H+1:J=1
- 82 A=412:GOSUB 101
- 83 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
- 84 IF CS(2)>21THEN208
- 85 GOTO183
- 86 AA=C%(H):H=H+1:J=1
- 87 A=418:GOSUB 101
- 88 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
- 89 IF CS(2)>21THEN208
- 90 GOTO183
- 91 AA=C%(H):H=H+1:J=1
- 92 A=424:GOSUB 101
- 93 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
- 94 IF CS(2)>21THEN208
- 95 GOTO183
- 96 AA=C%(H):H=H+1:J=1
- 97 A=430:GOSUB 101
- 98 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
- 99 IF CS(2)>21THEN208
- 100 GOTO 46
- 101 IF AA=1 THEN CC=1:E=1:EE=32:C=32:DD=83:FF=2:CT(J)=11:CT(J+1)=1
- 102 IF AA=2 THEN CC=50:E=50:EE=32:C=32:DD=83:FF=2:CT(J)=2:CT(J+1)=2
- 103 IF AA=3 THEN CC=51:E=51:EE=32:C=32:DD=83:FF=2:CT(J)=3:CT(J+1)=3
- 104 IF AA=4 THEN CC=52:E=52:EE=32:C=32:DD=83:FF=2:CT(J)=4:CT(J+1)=4
- 105 IF AA=5 THEN CC=53:E=53:EE=32:C=32:DD=83:FF=2:CT(J)=5:CT(J+1)=5
- 106 IF AA=6 THEN CC=54:E=54:EE=32:C=32:DD=83:FF=2:CT(J)=6:CT(J+1)=6
- 107 IF AA=7 THEN CC=55:E=55:EE=32:C=32:DD=83:FF=2:CT(J)=7:CT(J+1)=7
- 108 IF AA=8 THEN CC=56:E=56:EE=32:C=32:DD=83:FF=2:CT(J)=8:CT(J+1)=8
- 109 IF AA=9 THEN CC=57:E=57:EE=32:C=32:DD=83:FF=2:CT(J)=9:CT(J+1)=9
- 110 IF AA=10 THEN CC=49:E=48:EE=48:C=49:DD=83:FF=2:CT(J)=10:CT(J+1)=10
- 111 IF AA=11 THEN CC=10:E=10:EE=32:C=32:DD=83:FF=2:CT(J)=10:CT(J+1)=10
- 112 IF AA=12 THEN CC=17:E=17:EE=32:C=32:DD=83:FF=2:CT(J)=10:CT(J+1)=10
- 113 IF AA=13 THEN CC=11:E=11:EE=32:C=32:DD=83:FF=2:CT(J)=10:CT(J+1)=10
- 114 IF AA=14 THEN CC=1:E=1:EE=32:C=32:DD=90:FF=2:CT(J)=11:CT(J+1)=1
- 115 IF AA=15 THEN CC=50:E=50:EE=32:C=32:DD=90:FF=2:CT(J)=2:CT(J+1)=2
- 116 IF AA=16 THEN CC=51:E=51:EE=32:C=32:DD=90:FF=2:CT(J)=3:CT(J+1)=3
- 117 IF AA=17 THEN CC=52:E=52:EE=32:C=32:DD=90:FF=2:CT(J)=4:CT(J+1)=4
- 118 IF AA=18 THEN CC=53:E=53:EE=32:C=32:DD=90:FF=2:CT(J)=5:CT(J+1)=5
- 119 IF AA=19 THEN CC=54:E=54:EE=32:C=32:DD=90:FF=2:CT(J)=6:CT(J+1)=6
- 120 IF AA=20 THEN CC=55:E=55:EE=32:C=32:DD=90:FF=2:CT(J)=7:CT(J+1)=7
- 121 IF AA=21 THEN CC=56:E=56:EE=32:C=32:DD=90:FF=2:CT(J)=8:CT(J+1)=8
- 122 IF AA=22 THEN CC=57:E=57:EE=32:C=32:DD=90:FF=2:CT(J)=9:CT(J+1)=9
- 123 IF AA=23 THEN CC=49:E=48:EE=48:C=49:DD=90:FF=2:CT(J)=10:CT(J+1)=10
- 124 IF AA=24 THEN CC=10:E=10:EE=32:C=32:DD=90:FF=2:CT(J)=10:CT(J+1)=10
- 125 IF AA=25 THEN CC=17:E=17:EE=32:C=32:DD=90:FF=2:CT(J)=10:CT(J+1)=10
- 126 IF AA=26 THEN CC=11:E=11:EE=32:C=32:DD=90:FF=2:CT(J)=10:CT(J+1)=10
- 127 IF AA=27 THEN CC=1:E=1:EE=32:C=32:DD=65:FF=0:CT(J)=11:CT(J+1)=1
- 128 IF AA=28 THEN CC=50:E=50:EE=32:C=32:DD=65:FF=0:CT(J)=2:CT(J+1)=2
- 129 IF AA=29 THEN CC=51:E=51:EE=32:C=32:DD=65:FF=0:CT(J)=3:CT(J+1)=3
- 130 IF AA=30 THEN CC=52:E=52:EE=32:C=32:DD=65:FF=0:CT(J)=4:CT(J+1)=4
- 131 IF AA=31 THEN CC=53:E=53:EE=32:C=32:DD=65:FF=0:CT(J)=5:CT(J+1)=5
- 132 IF AA=32 THEN CC=54:E=54:EE=32:C=32:DD=65:FF=0:CT(J)=6:CT(J+1)=6
- 133 IF AA=33 THEN CC=55:E=55:EE=32:C=32:DD=65:FF=0:CT(J)=7:CT(J+1)=7
- 134 IF AA=34 THEN CC=56:E=56:EE=32:C=32:DD=65:FF=0:CT(J)=8:CT(J+1)=8
- 135 IF AA=35 THEN CC=57:E=57:EE=32:C=32:DD=65:FF=0:CT(J)=9:CT(J+1)=9
- 136 IF AA=36 THEN CC=49:E=48:EE=48:C=49:DD=65:FF=0:CT(J)=10:CT(J+1)=10
- 137 IF AA=37 THEN CC=10:E=10:EE=32:C=32:DD=65:FF=0:CT(J)=10:CT(J+1)=10
- 138 IF AA=38 THEN CC=17:E=17:EE=32:C=32:DD=65:FF=0:CT(J)=10:CT(J+1)=10
- 139 IF AA=39 THEN CC=11:E=11:EE=32:C=32:DD=65:FF=0:CT(J)=10:CT(J+1)=10
- 140 IF AA=40 THEN CC=1:E=1:EE=32:C=32:DD=88:FF=0:CT(J)=11:CT(J+1)=1
- 141 IF AA=41 THEN CC=50:E=50:EE=32:C=32:DD=88:FF=0:CT(J)=2:CT(J+1)=2
- 142 IF AA=42 THEN CC=51:E=51:EE=32:C=32:DD=88:FF=0:CT(J)=3:CT(J+1)=3
- 143 IF AA=43 THEN CC=52:E=52:EE=32:C=32:DD=88:FF=0:CT(J)=4:CT(J+1)=4
- 144 IF AA=44 THEN CC=53:E=53:EE=32:C=32:DD=88:FF=0:CT(J)=5:CT(J+1)=5
- 145 IF AA=45 THEN CC=54:E=54:EE=32:C=32:DD=88:FF=0:CT(J)=6:CT(J+1)=6
- 146 IF AA=46 THEN CC=55:E=55:EE=32:C=32:DD=88:FF=0:CT(J)=7:CT(J+1)=7
- 147 IF AA=47 THEN CC=56:E=56:EE=32:C=32:DD=88:FF=0:CT(J)=8:CT(J+1)=8
- 148 IF AA=48 THEN CC=57:E=57:EE=32:C=32:DD=88:FF=0:CT(J)=9:CT(J+1)=9
- 149 IF AA=49 THEN CC=49:E=48:EE=48:C=49:DD=88:FF=0:CT(J)=10:CT(J+1)=10
- 150 IF AA=50 THEN CC=10:E=10:EE=32:C=32:DD=88:FF=0:CT(J)=10:CT(J+1)=10
- 151 IF AA=51 THEN CC=17:E=17:EE=32:C=32:DD=88:FF=0:CT(J)=10:CT(J+1)=10
- 152 IF AA=52 THEN CC=11:E=11:EE=32:C=32:DD=88:FF=0:CT(J)=10:CT(J+1)=10
- 153 RESTORE
- 154 FOR V=1106TO1306STEP40
- 155 FOR N=0TO4
- 156 READ Q:POKE A+V+N,Q:POKE A+V+N+54272,FF:NEXT N
- 157 NEXT V
- 158 RESTORE
- 159 POKE A+1147,CC:POKE A+55419,FF:POKE A+1148,EE:POKE A+55420,FF
- 160 POKE A+1187,DD:POKE A+55459,FF:POKE A+1269,E:POKEA+55541,FF
- 161 POKE A+1268,C:POKE A+55540,FF:POKE A+1229,DD:POKE A+55501,FF
- 162 RETURN
- 163 DATA 85,67,67,67,73,66,32,32,32,66
- 164 DATA 66,32,32,32,66,66,32,32,32,66
- 165 DATA 66,32,32,32,66,74,67,67,67,75,10001
- 166 IFCT(4)=11ANDDO>=1.5*DBTHEN211
- 167 GOTO223
- 168 PRINT" "
- 169 PRINT" H[146]IT";:SAY"HIT?"
- 170 IFDO<2*DBTHEN172
- 171 IFCS(1)>8ANDCS(1)<12THENPRINT", S[146]TAND OR D[146]OUBLE ";:SAY"STAND OR DOUBLE?":GOTO173
- 172 PRINT" OR S[146]TAND ";:SAY"OR STAND?"
- 173 C$="":GETC$:IFC$=""THEN173
- 174 IF C$="S"THENPRINTC$:GOTO182
- 175 IF C$="H"THENPRINTC$:GOTO81
- 176 IF C$="D"THENPRINTC$:GOTO178
- 177 GOTO 173
- 178 DB=2*DB:PRINT" "
- 179 PRINT"[145] BET NOW ";:SAY"BET NOW.":PRINTTAB(11);DB;
- 180 AA=C%(H):H=H+1:A=412:J=1:GOSUB101
- 181 CS(J)=CS(J)+CT(J):CS(J+1)=CS(J+1)+CT(J+1)
- 182 GOTO46
- 183 PRINT" "
- 184 PRINT"[145] H[146]IT OR S[146]TAND ";:SAY"HIT. OR STAND?"
- 185 C$="":GETC$:IFC$=""THEN185
- 186 IFC$="H"ORC$="S"THENPRINTC$
- 187 IF C$="H"THENCH=CH+1:ONCHGOTO86,91,96
- 188 IF C$="S"THEN 46
- 189 GOTO 183
- 190 CD=CD+1:ONCDGOTO55,59,63,67
- 191 PRINT" "
- 192 IF CS(J)=17ANDCS(J+1)<17THENWW$="[145] DEALER TAKES A HIT":PRINTWW$:SAYWW$:GOTO190
- 193 IF CS(J)<17THENWW$="[145] DEALER TAKES A HIT":PRINTWW$:SAYWW$:GOTO190
- 194 IF CS(J)>21ANDCS(J+1)<17THENWW$="[145] DEALER TAKES A HIT":PRINTWW$:SAYWW$:GOTO190
- 195 IFCS(J)>16ANDCS(J)<22THENWW$="[145] DEALER STANDS":PRINTWW$:SAYWW$:GOTO197
- 196 IFCS(J+1)<22ANDCS(J+1)>16THENWW$="[145] DEALER STANDS":PRINTWW$:SAYWW$:GOTO197
- 197 GOSUB300:IF CS(1)<22THENCS(3)=CS(1):GOTO199
- 198 CS(3)=CS(2)
- 199 IFCS(5)>21THENPRINT" DEALER BUSTED! YOU WIN":DO=DO+DB:DB=0:SAY"OWEL."
- 200 IFCS(5)>21THEN210
- 201 IF CS(4)<22THENCS(6)=CS(4):GOTO203
- 202 CS(6)=CS(5)
- 203 SAY"TOTALS.ME.":PRINT" DEALER";CS(6);:GOSUB300:PRINTTAB(13);" YOU";CS(3);
- 204 SAY"YOU.":IF CS(3)=CS(6)THENPRINT" WE PUSH":SAY"WE PUSH.":DB=0:GOTO210
- 205 IFCS(6)>CS(3)ANDCS(6)<22THENPRINT" YOU LOSE":SAY"YOU LOOSE.":DO=DO-DB:DB=0:GOTO210
- 206 PRINT" YOU WIN":SAY"YOU WIN.":DO=DO+DB:DB=0
- 207 GOTO 210
- 208 PRINT" YOU BUSTED!!":SAY"YOU BUSTED.":DO=DO-DB:DB=0:GOTO210
- 209 AA=BB:A=0:GOSUB101
- 210 GOTO17
- 211 PRINT" INSURANCE Y[146] OR N[146] ";:SAY"INSURENCE YES OR NO."
- 212 IN$="":GETIN$:IFIN$=""THEN212
- 213 IFIN$="Y"THENPRINTIN$:GOTO216
- 214 IFIN$="N"THENPRINTIN$:GOTO223
- 215 GOTO212
- 216 IFBB=10ORBB=11ORBB=12ORBB=13ORBB=23ORBB=24ORBB=25ORBB=26THEN220
- 217 IFBB=36ORBB=37ORBB=38ORBB=39ORBB=49ORBB=50ORBB=51ORBB=52THEN220
- 218 PRINT" ":DO=DO-DB/2
- 219 PRINT" NO BLACKJACK!":SAY"NO BLACKJACK.":GOTO223
- 220 IFCT(1)=21THENPRINT" ":DO=DO+DB/2
- 221 IFCT(1)=21THENPRINT" WE PUSH!!":SAY"WE PUSH.":GOTO209
- 222 PRINT" BLACKJACK!!":SAY"BLACKJACK!":GOTO209
- 223 IFCS(1)=21THENCS(3)=21
- 224 IFCS(4)=10ORCS(4)=11THEN228
- 225 IFCS(3)=21THENPRINT" YOUR BLACKJACK!":DO=DO+DB*1.5:SAY"YOURBLACKJACK"
- 226 IFCS(3)=21THEN210
- 227 GOTO168
- 228 IFCS(4)=10THEN232
- 229 IFBB=10ORBB=11ORBB=12ORBB=13ORBB=23ORBB=24ORBB=25ORBB=26THEN234
- 230 IFBB=36ORBB=37ORBB=38ORBB=39ORBB=49ORBB=50ORBB=51ORBB=52THEN234
- 231 GOTO225
- 232 IFBB=1ORBB=14ORBB=27ORBB=40THEN234
- 233 GOTO225
- 234 IFCS(3)=21THENPRINT" WE PUSH!!":SAY"WE PUSH.":GOTO209
- 235 PRINT" DEALER BLACKJACK!!":SAY"DEALER BLACKJACK.":DO=DO-DB:GOTO209
- 300 FORWW=1TO1000:NEXT:RETURN
- 500 IFPEEK(49153)=187THEN550
- 510 POKE53280,6:POKE53281,6:PRINT"[147]";TAB(8);" LOADING SUB PROGRAMS [146]"
- 520 LOAD"SAM",8,1
- 550 POKE52,125:POKE54,125:POKE56,125:SYS38144:]RE:]SP 68:]PI 68:]LI 1
- 555 POKE720,8:POKE739,49:POKE744,48:POKE749,48:POKE754,48:POKE758,169
- 560 POKE743,169:]KN 150,150:PRINT"[147]":GOTO1
- 1000 POKE53280,6:POKE53281,6
- 1001 POKE792,207:POKE793,2:PRINT"[147] DO YOU WANT TO RETURN TO WAR GAMES":X$=""
- 1002 PRINT" OR PLAY MORE POKER OR QUIT ? (W/P/Q)"
- 1003 SAY"DO YOU WANT TO RETURN TO WAR GAMES OR PLAY MORE POKER ..SUCKER."
- 1005 GETX$:IFX$=""THEN1005
- 1010 IFX$="Q"THENPRINT"[147] BYE BYE":SAY"BYE BYE.":END
- 1015 IFX$="W"THEN1020
- 1017 GOTO1
- 1020 PRINT"[147]LOAD";CHR$(34);"WAR MENU";CHR$(34);",8,1"
- 1030 POKE631,19:POKE632,13:POKE633,82:POKE634,117:POKE635,13:POKE198,5:END
-