home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 224
/
224.d81
/
star
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
63 lines
1 dv=peek(186):ifdv<8thendv=8
5 poke32767,13:poke53371,0
6 poke65534,1:rem s-key on
10 poke53281,0:poke53280,0:print"[147][159]":ifpeek(653)=0thengosub100
11 tq=ti:poke198,0:ifpeek(653)=0thengosub1000:goto13
12 poke53280,11:poke53281,11:goto50
13 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
14 sys57812"intro.shp",dv,0:poke780,0:poke781,0:poke782,32:sys65493
15 sys57812"multi ls spr",dv,0:poke780,0:poke781,0:poke782,192:sys65493
16 poke251,32:poke252,224:poke253,204
18 poke53280,0:print"[147]":sys51456:sys51459
19 l$="12345678":v=53248:fori=0to9
20 x1(i)=134+26*i:y2(i)=190
21 x2(i,0)=x1(i)-8:x2(i,1)=134+26*i
22 next:pokev+21,0:fori=0to7:poke53240+i,i:pokev+39+i,0:next
23 pokev+29,0:pokev+23,0:pokev+27,0:pokev+28,255:pokev+37,2
24 fori=0to10:z(i)=val(mid$(l$,i+1,1)):next
25 pokev+16,224:fori=0to10:ifz(i)=0then27
26 pokev+(z(i)-1)*2,(x2(i,-(n>5))and255):pokev+1+(z(i)-1)*2,y2(i)
27 next:pokev+21,000:forx=0to7:poke53287+x,2:next
28 tq=ti+300::poke198,0:j=0:poke53370,0
30 ifpeek(v+1)<40orti>tqorpeek(198)>0then40
31 forx=1to16step2:pokev+x,peek(v+x)-3and255:next:j=1-j:poke53285,7-6*j:goto30
32 stop
40 poke198,0:pokev+21,0
50 rem
98 poke198,0
99 poke157,0:load"presenter",dv
100 print"[158][147] [215]elcome to [204][207][193][196][211][212][193][210] 224
105 [129]i[178]0[164]9:[135]b$(i):[130]
110 [151]214,1:[153]
120 [129]i[178]0[164]9:[153]
130 [153][163]20[171](([195](b$(i))[173]2)))b$(i)
140 [130]:[143]:print"":stop
150 [142]
300 [131]"atnmerican (NULL)ride "
301 [131]"listsent in by mid$eff (NULL)uffer "
303 [131]"listchr$odoted by "
304 [131]"str$ave (NULL)oorman "
305 [131]"
306 data"[155][212]he music is "
307 data"[201] [207]nly [200]ave [197]yes for [217]ou "
308 data"[155]by [193]lan [196]ubin & [200]arry [215]arren "
309 data"[155]for the movie [196]ames! "
310 data"[155][212]ranscribed by [195]orky [195]ochran "
1000 goto2000
1001 c0=peek(151):c1=peek(253)
1002 sys57812"play",dv,0:poke780,0:poke781,0:poke782,192:sys65493
1003 sys49155"welcome.vox",dv
1010 poke151,0:poke253,12
1020 poke214,22:print"[129]":reada1$,b1$
1030 printtab(19-len(a1$)/2)a1$
1040 printtab(19-len(b1$)/2)b1$;
1050 sys49152
1051 poke151,c0:poke253,c1
1055 return
1060 data"[215]elcome to [204][207][193][196][211][212][193][210]!"
1061 data"[212]his is [196]ave [205]oorman"
2000 t=ti+240:forx=-1to0:x=ti<t:next:return
9999 end
10000 dv=peek(186):open15,dv,15,"s0:star":close15:save"star",dv:end
60000 goto10000