L
i i-
r
I
1
j L
: L-
&.
L
.
c
i.
c
Creating Your Own Characters 97
480 Z(G,H)=l:COLOR 31,l:LOCATE X+4,Y+l@:PRINT
SC$;:COLOR 7,g:RETURN
490 Z(G,H)=@:COLOR 7,g:LOCATE X+4,Y+l@:PRINT
CS$;:COLOR 7,g:RETURN
500 REM,**** GET OUT OF EDIT MODE ****
510 FOR I=2 TO 10:LOCATE 1,55:PRINT
STRING$(20,32);:NEXT I
520 IF Z(G,H)=l THEN LOCATE X+4,Y+@:COLOR 7,g:PRINT
SC$;:GOTO 540
530 IF Z(G,H)=@ THEN LOCATE X+4,Y+l0:COLOR 7,g:PRINT
'I '1 .
540 REM'**** PRINT THE COLUMN - VALUES ****
550 FOR I=1 TO 11:FOR J=l TO 7
560 MM(I)=MM(I)+Z(J,I)*2"(J-l):NEXT J:NEXT I
570 J=@:FOR I=1 TO ll:LOCATE 19,10+J:PRINT
RIGHT$(STR$(MM(I)),j);:J=J+j:NEXT I
580 GOSUB 660 :RETURN
590 REM **** DISPLAY MENU FOR EDIT MODE ****
600 LOCATE 2,55:PRINT “cursor movement”;
610 LOCATE 4,60:PRINT CHR$(24);:LOCATE 5,58:PRINT
CHR$(27);" *
620 PRINT CHR$(26;;:LOCATE 6,60:PRINT CHR$(25)
630 LOCATE 8,55:PRINT "(ins) insert";
640 LOCATE 9,55:PRINT "(del) delete";
650 LOCATE 10,55:PRINT "(end) exit edit";:RETURN
660 FOR I=1 TO 7:FOR J=l TO ll:Z(I,J)=@:NEXT J:NEXT
T
670'LOCATE 24,2:PRINT "E) EDIT P) PRINTER (ESC)
) END " ;:RETURN
680 REM **** PRINT MODE ****
690 LOCATE 20,5:INPUT "NORMAL OR PROPORTIONAL (W
P) -) ";AN$
700 IF A,$="," THEN PR=@:GOTO 750
710 IF AN$="P" THEN GOT0 730
720 BEEP:GOTO 690
730 LOCATE 21,5:INPUT 'ENTER THE PROPORTIONAL DATA
(4-11) -) ";PR
740 IF PR(4 OR PR)ll THEN 730
750 LOCATE 22,5:INPUT 'IF SHIFTED DOWN ENTER 1 ELSE
ENTER 0 -) ";SH
760 IF SH(0 OR SH)l THEN BEEP:GOTO 750
770 LOCATE 23,5:INPUT 'ENTER YOUR ASCII CODE (33-126
OR 160-254) -> ";AS
780 IF (AS(32 AND AS)126) OR (~S(l60 AND AS)254)
THEN 770