0 :FORD=1TO100*X:NEXT:IFX>0THEN RETURN:   :::::::::::::::::::::::::::::::::::::
2 REM"[141][145][154]  :::::::::::::::::::::::::::::::::::::
4 [143]"GOSUBONCONT  :::::                           :::::
6 REM"[141][145][154]  :::::    [150][195]OMMODORE[160] [203]EYBOARD    [154]:::::
8 [143]"GOSUBONCONT  :::::          DEFLENARTOONS         CONT:::::
10 REM"[141][145][154]  :::::                           :::::
12 [143]"GOSUBONCONT  :::::     DEF(null)OVINGLY MADE BY...   CONT:::::
14 REM"[141][145][154]  :::::         [202]IM [199]REEN         [154]:::::
16 [143]"GOSUBONCONT  :::::                           :::::
18 REM"[141][145][154]  :::::::::::::::::::::::::::::::::::::
20 [143]"GOSUBONCONT  :::::::::::::::::::::::::::::::::::::LIST
22 CLR:Z=700:FORT=ZTO726:READA:POKET,A:NEXT
24 DATA 32,253,174,32,158,183,138,72,32,253,174,32,158,183,104,168,24,32
26 DATA 240,255,32,253,174,76,164,170,0
28 POKE53265,11
29 DV=PEEK(186):IFDV<8THENDV=8
30 POKE53280,9:POKE53281,9:PRINT"[147][158][176][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][174]";
32 FORT=1TO11:PRINT"[221][159][169][223][169][223][169][158][221]                          [221][159][223][169][223][169][223][158][221]";
34 PRINT"[221][159][223][169][223][169][223][158][221]                          [221][159][169][223][169][223][169][158][221]";:NEXT
36 PRINT"[221][159][169][223][169][223][169][158][221]                          [221][159][223][169][223][169][223][158][221]";
38 PRINT"[158][173][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][189][157][148][192]"
40 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
42 PRINT"[150] [198]OLKS [201] WANT YOU TO MEET
44 [153]"     LEN(null)(null)(null)(null)STR$(null)(null)VALCLOSE(null)VAL(null)VAL.
46 PRINT" [200]E'S SORTA NEAT
48 [153]"    AND VERY, VERY SWEET!
50 PRINT" [194]OY! [193]RE YOU IN[157][157][157]FOR A TREAT!
52 [153]" (null)O WIPE OFF YOUR FEET...
54 PRINT" [195]OME IN AND TAKE A SEAT.
56 [153]" (null)URN ON THE JUKEBOXCMDCMDCMDCMDCMDCMDCMDCMDCMDAND LISTEN TO
58 PRINT"[159] AN [207]LDIE BUT [199]OODIE.
60 [153]" DEF(null)ETE WILL BE READY SOON!":[151]53265,27
61 TI$[178]"000000"
62 [158]57812"-SMOKE.ML",DV,0:[151]780,0:[151]781,168:[151]782,117:[158]65493
63 [158]57812"-DUNGEON",DV,0:[151]780,0:[151]781,0:[151]782,48:[158]65493
65 [139]TI$[179]"000004"[167]65
66 [153]"":[129]T[178]1[164]21:[153]"                          ":[130]
68 [153]"DEF  SYSORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
70 PRINT"  [221]                    [221]
72 [153]"  (null)  DEF(null)HAT'S THE WORST  SYS(null)
74 PRINT"  [221]                    [221]
76 [153]"  (null) DEFPOEM RIGHT$ EVER HEARD! SYS(null)
78 PRINT"  [221]                    [221]
80 [153]"  (null)      (null)IGNED (null)VAL(null)VAL   SYS(null)
82 PRINT"  [221]                    [221]
84 [153]"  /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPCONT":X[178]20:[141]:[158]30120
86 [151]53265,11:[151]53280,0:[151]53281,0:[153]"LOADRETURN";
88 [153]"SYS          TOANDPOSNEWFREUSRTAB( TAB(USRUSRTAB( TAB(USRFREWAITNEWPOSANDTO
90 PRINT"        [169] [201][160][201][160][201][160][201][160][201][160][160][213][160][213][160][213][160][213][160][213] [223]
92 [153]"       THEN RIGHT$ RIGHT$ RIGHT$ RIGHT$ RIGHT$ RIGHT$(null)CLOSE(null) (null) (null) (null) (null) WAITFN"
94 [153]"       ABS(null)PRINT(null)OPEN(null)CONT(null)CLR(null)DEF(null)FOR(null)(null)VERIFY(null)(null)CLR-(null)(null)CLR-(null)VERIFY(null)(null)FOR(null)DEF(null)CLR(null)CONT(null)OPEN(null)PRINT(null)(null)INT
96 PRINT"       [182][214][153][214][159][214][154][214][156][214][150][214][129][214][214][149][214][214][156]-[150][215][215][156]-[214][149][214][214][129][214][150][214][156][214][154][214][159][214][153][214][214][181]
98 [153]"       SYSTHEN RIGHT$ RIGHT$ RIGHT$ RIGHT$ RIGHT$ MID$(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null) WAITFN"
100 [153]"       ABSSYSRIGHT$ RIGHT$ RIGHT$SQRDEFUSRUSRUSRUSRUSRFREFREUSRUSRUSRUSRUSRSYS(null)(null) (null) (null)WAITINT"
102 [153]"       THEN RIGHT$CLOSERIGHT$ DEFFN=STR$STR$= (null)(null) =STR$STR$=THENSYS (null) (null) WAITFN"
104 [153]"        SYSRND RIGHT$ RIGHT$DEFFNCHR$LIST  DEFLEFT$-  -CHR$LIST  DEFLEFT$THENSYS(null) (null) *WAIT"
106 [153]"         (null) RIGHT$ DEFFNCHR$LIST COSDEFLEFT$ -- CHR$LIST COSDEFLEFT$THENSYS (null) WAITSTEP
108 PRINT"         [160][223]  [150][165][173][198][198][177][201]--[213][177][198][198][189][167][158]  [146][169]
110 [153]"            (null)DEFFN-  -(null)  (null)-  -THENWAITSYSSTEP
112 PRINT"            [167][150] - - [221]  [221] - - [146][158][165]"
114 PRINT"            [161][150]  - [213][203][160][160][202][201] -  [146][158][161]"
116 PRINT"             [150] -  [202][198][210][210][198][203]  - "
118 PRINT"            [169]-  - [146][169][163][163][223] -  -[223]
120 [153]"           COS  - TOANDPOSPOSPOSPOSANDTO -  LOG"
122 [153]"          THEN  - (null)LIST(null)(null)(null)(null)SQRSQRSQRSQRDEFSTEP -  WAITFN
124 PRINT"          [167] - - [223][155][207][207][207][208][208][208][150][169] - - [146][165]
126 [153]"           RND - - USRFREWAITNEWNEWFREUSR - - *"
128 [153]"            TAB(USRUSRFRENEWPOSANDTOTOANDPOSNEWWAITFREUSRUSRTAB(    ":[151]53265,27
130 X[178]20:[141]:[141] 284:[141]198
132 [153]"LISTORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
134 [153]"(null)                                     CLOSEWAIT(null)";
136 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP";
138 [153]"POKE                                      WAITDEF";:X[178]8:[141]
140 N[178]N[170]1:[145]N[137]142,146,150,154,158,162,166,170,174,178,182,186,190,194
142 [153]"    BOY!! THAT'S SOME NEAT MUSIC....  ":[141]206:[141]214
144 [141]198:[137]138
146 [153]"     HOWDY! I'M COMMODORE PETE...     ":[141]206:[141]226
148 [141]198:[137]138
150 [153]"     THE SUAVEST GUY YOU'LL......     ":[141]206:[141]222
152 [141]198:[137]138
154 [153]"       EVER BE LIKELY TO MEET!!       ":[141]206:[141]214
156 [141]198:[137]138
158 [153]"  BUT ENOUGH ABOUT BEAUTIFUL OLD ME!! ":[141]206:[141]214
160 [141]198:[137]138
162 [153]" LET ME TELL YOU ABOUT THIS WONDERFUL ":[141]206:[141]222
164 [141]198:[137]138
166 [153]" ODYSSEY OF C-64 DELIGHTFUL GOODIES!  ":[141]206:[141]214
168 [141]198:[137]138
170 [153]"THESE ARE COMMODORE KEYBOARD CARTOONS ":[141]206:[141]214
172 [141]198:[137]138
174 [153]"   THAT ARE DUMB, SILLY, STUPID AND   ":[141]206:[141]222
176 [141]198:[137]138
178 [153]"  SOMETIMES EVEN A LITTLE HUMOROUS!!  ":[141]206:[141]214
180 [141]198:[137]138
182 [153]"  YOU CAN'T HELP CHUCKLING A LITTLE!  ":[141]206:[141]222
184 [141]198:[137]138
186 [153]"  ALL THESE GOODIES BROUGHT TO YOU... ":[141]206:[141]214
188 [141]198:[137]138
190 [153]"       BY...  WHO ELSE, BUT...        ":[141]206:[141]222
192 [141]198:[137]138
194 [153]"            MY EVIL TWIN....          ":[141]206:[141]214
196 [141]198:[137]212
198 [158]Z,15,19,"DEFTOANDANDPOSPOSPOSPOSANDANDTO
200 PRINTTAB(15)"[223][155][204][204][204][204][186][186][186][186][150][169]
202 [153][163]16)"TAB(USRFREWAITNEWNEWFREUSRTAB(
204 PRINTTAB(16)" -    - [146]":FORD=1TO500:NEXT:RETURN
206 SYSZ,16,21,"[150][223][155][207][207][207][208][208][208][150][169]
208 [153][163]17)"USRFREWAITNEWNEWFREUSR":X[178]10:[141]
210 X[178]1.2:[151]53272,21:[141]:[151]53272,28:[141]:[142]
212 X[178].8:[129]TF[178]1[164]10:[151]53272,21:[141]:[151]53272,28:[141]:[130]:[137] 230
214 [129]T[178]1[164]3:[158]Z,15,11,"LIST  CMDCMDLOGLIST "[166]6)"ON  CMDCMDCOSLIST ":X[178].4:[141]
216 [158]Z,15,11,"*LIST CMDCMD  "[166]6)"ONRNDLIST CMDCMD  ":[141]
218 [158]Z,15,11,"LIST RNDCMDCMDLIST  "[166]6)"ONLIST *CMDCMDLIST  ":[141]
220 [158]Z,15,11,"LIST  CMDCMD COS"[166]6)"ONLIST  CMDCMD COSDEF":[141]:[130]:[142]
222 [158]Z,15,11,"*RNDCMDCMDLOGCOS"[166]6)"ON*RNDCMDCMDLOGCOS":X[178]8:X[178]6:[141]
224 [158]Z,15,11,"*RNDCMDCMDLOG "[166]6)"ON*RNDCMDCMDLOG ":[142]
226 [129]Y[178]1[164]10:[158]Z,15,11,"LIST(null)RIGHT$CMDCMD  "[166]6)"ON(null)RIGHT$CMDCMD  ":X[178].1:[141]
228 [158]Z,15,11,"  CMDCMDMID$(null)"[166]6)"ON  CMDCMDMID$(null)":X[178].1:[141]:[130]:[142]
230 [151]53265,11:[153]"LOAD"
232 [153]"     LISTSTEP  (null)STEP  (null)STEP          (null)STEP            (null)WAIT";
234 [153]"     ORTAN^LIST ORTAN^LIST ORTANTANTANTANTANTANTANTANTAN^LIST WAIT *NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWRNDLIST WAIT";
236 [153]"     (null) (null)LIST (null) (null)LIST (null) ORTAN^ ORTAN^ (null)LIST WAIT GET VERIFY THE      GETLIST WAIT";
238 [153]"     (null) (null)LIST (null) (null)LIST (null) (null)LIST (null) (null)LIST (null) (null)LIST WAIT GET           GETLIST WAIT";
240 [153]"     (null) (null)LIST (null) (null)LIST (null) (null)LIST (null) (null)LIST (null) (null)LIST WAIT GET  VERIFYMIGHTY   GETLIST WAIT";
242 [153]"LISTSTEP  (null)(null) (null)LIST (null) (null)LIST (null) (null)LIST (null) (null)LIST (null) (null)LIST WAIT GET           GETLIST ";
244 [153]"ORTAN^LIST (null) (null)LIST (null) (null)LIST (null) (null)LIST (null) (null)LIST (null) (null)LIST WAIT GET  VERIFYGREEN    GETLIST ";
246 [153]"(null) (null)LIST(null) (null) (null)LIST (null) (null)LIST (null) (null)LIST (null) (null)LIST (null) (null)LIST WAIT GET           GETLIST ";
248 [153]"(null) /TANTANEXP (null)LIST (null) (null)LIST (null)CLOSE(null)LIST (null) (null)LIST (null) (null)LIST WAIT GET  VERIFYODYSSEY  GETLIST ";
250 [153]"/TANTANTANTANTANTANEXPLISTWAITSTEP/TANEXPLISTWAITSTEP/TANEXPLISTWAITSTEP/TANEXPLISTWAITSTEP/TANEXPLISTWAITSTEP LOGWAITNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWCOSWAITLISTSTEP";
252 [153]"LISTSTEP       (null)STEP  (null)STEP      (null)STEP      (null)STEP      (null)";
254 [153]"ORTANTANTANTANTANTAN^LIST ORTAN^LIST(null)  (null)ORTANTANTANTANTAN^LIST ORTANTANTANTANTAN^LIST ORTANTANTANTANTAN^LIST ";
256 [153]"(null) ORTANTANTANTANEXPLISTWAITSTEP(null) /TANTAN^LIST (null) ORTANTANTANEXPLISTWAITSTEP(null) ORTANTANTANEXPLISTWAITSTEP(null) ORTAN^ (null)LIST ";
258 [153]"(null) (null)LIST STEP   (null)(null) ORTAN^(null)LIST (null) (null)LIST(null) (null)(null) (null)LIST(null) (null)(null) (null)LIST (null) (null)LIST ";
260 [153]"(null) (null)LIST ORTANTAN^LIST (null) (null)LIST /EXPLISTWAITSTEP(null) /TAN^LIST (null) /TAN^LIST (null) (null)LIST (null) (null)LIST ";
262 [153]"(null) (null)LIST /^ (null)LIST (null) (null)LIST (null) ORTANEXPLISTWAITSTEP(null) ORTANEXPLISTWAITSTEP(null) (null)LIST (null) (null)LIST ";
264 [153]"(null) (null)LIST(null) (null) (null)LIST (null) (null)LIST (null) (null)LIST(null)   (null)(null) (null)LIST(null)   (null)(null) (null)LIST (null) (null)LIST ";
266 [153]"(null) /TANTANEXP (null)LIST (null) (null)LIST (null) /TANTANTAN^LIST (null) /TANTANTAN^LIST (null) (null)LIST (null) (null)LIST ";    
268 [153]"/TANTANTANTANTANTANEXPLISTWAITSTEP/TANEXPLISTWAITSTEP/TANTANTANTANTANEXPLISTWAITSTEP/TANTANTANTANTANEXPLISTWAITSTEP/TANEXPLISTWAITSTEP/TANEXPLISTWAITSTEPPOKE";
270 [151]53265,27:X[178]20:[141]:[151]53280,7:[151]53281,7:[141]
272 [129]A[178]679[164]691:[135]B:[151]A,B:[130]
274 [131]120,169,49,141,20,3,169,234,141,21,3,88,96:[143] NEUTRALIZES SYS30120.MUS
276 [129]T[178]54272[164]54296:[151]T,0:[130]:[158]679: [143] DISABLES MUSIC
278 [143]:  PRINT
280 [153]"LOADSTOP";:[151]53272,21:[151]53281,0:[151]53280,0
282 F$[178]"B.PIANO MAN":[153]"LOADLOADF$,"DV:[151]631,19:[151]632,131:[151]198,2:[128]
284 [129]T[178]1[164]10:[129]LR[178]0[164]7:[151]53270,([194](53270)[175]248)[170]LR:[130]  : [143] SWAY
286 [129]RL[178]7[164]0[169][171]1:[151]53270,([194](53270)[175]248)[170]RL:[130]RL:[130]:[142]
10000 D[178][194](186):N$[178]"B.ODYSSEY":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]