Star Micronics Radix User Manual page 231

TRS80Computers
217
458 PRINT @2*64+5,"Ml M2 M3 MI, M5 M6 M7 M8 M9
Ml0 Mll"
470
PRINT
@3x64+4,
ff ! ___I _-! ___! ---I ---I ---! ___! ---! ---
--!--!"
480!FOR I=@ TO 6:PRINT @(1+4)*64+1,2[1;
485 PRINT @(1+4)*64+4,"!";TAB(48);"!";:NEXT I
,!+90 PRINT @11x64+4,"!---!---!---!---!---!---!---!---!---
630 'Put in dots.
640 FOR H = 1 TO 11 : FOR J = 1 TO 7 : Z(J,H) = 0
680 NEXT J : NEXT H
690 FOR H = 1 TO 11 : GOSUB 1190 : NEXT H
700 X=l:Y=l:G=l:H=l
710 GOSUB 1290
720 '
730 'Paint menu.
732 PRINT @49,"CURSOR MOVEMENT";
734 PRINT @1*64+50,"LEFT ARROW";
736 PRINT @2*64+50,"RIGHT ARROW";
738 PRINT @3*64+50,"UP ARROW";
739 PRINT @4*64+50,"DOWN ARROW";
745 PRINT @5*64+50,"P)RINT CHAR.";
750 PRINT @6*64+50,"A)SCII SET";
760 PRINT @7*64+50,"C)LEAR DOTS";
770 PRINT @8*64+50,"Q)UIT";
780 PRINT @9*64+50,"R)OM COPY";
790 PRINT @10*64+50,"T)OGGLE DESC.";
820 PRINT @11*64+50,"I)NSERT DOT";
830 PRINT @12*64+50,"D)ELETE DOT";
840 PRINT @13X64+50,"+) WIDER CHAR.";
850 PRINT @14*64+50,"-) NARROWER";
870 RETURN
880 '
890 'Edit subroutines.
900 GOSUB 123$?:Y=Y-l:H=H-l:IF Y(1 THEN Y=l:H=l
910 GOSUB 1290:RETURN
920 GOSUB 1230:Y=Y+l:H=H+l:IF Y)ll THEN Y=ll:H=ll
930
GOSUB 1290:RETURN
940 GOSUB 1230:X=X+l:G=G+l:IF X)7 THEN X=7:G=7
950 GOSUB 1290:RETURN
960 GOSUB 1230:X=X-l:G=G-l:IF X(1 THEN X=l:G=l
970 GOSUB 1290:RETURN
980 IF Z(G,H-l)=l OR Z(G,H+l)=l THEN RETURN