115 IF (PEEK(&H410) AND &H30)=&H30 THEN GOSUB 6000
120 DIM CLRA$(20)
125 SCREEN 1
130 COLOR 0,1
135 LOCATE 13,16:PRINT "GRAF-PIX"
137 LOCATE 15,9:PRINT "Created by Read Gilgen"
140 LOCATE 19,7:PRINT "(c) 1982 Board of Regents"
142 LOCATE 20,5:PRINT "University of Wisconsin System"
145 FOR PAUSE=1 TO 2000:NEXT PAUSE
150 CLS:DEF SEG=&H40: POKE &H17, (PEEK(&H17) AND &HFFBF) +64:DEF SEG=&HB000: POKE 3998,24: ' SETS UPPER CASE FROM KEYBOARD
155 COLOR 0,1
160 PRINT "REMOVE GRAF-PIX DISK AND INSERT"
165 PRINT "IBM-FORMATTED STORAGE DISK."
170 PRINT:PRINT "(PRESS ANY KEY TO CONTINUE)":ANS$=INPUT$(1)
175 CLS:PRINT "Do you wish to:"
180 PRINT " 1. Edit an existing graphics file"
185 PRINT " 2. Create a new graphics file"
190 PRINT " 3. Delete a graphics file"
195 PRINT " 4. Print Graf-Pix documentation"
200 PRINT " 5. Exit from Graf-Pix"
205 ON ERROR GOTO 365
210 ANS$=INPUT$(1)
215 IF ANS$="1" THEN GOTO 270 ELSE IF ANS$="2" THEN GOTO 315 ELSE IF ANS$="3" THEN GOTO 220 ELSE IF ANS$="4" THEN GOTO 5000 ELSE IF ANS$="5" THEN GOTO 400 ELSE GOTO 150
220 CLS:PRINT "Graphics files on this disk are:"
225 PRINT:FILES "*.GRF":PRINT
230 PRINT :PRINT "Type COMPLETE filename to delete:"
235 INPUT FILENAME$
240 ON ERROR GOTO 255
245 CLS:PRINT "Delete ";FILENAME$;"? (Y/N)";
250 ANS$=INPUT$(1):IF ANS$="Y" OR ANS$="y" THEN GOTO 260 ELSE IF ANS$<>"N" AND ANS$<>"n" THEN GOTO 245 ELSE GOTO 150
255 CLS:PRINT "Deletion NOT completed":FOR PAUSE=1 TO 2000: NEXT PAUSE: RESUME 220
260 KILL FILENAME$
265 CLS: PRINT FILENAME$ " has been deleted.":FOR PAUSE = 1 TO 2000 : NEXT PAUSE : GOTO 150
270 CLS:PRINT "Graphics files on this disk are:"
275 PRINT: FILES "*.grf":PRINT
280 PRINT "Please type filename to edit: ":INPUT PICTURENAME$
285 ON ERROR GOTO 300
290 CLS:DEF SEG=&HB800: BLOAD PICTURENAME$,0
295 GOTO 500
300 CLS:PRINT "Error in loading file. Try again? (Y/N)"
305 ANS$=INPUT$(1)
310 IF ANS$="N" OR ANS$="n" THEN RESUME 150 ELSE IF ANS$="Y" OR ANS$="y" THEN RESUME 270 ELSE GOTO 300
1780 IF FILLCOLOR = 0 THEN BND=3 ELSE BND=FILLCOLOR
1785 LOCATE 25,1:PRINT SPC(39);
1790 DONE=1
1795 RETURN
1798 '
1799 '
1800 REM Draw box
1801 '
1805 LOCATE 25,1:PRINT "Do you want the box filled? (Y/N)";SPC(6);
1810 LOCATE 25,35:GOSUB 2200:FILLED$=INPT$
1815 IF FILLED$="N" OR FILLED$="n" THEN GOTO 1830 ELSE IF FILLED$<>"Y" AND FILLED$<>"y" THEN GOTO 1805
1820 GOSUB 800
1825 LINE (PASTA,PASTB)-(NEWA,NEWB),BND,BF
1826 LINE (PASTA+1,PASTB)-(NEWA+1,NEWB),BND,BF
1830 GOSUB 800
1835 LINE (PASTA,PASTB)-(NEWA,NEWB),BND,B
1836 LINE (PASTA+1,PASTB)-(NEWA+1,NEWB),BND,B
1840 LOCATE 25,1:PRINT SPC(39);
1845 HELP=0
1850 DONE=1
1855 RETURN
1860 '
1861 '
1900 REM End the Program
1901 '
1905 LOCATE 25,1:PRINT "(ESC)ape (S)ave (P)rint (E)nd-not save ";
1910 LOCATE 25,37:ANS$=INPUT$(1)
1915 IF ANS$="E" OR ANS$="e" THEN GOTO 1925 ELSE IF ANS$="S" OR ANS$="s" THEN GOSUB 1100 ELSE IF ANS$=CHR$(27) THEN GOTO 1930 ELSE IF ANS$="P" OR ANS$="p" THEN GOTO 1940 ELSE GOTO 1905
1920 GOTO 1905
1925 CLS: GOTO 150
1930 LOCATE 25,1:PRINT SPC(39);
1935 RETURN
1940 GOSUB 1100
1945 GOTO 4000
1950 RETURN
1951 '
1955 '
2000 REM Change the Color Parameters
2001 '
2005 LOCATE 25,1:PRINT SPC(39);
2010 LOCATE 25,1:PRINT "Line Color= ";
2015 IF BND=1 THEN PRINT CLRB$(PLT); ELSE IF BND=2 THEN PRINT CLRC$(PLT); ELSE IF BND=3 THEN PRINT CLRD$(PLT);
2020 LOCATE 25,20:PRINT "Change? (Y/N)";
2025 LOCATE 25,35:CHNG$=INPUT$(1)
2030 IF CHNG$="Y" OR CHNG$="y" THEN GOTO 2035 ELSE GOTO 2045
2035 IF BND=1 THEN BND=2 ELSE IF BND=2 THEN BND=3 ELSE IF BND=3 THEN BND=1