The Sextris Plus: boot.B

  0 REM USR  COPY  COPY ▙EXP EXP LN VAL 1© LOAD  LOAD  NEW  NEW  CAT  OUT  SAVE  SAVE (USR <~©7}qa LLIST  LET  LPRINT  OVER  OVER  OVER  COPY  COPY LN  SAVE  CONTINUE  CLS  COPY  COPY  COPY  COPY  COPY  RETURN ?USR  RESTORE  BORDER  COPY  COPY [A] LIST  LIST © COPY  COPY  COPY IN IN [P]_IN LN © COPY  COPY ? COPY  LIST  SAVE  POKE  CLEAR  CLS ? COPY  COPY  COPY ` LPRINT ` LPRINT  LPRINT  LPRINT  COPY [T]#© COPY  COPY [P]_ OUT 8 SAVE  SAVE  LIST  LIST ?[O] OUT  CLEAR  CLEAR  SAVE  LIST  LIST  COPY  OUT  RESTORE G<=<=▜ COPY  COPY  LET  MOVE  LPRINT  LPRINT  LPRINT  LPRINT  COPY IN  RETURN ~>>?© COPY  COPY C RUN  COPY  COPY  RUN  FOR  RUN  RUN  COPY  LOAD  BORDER  CLS  NEXT  BORDER PI<=<= OR NOT  COPY  CLOSE # LPRINT  LPRINT  DATA  CAT  COPY  COPY  LPRINT `[Q]`` LIST  CONTINUE  SAVE  LOAD ▜ COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY ▜ OUT  COPY IN  RETURN  RETURN  SAVE  SAVE  DRAW  DRAW ~>?NOT ▜▜ LPRINT  LPRINT  LPRINT  LPRINT  LPRINT  LET  CLS  RANDOMIZE ©©©©IN © LIST  LIST  COPY ?[B] SAVE  COPY ©PI<=STR$ USR NOT CHR$ NOT  READ  BORDER  NEXT  CLEAR [A] COPY  COPY  COPY  DRAW  DRAW  DRAW  DRAW SGN  DRAW  SAVE  LIST  COPY  COPY p COPY ©x0 COPY ~>>y RANDOMIZE y! LIST  LIST  LPRINT USR ? OVER  OUT  DRAW  SAVE  NEXT  NEXT  LLIST A COPY  OUT  INPUT  LPRINT USR  SAVE  LPRINT  LOAD  NEW f~~0s COPY  COPY vv BORDER  LIST  LIST  LPRINT   LPRINT >n INPUT  DEF FN X INK  STEP  LOAD  RUN  BORDER USR >= CAT  LOAD  CAT A LIST  LIST  LIST  LIST  SAVE  LPRINT USR  DRAW f|`` LPRINT  DRAW f|lf NEW 8nfffv8n`nfv DRAW f|lf NEW  DRAW f RETURN ff NEW  READ w©kkC READ  DRAW f DRAW fv GO TO  NEW ff68~~8nf`fv NEW ff RETURN ff NEW  DRAW b` DRAW `z NEW  LPRINT ````x NEW ``~~8nf`fv<< INK  GO TO  TO  TO  AND USR  LIST USR USR NOT s8DD RETURN |T STEP O` STEP ©`><>2C`NOT ]aCODE 2H/ STEP [H]"!@@ COPY u GO SUB VAL > STEP  STEP RND` STEP n`<> VERIFY `l STEP < <>2 STEP =<>>2w` OR  OR x< STEP [I]`STR$  RUN STR$  LET >2LEN `TAB `) STEP < <>!@]%"6/<>jklmnopqrsqptuvowxqrywyqpomz{|}~© !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[/]^_`abcdhi    CLEAR 2691e STEP pa STEP [K]a1 LIST e STEP bNOT f![H]b INVERSE / GO SUB VAL >2]y RETURN  ERASE ▟b GO SUB [ FOR / GO SUB S POKE /<>> STEP  INK a MERGE !USR f GO SUB VAL  MOVE > STEP  INK a MERGE !USR @ GO SUB VAL  MOVE > STEP  INK a> STEP  INK a> STEP  INK a> STEP  INK a> STEP  INK a> STEP lb@!USR CODE  STEP  GO TO a MERGE  STEP vb MOVE <> OR  RESTORE z THEN ?* STEP Kb> INVERSE !NOT / STEP Kb INVERSE ! PRINT > STEP Kb NEXT z PLOT   LOAD / PLOT  ,* STEP Kb{<>? STEP Kb! VERIFY /N6 COPY ,F OR Pb OR p RESTORE  OR  INVERSE ![J]  INVERSE  RESTORE NOT /= NEXT : VERIFY / LLIST " VERIFY / LLIST 0[B] THEN c($STR$  ▘ CLS <> NEXT 2/[ CLEAR © GO SUB y<> NEXT !USR @>USR  GO SUB O GO SUB _VAL$ w#xLEN   PLOT  <>STR$ <>CODE ! NEXT  RESTORE NOT 0=TETPAG00C<>  PLOT  <>STR$ <>CODE ! NEXT  RESTORE NOT 0=TETPAG00C<>xLEN   PLOT  <>STR$ <>CODE ! NEXT  RESTORE NOT 0=TETPAG00C<>                         
  3 PAUSE USR 0