home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 February / 1985-02.d64 / namethatnote_vic (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  82 lines
  1. 0 print"[147]";chr$(142):poke36879,59
  2. 1 print"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]name that note[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  3. 2 print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]a music tutor
  4. 3 [153]"instructions?y=yes":c$[178][199](13)
  5. 4 [161]i$:[139]i$[178]""[167]4
  6. 5 [139]i$[179][177]"y"[167][137]14
  7. 6 [153]"load";[199](14)"stop(NULL)ame that (NULL)ote    tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(","right$(NULL)(NULL)(NULL)(NULL)(NULL)len(NULL)right$(NULL)(NULL)(NULL)"
  8. 7 [153]"1wait (NULL)earn the position","of the notes in the","staves."
  9. 8 [153]"2wait (NULL)earn the clef sign","(pitch range)of the","staves((NULL)reble clef"
  10. 9 [153]"or chr$-clef.peekass clef","or asc-clef)","3wait (NULL)tart the exercise","by choosing a pitch
  11. 10 print"range"c$"4[146] [208]romptly recognize","the note displayed"
  12. 11 print"in the staff-press"c$"the corresponding","key.";
  13. 12 print"[212]he quicker the better."c$" press a key to go on [146][159]"
  14. 13 getp$:ifp$=""then13
  15. 14 poke1,17:poke2,18:goto810
  16. 18 poke36879,109:printchr$(147):print"please wait"
  17. 19 poke36869,255:poke56,28:clr:fori=7168to7679:pokei,peek(i+25600):next
  18. 20 fori=0to7:poke7168+i,peek(33464+i):next:fori=0to7:readx:poke7384+i,x:next
  19. 50 data0,0,0,0,0,60,66,66,66,66,60,0,0,0,0,255,0,60,66,66,66,66,60,255
  20. 51 data60,126,227,193,129,129,129,255,129,131,135,142,156,184,240,255,224,192
  21. 52 data128,128,128,128,128,255,128,240,248,140,134,131,129,255,129,129,129,130,132,136
  22. 53 data144,255,128,128,128,128,128,128,0,0,0,0,0,32,112,112,97,62,128,128,64,32,16,8,4
  23. 54 data255,96,195,135,136,136,132,128,255,1,7,12,24,48,96,96,255
  24. 55 data0,0,0,24,24,0,0,255,240,56,12,6,3,131,195,255,195,131,3,3
  25. 56 data3,3,3,255,3,3,6,12,24,48,96,255,33,30,0,0,0,0,0,255,1,2,4,8,8,5,2,255,3,1,0,0,0
  26. 58 data0,0,255
  27. 60 fori=0to7:readx:poke7392+i,x:poke7400+i,peek(33568+i):next
  28. 75 fori=7408to7423:readx:pokei,x:next:fori=7432to7551:readx:pokei,x:next
  29. 80 fori=7632to7639:readx:pokei,x:next
  30. 81 poke1,81:poke2,84:goto810
  31. 84 poke36879,24:poke36869,255
  32. 90 data158,161,173,181,189,192,200,206,208,214,218,222,224,227,230,231,234,236
  33. 100 printchr$(147):fori=7724to7724+109:pokei,29:next
  34. 101 fori=7878to7878+109:pokei,29:next
  35. 102 poke7726,31:poke7748,33:poke7770,34:poke7792,35:poke7814,36:poke7836,37
  36. 103 poke7835,38:poke7813,39:poke7791,40:poke7769,41:poke7902,42
  37. 105 poke7924,42:poke7901,43:poke7923,44:poke7945,45:poke7966,46:poke7900,47
  38. 110 print"&[156]&[144]&&[144]name that note[144]&[156]&&[159]&[144]"
  39. 120 print"[144]enter clef sign":print"t=treble b=bass":gosub500
  40. 200 r=0:dimp(18):dimn(18):fori=0to18step2:p(i)=7685+r:r=r+22:next
  41. 202 dimn1(20):v=36878:s2=36875:forn=20to3step-1:readn1(n):nextn
  42. 203 n(0)=68:forh=1to18:n(h)=(n(h-1)-1)+(7*-(n(h-1)=65)):next
  43. 205 print"[145][145][145]":fore=0to40:printchr$(32);:next:print"                      "
  44. 206 gosub400:c=5:sc=0:q=l*22:fori=38400to38839:pokei,0:next
  45. 208 fori=0to15step5
  46. 210 j=int(rnd(x)*13)+3:j1=j:e=29:e1=30:e2=27:e3=28
  47. 212 print"[144]score[144]"sc
  48. 225 ifj1=int(j1/2)*2thenpokep(j1)+i+q,e1:goto232
  49. 230 pokep(j1-1)+i+q,e2:pokep(j1+1)+i+q,e3:pokep(j1-1)-1+i+q,e:pokep(j1-1)+1+i+q,e
  50. 232 ife1=29ore1=32then260
  51. 235 t=ti
  52. 240 getn$:ifn$=""thenifti-t<600then240
  53. 241 ifn$=""then250
  54. 242 ifasc(n$)<65thenn$="":goto250
  55. 243 poke8059+i,asc(n$)-64:ifasc(n$)=n(j1+z)then300
  56. 250 fort=0to500:nextt:ifj1=3thene=32:e1=32:e2=32:e3=29
  57. 252 ifj1=13thene1=32:e2=29:e3=32
  58. 253 ifj1=14orj1=15thene=32:e1=32:e2=32:e3=32
  59. 254 ifj1>3andj1<13thene1=29:e2=29:e3=29
  60. 256 poke8059+i,32:poke38779+i,0:goto225
  61. 260 nexti
  62. 270 c=c-1:ifc>0then208
  63. 272 ifsc>sithensi=sc
  64. 275 print"[144]score[144]"sc"[157]   hi[144]"si
  65. 285 print"again?t=treble b=bass":gosub500:goto205
  66. 300 poke38779+i,0:sc=sc+(600-(ti-t))
  67. 310 ifj1>2andj1<16thenpokev,15:pokes2+x,n1(j1+x1):fors=0to150:nexts:pokes2+x,0:pokev,0
  68. 320 goto250
  69. 400 pokev,15:f=15:g=8:k=-1:gosub430
  70. 410 f=8:g=15:k=1:gosub430
  71. 420 pokes2+x,0:return
  72. 430 forp=ftogstepk:pokes2+x,n1(p):fori=0to200:nexti:pokes2+x,0:fors=1to20:nexts:nextp
  73. 440 return
  74. 500 geta$:ifa$=""then500
  75. 510 ifa$="t"thenl=0:z=0:x=1:x1=0:return
  76. 520 ifa$="b"thenl=7:z=-2:x=0:x1=5:return
  77. 530 printchr$(147):end
  78. 810 re=830:de=de+1:poke0,de:printde
  79. 820 print"g[207]"re:forbk=631to634:pokebk,145:next:poke635,13:poke636,13:poke198,6:end
  80. 830 printchr$(147):de=peek(0):dr=peek(1):ifde<drthen810
  81. 840 re=peek(2):goto820
  82.