Table of Contents
Advertisement
135
1050 GOSUB 1150 : RETURN
1060 IF PROWID = 11 THEN BEEP : RETURN
1070 PROWID = PROWID + 1
1080 GOSUB 1820 : RETURN
1090 IF PROWID = 4 THEN BEEP : RETURN
1100 PROWID = PROWID - 1
1110 GOSUB 1820 : RETURN
1120 IF DESC = 1 THEN DESC = 0 : GOT0 1140
1130 DESC = 1
1140 GOSUB 1820 : RETURN
1150 '
1160 'Subroutine to calculate a column value & print
1170 MM(H) = 0 : FOR J=l TO 7
1180 MM(H)=MM(H)+Z(J,H)*2"(J-1)
1190 NEXT J : GOSUB 1200 : RETURN
1200 '
1210 'Subroutine to print a column value.
it.
1220 LOCATE 19,7+H*3 : PRINT RIGHT$(' "+STR$(m(H)),3)
.
123b
RETURN
1240 '
1250 'Subroutine to remove the cursor.
1260 LOCATE X+4,Y+l@
1270 IF Z(G,H) = 0 THEN PRINT " " ;
1280 IF Z(G,H) = 1 THEN COLOR 7,pl : PRINT SC$ ;
1290 RETURN
1300
'
1310 'Subroutine to place the cursor.
1320 LOCATE x+4,y+lpI
1330 IF Z(G,H)=l THEN COLOR 31,l : PRINT SC$ ; ,: COLOR
7,0
1340 IF Z(G,H)=p THEN COLOR 7,0 : PRINT CS$ ;
1350
RETURN
1360
'
1370 'Subroutine to print current character.
1380 GOSUB 2050
1390 LPRINT "ASCII code =I' AS : LPRINT
1400 PRINT #2,REC$ ; 'Download the character.
1410 LPRINT CHR$(27) "B" CHR$(3) 'lCondensed"
1420 LPRINT RAMNML$ STRING$(21,AS)
1430 LPRINT RAMNMLOFF$
1440 LPRINT CHR$(27) *'B" CHR$(2) "Elite"
1450 LPRINT RAMNML$ STRING$(lS,AS)
1460 LPRINT RAMNMLOFF$
Advertisement
Table of Contents
