VIC Video Typewriter

I have written a short program that transforms your VIC into a typewriter (without any annoying syntax errors). I use it to practice my typing after school. To disable the program, use the f1 key.

Vicky Cwiertnie

10 PRINTCHR$(8) : PRINTCHR$(14)
20 POKE36879, 26 : PRINT"{CLR}"
30 PRINT"** VIDEO TYPEWRITER **"
40 GETA$ : IFA$ = ""THEN40
50 IFA$ = "{Fl}"THENEND
60 IFA$ = CHR$(13)THENPOKE36878,15 :
   POKE36876, 220 : FORX = 1TO50 : NEXT :
   POKE36876,0
70 PRINTA$; : GOTO40