I5^5EPAGTRFILEINSCIORAMTOCHBACHBASDTEXTTEXTSCSCDLDLPPPODNCHORTEXSIOOXYNCPMDOSUUDOLDOTSTSMSGTDTDLTDLINCHOTSDLTSDLSFDISDSCA$@`)22@ Z A` A BWBvHB'hA)A2A(@@@@2B B0$!B7"AU#$%&'()*+,-./0123@d4AV5a67AV8@29F :A;<=>AU?@@A%%*** NLQ FONT MAKER FOR NX10 ***%%*** by JAMES DUFFIN ***%%*** 22 JUNE 1986 ***! @!DISABLE BREAK KEY AIOCB'S & DIM'S# A #MEMORY ORGANIZATION BPREDEFINE CHARS A0SCREEN *** MAIN LOOP *** " AP"Cursor Char Select! A!Trigger Selection APKeys Input @*** EDIT LOOP ***" A"Move Cursor Matrix APTrigger Dots AKeys Input @ *** CHAR: RECALL ****6-F:%@, A@*6-@ (6-@#@I%!@($!)6-F:%&@,)6-F:%%@,""#OO6-@$+*,%@$+* ,%@$+ *,%@ $+ * ,$$-@%P:'@,$(>:,' 6-&( 6-&)1*'6-%@1 @2*6-%@ @41128,64,32,16,8,4,2,12*** TO GRAPHICS PLOT ***4-@@-@@6$7 *** FROM GRAPHICS PLOT ***8. ,.Needed but ?:-@!@-@;$<*** INPUT (Y/N) ***>&6-F:Ad,&"AU@b@AdAUBK"@5)"@C&6-6@26-A>6-@H @K$D @bF *** CHAR: PRINTER FILE ***H 6-F:%&@%@$,J6-A($+"@)"@,%@d$+"@)"@,%@2$+"@)"@,%@$+"@)"@ ,L6-%@$+"@)"@,%@$+"@)"@,%@$+"@)"@,%@$+"@)"@,N<9%&@%@$%$+"@,&$+",<$P*** SOUND SUBROUTINE ***R--@)2- T$U*** DISABLE BREAK KEY ***VD6-F:@,!A',6-&A(8@DB7tW@wX$Z*** DISPLAY CHARACTER ***[ @P!-@@A-@%+"@,KU,%%Y ] i6-@Erase Former Char Plot\F#6-@%@$+"@,-#@I9!@C @UF$])6-F:%&@,)6-F:%%@,^_" @!,%%3,%%@%E,%%%@_,%%@%%@_k @%,%%%@?,%%@%%@Q,%%%@k,%%@%%@` 6-&a 6-&b1*'6-%@1 @c6-%@ @d**** MOVE CURSOR ****n!6-R:,"@!$p 6-6-6-rII6-%+"@)"@)"@,&+"@ )"@)"@,tII6-%+"@)"@ )"@,&+"@)"@)"@,v!@6-@x @6-@z!@6-@| @6-@~1@%P:'@,)#P:'@,"P:'@,*")6-YY6-+"@)"@)"@)"@ )"@)"@)"@)"@,$-@%P:'@,$(>:,|-@%P:'@,|(>:@ $+"@ ,%@$+"@,%@$+"@,%@$+"@,%A($,56-6@6-@(6-@2 @5$*** TRIGGER INPUT ***T:,"@$}"c6-@$+"@ ,%@ $+"@,%@$+"@,%@$+"@,}6-+"@)"@,}"@c6-@$+"@ ,%@$+"@,%@ $+"@,%@$+"@,}6-+"@)"@,$-@%P:'@,$(>:,( @p(Change Printer Char File 6-56-6@6-A (6-@2 @5$*** KEYBOARD SELECT ***$6-F:Ad,$AdAU"AU$G"@X6-+",-%@7 A@G"D"=Descender)"@B A0)"E"=Exit Edit$"E"=Exit Edit26-6@6-@P(6-@2 @$-@%P:'@,$(>:,! @!Display Character A0  A0P Screen' @Descender["!-@0@,(on/96-6@E6-@0Q6-@[ @["@!-@0@,(/off96-6@E6-A Q6-@[ @$ *** CURSOR CHAR SELECT ***!6-R:,"@!$ 6-6-6-II6-%+"@)"@)"@,&+"@ )"@)"@, II6-%+"@)"@ )"@,&+"@)"@)"@,!@36-@ @6-@3!@6-@ @6-@ 1 -(>:,8 -8(>:%A($+ A(,&A($+!A(,,26-6@6-@P(6-@2 @"$,*** TRIG SELECT CHAR ***.T:,"@$/$ -$(>:%A($+ A(,,0g/6-@2%+&@,%@1$+&@,I6-%@$$+&@2,OgChosen Char & Pointer1 Char Graphics Origin OX,OY2__6-@%@$+&@2&@#$+!@T,&@#$+!@w,&@#$+!A,,4CC6-@$+!@T,%@$+!@w,%@$+!A,6Edit Character Display7'AAP'AAP8%-@@%( Exit Edit:,-@@,( Descender on/;)-@@)( <*-@@*(Stick and Button>q-@@*(Place and Remove<-@@ Q(Dots to Make thec-@@q( Character@ @0Char: RecallTExit to Edit LoopV'6-@6-@'6-X1@%P:'@,Zr-@%P:'@,r(>:@ $+"@ ,%@$+"@,%@$+"@,%@$+"@,,\26-6@6-A(6-@2 @]' @ ^*** EDIT CHAR KEYS ***`$6-F:Ad,$AdAUb"AU$h"@b A"S"r" A"L"|"@ A"P"$*** SAVE FONT *** APText Screen(}Save Font? (Y/N) @`Input (Y/N)9"@5 A@$9"N" so back to Edit Screen AGet FilenameSave RAM$ A`($(Saving Font ...2 @@2AP@ A0Disk I/O A@$ExitDisk I/O!AR!AS'AV'AW@ 6-?:C:,<@,ARAS'AVAD'AW@6-?:C:,<@,@ @$Return to Edit ScreenA`Aa@@'A@'A@$Text only Screen26-6@6-@ (6-@2 @A`Aa@@'AA'AA$Trap Disk Error@ B(( Disk Error!26-6?6-AU(6-@2 @ A@Get Filename 6.6.<(( Filename?(5(RETURN for Disk Directory8(< 4 A AN7@<@,0D:767@<@,.D:N67@<@ ,.#7@<@,4D:#6.$*** LOAD FONT ***Confirm Command APText Screen(}Load Font? (Y/N) @`Input (Y/N)9"@5 A@$9"N" so back to Edit Screen AGet FilenameLoad RAM % A`(%(Loading Font ... 2 @@2AP@ A0Disk I/O# A@#Back to Edit ScreenShow Edited Characters6-@2##-%@$@$@$~_-@%&@2&@1$+!@b,&@1$+!@,@%+!@b,%+!@,~(>:%A($+F:,!,,6-%@ 26-6? 6-@ (6-@2 @$X!!*** DOWNLOAD TO PRINTER ***YConfirm CommandZ APText Screen\##(}Download to Printer? (Y/N)^ @`Input (Y/N)`9"@5 A@$9"N" so back to Edit Screenb&(&(DIP Switch 2-1 be !d&(&(Is the Printer Ready? (Y/N)f @`Input (Y/N)h9"@5 A@$9"N" so back to Edit ScreenlStart Downloadn Ap9#@@P:&(9(Downloading...qSelect NLQr00 @>:@',>:A ,>:@,sCopy Standard Char to RAMtFF @>:@',>:@X,>:,>:,>:,v##-%@$@$@$x" 6-F:,"" A7z:: @>:@',>:@8,>:,>:,>:,{K6-F:%@,K @>:A9$+",%@$+"@,,|1-@@$- @>:F:%,,1 } ~##Select Download Character Set\E @>:@',>:@7,>:@,>:,>:@$,\24 Cancels Last LinePrint Characters"("(Print Characters? (Y/N) @`Input (Y/N)N"@5@$ B. A@1$N"N" so back to Edit Screen1 @ @& @1 @,-@2@( @>:,,  @,-@A$( @>:,,  @ @/@ B" A@, @/$Trap Printer Error@ B*(*(Trouble Downloading to Printer!26-6? 6-AU(6-@2 @ @ A*** DISK DIRECTORY ***0 A0@@D:*.*! A!-@d@( Trap Disk I/O Error' ' A`26-6?6-AU(6-@2 @@ B @$*** IOCB'S & DIM'S ***&&;@P,;@ ,;@ ,;@,6.hhhLVDD67@<@A,.)hhhhhԩ̩̑͢`;@0,$!!*** MEMORY ORGANIZATION ***6-F:A,Screen Character Set6-&@R6-AV$Printer Character Set6-&@D6-AV$Display List+6-6-&@2+6-AV$Screen Text Display+6-6-&@1+6-AV$Screen Graphics Display +6-6-&@(+6-AV$Text Only Screen?6-F:@,!6-F:@,06-F:A`,?6-F:Aa,Clear Display Screen .@!@.(>:A%,*$ **** SCREEN SETUP **** A0 New Display List W-@?(%NX10 N.L.Q.FONT MAKER by James DuffinQ-@@W(   A0 Editing Grid  A0@Chars to Edit  A0PCommands $ New Display List KA 'A@9A@KAR@ gA#%@A7%@AK%@@fY%@g%@ )-@@%%@)  3%@ @y%%@!3%@" )-@#@%%@)  3%@@e%%@3%@ EA`Aa'@3@E@ $ Editing Grid '-@@'(  (  (  (  (  (  (  (  (  (  $ Characters to Edit 5-@@)-@2@b1(>:,5  5-@@)-@c@1(>:,5  5-@@)-@A$1(>:,5  $ Commands 'A@'A@ %-@@%( Load Font ,-@@,( Save Font  (-@@(( Load Printer *-@@*(  q-@@*(Stick and Button<-@@ Q(Select Characterc-@@q( to Edit  #6-@6-@#1 $ -$(>:%A($+ A(,, 26-6@6-@(6-@2 @ $a!!*** REDEFINE CHARACTERS ***a + @aTransfer ROM Charactersa6-?:C:,<<@,aReplace Charactersa #BPa#""6@ AV#$a1-@"-%$@%1 a BPPaRedefine "control T "a84,0,24,24,0,0,24,24,0bRedefine "control F "b 70,60,126,126,60,0,24,24,0 bRedefine "control G " b$$71,60,126,126,60,60,126,126,60bRedefine "control P "b 80,0,24,24,0,60,126,126,60bRedefine "control I " b""73,255,231,231,255,0,24,24,0)bRedefine "control O "*b""79,195,129,129,195,0,24,24,03bRedefine "control K "4b&&75,255,231,231,255,60,126,126,60=bRedefine "control L ">b&&76,195,129,129,195,60,126,126,60Hb-1 D:NX10NLQ.BAShhhhhԩ̩