10 CHACT=755›20 DELAY=200›30 PRINT "ΘΕΜΜΟ"›40 FOR I=1 TO DELAY:NEXT I›50 POKE CHACT,0›60 FOR I=1 TO DELAY:NEXT I›70 POKE CHACT,1›80 GOTO 40›90 END ›