A.N.A.L.O.G. Magazine 1986 May/86_may.atr/bonsai4.lst

File List | 2023-02-26 | 714b | 1 lines

30000 ? "DRIVE?-IN THE FORM 'D1:' ":INPUT DRIVE$:? :? "FILENAME?":INPUT FILE$:TRAP 30010:DIM S$(6)¢30010 ? "אחו OR צלIJככ 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¢