home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 107
/
107.d81
/
fsii
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
112 lines
10 poke52,52:poke56,52:clr:poke53281,0:poke53280,0
12 dv=peek(186):ifdv<8thendv=8
14 dimw$(120),b(15)
16 unpack=13824:hg=13827:sr=52480:sq=52486:g=49153
18 sys57812"fsiititle.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
20 sys57812"fsii3400-3747",dv,0:poke780,0:poke781,0:poke782,52:sys65493
22 poke251,64:poke252,96:poke253,76:sysun:syshg
24 sys57812"fsii font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
26 sys57812"fsiic000-cf5f",dv,0:poke780,0:poke781,0:poke782,192:sys65493
30 sys13312,"fsii text",dv
32 h=peek(252)*256+peek(251)
34 w$(0)=right$(w$(0),len(w$(0))-2)
36 fs$="[129][212][200][197] [198][207][213][210] [211][197][193][211][207][206][211]"
37 sp$=" "
38 q=1:fori=0toh:ifw$(i)="*"thenb(q)=i:q=q+1
40 next:b(0)=0
50 print"[147]"
60 syshg:print"[147]"
65 syssr,96,76,56
100 fori=1to6:s$(i)="fsii"+chr$(i+48)+".shp":m$(i)="fsii"+chr$(i+48)+".mus":next
120 goto700
200 n=1:s=1:fl=0:p=0:gosub500
205 gosub330
210 gosub300:ifflthen700
230 syssq-3,"[144]"
231 syssq,0,23,sp$
233 syssq,0,24,sp$
236 syssq,20-int((len(w$(n))/2)),23,w$(n)
238 syssq,20-int((len(w$(n+1))/2)),24,w$(n+1)
240 fort=1to500
242 geta$
243 ifa$="q"thent=500:next:goto700
244 ifa$<>"n"then247
245 t=500:next:gosub310:ifflthen700
246 n=b(s)+1:goto210
247 ifa$<>""thent=500
249 next
260 n=n+2
265 ifn>=b(s+1)thenn=b(s)+1
270 goto210
300 ifpeek(49152)=7thenreturn
310 gosub450:s=s+1:ifs>6thenfl=1:return
320 gosub500:syshg:n=b(s)+1
330 sys57812s$(s),dv,0:poke780,0:poke781,0:poke782,64:sys65493
340 sys57812m$(s),dv,0:poke780,0:poke781,0:poke782,128:sys65493
350 poke251,64:poke252,96:poke253,76:sysun
360 poke252,96:poke253,76:syshg:gosub430
370 return
430 sys49615:poke781,0:poke782,128:sys49664:poke49152,7:mu=1:return
450 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49897:sys49935:mu=0:return
500 poke53281,0:onsgoto502,510,530,550,570,590,600
502 print"[147][129]"tab(10)"[193][213][212][213][205][206] [155]- [205]ovement 1"
504 print"[154] [193] rollicking affair with a solo
505 [153]" violin as a drunken peasant.
506 gosub600
508 return
510 print"[147][129]"tab(10)"[193][213][212][213][205][206] [155]- [205]ovement 2"
520 print"[154] [193] slow, chromatic movement expressing
522 [153]" the stupor of a drunkard's sleep.
523 gosub600
524 return
530 print"[147][129]"tab(10)"[193][213][212][213][205][206] [155]- [205]ovement 3"
540 print"[154] [212]he guns and the dogs combine in the
541 [153]" rhythm of the chase.
542 gosub600
544 return
550 print"[147][129]"tab(10)"[215][201][206][212][197][210] [155]- [205]ovement 1"
560 print"[154] [212]he solo violin's teeth chatter
562 [153]" while the orchestra shudders.
563 gosub600 .
564 return
570 print"[147][129]"tab(10)"[215][201][206][212][197][210] [155]- [205]ovement 2"
572 print"[154] [193] solo for the contented violin,
573 [153]" with raindrop accompaniment.
574 gosub600:return
590 print"[147][129]"tab(10)"[215][201][206][212][197][210] [155]- [205]ovement 3"
592 print"[154] [211]liding on ice while the wind blows,
593 [153]" the violin and viola clash.
594 gosub600:return
600 poke214,10:print
610 print" [159][215]hile picture is showing:
620 [153]" (NULL) open- (NULL)ext (NULL)ovement
630 print" [209] [159]- [209]uit to [205]ain [205]enu
640 [153]" atnny other key open- (NULL)ext line of verse
650 return
700 poke53281,0:ifpeek(53270)<>200thensyshg
705 ifmuthengosub450
710 print"[147][154] "fs$
720 print" 1[154] [211]ee, hear and read the poem
730 [153]" 2cont mid$ust see the six pictures
740 print" 3[154] [209]uit to [204][207][193][196][211][212][193][210]
750 [151]198,0
760 [161]a$:[139]a$[179]"1"[176]a$[177]"3"[167]760
770 [145][197](a$)[137]200,800,40000
800 [129]i[178]1[164]6
802 [153]"loadcont (NULL)ress any key to go to the next
804 print" picture. [208]ress [209][154] while picture is
806 [153]" showing to return to the menu.
830 sys57812s$(i),dv,0:poke780,0:poke781,0:poke782,64:sys65493
840 poke251,64:poke252,96:poke253,76:sysun
850 poke252,96:poke253,76:syshg
860 geta$:ifa$=""then860
865 syshg:poke53281,0
870 ifa$="q"theni=6:next:goto700
880 next:goto800
10000 open15,8,15,"s0:fsii":close15:save"fsii",8:end
40000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen40020
40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
40020 next:print"[147]":poke2048,0:poke44,8:poke53272,23:end
40030 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
40040 print"run":poke631,13:poke632,13:poke198,2:end