30000 ? "DRIVE?-IN THE FORM 'D1:' ":INPUT DRIVE$:? :? "FILENAME?":INPUT FILE$:TRAP 30010:DIM S$(6)›30010 ? "ÂÉÇ OR ÓÍÁÌÌ PICTURE,OR ÓÃÒÅÅÎ ONLY?":INPUT S$›30020 IF S$="BIG" THEN GOSUB BIG:GOTO 30050›30025 IF S$="SCREEN" THEN GOSUB PLOTOFF:GOTO 30085›30030 IF S$="SMALL" THEN GOSUB SMALL:GOTO 30050›30040 ? "INVALID INPUT-TRY AGAIN":GOTO 30010›30050 ? "COLOUR?--BLACK=1":? :? "         BLUE=2":? :? "         GREEN=3":? :? "         RED=4":INPUT C›30060 COLOUR=(BLACK*(C=1))+(BLUE*(C=2))+(GREEN*(C=3))+(RED*(C=4))›30080 GOSUB PAGE:GOSUB COLOUR:GOSUB FRAME›30085 SCL=1:ZOOM=1:OX=0:OY=10:OZ=0:VX=0:VY=0:VZ=2.5:XS=0:YS=0:ZS=0›30090 GRAPHICS 24:TRAP 30100:GOSUB GETFILE:GOSUB GO:STOP ›30100 ? "NO SUCH FILE":GOTO 30000›