Star Micronics Radix User Manual page 230

216
Radix User's Manual
Program Listings
Download character editing utility
10 'Program to allow editing down-load characters.
20 'for the RADIX printer.
30 '
40 'Initialization.
45 CLEAR 1000
-
50 DIM Z(8,12),MM(ll)
60 As=33 : ESC$ = CHR$(27)
65 PN$=ESC$+"X"+CHR$(l):PF$=ESC$+"X"+CHR$(0)
67 NN$=ESC$+"$"+CHR$(l):NF$=ESC$+"$"+CHR$(@)
80 CS$="C":SC$=CHR$( 143):SS$="@"
90 GOSUB 1910
100 '
110 'Main loop.
120 A$=INKEY$:IF A$="" THEN 120
150 IF A$ = "+" THEN GOSUB 1050 : GOT0 340 'Wider.
160 IF A$ = "-(1 THEN GOSUB 1080 : GOT0 340 'Narrower.
170 IF A$ = "T" OR A$="," THEN GOSUB 1110 : GOT0 340
'Descender.
180
IF A$="Q" OR A$="," THEN CLS : END
190 IF A$="P" OR A$="," THEN GOSUB 1350 : GOT0 340
210 IF A$="," OR A$="c" THEN GOSUB 1910 : GOT0 340
220 IF A$="A" OR A$="a" THEN GOSUB 1670 : GOT0 340
240 IF A$=I'R" OR A$="r" THEN GOSUB 201511 : GOT0 340
270 IF A$=CHR$(8) THEN GOSUB 900:GOTO 340 'Left.
280 IF A$=CHR$(9) THEN GOSUB 920:GOTO 340 'Right.
.
290 IF A$=CHR$(l@) THEN GOSUB 940:GOTO 340 'Down.
300 IF A$=CHR$(91) THEN GOSUB 960:GOTO 340 'Up.
310 IF A$="I" OR A$="i" THEN GOSUB 98P:GOTO 340 'Insert. -
320 IF A$= "D" OR A$="," THEN GOSUB 1020:GOTO 340
'Delete.
340 GOT0 120
390 '
400 'Subroutine to paint screen.
410
CLS
420 GOSUB 1770
430
'
440 'Draw grid.