home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 107 / 107.d81 / fsii (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  3.3 KB  |  112 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. 18 sys57812"fsiititle.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  6. 20 sys57812"fsii3400-3747",dv,0:poke780,0:poke781,0:poke782,52:sys65493
  7. 22 poke251,64:poke252,96:poke253,76:sysun:syshg
  8. 24 sys57812"fsii font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  9. 26 sys57812"fsiic000-cf5f",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  10. 30 sys13312,"fsii text",dv
  11. 32 h=peek(252)*256+peek(251)
  12. 34 w$(0)=right$(w$(0),len(w$(0))-2)
  13. 36 fs$="[129][212][200][197] [198][207][213][210] [211][197][193][211][207][206][211]"
  14. 37 sp$="                                        "
  15. 38 q=1:fori=0toh:ifw$(i)="*"thenb(q)=i:q=q+1
  16. 40 next:b(0)=0
  17. 50 print"[147]"
  18. 60 syshg:print"[147]"
  19. 65 syssr,96,76,56
  20. 100 fori=1to6:s$(i)="fsii"+chr$(i+48)+".shp":m$(i)="fsii"+chr$(i+48)+".mus":next
  21. 120 goto700
  22. 200 n=1:s=1:fl=0:p=0:gosub500
  23. 205 gosub330
  24. 210 gosub300:ifflthen700
  25. 230 syssq-3,"[144]"
  26. 231 syssq,0,23,sp$
  27. 233 syssq,0,24,sp$
  28. 236 syssq,20-int((len(w$(n))/2)),23,w$(n)
  29. 238 syssq,20-int((len(w$(n+1))/2)),24,w$(n+1)
  30. 240 fort=1to500
  31. 242 geta$
  32. 243 ifa$="q"thent=500:next:goto700
  33. 244 ifa$<>"n"then247
  34. 245 t=500:next:gosub310:ifflthen700
  35. 246 n=b(s)+1:goto210
  36. 247 ifa$<>""thent=500
  37. 249 next
  38. 260 n=n+2
  39. 265 ifn>=b(s+1)thenn=b(s)+1
  40. 270 goto210
  41. 300 ifpeek(49152)=7thenreturn
  42. 310 gosub450:s=s+1:ifs>6thenfl=1:return
  43. 320 gosub500:syshg:n=b(s)+1
  44. 330 sys57812s$(s),dv,0:poke780,0:poke781,0:poke782,64:sys65493
  45. 340 sys57812m$(s),dv,0:poke780,0:poke781,0:poke782,128:sys65493
  46. 350 poke251,64:poke252,96:poke253,76:sysun
  47. 360 poke252,96:poke253,76:syshg:gosub430
  48. 370 return
  49. 430 sys49615:poke781,0:poke782,128:sys49664:poke49152,7:mu=1:return
  50. 450 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49897:sys49935:mu=0:return
  51. 500 poke53281,0:onsgoto502,510,530,550,570,590,600
  52. 502 print"[147][129]"tab(10)"[193][213][212][213][205][206] [155]- [205]ovement 1"
  53. 504 print"[154]  [193] rollicking affair with a solo
  54. 505 [153]"  violin as a drunken peasant.
  55. 506 gosub600
  56. 508 return
  57. 510 print"[147][129]"tab(10)"[193][213][212][213][205][206] [155]- [205]ovement 2"
  58. 520 print"[154]  [193] slow, chromatic movement expressing
  59. 522 [153]"  the stupor of a drunkard's sleep.
  60. 523 gosub600
  61. 524 return
  62. 530 print"[147][129]"tab(10)"[193][213][212][213][205][206] [155]- [205]ovement 3"
  63. 540 print"[154]  [212]he guns and the dogs combine in the
  64. 541 [153]"  rhythm of the chase.
  65. 542 gosub600
  66. 544 return
  67. 550 print"[147][129]"tab(10)"[215][201][206][212][197][210] [155]- [205]ovement 1"
  68. 560 print"[154]  [212]he solo violin's teeth chatter
  69. 562 [153]"  while the orchestra shudders.
  70. 563 gosub600                         .
  71. 564 return
  72. 570 print"[147][129]"tab(10)"[215][201][206][212][197][210] [155]- [205]ovement 2"
  73. 572 print"[154]  [193] solo for the contented violin,
  74. 573 [153]"  with raindrop accompaniment.
  75. 574 gosub600:return
  76. 590 print"[147][129]"tab(10)"[215][201][206][212][197][210] [155]- [205]ovement 3"
  77. 592 print"[154]  [211]liding on ice while the wind blows,
  78. 593 [153]"  the violin and viola clash.
  79. 594 gosub600:return
  80. 600 poke214,10:print
  81. 610 print"  [159][215]hile picture is showing:
  82. 620 [153]"   (NULL) open- (NULL)ext (NULL)ovement
  83. 630 print"   [209] [159]- [209]uit to [205]ain [205]enu
  84. 640 [153]"   atnny other key open- (NULL)ext line of verse
  85. 650 return
  86. 700 poke53281,0:ifpeek(53270)<>200thensyshg
  87. 705 ifmuthengosub450
  88. 710 print"[147][154]          "fs$
  89. 720 print"  1[154]  [211]ee, hear and read the poem
  90. 730 [153]"  2cont  mid$ust see the six pictures
  91. 740 print"  3[154]  [209]uit to [204][207][193][196][211][212][193][210]
  92. 750 [151]198,0
  93. 760 [161]a$:[139]a$[179]"1"[176]a$[177]"3"[167]760
  94. 770 [145][197](a$)[137]200,800,40000
  95. 800 [129]i[178]1[164]6
  96. 802 [153]"loadcont (NULL)ress any key to go to the next
  97. 804 print" picture.  [208]ress [209][154] while picture is
  98. 806 [153]" showing to return to the menu.
  99. 830 sys57812s$(i),dv,0:poke780,0:poke781,0:poke782,64:sys65493
  100. 840 poke251,64:poke252,96:poke253,76:sysun
  101. 850 poke252,96:poke253,76:syshg
  102. 860 geta$:ifa$=""then860
  103. 865 syshg:poke53281,0
  104. 870 ifa$="q"theni=6:next:goto700
  105. 880 next:goto800
  106. 10000 open15,8,15,"s0:fsii":close15:save"fsii",8:end
  107. 40000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen40020
  108. 40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
  109. 40020 next:print"[147]":poke2048,0:poke44,8:poke53272,23:end
  110. 40030 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
  111. 40040 print"run":poke631,13:poke632,13:poke198,2:end
  112.