home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / THE-BLUE-MAN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  9KB  |  190 lines
  1. 0 :FORK=1TO100*D:NEXT:IFD>0THENRETURN:    -:::<COMMODORE 64 IS BEAUTIFUL!>:::-
  2. 5 REM"[141][145] [158]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""
  3. 10 [143]"GOSUBON SYS""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""
  4. 15 REM"[141][145] [158]""[184]"" [159][212]HE IDEA FOR THE BLUE MAN  [158]""[184]""
  5. 20 [143]"GOSUBON SYS""FRE"" OPENCAME FROM A PICTURE IN AN  SYS""FRE""
  6. 25 REM"[141][145] [158]""[184]""   [159]ARTICLE ABOUT [194][194][211]'S IN   [158]""[184]""
  7. 30 [143]"GOSUBON SYS""FRE""    OPENVAL(null)(null)VAL(null)(null)ATNRIGHT$(null)(null)VAL(null)(null) (null)VALVAL(null)(null)(null)    SYS""FRE""
  8. 35 REM"[141][145] [158]""[184]""   [159][202]UNE 16, 1995. [208]AGE 62.  [158]""[184]""
  9. 40 [143]"GOSUBON SYS""FRE""                            ""FRE""
  10. 45 REM"[141][145] [158]""[184]""   [159][211]OMEONE ASKED  '[215]HY IS   [158]""[184]""
  11. 50 [143]"GOSUBON SYS""FRE""   OPENHIS TONGUE STICKING OUT' SYS""FRE""
  12. 55 REM"[141][145] [158]""[184]""                            ""[184]""
  13. 60 [143]"GOSUBON SYS""FRE""  OPEN(null)HIS IS THE BEST REASON   SYS""FRE""
  14. 65 REM"[141][145] [158]""[184]""    [159][201] COULD FIGURE OUT.     [158]""[184]""
  15. 70 [143]"GOSUBON SYS""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""
  16. 75 REM"[141][145] [158]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[154]
  17. 80 [143] BUG ENTERS UPPER RT:FLITS AROUND      GOES DOWN UNDER NOSE,FLITS AROUND
  18. 85 [143] GOES UP NOSE, EYE ROLLS, TONGUE         SPASMS, SNEEZES BUG OUT.
  19. 90 [143] BLOWS OUT WALL: WALL REPAIRS.           BUG FLITS AROUND SOME MORE.
  20. 95 [143] TONGUE STICKS OUT AND ZAPS                THE BIG OLD BAD BUG...        .
  21. 97 [143]  PROGRAMMED, NOT IN ML, NOT IN            PASCAL, NOT IN LOTUS, SOME
  22. 98 [143]    SPAGHETTI BUT MOSTLY IN                     PURE 'GOULASH'           .
  23. 99 :
  24. 100 Z[178]700:[129]T[178]Z[164]726:[135]A:[151]T,A:[130]:[143] ^ PRINT@: SYSZ,C,R,"TEXT" OR VAR.
  25. 105 [131] 32,253,174,32,158,183,138,72,32,253,174,32,158,183,104,168,24,32
  26. 110 [131] 240,255,32,253,174,76,164,170,0
  27. 112 [141]700:[143]   ODD TITLE
  28. 115 [151]53280,12:[151]53281,7:[151]53265,11:[153]"LOADRETURN";:SN[178]54272:S[178]SN[170]24:[151]S,0
  29. 120 [153]"PRINT#     VERIFY   PRINT# VERIFY   PRINT# VERIFY   PRINT# VERIFY   PRINT#                    ";
  30. 125 [153]"PRINT#    VERIFY                PRINT#                    ";
  31. 130 [153]"   VERIFY                PRINT#                     ";
  32. 135 [153]"   VERIFY     STOP                       PRINT#         ";
  33. 140 [153]"PRINT#   VERIFY     STOP                       PRINT#         ";
  34. 145 [153]"    VERIFY    STOP         (null)STOP  PRINT#         ";
  35. 150 [153]"   VERIFY     STOP          (null)STOP  PRINT#         ";
  36. 155 [153]"   VERIFY     STOP           (null)STOP  PRINT#         ";
  37. 160 [153]"    VERIFY    STOP            (null)STOP  PRINT#         ";
  38. 165 [153]"    VERIFY    STOP      CONT(null)USRUSRUSR(null)  (null)STOP  PRINT#         ";
  39. 170 [153]"     VERIFY   STOP      CONTFN  CONT THEN   (null)STOP  PRINT#         ";
  40. 175 [153]"     VERIFY   STOP      CONT(null)ANDANDANDSQR    (null)STOP  PRINT#         ";
  41. 180 [153]"      VERIFY  STOP                (null)STOP  PRINT#         ";
  42. 185 [153]"       VERIFY STOP                 (null)STOP  PRINT#         ";
  43. 190 [153]"        STOP                  (null)STOP  PRINT#         ";
  44. 195 [153]"        STOP             STOP  PRINT#         ";
  45. 200 [153]"        STOP     DEF        WAITFNSTOP  PRINT#         ";
  46. 205 [153]"        STOP     DEF FNFNFNFNFNFNFN(null)STOP  PRINT#         ";
  47. 210 [153]"        STOP     DEF TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( (null)STOP  PRINT#         ";
  48. 215 [153]"        STOP     DEF               WAITSTEPSTOP  PRINT#         ";
  49. 220 [153]"        STOP     DEF FNFNFNFNFNFNFNWAITSTEP STOP  PRINT#         ";
  50. 225 [153]"        STOP     DEF        WAITFNSTOP  PRINT#         ";
  51. 230 [153]"        STOP             STOP  PRINT#         ";
  52. 235 [153]"        STOP                       PRINT#         ";
  53. 240 [153]"        STOP                       PRINT#      JGCMDSAVEAWAIT":[151]53265,27
  54. 245 [129]T[178]217[164]242:[151]T,[194](T)[176]128:[130]:D[178]40:[141]:[141]660
  55. 250 D[178]7:[158]Z,0,15,"PRINT#NOW WHY":[141]:[153]" DO YOU":[141]:[153]"SUPPOSE"
  56. 255 [141]:[153]"  HIS":[141]:[153]"TONGUE":[141]:[153]"  IS":[141]
  57. 260 [153]"STICKIN":[141]:[153]"  OUT":D[178]20:[141]
  58. 265 [129]T[178]15[164]23:[158]Z,0,T,"PRINT#       ":[130]:D[178]30:[141]
  59. 270 [158]Z,27,17," CMD ":[158]Z,14,18,"TAB(TAB(TAB(TAB(TAB(TAB((null)WAIT        "
  60. 275 [153][163]14)"      WAITSTEP        "
  61. 280 :
  62. 285 [143] C=COL:R=ROW:T=TIMES (FOR-NEXT)
  63. 290 :
  64. 295 E$[178]"LOG":E1$[178]"*":E2$[178]"RND":E3$[178]"COS":[143] * *  EYES
  65. 300 E4$[178]"PRINT# CMD CMD CMD CMD CMD CMD CMD CMD CMD CMD ":[143] * *  ERASE SNEEZE
  66. 305 T$[178]"TAB(TAB((null)CMDCMDCMDCMDCMDCMDCMD' ' ' WAITSTEP":T1$[178]"TAB((null)WAIT CMDCMDCMDCMDCMDCMDCMD     WAITSTEP ":[143] * *  TONGUE
  67. 310 [143] * *  BUG IN DISTANCE
  68. 315 T[178]4:C[178]27:R[178]5:X[178]0:D[178].01:[129]J[178]1[164]45:[151]S,0:[141]:[151]S,X:X[178]X[170]1:[139]X[177]3[167]X[178]0
  69. 320 [139][187](1)[177].7[167][151]S,0:[141]:[151]S,6
  70. 325 [130]: [143] * *  BUG ENTERS
  71. 330 [129]J[178]1[164]T:[158]Z,C,R,"LISTX":[151]S,2:[151]S,0:D[178].001:[141]
  72. 335 [158]Z,C,R,"PRINT#+":[151]S,5:[151]S,0:[158]Z,C,R,"LIST*":[151]S,3:[151]S,0
  73. 340 [139][187](1)[177].72[167][158]Z,C,R,"PRINT#*"
  74. 345 D[178].5:[141]:[130]:[158]Z,C,R," ":A$[178]E$:[141]470
  75. 350 [143] * *  BUG GETS ON DOWN
  76. 355 T[178]11:C[178]25:R[178]5:D[178].3:B[178]3:B1[178]5:[141]475
  77. 360 A$[178]E1$:[141]470:T[178]5:R[178]15:C[178]28:B[178]8:B1[178]9:[141]475:T[178]3:R1[178]0:C[178]25:B[178]3:B1[178]0
  78. 365 [141]475:T[178]9:C[178]27:R1[178]1:B[178]4:B1[178]7:[141]475:[137]595:[143] * * UP NOSE; SNEEZE
  79. 370 [143] * *  BUG IS OUT OF NOSE                     AND FLITS ABOUT MORE
  80. 375 [158]Z,23,15,"POKE*":T[178]6:R[178]15:C[178]23:D[178].3:B[178]0:B1[178]0:R1[178]0:[141]475
  81. 380 T[178]5:R[178]20:C[178]26:B1[178]2:R1[178]1:[141]475:T[178]5:R[178]15:C[178]26:B1[178]6:B[178]3:R1[178]0:[141]475
  82. 385 T[178]5:R[178]18:C[178]21:B1[178]0:B[178]0:R1[178]0:[141]475:[141]470
  83. 390 T[178]4:R[178]20:C[178]25:B1[178]0:B[178]0:R1[178]1:[141]475:T[178]3:R[178]17:C[178]27:B1[178]5:B[178]0:R1[178]1:[141]475
  84. 395 T[178]6:R[178]16:C[178]24:B1[178]7:B[178]3:R1[178]0:[141]475:T[178]5:R[178]20:C[178]23:B1[178]0:B[178]0:R1[178]1:[141]475
  85. 400 T[178]6:C[178]26:R[178]15:D[178].3:B[178]2:B1[178]4:R1[178]0:[141]475
  86. 405 [143] * *  STICK OUT TONGUE; ZAP BUG
  87. 410 T$[178]"TAB(CMD ":[129]T[178]19[164]26:[158]Z,T,18,T$:[130]:[151]S,8:[151]S,0:D[178].5
  88. 415 [158]Z,27,17,"(null)CMD (null)CMDCMD WAITSTEPCMDCMDSTEP":[151]S,4:[151]S,0:[141]:[151]S,6:[151]S,0:D[178]20
  89. 420 [141]:D[178]2.2:[129]T[178]1[164]12:[129]J[178]3[164]0[169][171]1:[151]S,J:[151]S,0:[139][187](1)[177].9[167][141]
  90. 425 [130]:[130]
  91. 430 [143] * *  END THIS MESS...
  92. 435 D[178]8:[158]Z,0,18,"PRINT#NOW YOU":[158]Z,16,10,E2$:[141]
  93. 440 [158]Z,16,10,E$:[141]:[158]Z,1,20,"PRINT#KNOW!":[158]Z,16,10,E2$
  94. 445 D[178]10:[141]:[158]Z,16,10,E$:D[178]20:[141]:[141] 660
  95. 450 [158]Z,0,18,"PRINT#       ":D[178]2:[141]:[153]"     ":D[178]30:[141]
  96. 455 D[178]1.2:[129]T[178]1[164]2:[129]J[178]3[164]0[169][171]1:[151]S,J:[151]S,0:[139][187](1)[177].9[167][141]
  97. 460 [130]:[130]:D[178]30:[141]:IN[178]1:[141]700:[141]:[137]1100:[143]   ENDING
  98. 470 [158]Z,16,10,A$:[142]: [143]  EYES
  99. 475 [129]J[178]1[164]T:[143] * *  BUG MOVE DN
  100. 480 [158]Z,C,R,"LIST+":[151]S,3:[151]S,0:[158]Z,C,R,"X":[151]S,7:[151]S,0
  101. 485 [158]Z,C,R,"*":[151]S,5:[151]S,0:X[178][187](1):[139]X[177].82[167]485
  102. 490 [158]Z,C,R," ":[139]J[178]B[167]C[178]C[170]1:[137]515
  103. 495 [139]J[177]B1[167]C[178]C[170]1:[137]505
  104. 500 C[178]C[171]1
  105. 505 [139]R1[178]1[167]R[178]R[171]1:[137]515
  106. 510 R[178]R[170]1
  107. 515 [141]:[130]:[142]
  108. 520 [143] * *  SNEEZE
  109. 525 D[178].5:[141]:[158]Z,29,16,"   CMDCMDCMD  CMDCMD   CMDCMDCMD  CMDCMD   ":[141]
  110. 530 [158]Z,22,17,"      CMDCMDCMDCMDCMDCMD       ":[141]
  111. 535 [158]Z,29,16,"STOP   ":[158]Z,29,20,"   ":[141]
  112. 540 [158]Z,32,15," ":[158]Z,32,21," ":[141]
  113. 545 [158]Z,31,17,"  ":[153][163]32)"   ":[158]Z,31,19,"  ":[141]
  114. 550 [158]Z,32,16,"  ":[158]Z,32,20,"--":[141]
  115. 555 [158]Z,33,14,"STOP- ":[158]Z,33,22,"- "
  116. 560 [158]Z,35,13,"STOP -":[158]Z,35,23," -"
  117. 565 [158]Z,33,15,"  CMD  CMDCMDCMD -  CMDCMD  - CMDCMDCMDCMDCMDCMD -  CMDCMDCMDCMD   CMDCMDCMD  "
  118. 570 [158]Z,35,14," ":[158]Z,35,22," ":[158]Z,14,19,"      "
  119. 575 D[178]6:[141]:[129]T[178]38[164]31[169][171]1:[158]Z,T,13,E4$:[130]
  120. 580 [129]T[178]17[164]19:[158]Z,29,T,"STOP  ":[130]:     [143]  * *  MOVE TONGUE BACK
  121. 585 [158]Z,19,18,T1$:[137]375
  122. 590 [143] * *  BUZZ IN NOSE; EYES ROTATE,            WATCH OUT! SNEEZE A COMING!
  123. 595 D[178].3:[129]T[178]13[164]24:[151]S,1:[151]S,0:[141]:[158]Z,16,10,E1$
  124. 600 [151]S,4:[151]S,0:[141]:[158]Z,16,10,E2$
  125. 605 [139][187](1)[177].6[167][151]S,7:[151]S,0:[158]Z,16,10,E3$
  126. 610 [151]S,3:[151]S,0:[141]:[158]Z,16,10,E$
  127. 615 [139]T[178]16[167][158]Z,22,17,"AH!":DU[178]8:[141] 640
  128. 620 [139]T[178]20[167][158]Z,23,18,"AH!!":[141] 640
  129. 625 [139]T[178]24[167][158]Z,19,18,T$:[158]Z,23,18,"CHOO!!":DU[178]11:[141] 640
  130. 630 [130]:[137]525
  131. 635 [143] * *  BLOWOUT SNEEZE SOUND
  132. 640 [129]A[178]SN[164]SN[170]24:[151]A,0:[130]
  133. 645 [151]SN[170]1,20:[151]SN[170]5,16[170]DU:[151]SN[170]24,15:[151]SN,240:[151]SN[170]4,129
  134. 650 D[178].6:[141]:D[178].3:[142]
  135. 655 [143] * *  SOUND> BEAUTIFUL RAPSODY
  136. 659 S[178]54296
  137. 660 SN[178]54272:N[178]2:[129]I[178]0[164]9:[129]J[178]1[164]3:[151]SN[170]5,62:[151]SN[170]6,48:[151]SN[170]24,I
  138. 665 [151]SN[170]1,[181]([187](1)[172]12)[170]5:[151]SN,54:[151]SN[170]4,33:[129]K[178]1[164]108:[130]
  139. 670 [151]SN[170]4,32:[129]K[178]1[164]N:[130]:[130]:N[178]N[170]2:[130]
  140. 675 [129]I[178]SN[164]SN[170]23:[151]I,0:[130]:[129]I[178]10[164]0[169][171]1:[151]S,I:[130]:D[178]20:[141]:[142]
  141. 700 [153]"LOADRETURN":[151]53265,11:[151]53281,0:[151]53280,0:[141]880
  142. 710 D[178]10:[141]:[141]760
  143. 720 [151]53280,7:[151]53281,7:D[178]4:[141]:[141]760
  144. 730 [139]IN[178]0[167]780
  145. 740 [151]53280,0:[151]53281,0:[141]760:D[178]10:[141]:[142]
  146. 750 [143]
  147. 760 [129]J[178]0[164]65:[153]"";: [153]"RETURNON":[130]
  148. 770 D[178]13:[141]:[142]
  149. 780 [151]53280,0:[151]53281,0:D[178]4:[141]:[141]760
  150. 785 [143]    UNIQUE TITLE SCREEN
  151. 790 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
  152. 800 [153]"(null)  THE IDEA FOR THE BLUE MAN           (null)";
  153. 810 [153]"(null)     CAME FROM A PICTURE IN AN        (null)";
  154. 820 [153]"(null)        ARTICLE ABOUT BBS'S IN        (null)";
  155. 830 [153]"(null)           ENTERTAINMENT WEEKLY       (null)";
  156. 840 [153]"(null)              JUNE 16, 1995, PAGE 62. (null)";
  157. 850 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPWAIT";:D[178]60:[141]:IN[178]1
  158. 860 [129]T[178]9[164]16:[151]781,T:[158]59903:[130]
  159. 870 [129]T[178]217[164]242:[151]T,[194](T)[176]128:[130]:[141]880:[137]710
  160. 880 [153]"       STEP     WAITSTEP STEP WAITSTEP STEP WAITSTEP STEP    WAITSTEP
  161. 890 PRINT"        [169] [146][169]   [169] [146][169] [169] [146][169] [169] [146][169]
  162. 900 [153]"       STEP WAITSTEP   STEP     WAITSTEP STEP  WAITSTEP  CLOSECLOSECLOSECLOSECLOSE"
  163. 910 [153]"      STEP WAITSTEP   STEP WAITSTEP STEP WAITSTEP STEP WAITSTEP
  164. 920 PRINT"     [169] [146][169]   [169] [146][169] [169] [146][169] [169]     [146][169]
  165. 930 [153]"   STEP       WAITSTEPSTEP  WAITSTEP     STEP  WAITSTEP STEP  WAITSTEP STEP      WAITSTEP";
  166. 940 [153]"  STEP  WAITSTEP STEP  WAITSTEPSTEP  WAITSTEP     STEP  WAITSTEP STEP  WAITSTEP STEP  WAITSTEP
  167. 950 PRINT" [169]  [146][169] [169]  [146][169][169]  [146][169]     [169]  [146][169] [169]  [146][169] [169]  [146][169]
  168. 960 [153]"STEP       WAITSTEP STEP  WAITSTEP     STEP  WAITSTEP STEP  WAITSTEP STEP    WAITSTEP
  169. 970 PRINT"[223]  [223][146] [223]  [223][146] [223]  [223][146]     [223]  [223][146] [223]  [223][146] [223]  [223][146]     "
  170. 980 PRINT" [223]  [223][146] [223]  [223][146] [223]  [223][146]     [223]  [223][146] [223]  [223][146] [223]  [223]
  171. 990 [153]"  (null)       (null)WAIT (null)      (null)WAIT (null)       (null)WAIT (null)      (null)
  172. 1000 PRINT"    [223]        [223][146][223]       [223][146] [223]       [223]
  173. 1010 [153]"     (null)        (null)WAIT(null)       (null)WAIT (null)       (null)
  174. 1020 PRINT"      [223]  [223][146][223] [223][146][223] [223][146][223]  [223][146][223] [223][146] [223]  [223][146]  [223] [223]
  175. 1030 [153]"       (null)  (null)WAIT(null) (null)WAIT(null) (null)WAIT(null)       (null)WAIT (null)  (null)WAIT  (null) (null)
  176. 1040 PRINT"        [223]  [223][146][223] [223][146][223] [223][146][223]  [223][146][223] [223][146] [223]  [223][146]  [223] [223]
  177. 1050 [153]"         (null)  (null)WAIT(null) (null)WAIT(null) (null)WAIT(null)  (null)WAIT(null) (null)WAIT (null)  (null)WAIT  (null) (null)":[151]53265,27
  178. 1060 [142]
  179. 1100 [151]53280,6:[151]53281,6:[153]"LOAD (null)RESS...
  180. 1110 PRINT"       <[158][193][159]> TO SEE [193][199][193][201][206]
  181. 1140 [153]"       <SYS(null)OPEN> TO (null)(null)ATNSTR$ (null)ROGRAM                         OF YOUR CHOICE
  182. 1150 PRINT"       <[158][205][159]> TO LOAD [205][197][206][213]
  183. 1160 [153]"       <SYS(null)OPEN> TO (null)(null)RIGHT$(null)
  184. 1170 GETG$:IFG$<>"A"ANDG$<>"L"ANDG$<>"M"ANDG$<>"Q"THEN1170
  185. 1180 IFG$="A"THENRUN
  186. 1190 IFG$="Q"THENPRINT"[147][154]":END
  187. 1210 IFG$="L"THENINPUT"    [208][210][207][199][210][193][205] NAME";F$
  188. 1220 IFG$="M"THENPRINT" [205]ENU NOT AVAILABLE...":D=15:GOSUB:RUN1100
  189. 1230 PRINT"[147][142]LOADF$,8[154]":POKE631,19:POKE632,131:POKE198,2:END
  190.