Wells & Fargo: FARGO.B

  0 REM ▖▘VAL$ [O]1[U]AT VAL$ ▘[G][E]1[S]1[K][G][E]VAL$ FN AT VAL$ 1 AND  STOP  CONTINUE ww[L]TAN [L]STR$ INT [L]YINT [L]▛INT [L]xINT  DRAW zINT [L]zINT 3[Q] AND [T]{[P]s OR  BEEP  GO TO BIN TAN 3 LET SGN ▛ DRAW BIN TAN  SAVE  GO TO BIN TAN  LIST ▛ DRAW BIN TAN f DEF FN  NEXT g[L]0INT  NEXT I▛d{ NEXT 3 GO TO TAN 5tuUSR  DEF FN a POKE 5 GO TO  AND TAN ▚ POKE 1[P] PLOT   GO TO USR TAN  BEEP [L]s% POKE %PI BEEP PI DRAW USR TAN PI POKE PI BEEP PI DRAW  AND TAN ▚3 GO TO TAN tPI DEF FN ©3q IF  LINE  TO  DATA LN  BEEP [L]s%3 LIST INT  POKE %PI POKE sPI SAVE PI POKE PI BEEP PI9▛tPI DEF FN  NEXT c3q IF  LIST 8ATTR sqt7 RESTORE - DEF FN /` OPEN #1k[D]+[VAL$  DATA LN !] OVER %qq=q]111111 BRIGHT  BRIGHT  BRIGHT 1▗ PAUSE AT ▚[G]1 BRIGHT  BRIGHT  BRIGHT 1111 
  10 RANDOMIZE USR VAL "24159"
  65535 REM  NEXT > GO SUB O!}^ RETURN INT d GO SUB _VAL$ SCREEN$ AT ATTR POINT FN TAB w#xLEN   LIST (▗} INVERSE  LOAD ,INKEY$ CLS NOT '▗J_"4o[U] OUT  NEW  RETURN &A[F]{ REM  PRINT nASN INKEY$▚)[L]*.ho-<[T][H][P] TO e[E]t FORMAT t MOVE  OPEN #{Z ERASE CODE  FOR 9 CIRCLE T4`g)!FN  LET ▙▖INKEY$<USR ?44[L]pM GO TO  FOR CODE TAB [K] POKE [F] TO VF.[Q]mABS L REM [O][E]▝<ATN d9HJv<[D][M]▝[F]ATTR eq[ATN  BRIGHT AT C▛QBIN  LIST  IF RND[L] PAPER [L]yQ> OUT "[C] IF  LINE  STOP POINT xX▖a STOP C PAPER c; PAPER  THEN  DRAW SCREEN$  DATA cc_uc BORDER >=S NEW [H]5 TO  LIST  INPUT POINT  OPEN # REM [H]qqjNOT z▘▜ CLS  READ [U]{▞$ LOAD  CLS 0E[f~x FLASH  CONTINUE  DIM <>IATN n MOVE <> LPRINT ▞TAN VAL  LPRINT IN 7mACS _NOT  INPUT ▘$[D] FORMAT <>POINT [R] MOVE  RANDOMIZE d[I] FLASH RND OUT  VERIFY 4ACS [K]T[G] BORDER l PAPER  CLOSE #[H] LOAD  BEEP  LOAD  OUT [M][P][H]PI CAT  BEEP ▞l NEW  DRAW  LOAD  THEN >= COPY ▝'AT [B][N]6INT EXP FIN ATN IN [P][H]▖ LLIST ▖ COPY STR$ 6 DEF FN CHR$  OR  INK  DIM USR fEXP  BEEP L LPRINT [H]LEN SIN [T] DIM TAB 7 LLIST ACS _▜<> LINE G SAVE LEN  DATA _USR ▞>= CONTINUE ▝[A] LOAD ▝ BEEP  LET  RANDOMIZE [T]▜[B] BRIGHT  INPUT ▘[R]= INK F OPEN #V IF <> DRAW  OUT ▛[S][H]PIIN ATN  RUN VAL$ [O] PAUSE |SIN  GO TO <=[O][D]'▝ THEN w[R]7POINT ▞ NEW  BRIGHT  READ STR$  LOAD  BEEP  CAT  BEEP 17 LET K OUT [H]▜CODE  BEEP [I][J]EXP ▖[Q] DIM >=> THEN [M]n[J]NOT 0 DATA NOT %SGN [G][M] CONTINUE  CONTINUE ▝ SAVE  LLIST  GO TO ~ATTR |`LN [R]AT  CIRCLE [E] VERIFY Q LIST  INVERSE STR$ ▖EXP  DRAW LN ! MOVE $qPOINT  DRAW [I]RVAL$  SAVE  LLIST %tINT m CLEAR VAL  TO  CLOSE # IF  BRIGHT d LLIST M CIRCLE U AND TINT ABS  FORMAT  TO VAL INT  BRIGHT $ INPUT UINKEY$[T]^CHR$ q DIM  MOVE f[L] INVERSE * OPEN #Rz[D]:[D].b READ ]mIN  FOR  POKE [A] LOAD  COPY  FORMAT CODE  FORMAT  PRINT  POKE  DIM ▟CODE [U] IF ▝ INPUT  INK <>USR [G]CODE  FORMAT  GO TO  MOVE  DIM [B] GO TO [Q]INT  DATA [B]▙[Q]VAL  STEP EXP TAB PEEK ▖ BORDER  NEW <>RND[A] GO SUB  LPRINT ATN  POKE [R]EXP [R] MOVE <>STR$