0 :FORK=1TO100*D:NEXT:IFD>0THENRETURN: -::::::- 5 REM"[141][145] [158]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]"" 10 [143]"GOSUBON SYS""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE"" 15 REM"[141][145] [158]""[184]"" [159][212]HE IDEA FOR THE BLUE MAN [158]""[184]"" 20 [143]"GOSUBON SYS""FRE"" OPENCAME FROM A PICTURE IN AN SYS""FRE"" 25 REM"[141][145] [158]""[184]"" [159]ARTICLE ABOUT [194][194][211]'S IN [158]""[184]"" 30 [143]"GOSUBON SYS""FRE"" OPENVAL(null)(null)VAL(null)(null)ATNRIGHT$(null)(null)VAL(null)(null) (null)VALVAL(null)(null)(null) SYS""FRE"" 35 REM"[141][145] [158]""[184]"" [159][202]UNE 16, 1995. [208]AGE 62. [158]""[184]"" 40 [143]"GOSUBON SYS""FRE"" ""FRE"" 45 REM"[141][145] [158]""[184]"" [159][211]OMEONE ASKED '[215]HY IS [158]""[184]"" 50 [143]"GOSUBON SYS""FRE"" OPENHIS TONGUE STICKING OUT' SYS""FRE"" 55 REM"[141][145] [158]""[184]"" ""[184]"" 60 [143]"GOSUBON SYS""FRE"" OPEN(null)HIS IS THE BEST REASON SYS""FRE"" 65 REM"[141][145] [158]""[184]"" [159][201] COULD FIGURE OUT. [158]""[184]"" 70 [143]"GOSUBON SYS""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE"" 75 REM"[141][145] [158]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[154] 80 [143] BUG ENTERS UPPER RT:FLITS AROUND GOES DOWN UNDER NOSE,FLITS AROUND 85 [143] GOES UP NOSE, EYE ROLLS, TONGUE SPASMS, SNEEZES BUG OUT. 90 [143] BLOWS OUT WALL: WALL REPAIRS. BUG FLITS AROUND SOME MORE. 95 [143] TONGUE STICKS OUT AND ZAPS THE BIG OLD BAD BUG... . 97 [143] PROGRAMMED, NOT IN ML, NOT IN PASCAL, NOT IN LOTUS, SOME 98 [143] SPAGHETTI BUT MOSTLY IN PURE 'GOULASH' . 99 : 100 Z[178]700:[129]T[178]Z[164]726:[135]A:[151]T,A:[130]:[143] ^ PRINT@: SYSZ,C,R,"TEXT" OR VAR. 105 [131] 32,253,174,32,158,183,138,72,32,253,174,32,158,183,104,168,24,32 110 [131] 240,255,32,253,174,76,164,170,0 112 [141]700:[143] ODD TITLE 115 [151]53280,12:[151]53281,7:[151]53265,11:[153]"LOADRETURN";:SN[178]54272:S[178]SN[170]24:[151]S,0 120 [153]"PRINT# VERIFY PRINT# VERIFY PRINT# VERIFY PRINT# VERIFY PRINT# "; 125 [153]"PRINT# VERIFY PRINT# "; 130 [153]" VERIFY PRINT# "; 135 [153]" VERIFY STOP PRINT# "; 140 [153]"PRINT# VERIFY STOP PRINT# "; 145 [153]" VERIFY STOP  (null)STOP PRINT# "; 150 [153]" VERIFY STOP  (null)STOP PRINT# "; 155 [153]" VERIFY STOP  (null)STOP PRINT# "; 160 [153]" VERIFY STOP  (null)STOP PRINT# "; 165 [153]" VERIFY STOP  CONT(null)USRUSRUSR(null) (null)STOP PRINT# "; 170 [153]" VERIFY STOP  CONTFN  CONT THEN (null)STOP PRINT# "; 175 [153]" VERIFY STOP  CONT(null)ANDANDANDSQR (null)STOP PRINT# "; 180 [153]" VERIFY STOP  (null)STOP PRINT# "; 185 [153]" VERIFY STOP  (null)STOP PRINT# "; 190 [153]" STOP  (null)STOP PRINT# "; 195 [153]" STOP  STOP PRINT# "; 200 [153]" STOP  DEF WAITFNSTOP PRINT# "; 205 [153]" STOP  DEF FNFNFNFNFNFNFN(null)STOP PRINT# "; 210 [153]" STOP  DEF TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( (null)STOP PRINT# "; 215 [153]" STOP  DEF  WAITSTEPSTOP PRINT# "; 220 [153]" STOP  DEF FNFNFNFNFNFNFNWAITSTEP STOP PRINT# "; 225 [153]" STOP  DEF WAITFNSTOP PRINT# "; 230 [153]" STOP  STOP PRINT# "; 235 [153]" STOP PRINT# "; 240 [153]" STOP PRINT# JGCMDSAVEAWAIT":[151]53265,27 245 [129]T[178]217[164]242:[151]T,[194](T)[176]128:[130]:D[178]40:[141]:[141]660 250 D[178]7:[158]Z,0,15,"PRINT#NOW WHY":[141]:[153]" DO YOU":[141]:[153]"SUPPOSE" 255 [141]:[153]" HIS":[141]:[153]"TONGUE":[141]:[153]" IS":[141] 260 [153]"STICKIN":[141]:[153]" OUT":D[178]20:[141] 265 [129]T[178]15[164]23:[158]Z,0,T,"PRINT# ":[130]:D[178]30:[141] 270 [158]Z,27,17," CMD ":[158]Z,14,18,"TAB(TAB(TAB(TAB(TAB(TAB((null)WAIT " 275 [153][163]14)" WAITSTEP " 280 : 285 [143] C=COL:R=ROW:T=TIMES (FOR-NEXT) 290 : 295 E$[178]"LOG":E1$[178]"*":E2$[178]"RND":E3$[178]"COS":[143] * * EYES 300 E4$[178]"PRINT# CMD CMD CMD CMD CMD CMD CMD CMD CMD CMD ":[143] * * ERASE SNEEZE 305 T$[178]"TAB(TAB((null)CMDCMDCMDCMDCMDCMDCMD' ' ' WAITSTEP":T1$[178]"TAB((null)WAIT CMDCMDCMDCMDCMDCMDCMD WAITSTEP ":[143] * * TONGUE 310 [143] * * BUG IN DISTANCE 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 320 [139][187](1)[177].7[167][151]S,0:[141]:[151]S,6 325 [130]: [143] * * BUG ENTERS 330 [129]J[178]1[164]T:[158]Z,C,R,"LISTX":[151]S,2:[151]S,0:D[178].001:[141] 335 [158]Z,C,R,"PRINT#+":[151]S,5:[151]S,0:[158]Z,C,R,"LIST*":[151]S,3:[151]S,0 340 [139][187](1)[177].72[167][158]Z,C,R,"PRINT#*" 345 D[178].5:[141]:[130]:[158]Z,C,R," ":A$[178]E$:[141]470 350 [143] * * BUG GETS ON DOWN 355 T[178]11:C[178]25:R[178]5:D[178].3:B[178]3:B1[178]5:[141]475 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 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 370 [143] * * BUG IS OUT OF NOSE AND FLITS ABOUT MORE 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 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 385 T[178]5:R[178]18:C[178]21:B1[178]0:B[178]0:R1[178]0:[141]475:[141]470 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 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 400 T[178]6:C[178]26:R[178]15:D[178].3:B[178]2:B1[178]4:R1[178]0:[141]475 405 [143] * * STICK OUT TONGUE; ZAP BUG 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 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 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] 425 [130]:[130] 430 [143] * * END THIS MESS... 435 D[178]8:[158]Z,0,18,"PRINT#NOW YOU":[158]Z,16,10,E2$:[141] 440 [158]Z,16,10,E$:[141]:[158]Z,1,20,"PRINT#KNOW!":[158]Z,16,10,E2$ 445 D[178]10:[141]:[158]Z,16,10,E$:D[178]20:[141]:[141] 660 450 [158]Z,0,18,"PRINT# ":D[178]2:[141]:[153]" ":D[178]30:[141] 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] 460 [130]:[130]:D[178]30:[141]:IN[178]1:[141]700:[141]:[137]1100:[143] ENDING 470 [158]Z,16,10,A$:[142]: [143] EYES 475 [129]J[178]1[164]T:[143] * * BUG MOVE DN 480 [158]Z,C,R,"LIST+":[151]S,3:[151]S,0:[158]Z,C,R,"X":[151]S,7:[151]S,0 485 [158]Z,C,R,"*":[151]S,5:[151]S,0:X[178][187](1):[139]X[177].82[167]485 490 [158]Z,C,R," ":[139]J[178]B[167]C[178]C[170]1:[137]515 495 [139]J[177]B1[167]C[178]C[170]1:[137]505 500 C[178]C[171]1 505 [139]R1[178]1[167]R[178]R[171]1:[137]515 510 R[178]R[170]1 515 [141]:[130]:[142] 520 [143] * * SNEEZE 525 D[178].5:[141]:[158]Z,29,16," CMDCMDCMD CMDCMD CMDCMDCMD CMDCMD ":[141] 530 [158]Z,22,17," CMDCMDCMDCMDCMDCMD ":[141] 535 [158]Z,29,16,"STOP ":[158]Z,29,20," ":[141] 540 [158]Z,32,15," ":[158]Z,32,21," ":[141] 545 [158]Z,31,17," ":[153][163]32)" ":[158]Z,31,19," ":[141] 550 [158]Z,32,16," ":[158]Z,32,20,"--":[141] 555 [158]Z,33,14,"STOP- ":[158]Z,33,22,"- " 560 [158]Z,35,13,"STOP -":[158]Z,35,23," -" 565 [158]Z,33,15," CMD CMDCMDCMD - CMDCMD - CMDCMDCMDCMDCMDCMD - CMDCMDCMDCMD CMDCMDCMD " 570 [158]Z,35,14," ":[158]Z,35,22," ":[158]Z,14,19," " 575 D[178]6:[141]:[129]T[178]38[164]31[169][171]1:[158]Z,T,13,E4$:[130] 580 [129]T[178]17[164]19:[158]Z,29,T,"STOP ":[130]: [143] * * MOVE TONGUE BACK 585 [158]Z,19,18,T1$:[137]375 590 [143] * * BUZZ IN NOSE; EYES ROTATE, WATCH OUT! SNEEZE A COMING! 595 D[178].3:[129]T[178]13[164]24:[151]S,1:[151]S,0:[141]:[158]Z,16,10,E1$ 600 [151]S,4:[151]S,0:[141]:[158]Z,16,10,E2$ 605 [139][187](1)[177].6[167][151]S,7:[151]S,0:[158]Z,16,10,E3$ 610 [151]S,3:[151]S,0:[141]:[158]Z,16,10,E$ 615 [139]T[178]16[167][158]Z,22,17,"AH!":DU[178]8:[141] 640 620 [139]T[178]20[167][158]Z,23,18,"AH!!":[141] 640 625 [139]T[178]24[167][158]Z,19,18,T$:[158]Z,23,18,"CHOO!!":DU[178]11:[141] 640 630 [130]:[137]525 635 [143] * * BLOWOUT SNEEZE SOUND 640 [129]A[178]SN[164]SN[170]24:[151]A,0:[130] 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 650 D[178].6:[141]:D[178].3:[142] 655 [143] * * SOUND> BEAUTIFUL RAPSODY 659 S[178]54296 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 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] 670 [151]SN[170]4,32:[129]K[178]1[164]N:[130]:[130]:N[178]N[170]2:[130] 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] 700 [153]"LOADRETURN":[151]53265,11:[151]53281,0:[151]53280,0:[141]880 710 D[178]10:[141]:[141]760 720 [151]53280,7:[151]53281,7:D[178]4:[141]:[141]760 730 [139]IN[178]0[167]780 740 [151]53280,0:[151]53281,0:[141]760:D[178]10:[141]:[142] 750 [143] 760 [129]J[178]0[164]65:[153]"";: [153]"RETURNON":[130] 770 D[178]13:[141]:[142] 780 [151]53280,0:[151]53281,0:D[178]4:[141]:[141]760 785 [143] UNIQUE TITLE SCREEN 790 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"; 800 [153]"(null) THE IDEA FOR THE BLUE MAN (null)"; 810 [153]"(null) CAME FROM A PICTURE IN AN (null)"; 820 [153]"(null) ARTICLE ABOUT BBS'S IN (null)"; 830 [153]"(null) ENTERTAINMENT WEEKLY (null)"; 840 [153]"(null) JUNE 16, 1995, PAGE 62. (null)"; 850 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPWAIT";:D[178]60:[141]:IN[178]1 860 [129]T[178]9[164]16:[151]781,T:[158]59903:[130] 870 [129]T[178]217[164]242:[151]T,[194](T)[176]128:[130]:[141]880:[137]710 880 [153]" STEP WAITSTEP STEP WAITSTEP STEP WAITSTEP STEP WAITSTEP 890 PRINT" [169] [146][169] [169] [146][169] [169] [146][169] [169] [146][169] 900 [153]" STEP WAITSTEP STEP WAITSTEP STEP WAITSTEP CLOSECLOSECLOSECLOSECLOSE" 910 [153]" STEP WAITSTEP STEP WAITSTEP STEP WAITSTEP STEP WAITSTEP 920 PRINT" [169] [146][169] [169] [146][169] [169] [146][169] [169] [146][169] 930 [153]" STEP WAITSTEPSTEP WAITSTEP STEP WAITSTEP STEP WAITSTEP STEP WAITSTEP"; 940 [153]" STEP WAITSTEP STEP WAITSTEPSTEP WAITSTEP STEP WAITSTEP STEP WAITSTEP STEP WAITSTEP 950 PRINT" [169] [146][169] [169] [146][169][169] [146][169] [169] [146][169] [169] [146][169] [169] [146][169] 960 [153]"STEP WAITSTEP STEP WAITSTEP STEP WAITSTEP STEP WAITSTEP STEP WAITSTEP 970 PRINT"[223] [223][146] [223] [223][146] [223] [223][146] [223] [223][146] [223] [223][146] [223] [223][146] " 980 PRINT" [223] [223][146] [223] [223][146] [223] [223][146] [223] [223][146] [223] [223][146] [223] [223] 990 [153]" (null) (null)WAIT (null) (null)WAIT (null) (null)WAIT (null) (null) 1000 PRINT" [223] [223][146][223] [223][146] [223] [223] 1010 [153]" (null) (null)WAIT(null) (null)WAIT (null) (null) 1020 PRINT" [223] [223][146][223] [223][146][223] [223][146][223] [223][146][223] [223][146] [223] [223][146] [223] [223] 1030 [153]" (null) (null)WAIT(null) (null)WAIT(null) (null)WAIT(null) (null)WAIT (null) (null)WAIT (null) (null) 1040 PRINT" [223] [223][146][223] [223][146][223] [223][146][223] [223][146][223] [223][146] [223] [223][146] [223] [223] 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 1060 [142] 1100 [151]53280,6:[151]53281,6:[153]"LOAD (null)RESS... 1110 PRINT" <[158][193][159]> TO SEE [193][199][193][201][206] 1140 [153]" TO (null)(null)ATNSTR$ (null)ROGRAM OF YOUR CHOICE 1150 PRINT" <[158][205][159]> TO LOAD [205][197][206][213] 1160 [153]" TO (null)(null)RIGHT$(null) 1170 GETG$:IFG$<>"A"ANDG$<>"L"ANDG$<>"M"ANDG$<>"Q"THEN1170 1180 IFG$="A"THENRUN 1190 IFG$="Q"THENPRINT"[147][154]":END 1210 IFG$="L"THENINPUT" [208][210][207][199][210][193][205] NAME";F$ 1220 IFG$="M"THENPRINT" [205]ENU NOT AVAILABLE...":D=15:GOSUB:RUN1100 1230 PRINT"[147][142]LOADF$,8[154]":POKE631,19:POKE632,131:POKE198,2:END