Source Code
10 REM % % % % % % % % % %
11 REM % %Z%X%-%T%Y%P%E%R%
12 REM % % % % % % % % % %
20 LET X=0
21 LET Y=0
22 INPUT A$
23 LET C=LEN A$
24 IF C>70 THEN LET C=70
30 FOR A=1 TO C
40 IF A$(A)=" " THEN GOTO 70
50 IF A$(A)<"." AND A$(A)>" " THEN NEXT A
60 GOSUB (CODE A$(A)-25)*100
70 LET Y=Y+3
80 IF Y=30 THEN GOTO 82
81 GOTO 90
82 LET Y=0
83 LET X=X+3
90 NEXT A
91 INPUT A$
92 CLS
93 RUN
200 PRINT AT X+2,Y+1;"\' "
201 RETURN
300 PRINT AT X,Y;"\.'\':\. "
301 PRINT AT X+1,Y;"\:.\' \: "
302 PRINT AT X+2,Y;"\ '\''"
311 RETURN
400 PRINT AT X,Y;"\ .\: "
401 PRINT AT X+1,Y+1;"\: "
402 PRINT AT X+2,Y;"\ '\''"
406 RETURN
500 PRINT AT X,Y;"\.'\''\. "
501 PRINT AT X+1,Y;"\ .\''"
502 PRINT AT X+2,Y;"\''\''\' "
511 RETURN
600 PRINT AT X,Y;"\.'\''\. "
601 PRINT AT X+1,Y;"\. \''\. "
602 PRINT AT X+2,Y;"\ '\''"
610 RETURN
700 PRINT AT X,Y;"\ .\':"
701 PRINT AT X+1,Y;"\:.\.:\. "
702 PRINT AT X+2,Y+1;"\ '"
707 RETURN
800 PRINT AT X,Y;"\:'\''\' "
801 PRINT AT X+1,Y;"\''\''\. "
802 PRINT AT X+2,Y;"\''\''"
808 RETURN
900 PRINT AT X,Y;"\.'\''"
901 PRINT AT X+1,Y;"\:'\''\. "
902 PRINT AT X+2,Y;"\ '\''"
907 RETURN
\n1000 PRINT AT X,Y;"\''\''\: "
\n1001 PRINT AT X+1,Y+1;"\.'"
\n1002 PRINT AT X+2,Y;"\ '"
\n1005 RETURN
\n1100 PRINT AT X,Y;"\.'\''\. "
\n1101 PRINT AT X+1,Y;"\.'\''\. "
\n1102 PRINT AT X+2,Y;"\ '\''"
\n1109 RETURN
\n1200 PRINT AT X,Y;"\.'\''\. "
\n1201 PRINT AT X+1,Y;"\ '\''\: "
\n1202 PRINT AT X+2,Y;"\ '\''"
\n1207 RETURN
\n1300 PRINT AT X,Y;"\.'\''\. "
\n1301 PRINT AT X+1,Y;"\:'\''\: "
\n1302 PRINT AT X+2,Y;"\' \' "
\n1303 RETURN
\n1400 PRINT AT X,Y;"\:'\''\. "
\n1402 PRINT AT X+1,Y;"\:'\''\. "
\n1403 PRINT AT X+2,Y;"\''\''"
\n1409 RETURN
\n1500 PRINT AT X,Y;"\.'\''\. "
\n1501 PRINT AT X+1,Y;"\: \. "
\n1502 PRINT AT X+2,Y;"\ '\''"
\n1507 RETURN
\n1600 PRINT AT X,Y;"\:'\''\. "
\n1601 PRINT AT X+1,Y;"\: \: "
\n1602 PRINT AT X+2,Y;"\''\''"
\n1608 RETURN
\n1700 PRINT AT X,Y;"\:'\''\' "
\n1701 PRINT AT X+1,Y;"\:'\''"
\n1702 PRINT AT X+2,Y;"\''\''\' "
\n1707 RETURN
\n1800 PRINT AT X,Y;"\:'\''\' "
\n1801 PRINT AT X+1,Y;"\:'\''"
\n1802 PRINT AT X+2,Y;"\' "
\n1803 RETURN
\n1900 PRINT AT X,Y;"\.'\''\' "
\n1901 PRINT AT X+1,Y;"\: \''\: "
\n1902 PRINT AT X+2,Y;"\ '\''\' "
\n1903 RETURN
\n2000 PRINT AT X,Y;"\: \: "
\n2001 PRINT AT X+1,Y;"\:'\''\: "
\n2002 PRINT AT X+2,Y;"\' \' "
\n2003 RETURN
\n2100 PRINT AT X,Y;"\ '\:'"
\n2101 PRINT AT X+1,Y+1;"\: "
\n2102 PRINT AT X+2,Y;"\ '\''"
\n2103 RETURN
\n2200 PRINT AT X,Y+2;"\: "
\n2201 PRINT AT X+1,Y;"\. \: "
\n2202 PRINT AT X+2,Y;"\ '\''"
\n2203 RETURN
\n2300 PRINT AT X,Y;"\: \ .\' "
\n2301 PRINT AT X+1,Y;"\:'\'."
\n2302 PRINT AT X+2,Y;"\' \' "
\n2303 RETURN
\n2400 PRINT AT X,Y;"\: "
\n2401 PRINT AT X+1,Y;"\: "
\n2402 PRINT AT X+2,Y;"\''\''\' "
\n2403 RETURN
\n2500 PRINT AT X,Y;"\:.\ .\: "
\n2501 PRINT AT X+1,Y;"\: \' \: "
\n2502 PRINT AT X+2,Y;"\' \' "
\n2503 RETURN
\n2600 PRINT AT X,Y;"\:. \: "
\n2601 PRINT AT X+1,Y;"\: \'.\: "
\n2602 PRINT AT X+2,Y;"\' \' "
\n2603 RETURN
\n2700 PRINT AT X,Y;"\.'\''\. "
\n2701 PRINT AT X+1,Y;"\: \: "
\n2702 PRINT AT X+2,Y;"\ '\''"
\n2703 RETURN
\n2800 PRINT AT X,Y;"\:'\''\. "
\n2801 PRINT AT X+1,Y;"\:'\''"
\n2802 PRINT AT X+2,Y;"\' "
\n2803 RETURN
\n2900 PRINT AT X,Y;"\.'\''\. "
\n2901 PRINT AT X+1,Y;"\: \'.\' "
\n2902 PRINT AT X+2,Y;"\ '\' \' "
\n2903 RETURN
\n3000 PRINT AT X,Y;"\:'\''\. "
\n3001 PRINT AT X+1,Y;"\:'\':"
\n3002 PRINT AT X+2,Y;"\' \' "
\n3003 RETURN
\n3100 PRINT AT X,Y;"\.'\''"
\n3101 PRINT AT X+1,Y;"\ '\''\. "
\n3102 PRINT AT X+2,Y;"\ '\''"
\n3103 RETURN
\n3200 PRINT AT X,Y;"\''\:'\' "
\n3201 PRINT AT X+1,Y+1;"\: "
\n3202 PRINT AT X+2,Y+1;"\' "
\n3203 RETURN
\n3300 PRINT AT X,Y;"\: \: "
\n3301 PRINT AT X+1,Y;"\: \: "
\n3302 PRINT AT X+2,Y;"\ '\''"
\n3303 RETURN
\n3400 PRINT AT X,Y;"\: \: "
\n3401 PRINT AT X+1,Y;"\ :\ :"
\n3402 PRINT AT X+2,Y+1;"\' "
\n3403 RETURN
\n3500 PRINT AT X,Y;"\: \: "
\n3501 PRINT AT X+1,Y;"\: \: \: "
\n3502 PRINT AT X+2,Y;"\ '\ '"
\n3503 RETURN
\n3600 PRINT AT X,Y;"\'.\ .\' "
\n3601 PRINT AT X+1,Y;"\ .\'."
\n3602 PRINT AT X+2,Y;"\' \' "
\n3603 RETURN
\n3700 PRINT AT X,Y;"\'.\ .\' "
\n3701 PRINT AT X+1,Y+1;"\: "
\n3702 PRINT AT X+2,Y+1;"\' "
\n3703 RETURN
\n3800 PRINT AT X,Y;"\''\':\' "
\n3801 PRINT AT X+1,Y;"\ .\' "
\n3802 PRINT AT X+2,Y;"\''\''\' "
\n3803 RETURN
\n3810 SAVE "1010%3"
\n3820 RUN
\n9999 REM % %R%Y%A%N% %G%R%A%Y%
