0 PRINT"[147]":POKE53280,9:POKE53281,7:POKE646,9
1 PRINT "               SUMMERTIME":PRINT:PRINT
3 PRINT"ADD THESE LINES TO [144]SONG MAKER[149] TO CREATE THE SONG SUMMERTIME";
5 PRINT" FROM PORGY AND BESS BY GEORGE AND IRA GERSHWIN":PRINT
7 PRINT"FIRST DELETE ALL [144]SONG MAKER[149] LINES ABOVE 9500 AND BELOW 9900"
9001 PH=0:ES%=3:DIM MD$(ES%),G%(2),AD(2),Y%(2)
9010 AK%(0)=2:AK%(1)=0:AK%(2)=4
9020 DY%(0)=5:DY%(1)=0:DY%(2)=8
9030 SN%(0)=4:SN%(1)=0:SN%(2)=1
9040 RE%(0)=2:RE%(1)=0:RE%(2)=3
9070 WF%(0)=16:WF%(1)=32:WF%(2)=64
9075 G%(0)=WF%(0)OR 7:G%(1)=WF%(1) OR 1:G%(2)=WF%(2) OR 1
9080 PW%(0,0)=200:PW%(0,1)=12
9081 PW%(1,0)=200:PW%(1,1)=12
9082 PW%(2,0)=200:PW%(2,1)=3
9105 DATA 24,128,192,256,384,512,640,768,896,1024
9300 X%=3:Y%=150
9310 X%=0
9320 Y%=14
9330 X%=1
9340 Y%=15:POKE 54296,X% OR Y%
9345 EV%=0
9499 REM PHRASE 0
9500 MD$(0) = "04200930413335082"
9501 ME$(0,0)="[177]ECE[177]E@[195]DCDECA@E@"
9502 MV$(0,0)="4            3   "
9509 REM PHRASE 1
9510 MD$(1) = "043028033333900000031"
9511 ME$(1,0)="FEC[195]DD[188]CACACBAGFEDCB@"
9512 MV$(1,0)="4       34343      2 "
9519 REM PHRASE 2
9520 MD$(2) = "042024064203335082"
9521 ME$(2,0)="[177]EC[177]EE[177]EDC[195]DECA[177]E@"
9522 MV$(2,0)="4             3   "
9529 REM PHRASE 3
9530 MD$(3) = "444436055550900002"
9531 ME$(3,0)="EGEGAC[177]EDCCBAF[198]G[199]A"
9532 MV$(3,0)="3    4     3 5    "