Star Micronics Radix User Manual page 232

218
Radix User's Manual
990 Z(G,H) = 1
1000 PRINT @(X+3)*64+Y*4+2,SS$;
1010 GOSUB 1140 : RETURN
1020 Z(G,H) =0
1030 PRINT @(X+3)*64+Y*4+2,CS$;
1040 GOSUB 1140 : RETURN
1050 IF PROWID = 11 THEN RETURN
1060 PROWID = PROWID + 1
1070 GOSUB 1770 : RETURN
1080 IF PROWID = 4 THEN RETURN
1090 PROWID = PROWID - 1
1100 GOSUB 1770 : RETURN
1110 IF DESC = 1 THEN DESC = p!
1120 DESC = 1
1130 GOSUB 1770 : RETURN
1140 '
: GOT0
1130
-
1150 'Subroutine to calculate a column value and print
.
116;?lM(H) = 0 : FOR J=l TO 7
1170 MM(H)=MM(H)+Z(J,H)*2[(J-1)
1180 NEXT J
1190 '
1200 'Subroutine to print a column value.
1205 PRINT @12*64+H*4+1," ";
1210 PRINT @12*64+H*4+l,RIGHT$(STR$(MM(H)),3);
1220 RETURN
1230 '
1240 'Subroutine to remove the cursor.
1250 PRINT @(X+3)*64+Y*4+2,"";
1260 IF Z(G,H) = 0 THEN PRINT " ";
1270 IF Z(G,H) = 1 THEN PRINT SC$;
1280 RETURN
1290 '
1300 'Subroutine to place the cursor.
1310 PRINT @(X+3)*64+Y*4+2,"";
1320 IF z(G,H)=~ THEN PRINT ss$;
1330 IF Z(G,H)=g THEN PRINT CS$;
1340 RETURN
1350 '
1360 'Subroutine to print current character.
1370 GOSUB 2080
1380 LPRINT "ASCII code ='I AS : LPRINT
1400 LPRINT REC$ ; 'Download the character.
1410 LPRINT CHR$(27) "@" ;