FUJIbaudJdata„P[UUü32221 REM Program wolny dla kopiowania K-ce,87-07-31›32222 POKE 1664,PEEK(130):POKE 1665,PEEK(131):? "START =";PEEK(13ldata„c UUü0)+PEEK(131)*256:POKE 1667,0›32223 ? PEEK(1664)+PEEK(1665)*256,:POKE 1666,0›32224 IF PEEK(1664)=PEEK(132) AND PEEK(1665)=PEEK(13Ždata„c UUü3) THEN ? :? "KONIEC=";PEEK(132)+PEEK(133)*256:GOTO 32229›32225 ? CHR$(PEEK(PEEK(1664)+PEEK(1665)*256));›32226 IF PEEK(PEEK(166ōdata„ UUü4)+PEEK(1665)*256)>127 THEN ? :POKE 1666,1:POKE 1667,PEEK(1667)+1›32227 IF PEEK(1664)=255 THEN POKE 1664,0:POKE 1665,PEEK(1665)+data„O UUü1:GOTO 32224-PEEK(1666)›32228 POKE 1664,PEEK(1664)+1:GOTO 32224-PEEK(1666)›32229 ? "ILOSC =";PEEK(1667),"DLUGOSC=";PEEK(132)-PEEudata„ UUśK(130)+(PEEK(133)-PEEK(131))*256:END ›4,PEEK(1664)+1:GOTO 32224-PEEK(1666)›32229 ? "ILOSC =";PEEK(1667),"DLUGOSC=";PEEK(132)-PE&ųdata„ē UUž©