Back to Main page.
Back to Main tapes page.
10  REM*****BY BILL MCFADDEN ON 10/18/76 *****
20  REM*****SHOWS CHARACTER SHADES FOR COMPUTER PICTURES*****
30  DIM A$[10],B$[10],C$[10],D$[10],E$[10],F$[10]
40  PRINT "70 CHARACTERS WIDE. 108 CHARACTERS LONG"
50  PRINT LIN(-10)
60  IMAGE10A,2X,10A,2X,10A,2X,10A,2X,10A,2X,10A
70  REM*****A TO F= DECIMAL VALUES FOR CH. TO BE PRINTED*****
80  FOR A=33 TO 93 STEP 6
90  FOR X=1 TO 10
100  A$[X,X]=CHR$(A)
110  NEXT X
120  B=A+1
130  FOR X=1 TO 10
140  B$[X,X]=CHR$(B)
150  NEXT X
160  C=A+2
170  FOR X=1 TO 10
180  C$[X,X]=CHR$(C)
190  NEXT X
200  D=A+3
210  FOR X=1 TO 10
220  D$[X,X]=CHR$(D)
230  NEXT X
240  E=A+4
250  FOR X=1 TO 10
260  E$[X,X]=CHR$(E)
270  NEXT X
280  F=A+5
290  FOR X=1 TO 10
300  F$[X,X]=CHR$(F)
310  NEXT X
320  REM*****PRINTIUT SUBROUTINE*****
330  IF A#63 THEN 360
340  REM*****G=LINE NUMBER*****
350  PRINT LIN(-15)
360  FOR G=1 TO 6
370  PRINT  USING 60;A$,B$,C$,D$,E$,F$
380  NEXT G
390  PRINT LIN(-2)
400  NEXT A
410  PRINT LIN(-10)
420  END