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¢
