ZX Typer

Gallery

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 
1000 PRINT AT X,Y;"\''\''\: "
1001 PRINT AT X+1,Y+1;"\.'"
1002 PRINT AT X+2,Y;"\ '"
1005 RETURN 
1100 PRINT AT X,Y;"\.'\''\. "
1101 PRINT AT X+1,Y;"\.'\''\. "
1102 PRINT AT X+2,Y;"\ '\''"
1109 RETURN 
1200 PRINT AT X,Y;"\.'\''\. "
1201 PRINT AT X+1,Y;"\ '\''\: "
1202 PRINT AT X+2,Y;"\ '\''"
1207 RETURN 
1300 PRINT AT X,Y;"\.'\''\. "
1301 PRINT AT X+1,Y;"\:'\''\: "
1302 PRINT AT X+2,Y;"\'  \' "
1303 RETURN 
1400 PRINT AT X,Y;"\:'\''\. "
1402 PRINT AT X+1,Y;"\:'\''\. "
1403 PRINT AT X+2,Y;"\''\''"
1409 RETURN 
1500 PRINT AT X,Y;"\.'\''\. "
1501 PRINT AT X+1,Y;"\:  \. "
1502 PRINT AT X+2,Y;"\ '\''"
1507 RETURN 
1600 PRINT AT X,Y;"\:'\''\. "
1601 PRINT AT X+1,Y;"\:  \: "
1602 PRINT AT X+2,Y;"\''\''"
1608 RETURN 
1700 PRINT AT X,Y;"\:'\''\' "
1701 PRINT AT X+1,Y;"\:'\''"
1702 PRINT AT X+2,Y;"\''\''\' "
1707 RETURN 
1800 PRINT AT X,Y;"\:'\''\' "
1801 PRINT AT X+1,Y;"\:'\''"
1802 PRINT AT X+2,Y;"\' "
1803 RETURN 
1900 PRINT AT X,Y;"\.'\''\' "
1901 PRINT AT X+1,Y;"\: \''\: "
1902 PRINT AT X+2,Y;"\ '\''\' "
1903 RETURN 
2000 PRINT AT X,Y;"\:  \: "
2001 PRINT AT X+1,Y;"\:'\''\: "
2002 PRINT AT X+2,Y;"\'  \' "
2003 RETURN 
2100 PRINT AT X,Y;"\ '\:'"
2101 PRINT AT X+1,Y+1;"\: "
2102 PRINT AT X+2,Y;"\ '\''"
2103 RETURN 
2200 PRINT AT X,Y+2;"\: "
2201 PRINT AT X+1,Y;"\.  \: "
2202 PRINT AT X+2,Y;"\ '\''"
2203 RETURN 
2300 PRINT AT X,Y;"\: \ .\' "
2301 PRINT AT X+1,Y;"\:'\'."
2302 PRINT AT X+2,Y;"\'  \' "
2303 RETURN 
2400 PRINT AT X,Y;"\: "
2401 PRINT AT X+1,Y;"\: "
2402 PRINT AT X+2,Y;"\''\''\' "
2403 RETURN 
2500 PRINT AT X,Y;"\:.\ .\: "
2501 PRINT AT X+1,Y;"\: \' \: "
2502 PRINT AT X+2,Y;"\'  \' "
2503 RETURN 
2600 PRINT AT X,Y;"\:. \: "
2601 PRINT AT X+1,Y;"\: \'.\: "
2602 PRINT AT X+2,Y;"\'  \' "
2603 RETURN 
2700 PRINT AT X,Y;"\.'\''\. "
2701 PRINT AT X+1,Y;"\:  \: "
2702 PRINT AT X+2,Y;"\ '\''"
2703 RETURN 
2800 PRINT AT X,Y;"\:'\''\. "
2801 PRINT AT X+1,Y;"\:'\''"
2802 PRINT AT X+2,Y;"\' "
2803 RETURN 
2900 PRINT AT X,Y;"\.'\''\. "
2901 PRINT AT X+1,Y;"\: \'.\' "
2902 PRINT AT X+2,Y;"\ '\' \' "
2903 RETURN 
3000 PRINT AT X,Y;"\:'\''\. "
3001 PRINT AT X+1,Y;"\:'\':"
3002 PRINT AT X+2,Y;"\'  \' "
3003 RETURN 
3100 PRINT AT X,Y;"\.'\''"
3101 PRINT AT X+1,Y;"\ '\''\. "
3102 PRINT AT X+2,Y;"\ '\''"
3103 RETURN 
3200 PRINT AT X,Y;"\''\:'\' "
3201 PRINT AT X+1,Y+1;"\: "
3202 PRINT AT X+2,Y+1;"\' "
3203 RETURN 
3300 PRINT AT X,Y;"\:  \: "
3301 PRINT AT X+1,Y;"\:  \: "
3302 PRINT AT X+2,Y;"\ '\''"
3303 RETURN 
3400 PRINT AT X,Y;"\:  \: "
3401 PRINT AT X+1,Y;"\ :\ :"
3402 PRINT AT X+2,Y+1;"\' "
3403 RETURN 
3500 PRINT AT X,Y;"\:  \: "
3501 PRINT AT X+1,Y;"\: \: \: "
3502 PRINT AT X+2,Y;"\ '\ '"
3503 RETURN 
3600 PRINT AT X,Y;"\'.\ .\' "
3601 PRINT AT X+1,Y;"\ .\'."
3602 PRINT AT X+2,Y;"\'  \' "
3603 RETURN 
3700 PRINT AT X,Y;"\'.\ .\' "
3701 PRINT AT X+1,Y+1;"\: "
3702 PRINT AT X+2,Y+1;"\' "
3703 RETURN 
3800 PRINT AT X,Y;"\''\':\' "
3801 PRINT AT X+1,Y;"\ .\' "
3802 PRINT AT X+2,Y;"\''\''\' "
3803 RETURN 
3810 SAVE "1010%3"
3820 RUN 
9999 REM % %R%Y%A%N% %G%R%A%Y%