5 POKE53280,8:POKE53281,9:POKE646,7
10 PRINT"[147]   BASIC SHOWER FOR AN                     DOUBLE-SIZE CHARACTER SET
20 [153]"   AND PLAYER FOR AN                       $1000-TUNE
30 PRINT"   BY TIGER-DISK
40 [153]"     HIT ANY KEY TO SHOW AND PLAY !     WAIT"
50 [161]A$:[139]A$[178]""[167]50
60 [153]"LOAD"
70 [153]"          T(null)IRIGHT$GCHR$EVALR(null) DSTR$IRIGHT$S(null)K(null)                     T(null)IRIGHT$GCHR$EVALR(null) DSTR$IRIGHT$S(null)K(null)"
80 [153]"             T(null)U(null)N(null)EVAL BPEEKY(null)":[153]"             T(null)U(null)N(null)EVAL BPEEKY(null)"
90 [153]" T(null)HLEFT$EVAL M(null)AATNGCHR$IRIGHT$CLENAATNL(null) GCHR$AATNR(null)FASCIRIGHT$EVALL(null)DSTR$"
100 [153]" T(null)HLEFT$EVAL M(null)AATNGCHR$IRIGHT$CLENAATNL(null) GCHR$AATNR(null)FASCIRIGHT$EVALL(null)DSTR$":[151]53272,25
110 [158]4096
120 [158]4099
130 [129]I[178]1[164]5:[130]
140 [161]A$:[139]A$[178]""[167]120
150 [151]54296,0
160 [151]53272,21:[151]43,1:[151]44,8:[155]