home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
txt
/
col20.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
3KB
|
84 lines
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