home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
C64Demos
/
VEGAS-DEPOSIT
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
6KB
|
156 lines
0 :::FORD=1TO100*G:NEXT:IFG=0THEN20:::
1 ::::::::::::: RETURN :::::::::::::::
2 REM"[141][145] [150]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""
3 [143]"GOSUBON DEF""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""
4 REM"[141][145] [150]""[184]"" [158][193]NOTHER CARTOON... [150]""[184]""
5 [143]"GOSUBON DEF""FRE"" SYSBY MID$IM CHR$REEN DEF""FRE""
6 REM"[141][145] [150]""[184]"" [158][215]HEN WILL THIS.... [150]""[184]""
7 [143]"GOSUBON DEF""FRE"" SYSMADNESS STOP? DEF""FRE""
8 REM"[141][145] [150]""[184]"" [159][208]LEASE... [150]""[184]""
9 [143]"GOSUBON DEF""FRE"" OPEN(null)OMEBODY SHOOT HIM AND DEF""FRE""
10 REM"[141][145] [150]""[184]"" [159]PUT AN END TO THESE [150]""[184]""
11 [143]"GOSUBON DEF""FRE"" OPENSILLY THINGS...... DEF""FRE""
12 REM"[141][145] [150]""[184]"" ""[184]""
13 [143]"GOSUBON DEF""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""
14 REM"[141][145] [150]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[154]
20 Z[178]700:[129]T[178]Z[164]715:[135]C:[151]T,C:[130]
25 [131] 32,155,183,138,72,32,155,183,104,170,164,101,24,76,240,255
30 [151]53280,0:[151]53281,0:S[178]54272:[151]53265,11
35 [153]"LOADRETURN JAGGY MAKES A NIGHT BANK DEPOSIT
40 PRINTSPC(21)" [185][185][185][185][185][185][185][185][185][185][185][185][185][185] ";
45 PRINTSPC(20)" [149][176] LAS VEGAS [146][149][174] ";
50 PRINTSPC(20)" [171] NATIONAL BANK [146][149][179] ";
55 PRINTSPC(20)"[149][187] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] [172][146]";
60 PRINTSPC(20)" [167][155] [167][165] [149][165][146]";
65 PRINTSPC(21)" [167][155] [154][207][183][183][183][183][208][155][167][165][154][207][183][183][183][183][208][155] [149][165][146]";
70 FORT=1TO6:PRINTSPC(21)" [167][155] [154][165] [167][155][167][165][154][165] [167][155] [149][165][146]";:NEXT
75 PRINTSPC(21)" [167][155] [154][165] [167][155][208][207][154][165] [167][155] [149][165][146]";
80 PRINTSPC(21)" [167][155] [154][165] [167][155][186][204][154][165] [167][155] [149][165][146]";
85 FORT=1TO4:PRINTSPC(21)" [167][155] [154][165] [167][155][167][165][154][165] [167][155] [149][165][146]";:NEXT
90 PRINTSPC(21)" [167][155] [151][165] [202][203] [167][155][167][165][151][165] [202][203] [167][155] [149][165][146]";
95 PRINTSPC(21)" [167][155] [151][204][175][175][175][175][186][155][167][165][151][204][175][175][175][175][186][155] [149][165][146]";
100 PRINTSPC(21)" [167][155] [167][165] [149][165][146]";
105 PRINTSPC(21)"[149][182][167][155] [167][165] [149][165][146][181][146]";
110 PRINT"[151][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][157][148][166]"
115 PRINT""TAB( 5)"[186][183][183][183][183][183][183][183][183][204]":PRINTTAB( 5)"[165]NIGHT...[167]
120 [153][163] 5)"FNDEPOSITSTHEN":[153][163] 5)"(null)ANDANDANDANDANDANDANDAND(null)
125 PRINTTAB(5 )"[151][163][163][163][163][163][163][163][163][163][163]":FORT=1TO2:PRINTTAB(5 )" [159] [151] ":NEXT
130 PRINTTAB( 5)"[151][164][164][164][164][164][164][164][164][164][164]"
135 PRINTTAB(8 )"[145][145][159][173][192][192][189]":POKE53265,27
140 IFN=0THENG=40:GOSUB:PRINT" "
145 POKE53265,11:G=10:GOSUB
150 SYSZ,8,3:PRINT"[158][169] [146][169]"
155 PRINT" [150][215] [223][146]"SPC(32);
160 PRINT" [158] [150] [164][146]"
165 PRINT" [158][223] [150] [146][169]"
170 PRINT" [169][163][163][223][146]"
175 PRINT" [165][167] [146]"
180 PRINT" [165][167] [146] "
185 PRINT" [205] [205][151][163][163][163][163][163][163][163][163][146]
190 [153]" TAB(TAB((null)(null)OPEN POKE WAIT
195 PRINT" [164][164][164][164][159] [173][192][192][189] [151] [146]
200 [153]" FN FNTHENPOKETOTOTOTOTOTOTOTOWAIT
205 PRINT" [165] [165][167]"
210 PRINT" [165] [165][167]"
215 PRINT" [165] [165][167]"
220 PRINT" [163][163][163][163]"
225 PRINT" [151][182]'[164][184][184]":POKE53265,27:G=20:GOSUB:IFN=1THEN270
230 SYSZ,14,3:PRINT" [165][167][164][146] [149][172][162][162][187]
235 [153]" FN DEF=VERIFY -- POKETAB(TAB("
240 [153]" TAB(TAB(TAB(TAB(OPENTAB(TAB(VERIFY $$ OPENTAB(POKE ":[153]" TOTOTOTOWAIT VERIFY -- WAIT POKE "
245 [153]" FN FNTHENPOKETOTOTOTOTOTOTOTO":N[178]1:[141] 560:G[178]10:[141]:[141]565
250 [158]Z,14,3:[153]" FNTHENTOWAIT "
255 [153]" FN DEF=POKETAB(TAB(TAB(TAB(TAB(TAB("
260 [153]" TAB(TAB(TAB(TAB(OPENTAB(TAB(TAB(TAB(TAB(TAB(TAB(POKE ":[153]" TOTOTOTOWAIT VERIFYCOS--LOGWAIT POKE "
265 G[178]5:[141]:[137]150
270 C[178]11:[129]J[178]1[164]12:[129]T[178]1[164]6:[158]Z,C,23:[153]"DEFFN TANTAN THENFN TANTAN THEN":[151]S[170]24,0
275 [151]S[170]24,2
280 [158]Z,C,23:[153]"CONTFN THENFN THEN":C[178]C[170]1:[130]:C[178]11:[130]
285 [129]T[178]3[164]15:[151]S[170]24,T:[130]
290 [158]Z,6,4:[153]"WHAT THE HECK!":[141]525:[141]560:G[178]8:[141]:[141]565
295 [129]T[178]2[164]9:C[178]10:[141] 610:[139][181](T[173]2)[179][177]T[173]2[167]C[178]2
300 [151]646,C:[153]""[166]21)" POSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS ";
305 [153][166]20)" VERIFYOR";:[151]646,C:[153]" LAS VEGAS WAITVERIFY^ ";
310 [153][166]20)" -";:[151]646,C:[153]" NATIONAL BANK WAITVERIFY< ";:[130]
315 G[178]3.5:[141]:[141]560:[141]540:G[178]7:[141]:[141]565:[141]
320 [151]53265,11:[158]Z,6,4:[153]" LIST TOTOTOTOTOTOWAIT LIST TOTO"
325 [129]T[178]7[164]19:[158]Z,T,15:[153]"LIST CONTFN THENWAIT LIST CONTFN ":[130]
330 [158]Z,20,15:[153]"LIST POKEFN MID$(null) THENWAIT LIST POKEFN "
335 [158]Z,21,15:[153]"LIST POKEFN THENWAIT LIST POKEFN "
340 [158]Z,22,15:[153]"LIST TAB(TAB(TAB(TAB(TAB(TAB(WAIT LIST TAB(TAB(":
345 [158]Z,23,15:[153]"LIST WAIT LIST "
350 [151]53265,27:G[178]3:[141]:[141]600
355 [158]Z,6,8:[153]"WHOA!":[141]525:[141] 560:G[178]10:[141]:[141]540
360 G[178]4:[141]:[141]565
365 C$[178]"(null)(null)$ (null)$ (null)(null)$ $ (null)$(null) (null)(null)(null)$ $(null)(null)":D$[178]" $ "
370 [158]Z,24,21:[153]"SYS(null)$ (null)(null)$ $(null)CLOSETAB(TAB(TAB(WAIT$(null) (null)$":[141]625
375 W[178]1:[129]T[178]23[164]21[169][171]1:[158]Z,T,23:[153]"SYS"[202](C$,W,14):W[178]W[170]2
380 G[178]3:[141]:[130]:[158]Z,6,8:[153]"WOW! "
385 W[178]1:[129]T[178]20[164]19[169][171]1:[158]Z,T,24:[153]"SYS"[202](C$,W,12):W[178]W[170]2
390 [141]:[130]:[141]570
395 [141]525:[141]560:[141]565
400 B[178]25:M[178]10:[129]T[178]18[164]14[169][171]1:[158]Z,T,B:W[178][181]([187](1)[172]3)[170]1:G[178]2:[141]
405 [153]"SYS"[202](C$,W,M):M[178]M[171]2:B[178]B[170]1:[130]:[129]T[178]S[164]S[170]23:[151]T,0:[130]
410 [141]540:G[178]4:[141]:[158]Z,6,1:[145]E[141] 575,580,585,590
415 G[178]7:[141]:[141]560:[141]525
420 [129]T[178]8[164]13:W[178][181]([187](1)[172]10):W[178]W[170]24:[158]Z,T,W:[153]D$:G[178]1.8:[141]
425 [158]Z,T,W:[153]"TOTOTO":[141]595:G[178].8:[141]
430 [158]Z,T,W:[153]" ":G[178]1.8:[141]:[141]565:[130]:[141]540
435 E[178]E[170]1:[145]E[137]440,445,450,455,460
440 W[178]24:U[178][181]([187](1)[172]2):W[178]W[170]U:[158]Z,23,W:[153]D$:[141] 610:[137]410
445 W[178]29:U[178][181]([187](1)[172]2):W[178]W[170]U:[158]Z,21,W:[153]D$:[141]610:[137]410
450 W[178]25:U[178][181]([187](1)[172]2):W[178]W[170]U:[158]Z,20,W:[153]D$:[141]610:[137]410
455 W[178]32:U[178][181]([187](1)[172]2):W[178]W[170]U:[158]Z,19,W:[153]D$:[141]610:[137]410
460 W[178]28:U[178][181]([187](1)[172]2):W[178]W[170]U:[158]Z,17,W:[153]D$:[141]610
465 [158]Z,5,1:[153]"WOW WEE..CMDCMDCMDCMDCMDCMDCMDCMDCMD WOW WOW! ":[141]525:G[178]1.2:[141]
475 [153]"SYS OH BOY! LAS VEGAS HERE I COME!!":G[178]30:[141]:[141]540:C[178]1
480 [153]"SYS SEE AGAIN OR ARE YOU SICK OF IT A/S VAL VAL
485 POKE646,C:C=C+1:IFC=14THENC=1
490 SYSZ,8,25:PRINT"[172][162][162][162][162][162][162][162][162][187][146][157][157][157][157][157][157][157][157][157][157][161][161][157][157][157][157][157][157][157][157][157][157][188][146][162][162][162][162][162][162][162][162][190]"
495 POKE646,C+1:FORT=15TO1STEP-1:POKES+24,T:POKES+24,0:NEXT
500 SYSZ,9,26:PRINT"JACKPOT!":G=1:GOSUB:SYSZ,9,26:PRINT" "
505 GETG$:IFG$<>"A"ANDG$<>"S"THEN480
510 IFG$="A"THENRUN
515 PRINT"[150] SORRY I MADE YOU SICK!... "
517 G=20:GOSUB:FORT=1TO7:PRINT""TAB(30)" ":G=3:GOSUB
518 PRINT""TAB(30)"NOT!!":GOSUB:NEXT
520 G=30:GOSUB:GOTO890
525 SYSZ,14,3:PRINT" [165][167][164][146]
530 [153]" FN DEF=POKETAB(TAB(TAB(TAB(TAB(TAB("
535 [153]" TAB(TAB(TAB(TAB(":[153]" TOTOTOTOWAIT":[142]
540 [158]Z,14,3:[153]" FNTHEN WAIT
545 PRINT" [205] [205][151][163][163][163][163][163][163][163]"
550 PRINT" [163][163][205][206]"
555 PRINT" [164][164][164][164]":RETURN
560 SYSZ,9,5:PRINT"[150][176][162]":RETURN
565 SYSZ,9,5:PRINT"[150][215][164]":RETURN
570 SYSZ,6,1:PRINT"[152]WOW! OH! WOW!":RETURN
575 PRINT"[152] GOLLY! WOW! ":RETURN
580 PRINT"[152] HOT DOGGIE!!":RETURN
585 PRINT"[152]UNBELIEVABLE!":RETURN
590 PRINT"[152] WHOOPEE!! ":RETURN
595 SYSZ,6,1:PRINT" ":RETURN
600 FORT=217TO242:IFPEEK(T)<128THENPOKET,PEEK(T)+128
605 NEXT:RETURN
610 POKES+5,8:POKES+6,255:POKES+4,23:POKES+5,40:POKES+6,15
615 POKES+15,45:POKES+6,15
620 G=2:GOSUB:FORD=STOS+23:POKED,0:NEXT:RETURN
625 POKES,184:POKES+1,11:POKES+5,34:POKES+6,34:POKES+4,129:RETURN
627 REM"[141][145][160][160][160][160][160][160][160][160][160][160]
630 [139] YOU [141] [164] LINE 0, YOU D[145]'T NEED [141] 0, JUST [141] IS OK...
635 [143]"GOSUBONCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE
890 F$="DOLLY DORIGHT":POKE53280,14:POKE53281,6:PRINT"[147][159] [208]RESS....
900 [153]" <SYSATNOPEN> TO SEE ATNCHR$ATNRIGHT$(null)
910 PRINT" <[158][211][208][193][195][197][159]> TO [204][207][193][196] NEXT
912 [153]" CARTOON > SYS"F$
920 [153]" <SYS(null)OPEN> TO (null)(null)ATNSTR$ LENATN(null)(null)(null)(null)(null) OF YOUR CHOICE
940 PRINT" <[158][205][159]> TO LOAD [205][197][206][213]
945 [153]" <SYS(null)OPEN> TO (null)(null)RIGHT$(null)
950 GETG$:IFG$<>"A"ANDG$<>" "ANDG$<>"L"ANDG$<>"M"ANDG$<>"Q"THEN950
970 IFG$="A"THENRUN
980 IFG$="Q"THENEND
990 IFG$=" "THENPRINT" [204][207][193][196][201][206][199] "F$
1000 IFG$="L"THENINPUT" [195][193][210][212][207][207][206] NAME";F$
1010 IFG$="M"THENF$="M"
1050 PRINT"[147][142]LOADF$,8[154]":POKE631,19:POKE632,131:POKE198,2:END