home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 202
/
202.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]":gosub100
11 tq=ti:poke198,0:gosub1000
12 geta$:ifa$=""and(ti<tq+350)then12
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)=220
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,255
28 tq=ti+240::poke198,0:j=0:poke53370,0
30 ifti>tqorpeek(198)>0then40
31 j=1-j:fori=0to7:pokev+39+i,7-6*j:next:goto30
40 poke198,0:pokev+21,0
50 rem sys57812"mr.mouse 2+ 1000",dv:poke780,0:poke781,0:poke782,16:sys65493
51 rem bl=4096+54:b0=4096+177
60 rem sysb0,"features",dv,96*256
61 rem sysbl,"frodo.ml",dv,41*256
62 rem sysbl,"music",dv,106*256
97 rem poke53280,0:poke53281,0
98 poke198,0
99 poke157,0:load"presenter",dv
100 print"[158][147] [215]elcome to [204][207][193][196][211][212][193][210] 202
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]"(NULL)left$val (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) (NULL)right$(NULL)(NULL)
301 data"
303 [131]"list(NULL)icture by
304 data"[215]alt [200]arned
305 [131]"
306 data"[155][212]he music is
307 [131]"atn(NULL)(NULL) (NULL)left$(NULL)(NULL)(NULL)chr$left$ (NULL)left$valclose(NULL)right$chr$left$(NULL)
308 data"[155]an old [215]elsh tune
309 [131]"list(NULL)ranscribed by
310 data"[195]orky [195]ochran
1000 [158]57812"sam",dv:[151]780,0:[151]781,0:[151]782,149:[158]65493
1002 [143] sys57812"reciter",dv:poke780,0:poke781,0:poke782,125:sys65493
1006 [151]39440,10:[151]39439,40
1009 [151]214,22:[153]"verify"
1010 [129]x[178]1[164]2:[135]sa$
1012 [135]a$:[153][163]20[171][195](a$)[173]2)a$:[158]39424:[130]:[142]
1020 [131] "wehlkahm.tux.llohd3staar3 .4tux5.4oh4.tux.
1021 data"[215]elcome to [204][207][193][196][211][212][193][210] 202
1022 [131]".grayndixnx1 awt grrreyt3 saoftwehr.
1023 data"[145][199]rinding out great software.
9999 [128]
10000 dv[178][194](186):[159]15,dv,15,"s0:star":[160]15:[148]"star",dv:[128]
60000 [137]10000