Source Code
10 PRINT " % % "
20 PRINT " 1 % 2 % 3"
30 PRINT " % % "
40 PRINT "% % % % % % % % % % % "
50 PRINT " % % "
60 PRINT " 4 % 5 % 6"
70 PRINT " % % "
80 PRINT "% % % % % % % % % % % "
90 PRINT " % % "
100 PRINT " 7 % 8 % 9"
110 PRINT " % % "
120 GOSUB 200
130 LET A=T-1
140 LET B=T
150 LET T=CODE "\. \:'\##\' \.'\: \ '\''\:'\''\ '\.'\##\. \' \: \##\:'\. \''\.'\: \ '\' \:'\.'\: \##\''\ '\' \. \:'\##\. \''\.'\: \' \ '\.'\. \: \ '\''\' \##\:'\. \:'\: \' \''\##\ '\.'\.'\##\. \''\:'\' \: \ '"(8*A+B)
160 LET X=61
170 GOSUB 240
180 GOSUB 200
190 GOTO 140
200 LET X=52
210 IF INKEY$<>"" THEN GOTO 210
220 IF INKEY$="" THEN GOTO 220
230 LET T=CODE INKEY$-29
240 PRINT AT CODE "\' \' \: \: \: \,,\,,\,,"(T),CODE "\: \,,\' \: \,,\' \: \,,"(T);CHR$ (X)
250 RETURN
260 CLEAR
270 SAVE "1027%7"
280 RUN
