Directory of image this file is from
This file as a plain text file

517N 1490
1480 P3=126 
1490 PRINT CHR$(P3);
1500 P9=P9+1
1510 IF P9<20 THEN 1540 
1520 GOSUB 1100 
1530 P9=0 
1540 NEXT P1
1550 L=0
1560 X3=X2
1570 Y3=Y2
1580 RETURN 
1700 IF P3<127 THEN 1720
1710 P3=63
1720 PRINT CHR$(P3);
1730 RETURN 
1800 ' CHARACTER DRAWER AT X,Y,S=SIZE,C=CHARACTER (+SCALING)
1810 RESTORE
1820 FOR P0=0 TO C*14 
1830 READ P8
1840 NEXT P0
1850 L=1
1860 FOR P7=1 TO 7
1870 READ P6
1880 IF P8=-1 THEN 1910 
1885 IF P8=-2 THEN 1930 
1890 GOSUB 1310 
1895 READ P8
1900 NEXT P7
1910 L=1
1920 RETURN 
1930 L=1
1940 GOTO 1895
2000 DATA 0,0,4,8,4,0,0,0,0,8,4,8,-1,-1 
2003 DATA 0,6,2,8,2,0,0,0,4,0,-1,-1,-1,-1 
2007 DATA 0,6,2,8,4,6,0,0,4,0,-1,-1,-1,-1 
2010 DATA 0,8,4,8,2,4,4,4,4,0,0,0,-1,-1 
2013 DATA 3,0,3,8,0,4,4,4,-1,-1,-1,-1,-1,-1 
2017 DATA 4,8,0,8,0,5,2,5,4,3,2,0,0,0 
2020 DATA 0,8,0,0,4,0,4,4,0,4,-1,-1,-1,-1 
2023 DATA 0,8,4,8,0,0,-1,-1,-1,-1,-1,-1,-1,-1 
2027 DATA 0,4,4,4,4,0,0,0,0,8,4,8,4,4 
2030 DATA 4,0,4,8,0,8,0,4,4,4,-1,-1,-1,-1 
2033 DATA 0,0,4,8,-2,0,0,8,4,0,-1,-1,-1,-1
2037 DATA 2,0,2,4,4,8,-2,0,0,8,2,4,-1,-1
2039 DATA -1,-1 
2046 END