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