1 CLOSE #USR 0:S.A.W. & T.A.W. PROTECT SYSTEM ! COPY " NEXT GO SUB > THEN 7 GO SUB T GO SUB G THEN 7 THEN 7 GO SUB O GO SUB f!@@ COPY u GO SUB VAL 18@!lkmk[D][E]CODE w GO SUB VAL OPEN # RETURN OPEN #>2=/2H/2k/1 COPY W INVERSE !^ CLEAR !@[M]LN GO SUB WFN POINT GO SUB L_ GO SUB _ GO SUB O INVERSE VAL$ FN POINT ATTR GO SUB s@*@/AT GO SUB LTAB INVERSE wFN ATTR AT / CLEAR w{ INVERSE VAL$ AT FN / GO SUB ~ INVERSE w/ GO SUB LATTR TAB CLEAR wo INVERSE f RESTORE INVERSE # CLEAR # INVERSE # CLEAR #xLEN CHR$ wf FLASH READ FOR [T] RETURN REM POKE FLASH n BEEP 2u ERASE CIRCLE -SIN ? OR /▜ BEEP PLOT BIN &4 MERGE CLS PAPER CHR$ 4[K] RESTORE ▙W INVERSE AND nFN PIv[O]u MERGE TO POKE Y[Q]AT RANDOMIZE urVAL$ o ERASE 'S[ AND STR$ PLOT 8L$kwySQR 6 AND *©E9 LLIST U NEXT u DEF FN wm FOR SW GO TO [J]HASN POINT ATN REM POINT N LOAD [H] OR >=POINT LOAD © FORMAT EXP PRINT SQR OPEN # DIM LEN PEEK I DATA @"▗POINT GO TO )[H]}}tr© INVERSE ,"Am OUT DEF FN VERIFY ▞7 GO SUB INK / FOR "UU5 OR >=TAB SQR btSQR ▝POINT ▚ MERGE OR VERIFY LPRINT SAVE LIST z REM [I] LINE BQ^[E]<=[R]TAN SGN T`©[B][C][M]USR V GO TO NOT SAVE INVERSE :t▛" GO SUB 6^Q[C] INPUT XQVAL Rd PAPER CONTINUE $ CIRCLE TAB OUT [R]j CLEAR LLIST NX3w LLIST OVER `▘- IF VAL PI PLOT AND LINE POINT "SCREEN$ DATA R BEEP Qu TO PRINT l{B LLIST ]APEEK a<cNOT K,[T]92▞AT LIST 4 DIM :3 CONTINUE BEEP @EXP LEN VAL GO SUB TAN LOAD LOAD [D]jf▝ TO [T][K]3l▗RT;©fpUSR INK ▟ LPRINT INVERSE PEEK POINT [Q]^zUSR <> PLOT ACS <=| LINE THEN STEP PIBIN COS [K] RETURN <-& GO SUB ! POKE PAPER GO TO ofSIN BIN CLEAR DRAW LET J$4v DIM GO TO BEEP ▝] RETURN g CIRCLE 0_ LOAD xCACS SCREEN$ NOT ▖[H]A INK
