Star Micronics Radix User Manual page 249

Kaypro, Osborne
& Other
CPIM
Computers
235
470 NEXT J : NEXT H
480 FOR H = 1 TO 11 : GOSUB 960 : NEXT H
490 X=l:Y=l:G=l:H=l
500 GCEXJB 1060
510 '
520 'Paint menu.
530 PRINT FNL$(6,47) "P -- Print the character."
540 PRINT FNL$(7,47) "A -- Set ASCII code."
550 PRINT FNL$(8,47) l*C -- Clear all dots."
560 PRINT FNL$(9,47) "Q -- Quit."
570 PRINT FNL$(l0,47) "R -- Perform ROM copy."
580 PRINT FNL$(ll,45) "Arrow keys move cursor"
590 PRINT FNL$(12,45) **RET -- place a dot.";
600 PRINT FNL$(13,45) *'DEL -- remove a dot.";
610 PRINT FNL$(14,47) "+ -- make character wider." ;
620 PRINT FNL$(15,47) "- -- make character narrower.'* ;
630 PRINT FNL$(16,47) "D -- Toggle descender mode." ;
640 RETURN
ii; 'Edit
1
subroutines .
670 GOSUB l@@@Y=Y-3:;I=H-l:IF Y(1 THEN PRINT CHR$(7);
:Y=l:H=l
680 GOSUB 1060:RETUFtN
690 GOSUB l@j@:Y=Y+3:H=H+l:IF Y)31 THEN PRINT CHR$(7);
:Y=31:H=ll
700 GOSUB 1060:RETURN
710 GOSUB l@j@:X=X+2:G=G+l:IF X)13 THEN PRINT CHR$(7);
:X=13:G=7
720 GOSUB 1060:RETURN
730 GOSUB 1000:X=X-2:G=G-l:IF X(1 THEN PRINT CHR$(7);
:X=l:G=l
740 GOSUB 1060:FiETURN
750 IF Z(G,H-l)=l OR Z(G,H+l)=l THEN PRINT CHR$(7);
:RETURN
760 Z(G,H) = 1
770 PRINT FNL$(X+4,Y+l@) CR$ ;
780 GOSUB 910 : RETURN
790 Z(G,H)=0
800 PRINT FNL$(X+4,Y+l@ CS$ ;
810 GOSUB 910 : RETURN
820 IF PROWID = 11 THEN PRINT CHR$(7); : RETURN
830 PROWID = PROWID + 1
840 GOSUB 1560 : RETURN
850 IF PROWID = 4 THEN PRINT CHR$(7); : RETURN