Oki MICROLINE 385/6 Handbook

Note: When yo.u are typing in the program, you do not have to include lines beginning wcomments that appear after an apostrophe (') in a program line. You can also combine the DAinto longer lines.10 REM D L L d e n o 24 p i n20 O P E H "lptli" AS 0 1 i W I D T H "lptli",255< HEM p r e p a r e o u t p u t30 P R I N T 0 1 , C H R S ( 2 7 ) ; " 0 " j i REM inlt p r i n t e r40 P R I H T 0 1 , C H R $ ( 2 7 ) j " x l " ; i REM s e l e c t LO50 P R I N T 0 1 , C H R $ ( 2 7 ) ; " i " ; C H R $ ( 0 ) ; C H R 5 ( 0 ) ;CHR$(0);iREM R O M - C G to R A M - C G60 P R X N T 0 1 , C H R $ ( 2 7 ) j " & " ; C H R $ ( 0 } ; » REM start of definition70 P R I N T S 1 , " 0 0 " ; i REM from 0 to 080 P R I H T S 1 , C H R S ( 4 ) ;CHR$(27))CHR$(5)>90 it REM w i d t h b e f o r e c h a r a c t e r 4 dote100 i REM w i d t h of c h a r a c t e r 27 dote110 i REM with behind c h a r a c t e r 5 dots120 FOR 1=1 TO 27 REM 27 c o l u m n s130 R E A D A , B , Ci REM each coluan has 3 byt140 P R I H T 0 1 , C H R $ ( A ) , C H R S ( B ) j C H R $ ( C ) , • REM oend it to p r i n t e r150 NEXT X160 t REM begin of c h a r a c t e r p a t t e r n data170 DATA 0 , 1 2 4 , 0, 0,130, 0, 0, 0, 0, 0,130, 0180 DATA 0, 0, 0, 0,130, 0, 0, 0, 0, 0,130, 0190 DATA 0, 0, 0, 0,130, 0, 0, 0, 0, 0,130, 0200 D A T A 0, 0, 0, 0,130, 0, 0, 0, 0, 0,130, 0210 D A T A 0, 0, 0, 6 3 , 1 3 1 , 2 4 8 , 64, 0, 4, 32, 0, 8220 D A T A 16, 0, 16, 8, 0, 32, 4, 0, 64, 1, 1, 0230 D A T A 0 , 1 3 0 , 0, 0, 68, 0, 0, 40, 0, 0, 16, 0240 D A T A 0, 16, 0250 i * REM end of c h a r a c t e r p a t t e r n data260 F R I U T 0 1 , " D o w n l i n e loadable c h a r a c t e r set not s e l e c t e d ! 0 0 0 0 0 0 "270 P R I H T 0 1 , C H R $ ( 1 0 ) i C H R S ( 1 0 ) ;280 P R I N T 8 1 , C H R $ { 2 7 ) ; " % " ; C H R $ ( 1 ) ; . REM select D L L290 P R I H T 0 1 , " d o w n l i n e loadable c h a r a c t e r set s e l e c t e d I"j300 P R I N T 0 1 , C H R $ ( 2 7 } ; REM e m p h a s i z e d , see note310 P R I N T 0 1 , " 0 0 0 0 0 0 "320 P R I N T 0 1 , C H R S ( 1 0 ) ; C H R $ ( 1 0 } ;330 P R I N T & l , C H R $ ( 27), "F",. REM turn off e m p h a s i z e d340 E N DYour printout will look like this:Downline loadable character set. not selected?downline loadable character set selected !Note: We turned on emphasized printing before using the downloaded character to compconstraint against having two dots next to each other horizontally in a custom character. Emphis accomplished by offsetting dots horizontally, so filling in the gaps to a certain extent5-14