0 'COL20.BA - by William Naoki Kumai
1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
70 GOTO180
80 CLS
90 IFEOF(1)THEN160ELSEXY!=Y+256*X
100 C=ASC(INPUT$(1,1)):IFC=13THEN130ELSEIFC<32THEN90
110 IFC<128THENCALLM2!,C-32,XY!ELSECALLM1!,C-128,XY!
120 X=X+12:IFX<240THEN90
130 X=0:Y=Y+16:IFY<64THEN90ELSEY=0
140 Q$=INKEY$:IFQ$=""THEN140
150 IFQ$<>CHR$(27)THEN80ELSEMENU
160 Q$=INKEY$:IFQ$=""THEN160
170 MENU
180 'CLEAR256,62870:DEFINTA-Z
190 FORXY!=62870!TO62958!:READC:POKEXY!,C:NEXT
200 M1!=62870!:M2!=62890!
210 FILES:INPUT"Filename";Q$
220 OPENQ$FORINPUTAS#1
230 GOTO80
240 'M1 (6 byte character)
250 DATA235        :'XCHG
260 DATA033,241,120:'LXI  H,CHTBL6
270 DATA006,000    :'MVI  B,0
280 DATA079        :'MOV  C,A
290 DATA009        :'DAD  B
300 DATA009        :'DAD  B
310 DATA009        :'DAD  B
320 DATA009        :'DAD  B
330 DATA009        :'DAD  B
340 DATA009        :'DAD  B
350 DATA006,006    :'MVI  B,6
360 DATA014,008    :'MVI  C,8
370 DATA195,186,245:'JMP  a:
380  M2 (5 BYTE CHARACTER)
390 DATA235        :'XCHG
400 DATA033,017,119:'LXI  H,CHRTBL
410 DATA006,000    :'MVI  B,0
420 DATA079        :'MOV  C,A
430 DATA009        :'DAD  B
440 DATA009        :'DAD  B
450 DATA009        :'DAD  B
460 DATA009        :'DAD  B
470 DATA009        :'DAD  B
480 DATA006,005    :'MVI  B,5
490 DATA014,008    :'MVI  C,8
500 DATA126        :'MOV  A,M
510 DATA213        :'PUSH D
520 DATA229        :'PUSH H
530 DATA213        :'PUSH D
540 DATA197        :'PUSH B
550 DATA015        :'RRC
560 DATA210,219,245:'JNC  c:
570 DATA245        :'PUSH PSW
580 DATA213        :'PUSH D
590 DATA205,076,116:'CALL PLOT
600 DATA209        :'POP  D
610 DATA213        :'PUSH D
620 DATA020        :'INR  D
630 DATA205,076,116:'CALL PLOT
640 DATA209        :'POP  D
650 DATA213        :'PUSH D
660 DATA028        :'INR  E
670 DATA205,076,116:'CALL PLOT
680 DATA209        :'POP  D
690 DATA020        :'INR  D
700 DATA028        :'INR  E
710 DATA205,076,116:'CALL PLOT
720 DATA241        :'POP  PSW
730 DATA193        :'POP  B
740 DATA209        :'POP  D
750 DATA028        :'INR  E
760 DATA028        :'INR  E
770 DATA013        :'DCR  C
780 DATA194,189,245:'JNZ  b:
790 DATA225        :'POP  H
800 DATA209        :'POP  D
810 DATA035        :'INX  H
820 DATA020        :'INR  D
830 DATA020        :'INR  D
840 DATA014,008    :'MVI  C,8
850 DATA005        :'DCR  B
860 DATA194,186,245:'JNZ  a:
870 DATA201        :'RET