Vadim boot: boot.B

  10 RANDOMIZE USR 15619: REM : RUN "        " CLS v FLASH  NEW USR  !"^ CLEAR 6 STEP kCODE  OPEN # RETURN gl"▟! RESTORE ]S STEP =▟ INVERSE  LLIST  INVERSE ~PI(B=(B( INVERSE ~ RETURN USR (# INVERSE !▟4 OVER     toob INVERSE  RESTORE  LLIST LN ]PI( LLIST PEEK #( RUN :▟!▟4~ RETURN   CAT :▟PI LINE = NEXT  STEP l_ STEP SGN ^ STEP SGN ^& STEP  PAUSE ^> LOAD  FLASH  RETURN  THEN O(M THEN W(G THEN _(E THEN g(?0/ T THEN _ 2 THEN W ,>IN  FLASH  RETURN 0E> CLEAR  FLASH  RETURN  NEW  LINE  BRIGHT `> RUN  STEP V ERASE  THEN _>© FLASH  RETURN 8INT > RETURN  FLASH  RETURN 0COS  STEP SGN ^NOT []$$%:▟ gSGN 0& STEP  INPUT ^ STEP  PAUSE ^ STEP  FORMAT ^(xLEN   CLS ▟ LPRINT `KA> OPEN # RETURN  RETURN CODE  OPEN # RETURN B RETURN   INPUT  STEP TAB ^Q]#6  RETURN B> RUN (6CODE > GO TO  GO SUB Rw!@INKEY$w#| INPUT [  PLOT   LET NOT =<>-&▟n&))))<> NEW  SAVE  OPEN # RETURN  SAVE   POKE   LOAD <>▜ NEW W NEW  AND G> OPEN # RETURN  RETURN CODE B OPEN # RETURN  RETURN   RESTORE <>9l RESTORE &))))) RESTORE Wq# DRAW  LLIST <> INK o&)))p` FOR &:k_▜▜▜▜ THEN ▜ THEN  THEN $ THEN $ THEN $o:j_ NEW  SAVE o:j_/ NEW G THEN  CLS #VAL$ w+yVAL$ w$STR$   NEW :j_ AND 2j_ INK <>:j_ VERIFY 2j_<> STEP k:▟Gk_&i)))T])~PI i STEP VAL$ ^ RESTORE +  LLIST ~ RETURN  ( POKE C{▜_▜_ THEN ;>~[D]2j_ LLIST ~# STEP _ RANDOMIZE STR$ TAN <>~PI>= STEP _# RUN  RESTORE  STEP k STEP SGN ^!USR X@6# CLS  6# CLS ![Q]Z 6# CLS !#"j_!@a STEP CHR$ _!"j_!a STEP CHR$ _ LLIST  RESTORE  STEP TAB ^~# STEP _ RANDOMIZE !"j_!*a STEP CHR$ _ LLIST  RESTORE &-)))T]) RESTORE ~PI(~# STEP _ RANDOMIZE !"j_!5a STEP CHR$ _>_ STEP _ STEP a_ CLEAR  THEN VAL$  CLS  CLEAR  THEN n( IF  NEXT >_ STEP _ STEP a_:/ RETURN (I RETURN   LLIST V OR  PRINT  STEP  FORMAT ^ LET STR$  RETURN  :j/ INPUT 2j/STR$  RETURN ( RETURN  8EXP OCODE VAL (TAN y LLIST w# RESTORE  STEP _POINT x RETURN ([U] STEP a_ LLIST +~ RESTORE  STEP _ STEP a_[E] LLIST CODE VAL ( RETURN  q# DRAW  STEP SGN ^ STEP l_ LLIST  STEP  PAUSE ^[G]xLEN   CLS NOT  FOR ] RESTORE  STEP k STEP SGN ^!2"j_![a STEP CHR$ _> OUT  FLASH  RETURN  NEW (>© FLASH  RETURN  NEW ( INPUT  STEP k STEP SGN ^! STEP = NEXT  STEP l_ LLIST  STEP  PAUSE ^NOT  FOR ]File name: Old name: New name: Press S for save catalogueSave catalogue? (Y/N)6$~$$~$>(>>bd&F(*D:00>>>0`&*vf<(~"<`~"f<$l~> <f< <ff<>00"ff<"">| >>"<JV^@<""~ff<"<ff|" `f<8$"flx> <``~> <```" nf<"">fff>~ff<$(0xlf   ``~"6*fff"2:nfb""ff<<""|``""lf:<""|lf f<~"""ff<"""fl8"""j~$"4fB">0~ 8x* RETURN "x  ~>f>  <ff|ff>"|`>000"f><  <fff<l88<6004>jjj<"fff"ff<<"f|``"f> <|800""ff<"",80"*j~4"<f""f><>0~8x(8D[K][S][S][K]D8
  15394``"f> <|800""ff<"",80"*j~4"<f"