home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8601.d64 / b-clock-heft (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.