10 REM"ƒThis one's for Jennifer
   20 REM"ƒ(Think about it...)
   30 :
   40 MODE7:VDU23;8202;0;0;0;
   50 *MUSIC
   60 PROCgra
   70 ENVELOPE1,1,0,0,0,0,0,0,121,-10,-5,-2,120,120
   80 RESTORE
   90 a=1
  100 s=2
  110 READ A$,B$,C$,D$
  120 IF A$="" AND B$="" AND C$="" FOR Z=0 TO 3000:NEXT:GOTO70
  130 FOR A=1TO 16
  140 IF ASC(MID$(A$,A,1))=32 SOUND1,0,0,s:GOTO170
  150 IF MID$(A$,A,1)="'" SOUND1,a,5,s:GOTO170
  160 SOUND1,a,ASC(MID$(A$,A,1)),s
  170 IF ASC(MID$(B$,A,1))=32 SOUND2,0,0,s:GOTO200
  180 IF MID$(B$,A,1)="'" SOUND2,a,5,s:GOTO200
  190 SOUND2,a,ASC(MID$(B$,A,1)),s 
  200 IF ASC(MID$(C$,A,1))=32 SOUND3,0,0,s:GOTO230
  210 IF MID$(C$,A,1)="'" SOUND3,a,5,s:GOTO230   
  220 SOUND3,a,ASC(MID$(C$,A,1)),s
  230 IF ASC(MID$(D$,A,1))=32 SOUND0,0,0,s:GOTO270    
  240 IF MID$(D$,A,1)="*" SOUND0,a,6,s 
  250 IF MID$(D$,A,1)="." SOUND0,a,5,s
  260 IF MID$(D$,A,1)="@" SOUND0,a,4,s
  270 NEXT
  280 GOTO110
  290 DATA"                ","                ","                ","*   @   *   @   ","                ","                ","                ","* @ * @ * @ **@ ","        Q Q ! ! ","    = = = = = = ","! ! ! ! ! ! ! ! ","* @ * @ * @ **@ "
  300 DATA"        Q Q e e ","    = = = = = = ","! ! ! ! ! ! ! ! ","* @ * @ * @ ****","5 5 5 5 5 5 5 5 ","5 5 5  5! ! ! ! ","5 5 5  51 1 1 1 ","                ","5 5 5 5 = = = = ","% % % %%- - - --","5 5 5 55I I I II"  
  310 DATA"                ","5 5 5 5 5 5 5 5 ","5 5 5  5! ! ! ! ","5 5 5  51 1 1 1 ","                ","5 5 5 5 = = = = ","% % % %%- - - - ","5 5 5 55I I I II","                ","5 5 5 5 5 5 5 5 ","5 5 5  5! ! ! ! ","5 5 5  51 1 1 1 "
  320 DATA"*       *       ","5 5 5 5 = = = = ","% % % %%- - - --","5 5 5 55I I I II","*       *   @@@@","5 5 5 5 5 5 5 5 ","5 5 5  5! ! ! ! ","5 5 5  51 1 1 1 ","*       *       ","5 5 5 5 = = = = ","% % % %%- - - --","5 5 5 55I I I II"
  330 DATA"* * * * * * @@@@","A A A A = = = = ","' ' ' ' ' ' ' ' ","5 5 5 5 ! ! ! ! ","*   @   *   @   ","5 5 5 5 = = = = ","' ' ' ' ' ' ' ' ","% % % % - - - - ","*   @   *   @   ","A A A A = = = = ","' ' ' ' ' ' ' ' ","5 5 5 5 ! ! ! ! "
  340 DATA"*   @   *   @   ","5 5 5 5 = = = = ","' ' ' ' ' ' ' ' ","% % % % - - - - ","*   @   *   @   ","  e mq  m e   ","A A A A = = = = ","5 5 5 5 ! ! ! ! ","*   @   *   @   "," y qe  q e q m ","5 5 5 5 = = = = ","% % % % - - - - "
  350 DATA"*   @   *   @   ","  e mq  m e   ","A A A A = = = = ","5 5 5 5 ! ! ! ! ","*   @   *   @   ","yqeqeqm        ","5 5 5 5 = = = = ","% % % % - - - - ","*   @   *   @   ","  e mq  m e   ","A A A A = = = = ","5 5 5 5 ! ! ! ! "
  360 DATA"*   @   *   @   "," y qe  q e q m ","5 5 5 5 = = = = ","% % % % - - - - ","*   @   *   @   ","  e mq  m e   ","A A A A = = = = ","5 5 5 5 ! ! ! ! ","*   @   *   @   "," yqeqeqm…‰‘•™","% % % % ! ! ! ! ","5 5 5 5         "
  370 DATA"*   @   *   @@@@","±±±±±±±±±±±±±±±±","A A A A = = = = ","5 5 5 5 ! ! ! ! ","*   @   *   @   ","±±±±±±±±©©©©©©©©","% % % % ! ! ! ! ","5 5 5 5 = = = = ","*   @   *   @   ","‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘","A A A A = = = = ","5 5 5 5 ! ! ! ! "
  380 DATA"*   @   *   @   ","","% % % % ! ! ! ! ","5 5 5 5 = = = = ","*   @   *   @@@@","• • • • • •","A A A A = = = = ","5 5 5 5 ! ! ! ! ","*   @   *   @   ","• • • • • •","% % % % ! ! ! ! ","5 5 5 5 = = = = "
  390 DATA"*   @   *   @@@@","• • • • • •","A A A A = = = = ","5 5 5 5 ! ! ! ! ","*   @   *   @   ","• • • • • •","% % % % ! ! ! ! ","5 5 5 5 = = = = ","*   @   *   @@@@","                ","                ","                "
  400 DATA"*   @   *   @@@@","                ","                ","                ","*   @   *   @@@@","                ","                ","                ","*   @   *   @@@@","                ","                ","                "
  410 DATA"*   @   *   @@@@","' ' ' ' ' ' ' ' ","                ","                ","*   @   *   @@@@","' ' ' ' ' ' ' ' ","                ","                ","*   @   *   @@@@","' ' ' ' ' ' ' ' ","    •       •   ","              "
  420 DATA"*   @   *   @@@@","' ' ' ' ' ' ' ' ","    •       •   ","              ","*   @   *   @@@@","' ' ' ' ' ' ' ' ","    •       •   ","              ","*   @   *   @   ","' ' ' ' ' ' ' ' ","    •       •   ","              "
  430 DATA"*   @   @@@@....","5AQe5AQe!1=Q!1=Q","A A A A = = = = ","5 5 5 5 ! ! ! ! ","*   @   *   @   ","%5AU%5AU-=I]-=I]","5 5 5 5 = = = = ","% % % % - - - - ","*   @   *   @   ","5AQe5AQe!1=Q!1=Q","A A A A = = = = ","5 5 5 5 ! ! ! ! "
  440 DATA"*   @   *   @   ","%5AU%5AU-=I]-=I]","5 5 5 5 = = = = ","% % % % - - - - ","*   @   *   @   ","! ! ! ! ! ! ! ! ","! ! ! ! ! ! ! ! ","! ! ! ! ! ! ! ! ","****@@@@....@@@@","! ! ! ! ! ! ! ! ","! ! ! ! ! ! ! ! ","! ! ! ! ! ! ! ! "
  450 DATA"****@@@@....@@@@","''''''''''''''''","''''''''''''''''","''''''''''''''''","*       *       ","'               ","'               ","'               ","*               ","","","",""
  460 DEFPROCgra
  470 X$=CHR$255
  480 PRINT
  490 PRINT"”,,,,,,,,,,,,,,,,,,,<"
  500 PRINT" ‘"X$X$X$X$X$X$X$X$X$X$X$X$X$"   ”.,,,,,,,,,,,,,,,,,,,,";
  510 PRINT" ‘"""X$"4 h"X$"!"X$" "X$" "X$" –    x"X$" ~}p~} "X$X$X$"} h"X$X$"///";
  520 PRINT" ‘ *"X$"p"X$"% "X$" "X$" "X$" –   h"X$X$" "X$"!"X$""""X$" "X$"  k5"X$X$"1"
  530 PRINT" ‘  {"X$"w  "X$" "X$" "X$" –  _?!"X$" "X$" "X$" "X$" "X$"  z5""+"X$X$"4"
  540 PRINT" ‘ h?`o4 "X$" "X$" "X$" –  ~"X$X$X$" "X$" "X$" "X$" "X$X$X$"?    k"X$
  550 PRINT" ‘_"X$"! """X$"0"X$" "X$" "X$" – z?``"X$" "X$"   "X$" "X$"       z"X$
  560 PRINT" ‘"X$X$X$X$X$X$X$X$X$X$X$X$X$"–x?!  "X$" "X$"   "X$" "X$" |||||~"X$"%"
  570 PRINT"”,,,,,,,,,,,,,,,,,,,<           ‡By Joel";
  580 PRINT"                  ”.,,,,,,,,,,,,,,,,,,,,";
  590 PRINT"       …Original theme by Mega"
  600 PRINT"   …Digitised and Harmonised by Joel"
  610 PRINT'CHR$141;"ƒPhone the‡RABBIT RUN -…0924 264170 RB"
  620 PRINTCHR$141;"ƒPhone the‡RABBIT RUN -0924 264170 RB"  
  630 ENDPROC