&4136 (C) BY SVS - ITALY.x?~@ۆܥ-.݆ޠݑ۩ݥLP-.L ^ ^LGɿ ^ ^LG i@Í>X 0-8e--.L1`--.`L܋  V20_ - CREA FONT PER MPS-803 SVS 9210.62 . " * FILE STRUCTURE *  ASCII CHAR = CHARACTER BINARY+128 = BIM CODES CHR$(0) = END CHAR'S CODES .H  CHR$(1) = END OF FILE .a 4,1: 0,1: 1,14,5l 9000 ("34"),("80"): ("36"),("80"): ("38"), ("80")FO$"F800" "  SVS FONT CREATE! "/ "  FOR 803-EXPANSION H* " 1`- " 123456789012345z2 ""< I1 7F: "ݿ "IPZ ""d "ALLOCATION FONT (HEX$) ";FO$"";: FO$iIN$FO$,nIN(IN$)4: IN$"8000" 100js "CHARACTER? ";: CA$: ""CA$" ($"(((CA$)),2)")v "GOTO 20: NEWRUNNING"x "GOTO 1000: SEARCHCHAR" "GOTO 2000: INSERTNEWCHAR(HIT RETURN "GOTO 3000: REWRITECHAR ON CHOICE)C "GOTO 4000: CREATENEWFONTi "GOTO 8000: SAVE A FONT-FILEz 1,0,20,"" - RICERCA CARATTERE .A0BA : B=CODICE PRECEDENTEA(IN): A1 E$"NON-EXISTING CHARACTER IN THIS FONT!": 50007 B0 ININ1: 1007c 1,25,7,(27)"OREAD : " (A) A(CA$) ININ1: 1007B1: - COLONNA: - DRAW#: ININ1: A(IN): A0 Q : 1,23,7,(27)"OVALUE : "(A)`: AA128v: I6 0 1$: A2I 1,B,I3,"": AA2I.: 8: BB1BL ,0,19,"": 2 - INSERIMENTO NUOVO CARATTEREGIN(FO$)4: A0iBA:  B=CARATT.PRECEDENTEA(IN): A1 2020: տ B0 ININ1: 2007 A(CA$) E$"CHARACTER ALREADY EXISTING!": 5000ININ1: 2007  1,0,22,"NO. OF COLUMNS": CO9 IN,(CA$): ININ1S CO1 CO15 2020b C1 COm: N0~ : A0 6: (("C00")40(3A) C)32 NN2A: 1,23,7,(27)"OVALUE : "(N) : &%: 1,23,9,(27)"OADDRESS : $" (IN)Z&: 1,23,10,(27)"OPOKE-VALUE : "(N)l*: IN,N128{4: ININ1>R IN,0\ININ1f IN,1:  - SOSTITUZIONE CARATTERE .C ININ1: (IN)(CA$)  ININ1: 3005q 1,0,22,"NO. OF COLUMNS": CO CO1 CO15 3020 C1 CO : N0 : A0 6 : (("C00")40(3A) C)32 NN2A% : 1,23,7,(27)"OVALUE : "(N). : ^ : 1,23,9,(27)"OADDRESS : $" (IN) : 1,23,10,(27)"OPOKE VALUE : "(N) : B(IN): B0 & 6000 : IN,N128 : ININ1& : (IN)0 6500N g - INIZIALIZZA NUOVO FONT-FILE "INITIALIZE A NEW FONT-FILE. CURRENT FONT": "IN MEMORY WILL BE ERASED."; " CONFIRM (Y/N)";A$  A$"Y" 4030: A$"N" : "";: 4010! (FO$),("S")7 (FO$)1,("V")M (FO$)2,("S")s "DEFAULT SETTING FLAGS: (Y/N){A0 I0 5: A$: A$;: B$: B$"Y" B$"N" "";: 4100: B$"Y" AA2I " (FO$)3,A' (FO$)4,1$, 20P - ERRORE .c 1,0,22,E$: p - SHIFT UPu 1,0,22,"SHIFT UP REMAINING FONT $"zFIIN (FI)1 FIFI1: , 25,22,(FI): 6020: 1,25,22,(FI)(: (FI1),(FI)7: FIFI1E FIIN| 1,0,22,"& "d - SHIFT DOWNi 1,0,22,"SHIFT DOWN REMAINING FONT $"nFIIN}DE1%  (FIDE)0 DEDE1: 65302 FIFIDE8 O : 1,27,22,(FI)_ : A%(FI)r : (FIDE),A% : FIFI1  A%1  1,0,22,"& " A%(IN): A%0 6505 !X - DATA .X!b "LINE-FEED 1/6''","COMPRESSION" ,"EXPANSION","UNDERLINING"!l "REVERSE","CONVERTION IN CAPITAL LETTERS"!@ - SAVE .!JA(FO$)3!T!Y: AA1!^: B(A)!h B1 "r "FILE-NAME";FF$F"| "S "(34)FF$(34) " 8 "FO$;" ";(A1)"T" 1319,13c" 1320,145r" 1321,145" 1322,145" 1323,("V")" 239,5""(# - INFO"2# " WELCOME TO 'FONT-CREATE' ";2#<# "  ";d#F# " THIS PROGRAM ALLOWS YOU TO WRITE YOUR ";#P# " OWN FONTS FOR THE PACKAGE 'MPS-803 EX- ";#Z# " PANSION' [(C) SVS]. ";#d# "' ";,$n# " 1- INITIALIZE A NEW FONT OR LOAD ONE. ";^$x# " 2- DRAW EACH CHARACTER ON THE BOX ";$# " (SPACE=PIXEL OFF; ";$# " ANY OTHER CHARACTER=PIXEL ON). ";$# " 3- INSERT THE NEW CHARACTER IN MEMORY. ";&%# "(4- SEARCH AND MODIFY ANY CHARACTER). ";X%# " 5- SAVE THE NEW FONT-FILE. ";%# "' ";%# " TO SELECT AN OPTION, LOCATE THE CURSOR ";%# " ON THE CHOICED WORK-BAR AND HIT RETURN."; &# " AFTER WORKING, THE PROGRAM GOES IN REA-";R&# " DY STATUS. TO RUN ANOTHER OPERATION, ";&# " PLEASE CHOICE THE FIRST OPTION (NEW ";&# " RUNNING). ";&# "' ";&# A$$'# " HORIZONTAL LENGHT OF EACH CHARACTER CAN";V'$ " BE FROM 1 TO 15 PIXELS; VERTICAL LENGHT";'$ " CAN BE FROM 1 TO 7 PIXELS. ";'$ " THEN YOU CAN WRITE CHARACTERS HAVING ";'"$ " DIFFERENT LENGHTS ON THE SAME FONT FI- ";(,$ " LE!# ";P(6$ "' ";(@$ " THANK YOU IF YOU WILL SEND ME YOUR NEW ";(J$ " FONT-FILES! WRITE ME FOR SWAPPING TOO. ";(T$ "' ";)^$ "' ";J)h$ "  ZENARI VALENTINO ";|)r$ "  VIA MILANO, 23 ";)|$ "  I 36030 CALTRANO ";)$ " (VI) I T A L Y ";*$ "' "*$ A$: