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