10 COLOR 4,0:CLS:KEY OFF:LOCATE 1,1:PRINT "De tijd is " TIME$,DATE$
20 LOCATE 2,1:PRINT STRING$(80,205):LOCATE 22,1:PRINT STRING$(80,205)
30 LOCATE 8,10:COLOR 14,0:PRINT "CODEREN"
40 LOCATE 9,10:COLOR 4,0: PRINT STRING$(7,205)
50 LOCATE 11,10:LINE INPUT "Welk woord coderen (stop=menu) ====> ";L$:IF L$="stop" OR L$="STOP" THEN RUN"a2menu"
60 A=LEN(L$)
70 FOR B=1 TO A
80 A=ASC(MID$(L$,B,1))+2
90 PRINT CHR$(A);
100 NEXT
110 FOR A=1 TO 10000:NEXT:GOTO 10