208 IF PEEK(764)=28 THEN ? "}":GOTO 1046›300 CLOSE #K1:OPEN #K1,8,K0,"P:":PRINT #1,CHR$(14);CHR$(27);CHR$(62):PRINT #1;CHR$(27);"T08"›301 REM *CHR$(14) TURNS ON EXPANDED MODE AND WILL MAKE Z-AXIS TWICE AS LONG WITHOUT CHANGE TO X OR Y›302 FOR X=DM TO DM+39›304 A$=CHR$(K0):A$(192)=A$:A$(2)=A$:B$=A$›306 W=USR(1536,X,ADR(A$),ADR(B$))›308 PRINT #1;CHR$(27);"S0192";A$›310 PRINT #1;CHR$(27);"S0192";B$›312 NEXT X:PRINT #1;CHR$(27);CHR$(60);CHR$(27);"A";CHR$(15)›314 CLOSE #1›316 RETURN ›1000 K1=1:GRAPHICS 24:RESTORE 1000:FOR Z=K0 TO 137:READ X:POKE 1536+Z,X:NEXT Z›1001 DIM A$(192),B$(192):DM=PEEK(88)+PEEK(89)*256:DM=DM+40*191›1002 T=K0:DIM Z$(169),Q$(40),F$(20),FC$(40):ISO=0.523598775›1046 POKE 82,K0:GRAPHICS K0:? :? ›1048 ? "MAKE SELECTION TO USE SAME FORMULA OR   NEW FORMULA."›1050 ? :? "   1]  SAME FORMULA":? "   2]   NEW FORMULA"›1052 ? "ENTER SELECTION >";:INPUT T›1054 IF T=2 THEN 1008›1056 IF T<>1 THEN ? "WHOOPS":GOTO 1052›1058 ? "}":GOTO 1013›1100 DATA 104,104,141,35,6,141,54,6,104,141,34,6,141,53,6,104,141,46,6,104,141,45,6,104,141,64,6,104,141,63›1102 DATA 6,160,192,173,255,255,136,240,70,41,240,32,110,6,141,255,255,238,45,6,240,45,173,255,255,10,10,10›1104 DATA 10,32,110,6,141,255,255,238,63,6,240,33,173,34,6,56,233,40,141,34,6,141,53,6,144,4,24,76,33,6,206›1106 DATA 35,6,206,54,6,76,33,6,238,46,6,76,52,6,238,64,6,76,70,6,96,24,162,0,134,203,10,102,203,10,102,203›1110 DATA 10,102,203,10,102,203,70,203,70,203,70,203,70,203,165,203,96›