home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 70
/
070.d81
/
star
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
53 lines
1 dv=peek(186):ifdv<8thendv=8
5 poke32767,13:poke53371,0
10 poke53281,0:poke53280,0:print"[147][159]":gosub1000
11 poke788,49:tq=ti:poke198,0
12 sys57812"multi ls spr",dv,0:poke780,0:poke781,0:poke782,192:sys65493
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
16 geta$:ifa$=""and(ti<tq+250)then16
17 poke251,32:poke252,224:poke253,204
18 poke53280,0:sys51456:sys51459
19 l$="12345678"
21 v=53248
22 fori=0to9
23 x1(i)=134+26*i:y2(i)=220
24 x2(i,0)=x1(i)-8
25 x2(i,1)=134+26*i
26 next
27 pokev+21,0
28 fori=0to7:poke53240+i,i:pokev+39+i,0:next
29 pokev+29,0:pokev+23,0:pokev+27,0:pokev+28,255:pokev+37,2
30 fori=0to10
31 z(i)=val(mid$(l$,i+1,1))
32 next
33 pokev+16,224
34 fori=0to10
35 ifz(i)=0then37
36 pokev+(z(i)-1)*2,(x2(i,-(n>5))and255):pokev+1+(z(i)-1)*2,y2(i)
37 next
40 tq=ti:j=0:poke53370,0
41 j=1-j:fori=0to7:pokev+39+i,7-6*j:next
70 geta$:ifa$=""and(ti<tq+250)then41
80 poke198,0:poke53371,0
82 pokev+21,0
90 poke157,0:load"presenter",dv
1000 print"[147][158] [208][204][197][193][211][197] [196][207] [206][207][212] [205][193][203][197] [201][204][204][197][199][193][204] [195][207][208][201][197][211]"
1010 print" [207][198] [212][200][201][211] [211][207][198][212][215][193][210][197]"
1020 print"[159] [212]his software is protected by federal";
1030 print"copyright law. [195]opying software for any";
1040 print"reason other than to make a backup is a
1050 [153]"violation of law. right$ndividuals who make
1060 print"unauthorized copies of software may be
1070 [153]"subject to civil and criminal penalties."
1090 [153]"print (NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) (NULL)(NULL)peek(NULL)right$(NULL)left$right$(NULL)chr$, right$(NULL)len.,"
1100 [153]"openas a member of the (NULL)oftware (NULL)ublishers
1110 print"[193]ssociation ([211][208][193]), supports the
1120 [153]"industry's effort to fight the illegal
1130 print"copying of personal computer software.
1140 [153]"sys (NULL)eport copyright violations to:
1145 print" [211]oftware [208]ublishers [193]ssociation"
1150 print" 1101 [195]onnecticut [193]ve, [206][215], [211]uite 901
1160 [153]" (NULL)ashington, str$len 20036":[142]
10000 d[178][194](186):n$[178]"0:star":[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]