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