Wells & Fargo: wells.B

  10 PAPER 0: BORDER 0: CLEAR 50000
  20 PAUSE 40: RANDOMIZE USR 23836: PAUSE 40
  30 LOAD ""
  8490` REM ~ GO SUB VAL NOT  CIRCLE  FOR ! LOAD Y RUN Y  CLS vvPI GO SUB R>=6B RESTORE 6B LLIST # RESTORE 6G6G LLIST  CONTINUE !n)[M] GO SUB "[G] GO SUB ! GO TO ^#V! LOAD ~2PEEK  REM #~2COS  REM #"[E] GO SUB  NEXT  GO SUB s[C] GO SUB  GO SUB {[G] GO SUB  GO SUB [[E] GO SUB w# RANDOMIZE  GO SUB S[E] GO SUB   BORDER  GO SUB {[C] GO SUB  CLS <> NEXT :ACS  REM 2 FOR :PEEK  REM _! PI GO SUB R)Q GO SUB " FOR * REM )[M] GO SUB "[G] GO SUB :COS  REM *[G] GO SUB ^#V#"[G] GO SUB ! FOR !8▜ STEP  GO SUB =  BORDER  CLS <>>x2 REM >2ACS  REM CODE 2USR  REM ! GO SUB ~ RETURN  COPY >=2▙ REM  RESTORE  STEP  LPRINT  GO TO  LLIST #v LIST >2▙ REM >22 REM > RETURN >=2ACS  REM  PRINT v STEP  LPRINT  GO TO  LET < LET >2▙ REM >>2 REM > RETURN >=2ACS  REM  PRINT  STEP  LPRINT  GO TO  LET = PAUSE >ACS 2USR  REM >2▙ REM >2ACS  REM > RETURN F(2 REM  PRINT  STEP ▘ REM v STEP  OPEN # REM  LET  AND  GO TO NOT ▘ REM >2▙ REM !) GO SUB ~ RETURN  COPY (#2ACS  REM ~#2 REM  RESTORE  STEP ▘ REM v STEP  OPEN # REM  LLIST  BORDER NOT ▘ REM !H GO SUB ~ RETURN  COPY >= RESTORE 2▙ REM >2ACS  REM >n2 REM  STEP  LPRINT  GO TO vvv LLIST # DATA >2USR  REM  STEP ) GO TO  STEP 8 FOR  STEP  PAPER  GO TO  STEP S FOR  STEP  PAPER  GO TO  STEP  RESTORE  GO TO  STEP m FOR  STEP  PAPER  GO TO  STEP  RESTORE  GO TO  STEP [F] FOR  STEP  PAPER  GO TO  STEP f GO TO >B2Z GO TO >2N GO TO >2W GO TO ! LOAD Y"P GO TO  STEP M GO TO  STEP  FOR  STEP  FOR  STEP  FOR  STEP ` REM  STEP EXP  FOR <>>G2H/> OPEN # RETURN !XX COPY 6G GO SUB VAL !@@ COPY 6 GO SUB VAL <>>! LOAD Y RESTORE  RESTORE  MOVE 6B GO SUB VAL   LLIST =  GO SUB <>>2W GO TO ! THEN X"[I] GO SUB !kY"[K] GO SUB  OR *[I] GO SUB "P GO TO +"[I] GO SUB >2N GO TO >E2Z GO TO  STEP M GO TO *[K] GO SUB "P GO TO +"[K] GO SUB >2N GO TO >D2Z GO TO  STEP M GO TO :W GO TO  AND 2W GO TO STR$ vvvNOT <>2CODE  GO SUB O! GO SUB _G GO SUB _ SAVE  CLS > OPEN # RETURN  GO SUB _G# GO SUB _ SAVE  CLS CODE  OPEN # RETURN   RESTORE NOT = CLS vNOT ▘ REM !@8<= GO SUB VAL <>▘▚▙[G]~6v<>o COPY  COPY >6.*&.6> COPY [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q]<>: COPY  OVER  IF x INPUT CHR$ XbY@ABCDEFG @ A B C D E F G@@@A@B@C@D@E@F@G`@`A`B`C`D`E`F`G@ABCDEFG[Q]@[Q]A[Q]B[Q]C[Q]D[Q]E[Q]F[Q]GUSR @USR AUSR BUSR CUSR DUSR EUSR FUSR G LPRINT @ LPRINT A LPRINT B LPRINT C LPRINT D LPRINT E LPRINT F LPRINT GHIJKLMNO H I J K L M N O@H@I@J@K@L@M@N@O`H`I`J`K`L`M`N`OHIJKLMNO[Q]H[Q]I[Q]J[Q]K[Q]L[Q]M[Q]N[Q]OUSR HUSR IUSR JUSR KUSR LUSR MUSR NUSR O LPRINT H LPRINT I LPRINT J LPRINT K LPRINT L LPRINT M LPRINT N LPRINT OPQRSTUVW P Q R S T U V W@P@Q@R@S@T@U@V@W`P`Q`R`S`T`U`V`WPQRSTUVW[Q]P[Q]Q[Q]R[Q]S[Q]T[Q]U[Q]V[Q]WUSR PUSR QUSR RUSR SUSR TUSR UUSR VUSR W LPRINT P LPRINT Q LPRINT R LPRINT S LPRINT T LPRINT U LPRINT V LPRINT W LPRINT  LIST  COPY [P] RETURN ? SAVE © DRAW  COPY [P] RETURN x< SAVE >[A]CHR$ pUSR 8USR ? CLEAR ?USR  CLEAR USR ?USR p LIST 0USR 88||0USR  LIST  LIST 0USR USR USR 0USR  LPRINT  LIST  COPY [P] RETURN x< SAVE [A]CHR$ ? CLEAR ?USR p LIST 0USR  LIST ? SAVE 0USR  LPRINT © DRAW  COPY [P] RETURN ? CLEAR USR ?USR  LIST © DRAW 0USR ? CLEAR  COPY  COPY ? COPY [P] RETURN  LIST © DRAW 0USR ? CLEAR USR ?USR  LPRINT © DRAW  COPY [P] RETURN  LIST ? SAVE 0USR p LIST 0USR ? CLEAR ?USR x< SAVE [A]CHR$  LPRINT  LIST  COPY [P] RETURN USR USR 0USR  LIST  LIST 0USR 88||0USR p LIST 0USR  CLEAR USR ?USR ? CLEAR ?USR pUSR 8USR x< SAVE >[A]CHR$ ? SAVE © DRAW  COPY [P] RETURN  LPRINT  LIST  COPY [P] RETURN V COPY  COPY  COPY  LIST ©p? INVERSE PPrFN  FORMAT  FORMAT  COPY  CLEAR  FORMAT  FORMAT ▗ FORMAT [A]A FORMAT  FORMAT EP▖ FORMAT E[A]J FORMAT  STEP @PFN  FORMAT  GO SUB @[A]j  FORMAT > STEP @P  REM [Q]USR 'mLN #SCREEN$ FN |! STEP D SAVE    COPY P LIST   RETURN SCREEN$    COPY E ( COPY SCREEN$ @  COPY  MOVE @@( COPY  REM  $ COPY  MERGE P(IN  REM FN $IN  POKE (IN  RETURN ATTR $[P] COPY  FORMAT (▜ COPY  SAVE $($(&$. DRAW *-d©USR +BIN  COPY USR &▚ COPY  LPRINT   COPY  LPRINT ?▘ COPY  LIST ? COPY  SAVE ▝ COPY  COPY  SAVE STR$  COPY  COPY  DRAW A COPY  COPY  RETURN @ COPY  COPY  COPY ` COPY  COPY  COPY USR  © COPY  COPY  LIST 0© COPY  COPY  DRAW ? COPY  COPY  COPY USR ©? COPY  COPY  COPY  COPY  COPY [P] COPY  COPY  COPY  COPY  COPY O COPY  COPY  COPY  COPY  IF  COPY  COPY  COPY  COPY  MERGE W COPY  COPY  COPY  RETURN SCREEN$ + COPY  COPY  COPY  CLEAR U[F] COPY  COPY  COPY  IF SCREEN$  DEF FN  COPY  COPY  COPY  CLEAR U[© COPY  COPY  IF SCREEN$ nIN  COPY  COPY  PRINT U7 OUT  COPY  COPY  IF SCREEN$  LOAD  COPY  COPY  PRINT U NEXT  COPY  COPY  REM SCREEN$ } COPY  COPY  PRINT UPEEK © COPY  REM SCREEN$  OUT [P] COPY  PRINT Ug BORDER  COPY  REM SCREEN$ ; CONTINUE  COPY  MERGE U RETURN  REM SCREEN$ +@ MERGE @ DEF FN SCREEN$ qUSR ~ COPY  SAVE . COPY  LPRINT >8 LPRINT | LPRINT SQR 8©*▚ POKE UA SAVE SCREEN$ x5U8jSCREEN$ [Q] PRINT U@ IF SCREEN$ FN  PRINT UP IF SCREEN$ [Q] PRINT UT IF SCREEN$ FN  CLEAR UU RETURN SCREEN$ SCREEN$ ? CLEAR UU8? RETURN SCREEN$ SCREEN$ TAN ? COPY UU:? RETURN SCREEN$ SCREEN$ [N]© COPY  MERGE U*? COPY  IF SCREEN$  COPY  COPY  FORMAT @(@hTz]w@© ^PvSCREEN$ |UPxFN SCREEN$ xUEUpSCREEN$ *@UT[S]FN I COPY  LPRINT >8 LPRINT | LPRINT TAB 8? TO F POKE SCREEN$  SAVE Ux?SCREEN$ 8© MERGE  COPY  REM  COPY  MERGE  COPY  REM  COPY  MERGE @ COPY SCREEN$  COPY  MERGE @©SCREEN$ © MERGE P8? REM [Q]*4? MERGE P:? REM FN >? PRINT Q?* IF FN © CLEAR T?@PP@Ph[Q]▘T[Q][F]z[Q]SCREEN$ ]SCREEN$ [Q][F]wQ@J©jSCREEN$ SCREEN$  MERGE ^[F]UUjv*SCREEN$ SCREEN$ [U]}UUtzSCREEN$ SCREEN$ SCREEN$ LN yUUUxrSCREEN$ SCREEN$ SCREEN$  LIST EUUUUSR *SCREEN$ SCREEN$  COPY LN UU_ RETURN hjSCREEN$ IN  RANDOMIZE LN uW COPY CHR$  LPRINT jCODE  SAVE Hu_ SAVE 8zIN  IF  LPRINT ? COPY  CLS W COPY  CLS [O]+ COPY  CLS VAL U COPY  CLS [Q]+ COPY  LET [Q]U COPY  LPRINT  * COPY USR `U COPY USR * COPY U~C* SAVE INKEY$UuL*LN U5`( CONTINUE USR CCOS  NEW ©[M]~pqUSR xUSR 5 COPY  LIST >8C LPRINT *AT  LPRINT E[8? TO (ACS  CLOSE # CLS SCREEN$ }? MERGE >USR ©SCREEN$ ` COPY  MERGE VAL  COPY SCREEN$  FORMAT  COPY  MERGE X COPY  REM >= COPY  MERGE l COPY  REM  POKE © PRINT @V© REM [Q]z*? PRINT PSIN ? IF FN SCREEN$ >? CLEAR U[D]?? COPY SCREEN$ AT POINT © OUT  COPY  MERGE T[F]? COPY  IF LN IAAAAA[Q][R][Q][D]*[U]SCREEN$ j[C]UP*jFN V PRINT U[U] RETURN SCREEN$  TO  COPY U@h COPY  REM  CIRCLE  COPY  PRINT @ FORMAT  COPY  IF [Q]70© CLEAR PK`? IF POINT PEEK USR  CLEAR ^} COPY  RANDOMIZE  CLS ?▜ PLOT  @_ TO ▘TAB  RUN 8 RESTORE W| LPRINT 8-NOT > COPY  LPRINT  RETURN  RETURN  LIST CHR$ USR STR$ STR$ USR USR USR USR @ RETURN  RETURN  RETURN CHR$ USR STR$ @STR$ STR$ STR$ STR$ USR  @ RETURN  RETURN  COPY CHR$ USR <>@STR$  STR$ STR$ STR$ STR$ ! @ RETURN  RETURN  COPY  LIST CHR$ USR <>@ MOVE  STR$ STR$ STR$ STR$