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]" 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]" 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]" 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