10 CLS:COLOR 4,0:LOCATE 1,1:PRINT "De tijd is " TIME$,DATE$:LOCATE 22,1:PRINT STRING$(80,205):LOCATE 2,1:PRINT STRING$(80,205)
20 LOCATE 8,10:COLOR 14,0:PRINT "TERUGCODEREN":LOCATE 9,10:COLOR 4,0:PRINT STRING$(12,205)
30 LOCATE 11,10:LINE INPUT "Welk woord terugcoderen (stop=stoppen) ====> ";L$:IF L$="stop" OR L$="STOP" THEN RUN"a2menu"
40 A=LEN(L$)
50 FOR B=1 TO A
60 A=ASC(MID$(L$,B,1))-2
70 PRINT CHR$(A);
80 NEXT
90 FOR A=1 TO 5000:NEXT:GOTO 10