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 >
Commodore BASIC  |  2022-10-26  |  2KB  |  10 lines
  1. 10 open2,8,2,"@0:uhr,p,w":print#2,chr$(1)chr$(8);
  2. 20 fori=0to1220:print#2,chr$(peek(2406+i));:next
  3. 100 g=3704:dimf(800)
  4. 110 fori=0to6:fory=1topeek(3697+i):b(i,y)=peek(g):g=g+1:w(i,y)=peek(g):g=g+1
  5. 120 nexty,i:forx=0to9:fory=0to6:forz=1topeek(3697+y)
  6. 130 ifpeek(3627+7*x+y)=1thena=b(y,z)+x*64:f(a)=f(a)orw(y,z)
  7. 140 nextz,y,x:fori=0to11*64:poke57344+i,f(i):next
  8. 150 a=60:fori=0to2:f(659+3*i)=a:f(674+3*i)=a:next
  9. 160 fori=0to11*64:print#2,chr$(f(i));:next:close2
  10.