Chimera: HIMERA.B

  1 CLOSE #USR 0:***DIMAN PROTECTION SYSTEM 93*** 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 6u 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 GO SUB <ATN l4n8 OR ' DATA J) LET N* MERGE  RUN Z CLOSE #L![Q] CLS  OVER [J] CLOSE # GO SUB s BORDER  MOVE H INVERSE [INT [O]G DIM [Q] POKE  DIM  PAUSE  CAT EXP EXP [A]NOT CODE y[G]<=ABS  LLIST  POKE >= READ PEEK [M][B]'▖▜EXP VAL$  BORDER [F]POINT  GO TO  OPEN #SQR ▞SIN STR$  DIM  STEP [D]eVAL <▞@ AND ][D]8INKEY$/STR$ IN BIN aUSR 9 BEEP oP DATA  LET  LINE bL6SQR SGN ▖ABS SIN  CLOSE #[O]COS  MOVE  DATA <=TAB ▟q DRAW O FORMAT  CLOSE # IF V AND ▙▘CODE ▛ INK  INK STR$ ▗ DIM  STEP  COPY m-&t TO p[M]USR 0▘SGN  PLOT  L VERIFY TAB   NEW  RETURN  LOAD ITAN [E]]*3EXP >>=K[Q]M STEP ▖[U]3AT W DATA m[G] LOAD INT q RETURN <[K]EXP [D] NEW noB RANDOMIZE  RESTORE Ho▞Z RETURN  LIST  LPRINT / OR P:VAL$ v OPEN #l[A] RETURN R▙LEN BCOS  PAUSE ATN 7 DEF FN 6dR[U]w2 OR } REM  STOP {< PAUSE  PLOT   RESTORE w PAUSE jSGN 1Z%;$EXP >=. VERIFY [B]{-VAL o[M]RZSIN ▟7 RANDOMIZE  DATA 3 VERIFY  RUN W[E]POINT  PAPER  PAUSE FN [P][C][I]