home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1986 January
/
64er_Magazin_86-01_1986_Markt__Technik_de.d64
/
b-clock-heft
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
10 lines
10 open2,8,2,"@0:uhr,p,w":print#2,chr$(1)chr$(8);
20 fori=0to1220:print#2,chr$(peek(2406+i));:next
100 g=3704:dimf(800)
110 fori=0to6:fory=1topeek(3697+i):b(i,y)=peek(g):g=g+1:w(i,y)=peek(g):g=g+1
120 nexty,i:forx=0to9:fory=0to6:forz=1topeek(3697+y)
130 ifpeek(3627+7*x+y)=1thena=b(y,z)+x*64:f(a)=f(a)orw(y,z)
140 nextz,y,x:fori=0to11*64:poke57344+i,f(i):next
150 a=60:fori=0to2:f(659+3*i)=a:f(674+3*i)=a:next
160 fori=0to11*64:print#2,chr$(f(i));:next:close2