home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 July / Ahoy_Magazine_85-07_1985_Double_L.d64 / summertime (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  39 lines
  1. 0 print"[147]":poke53280,9:poke53281,7:poke646,9
  2. 1 print "               summertime":print:print
  3. 3 print"add these lines to [144]song maker[149] to create the song summertime";
  4. 5 print" from porgy and bess by george and ira gershwin":print
  5. 7 print"first delete all [144]song maker[149] lines above 9500 and below 9900"
  6. 9001 ph=0:es%=3:dim md$(es%),g%(2),ad(2),y%(2)
  7. 9010 ak%(0)=2:ak%(1)=0:ak%(2)=4
  8. 9020 dy%(0)=5:dy%(1)=0:dy%(2)=8
  9. 9030 sn%(0)=4:sn%(1)=0:sn%(2)=1
  10. 9040 re%(0)=2:re%(1)=0:re%(2)=3
  11. 9070 wf%(0)=16:wf%(1)=32:wf%(2)=64
  12. 9075 g%(0)=wf%(0)or 7:g%(1)=wf%(1) or 1:g%(2)=wf%(2) or 1
  13. 9080 pw%(0,0)=200:pw%(0,1)=12
  14. 9081 pw%(1,0)=200:pw%(1,1)=12
  15. 9082 pw%(2,0)=200:pw%(2,1)=3
  16. 9105 data 24,128,192,256,384,512,640,768,896,1024
  17. 9300 x%=3:y%=150
  18. 9310 x%=0
  19. 9320 y%=14
  20. 9330 x%=1
  21. 9340 y%=15:poke 54296,x% or y%
  22. 9345 ev%=0
  23. 9499 rem phrase 0
  24. 9500 md$(0) = "04200930413335082"
  25. 9501 me$(0,0)="[177]ece[177]e@[195]dcdeca@e@"
  26. 9502 mv$(0,0)="4            3   "
  27. 9509 rem phrase 1
  28. 9510 md$(1) = "043028033333900000031"
  29. 9511 me$(1,0)="fec[195]dd[188]cacacbagfedcb@"
  30. 9512 mv$(1,0)="4       34343      2 "
  31. 9519 rem phrase 2
  32. 9520 md$(2) = "042024064203335082"
  33. 9521 me$(2,0)="[177]ec[177]ee[177]edc[195]deca[177]e@"
  34. 9522 mv$(2,0)="4             3   "
  35. 9529 rem phrase 3
  36. 9530 md$(3) = "444436055550900002"
  37. 9531 me$(3,0)="egegac[177]edccbaf[198]g[199]a"
  38. 9532 mv$(3,0)="3    4     3 5    "
  39.