Star Micronics Radix User Manual page 148

134
Radix User's Manual
630 FOR I=@ TO 6:LOCATE 5+1*2,6:PRINT 2"I;:NEXT I
640 '
650 'Put in dots.
660 FOR H = 1 TO 11 : FOR J = 1 TO 7 : Z(J,H) = 0
700 NEXT J : NEXT H
710 FOR
H =
1 TO 11 : GOSUB 1200 : NEXT H
720 X=l:Y=l:G=l:H=l
730"GOSUB 1300
740 '
750 'Paint menu.
760 LOCATE 6,47 : PRINT "P -- Print the character."
'770 LOCATE 7,47 : PRINT "A -- Set ASCII code."
780 LOCATE 8,47 : PRINT "C -- Clear all dots."
790 LOCATE 9,47 : PRINT "Q -- Quit."
800 LOCATE lp1,47 : PRINT
"R
-- Perform ROM copy."
810 LOCATE 11,44 : PRINT CHR$(24) CHR$(27) CHR$(26)
CHM(25) ;
820 PRINT " -- Move cursor."
830 LOCATE 12,45:PRINT "ins -- place a dot.";
840 LOCATE 13,45:PRINT "de1 -- remove a dot.";
850 LOCATE 14,47 : PRINT "+ -- make character wider." ;
860 LOCATE 15,47 : PRINT 'I- -- make character narrower."
.
870'LOCATE 16,47 : PRINT "D -- Toggle descender mode." ;
880 RETURN
890 '
900 'Edit subroutines.
910 GOSUB 1240:Y=Y-3:H=H-l:IF Y(l THEN BEEP:Y=l:H=l
920 GOSUB 1300:m~um
930 GOSUB 1240:Y=Y+3:H=H+l:IF Y)31 THEN BEEP:Y=31:H=ll
940 GOSUB 1300:FiETURN
950 GOSUB 1240:X=X+2:G=G+l:IF X)13 THEN BEEP:X=l3:G=7
960 GOSUB 1300:RETURN
970 GOSUB 1240:X=X-2:G=G-l:.IF X(1 THEN BEEP:X=l:G=l
980 GOSUB 1300:RETURN
990 IF Z(G,H-l)=l OR Z(G,H+l)=l THEN BEEP:RETURN
1000 Z(G,H) = 1 : COLOR 31,l
1010 LOCATE X+4,Y+l0 : PRINT SC$ j : COLOR 7,0
1020 GOSUB 1150 : RETURN
1030 z(G,H)=~ : COLOR 7,pl
1040 LOCATE X+4,Y+l0 : PRINT CS$ ; : COLOR 7,0