3327 한글 스크린 폰트 프린트하기

폰트 뽑아내기와 조합 오토마타 개발을 위한 테스트 프로그램 (애플베이식 on 멋한글)

0 &

1 K$=CHR$(11)

2 A$=CHR$(1)

20 C1$ = "R-SE=FAQ*T<DW>CZXVG"

30 M1$ = "KOI;JPU+HYNBML"

31 M2$ = "RKRORIR;RJRPRUR+RHRHKRHORHLRYRNRNJRNPRNLRBRMRMLRL"

32 M3$ = "RKDRODRIDR;DRJDRPDRUDR+DRHDRHKDRHODRHLDRYDRNDRNJDRNPDRNLDRBDRMDRMLDRL"

40 J1$ = "DNRDN-RNRTDNSDNSWDNSGDNEDNFDNFRDNFADNFQDNFTDNFXDNFVDNFGDNADNQDNQTDNTDN<DNDDNWDNCDNZDNXDNVDNG"

41 J2$ = "RKRRK-RNRTRKSRKSWRKSGRKERKFRKFRRKFARKFQRKFTRKFXRKFVRKFG"

42 J3$ = "RKARKQRKQTRKTRK<RKDRKWRKCRKZRKXRKVRKG"

100 PRINT K$;C1$;A$

200 PRINT K$;M1$;A$

210 PRINT K$;M2$;A$

220 PRINT K$;M3$;A$

300 PRINT K$;J1$;A$

310 PRINT K$;J2$;A$

320 PRINT K$;J3$;A$