Puffy's Saga: Puf_Saga.B

  1 CLOSE #USR 0:THANKS TO D.KULIKOV & P.NIKITIN! 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 3u 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 RANDOMIZE <cvR,[T]9'USR ; DIM USR i▝[R] BRIGHT ACS TAB u REM |HASN  DRAW dSTR$ 5O)AT DoY/ DATA  BORDER  LINE <>g AND ▖ MOVE qSQR ▙ PLOT  c READ  TO  FLASH (}] PAUSE 0▘T1IN 8Qi RANDOMIZE $1~ REM ▛▚▝ BORDER CHR$ -k[A] AND  CLEAR  CAT [T][J] LPRINT RND▜▚m)[ FOR j CLOSE #fB CLS HUSR i[F]F&[F] DIM Z LIST VAL SCREEN$ ▜H4[E]?[R]3]D[H]q PAUSE INT  BEEP U CIRCLE w AND "▙G CLOSE # DATA  RETURN © LOAD vc  CLEAR mINKEY$ AND POINT  DIM  VERIFY ! LPRINT ATTR /Gu#jTAB ▟KJ▗&▞[ VERIFY >y>=`4VAL N PAPER { STOP FN U INPUT  ERASE 2 PAUSE  BEEP k BEEP Od[D]RND$N[D]~[H] LPRINT  OVER ! OUT 3CHR$ |;5 INPUT 3USR O▟RND SAVE fRND THEN #g*Z DRAW  FLASH jLEN POINT ▞TAB IN  MERGE L▚ATN KTiR[K]ACS ATTR TAN 0▚[K] LPRINT ) RUN  STEP gQ[P] MERGE  RETURN / OUT  CLOSE #g! FOR  LINE &e[Q]G CAT 2SGN wQ9▝O~-TI!{[G] INPUT [K]0POINT  FOR  TO +[J] OR TAB ASN vIN  STEP POINT VAL  CAT [H]LEN  PLOT   REM .kUSR  BORDER [S] STEP u TO COS E▘