10REM By C.J.Richardson. 20DEFFNS="GRAPHV2" 30ONERROR:VDU3:REPORT:PRINTERL:END 40VDU2,1,27,1,64,1,27,1,109,1,4:REM G RAPHICS ON 50VDU1,27,1,71,1,27,1,85,1,1 60VDU1,27,1,49:REM 1/8 LINESPACE 70PRINT"MODE 7 CODES TO PRODUCE GRAPH ICS"'' 80G%=-1:H%=1 90FORF%=160TO255:IF F%=192:F%=224 100D%=F%-160 110IF D%<16 C%=0 120IFD%>=80 C%=3:D%=D%-80 130IFD%>=64 C%=2:D%=D%-64 140IFD%>=16 C%=1:D%=D%-16 150IF D%<4 B%=0 160IFD%>=12 B%=3:D%=D%-12 170IFD%>=8 B%=2:D%=D%-8 180IFD%>=4 B%=1:D%=D%-4 190IF D%<1 A%=0 200IFD%>=3 A%=3:D%=D%-3 210IFD%>=2 A%=2:D%=D%-2 220IFD%>=1 A%=1:D%=D%-1 230G%=G%+1:IF G%=10:H%=H%+10:G%=0:VDU3 :PRINT"REWIND PRINTER TO TITLE":VDU2:REP EATUNTILGET 240PRINT'TAB(H%-1)CHR$(F%-128);:IF F%= 255PRINT" "; 250PRINTTAB(H%)" " 260PROCp(A%):PROCp(B%):PROCp(C%) 270PRINTTAB(H%)" " 280NEXT 290PRINT'''''''''''''''''''''''''''''' '''''''' 300VDU1,27,1,48 310PRINT"A RED 1- 2 - 3- " 320PRINT"B GREEN " 330PRINT"C YELLOW " 340PRINT"D BLUE " 350PRINT"E MAGENTA" 360PRINT"F CYAN 4- 5 - 6- " 370PRINT"G WHITE " 380PRINT"H FLASH " 390PRINT"I STEADY " 400PRINT"J BLACK BACKGROUND" 410PRINT"K NEW BACKGROUND 7- 8 - 9- " 420PRINT"L NORMAL HEIGHT " 430PRINT"M DOUBLE HEIGHT " 440PRINT"N HOLD GRAPHICS " 450PRINT"O RELEASE GRAPHICS" 460PRINT"Q GRAPHIC RED Space- " 470PRINT"R GRAPHIC GREEN " 480PRINT"S GRAPHIC YELLOW " 490PRINT"T GRAPHIC BLUE " 500PRINT"U GRAPHIC MAGENTA" 510PRINT"V GRAPHIC CYAN" 520PRINT"W GRAPHIC WHITE" 530PRINT"X CONCEAL DISPLAY" 540PRINT"Y CONTIGUOUS GRAPHICS" 550PRINT"Z SEPARATED GRAPHICS" 560VDU3 570END 580DEFPROCp(E%):IF E%=1PRINTTAB(H%)" " 590IF E%=2 PRINTTAB(H%)" " 600IF E%=3 PRINTTAB(H%)" " 610IF E%=0 PRINTTAB(H%)" " 620ENDPROC