home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
C64Demos
/
THE-BLUE-MAN
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
9KB
|
190 lines
0 :FORK=1TO100*D:NEXT:IFD>0THENRETURN: -:::<COMMODORE 64 IS BEAUTIFUL!>:::-
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]" <SYS(null)OPEN> TO (null)(null)ATNSTR$ (null)ROGRAM OF YOUR CHOICE
1150 PRINT" <[158][205][159]> TO LOAD [205][197][206][213]
1160 [153]" <SYS(null)OPEN> 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