home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 106 / 106.d81 / fs (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  110 lines
  1. 10 poke52,52:poke56,52:clr:poke53281,0:poke53280,0
  2. 12 dv=peek(186):ifdv<8thendv=8
  3. 14 dimw$(120),b(15)
  4. 16 unpack=13824:hg=13827:sr=52480:sq=52486:g=49153
  5. 22 poke251,64:poke252,96:poke253,76:sysun:syshg
  6. 26 remrem sys57812"c000-cf5f",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  7. 30 sys13312,"fs text",dv
  8. 32 h=peek(252)*256+peek(251)
  9. 34 w$(0)=right$(w$(0),len(w$(0))-2)
  10. 36 fs$="[129][212][200][197] [198][207][213][210] [211][197][193][211][207][206][211]"
  11. 37 sp$="                                        "
  12. 38 q=1:fori=0toh:ifw$(i)="*"thenb(q)=i:q=q+1
  13. 40 next:b(0)=0
  14. 50 print"[147]"
  15. 60 syshg:print"[147]"
  16. 65 syssr,96,76,56
  17. 100 fori=1to6:s$(i)="fs"+chr$(i+48)+".shp":m$(i)="fs"+chr$(i+48)+".mus":next
  18. 120 goto700
  19. 200 n=1:s=1:fl=0:p=0:gosub500
  20. 205 gosub330
  21. 210 gosub300:ifflthen700
  22. 220 ifs<>1then230
  23. 222 syssq-3,"[158]"
  24. 223 syssq,0,23,sp$
  25. 224 syssq,0,24,sp$:goto236
  26. 230 syssq-3,"[144]"
  27. 231 syssq,0,23,sp$
  28. 233 syssq,0,24,sp$
  29. 236 syssq,20-int((len(w$(n))/2)),23,w$(n)
  30. 238 syssq,20-int((len(w$(n+1))/2)),24,w$(n+1)
  31. 240 fort=1to500
  32. 242 geta$
  33. 243 ifa$="q"thent=500:next:goto700
  34. 244 ifa$<>"n"then247
  35. 245 t=500:next:gosub310:ifflthen700
  36. 246 n=b(s)+1:goto210
  37. 247 ifa$<>""thent=500
  38. 249 next
  39. 260 n=n+2
  40. 265 ifn>=b(s+1)thenn=b(s)+1
  41. 270 goto210
  42. 300 ifpeek(49152)=7thenreturn
  43. 310 gosub450:s=s+1:ifs>6thenfl=1:return
  44. 320 gosub500:syshg:n=b(s)+1
  45. 330 sys57812s$(s),dv,0:poke780,0:poke781,0:poke782,64:sys65493
  46. 340 sys57812m$(s),dv,0:poke780,0:poke781,0:poke782,128:sys65493
  47. 350 poke251,64:poke252,96:poke253,76:sysun
  48. 360 poke252,96:poke253,76:syshg:gosub430
  49. 370 return
  50. 430 sys49615:poke781,0:poke782,128:sys49664:poke49152,7:mu=1:return
  51. 450 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49897:sys49935:mu=0:return
  52. 500 poke53281,0:onsgoto502,510,530,550,570,590,600
  53. 502 print"[147][129]"tab(10)"[211][208][210][201][206][199] [155]- [205]ovement 1"
  54. 504 print"[154]  [193] robust country tune for violins.
  55. 506 [141]600
  56. 508 [142]
  57. 510 [153]"loadfor"[163]10)"(NULL)(NULL)(NULL)right$(NULL)chr$ list- (NULL)ovement 2"
  58. 520 [153]"cont  atn viola is the dog's voice, and a
  59. 522 print"  violin, his master's.
  60. 523 [141]600
  61. 524 [142]
  62. 530 [153]"loadfor"[163]10)"(NULL)(NULL)(NULL)right$(NULL)chr$ list- (NULL)ovement 3"
  63. 540 [153]"cont  atn lively dance in 12/8 time.
  64. 542 gosub600
  65. 544 return
  66. 550 print"[147][129]"tab(10)"[211][213][205][205][197][210] [155]- [205]ovement 1"
  67. 560 print"[154]  [212]he upper strings provide voices for
  68. 562 [153]"  the animals and the wind.
  69. 563 gosub600                         .
  70. 564 return
  71. 570 print"[147][129]"tab(10)"[211][213][205][205][197][210] [155]- [205]ovement 2"
  72. 572 print"[154]  [212]he shepherd's lament -- loneliness
  73. 573 [153]"  and an insect swarm.
  74. 574 gosub600:return
  75. 590 print"[147][129]"tab(10)"[211][213][205][205][197][210] [155]- [205]ovement 3"
  76. 592 print"[154]  [193] summer storm and all is in ruin.
  77. 594 [141]600:[142]
  78. 600 [151]214,10:[153]
  79. 610 [153]"  open(NULL)hile picture is showing:
  80. 620 print"   [206] [159]- [206]ext [205]ovement
  81. 630 [153]"   (NULL) open- (NULL)uit to (NULL)ain (NULL)enu
  82. 640 print"   [193]ny other key [159]- [206]ext line of verse
  83. 650 [142]
  84. 700 [151]53281,0:[139][194](53270)[179][177]200[167][158]hg
  85. 705 [139]mu[167][141]450
  86. 710 [153]"loadcont          "fs$
  87. 720 [153]"  1cont  (NULL)ee, hear and read the poem
  88. 730 print"  2[154]  [202]ust see the six pictures
  89. 740 [153]"  3cont  (NULL)uit to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  90. 750 poke198,0
  91. 760 geta$:ifa$<"1"ora$>"3"then760
  92. 770 onval(a$)goto200,800,40000
  93. 800 fori=1to6
  94. 802 print"[147][154] [208]ress any key to go to the next
  95. 804 [153]" picture.  (NULL)ress (NULL)cont while picture is
  96. 806 print" showing to return to the menu.
  97. 830 [158]57812s$(i),dv,0:[151]780,0:[151]781,0:[151]782,64:[158]65493
  98. 840 [151]251,64:[151]252,96:[151]253,76:[158]un
  99. 850 [151]252,96:[151]253,76:[158]hg
  100. 860 [161]a$:[139]a$[178]""[167]860
  101. 865 [158]hg:[151]53281,0
  102. 870 [139]a$[178]"q"[167]i[178]6:[130]:[137]700
  103. 880 [130]:[137]800
  104. 10000 [159]15,8,15,"s0:fs":[160]15:[148]"fs",8:[128]
  105. 40000 a$[178]"hello connect":[129]i[178]8[164]9:[160]2:[159]2,i,2:[160]2:[139]st[167]40030
  106. 40010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40030
  107. 40020 [130]:[153]"load":[151]2048,0:[151]44,8:[151]53272,23:[128]
  108. 40030 [151]646,[194](53281):[153]"loadload"[199](34)a$[199](34)","i
  109. 40040 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
  110.