home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 93
/
64er_Magazin_Sonderheft_93_19xx_Markt__Technik_de_Side_A.d64
/
dia-show
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
661b
|
32 lines
0 rem
1 rem ***** dia-show *****
2 rem
10 poke53265,0
11 restore
12 lo=peek(816)+peek(817)*256
20 ifa=0thena=1:load"dia-1",8,1
30 ifa=1thena=2:load"super-dump.obj",8,1
40 poke53265,peek(53265)or32
50 poke53270,peek(53270)or16
60 poke53272,peek(53272)or8
70 sys37005
75 readna$,m1,g1,b1:xx$=chr$(63)+"pic a "+na$
76 sys(57812)xx$,8,1:poke780,0:syslo
80 poke53265,59
90 rem hauptschleife
100 m=m1:g=g1:b=b1
102 readna$,m1,g1,b1
105 ifna$="x"thenrestore:goto102
110 xx$=chr$(63)+"pic a "+na$
130 fa=peek(34576)
140 poke53280,fa:poke53281,fa
150 sys36864,32576,1024,1000
160 sys36864,33576,55296,1000
170 sys49152,96,32,32,m,g,b
175 sys(57812)xx$,8,1:poke780,0:syslo
180 poke198,0:wait198,1
190 sys49152,64,32,32,m,g,b
200 goto100
10000 data"geraete ",100,0,1
20000 datax,0,0,0