Star Micronics Radix User Manual page 147

Creating Your Own Characters
133
2&J@
IF A$ = "+" THEN GOSUB 1060 : GOT0 370 'Wider.
210 IF A$ = "-" THEN GOSUB 1090 : GOT0 370 'Narrower.
220 IF A$ = "D" OR A$ = "d" THEN GOSUB 1120 : GOT0 370
2391
IF A$="Q" OR A$="q" THEN GOSUB 380 : END
240 IF A$="P" OR A$="p" THEN GOSUB 1360 : GOT0 370
250
IF A$="C" OR A$="c" THEN GOSUB 1930 : GOT0 370
260 IF ,$="A" OR A$="a" THEN GOSUB 1720 : ~GOTO 370
270 IF A$="R" OR A$="r" THEN GOSUB 1980 : GOT0 370
280 BEEP:GOTO 378
290 B$=RIGHT$(A$,l)
300 IF B$=CHR$(75) THEN GOSUB 91B:GOTO 370 'Left.
310 IF B$=CHR$(77) THEN GOSUB 930:GOTO 370 'Right.
320
IF B$=CHR$(89) THEN GOSUB 950:GOTO 370 'Down.
330
IF B$=CHR$(72) THEN GOSUB 970:GOTO 370 'Up.
340 IF B$=CHR$(82) THEN GOSUB 990:GOTO 370 'Insert.
;I;
;;E;$=CHR$(83)
THEN GOSUB 1830:GOTO 370 'Delete.
370 GOT0 170
380
COLOR 7,0 : CLS
390
CLOSE #1,#2
400 RETURN
410 '
420 ' Subroutine to paint screen.
430
CLS
440
GOSUB 1820
450 '
460
'Draw grid.
470 Pl = 1 :
M$
= CHR$(179) + STRING$(2,32)
480 N$ = STRING$(2,196) + CHR$(197)
490 L$ = STRING$(2,196) + CHR$(193)
500 LOCATE 4,lg:PRINT CHR$(218);CHR$(196);
51p!
FOR I=1 TO 10
520 PRINT CHR$(196) CHR$(194) CHR$(196) j : NEXT I
530 PRINT CHR$(196) CHR$(191) : LOCATE 5,lp!
540 FOR K=l TO 12 : PRINT M$; : NEXT K : PRINT
550 FOR J=l TO 6:LOCATE 5+Pl,l0:Pl=Pl+l:PRINT CHR$(195);
560 FOR K=l TO 10:PRINT N$;:NEXT K
570 PRINT CHR$(196) CHR$(196) CHR$(180)
580 LOCATE 5+Pl,l@ : Pl=Pl+l
590 FOR K=l TO 12:PRINT M$;:NEXT K
600 PRINT:NEXT J:LOCATE 18,la:PRINT CHR$(192);
610 FOR I=1 TO 10:PRINT L$;:NEXT I
620 PRINT CHR$(196);CHR$(196);CHR$(217)