Star Micronics Radix User Manual page 248

234
Radix User'sManual
80 CS$=CHR$(9l)+CHR$(93):SC$=STRING$(2,159):
CR$=STRING$(2,127)
90
RAMNML$ = CHR$(27) + "$I" + CHR$(l)
100 RAMNMLOFF$ = CHR$(27) + "$" + CHR$(pI)
110 RAMPRO$ = CHR$(27) + "X" + CHR$(l)
120 RAMPROOFF$ = CHR$(27) + "X" + CHR$(@)
130 DEF FNL$(ROW,COL) = cmg(27) + If=11 + cm$(Row+32) +
CHR$(COL+32)
140 LPRINT CHR$(27) "@" ; : WIDTH "LPT1:",255
150 GOSUB 1660
160 '
170.'Main loop.
180 A$=INKEY$:IF A$="" THEN 180
190 IF A$ = "+" OR A$ = "=" THEN GOSUB 820 : GOT0 340
'Wider.
200 IF A$ = "-" OR A$ = CHR$(95) THEN GOSUB 850 : GOT0
340 'Narrower.
210 IF A$ = "D" OR A$ = "d" THEN GOSUB 880 : GOT0 340
'Descender.
220 IF A$="Q" OR A$="q" THEN GOSUB 350 : END
230 IF A$="P" OR A$="," THEN GOSUB 1120 : GOT0 340
240 IF A$="," OR A$="c" THEN GOSUB 1660 : GOT0 340
250 IF A$="," OR A$="a" THEN GOSUB 1480 : GOT0 340
260 IF A$="," OR A$="r" THEN GOSUB 1710 : GOT0 340
270 IF A$=CHR$(8) THEN GOSUB 67pl:GOTO 340 'Left.
280 IF A$=CHR$(12) THEN GOSUB 69Jd:GOTO 340 'Right.
290 IF A$=CHR$(l@) THEN GOSUB 710:GOTO 340 'Down.
300 IF A$=CHR!$(ll) THEN GOSUB 730:GOTO 340 'Up.
310 IF A$=CHR$(13) THEN GOSUB 750:GOTO 340 'Insert.
320 IF A$=CHR$(127) THEN GOSUB 790:GOTO 340 'Delete.
330 PRINT CHR$(7);
340 GOT0 180
3; gFRCm§
(26)
i
370 '
380 ' Subroutine to paint screen.
390 PRINT CHR$(26);
400 GOSUB 1560
410 '
420 'Draw grid.
430 FOR I=@ TO 6:PRINT FNL$(5+1*2,6); 2"I;:NEXT I
440 '
450 'Put in dots.
460 FOR H = 1 TO 11 : FOR J = 1 TO 7 : Z(J,H) = $4