home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 4
/
Publication_04_19xx_High-Tech_de_Side_A.d64
/
text-einblendung
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
45 lines
10 sys57812("sprites*"),8,1:poke780,0:sys65493:rem sprites einladen
11 print"[147]"chr$(14):rem clr & kleinschrift an
12 poke53281,15:poke53280,11:poke646,0:rem farben setzen
13 rem
14 poke2040,226:poke2041,227:poke53276,3:rem sprites installieren
15 poke53285,1:poke53286,12:rem multi-color-farben
16 poke53287,11:poke53288,11:rem spritefarben
17 poke53248,28:poke53249,226:rem position sprite 1
18 poke53250,58:poke53251,226:poke53264,2:rem position sprite 2
19 poke53269,3:rem sprites an
20 rem
21 rem scroll - texte (je 32 zeichen)
22 rem
23 s$(1)="[196]ies ist die [196]emonstration eines"
24 s$(2)="beliebten [212]ext-[197]inblend-[197]ffektes"
25 s$(3)=" wie er auch in der [208][213][194][204][201][195][193][212][201][207][206] "
26 s$(4)=" verwendet wird ! "
27 s$(5)=" [214]iel [211]pass mit diesem [197]ffekt ! "
28 rem
29 rem farben
30 rem
31 f(1)=6:f(2)=4:f(3)=14:f(4)=1:f(5)=15:f(6)=12:f(7)=11:f(8)=0
32 rem
33 rem diese werte werden z.b. im demo
34 rem basic delirium verwendet !
35 rem
36 f=1:s=1:rem farb- und scrollwert = 1
37 poke646,f(f)
38 poke211,4:poke214,23:sys58732:rem positionierung
39 prints$(s):rem textausgabe
40 f=f+1:iff=9thens=s+1:f=1
41 ifs=6thens=1
42 forx=1to50:next:rem warteschleife
43 goto37
100 rem
101 rem *******************************
102 rem * *
103 rem * text - einblendung *
104 rem * -------------------- *
105 rem * *
106 rem * aus dem publication-magsys! *
107 rem * *
108 rem *******************************
109 rem