Future Knight: KNIGHT.B

  10 REM 30000
  20 BORDER 0: PAPER 0: INK 6: BRIGHT 1: CLS 
  30 RANDOMIZE USR 24868
  40 PAUSE 20: PRINT AT 17,10; INK 4;"- PRESENTA -"
  50 PAUSE 20: PRINT AT 20,0;"         FUTURE KNIGHT          "
  60 INK 0: PRINT AT 0,0
  70 LOAD ""
  80 REM **********
  18719LMO&H?J?9K?M?LN?H__I_K_rL_N_O_I©[I]J©L©ATTR M©O©PEEK H[P]J[P] MOVE K[P]M[P] DATA N[P] COPY  COPY  DRAW  COPY  COPY USR ? COPY  DRAW  COPY  COPY  DRAW  COPY  COPY  SAVE  COPY  COPY  DRAW  COPY  COPY  COPY USR  COPY  COPY  SAVE  COPY  COPY  LPRINT  COPY  COPY  COPY  COPY  COPY  COPY  LIST  COPY  COPY  LPRINT  SAVE  SAVE  COPY  COPY ? LIST  SAVE ? LIST ? LIST  RETURN  COPY  COPY USR ? LIST © COPY  COPY USR © COPY  COPY  DRAW  COPY  COPY  COPY © COPY  COPY USR  COPY  COPY  COPY  COPY  COPY  COPY USR  COPY  COPY  SAVE  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  LPRINT  COPY  COPY  RETURN  COPY  COPY  COPY  COPY  COPY IN  LIST  SAVE  COPY  COPY  COPY  COPY  COPY ? LIST  RETURN  COPY  COPY  COPY  DRAW  RETURN  COPY  LPRINT © COPY  COPY  DRAW  COPY  COPY  DRAW  COPY  COPY  DRAW  RETURN  COPY  LPRINT © COPY  COPY  LIST  COPY  COPY  DRAW  COPY  COPY  SAVE  DRAW ? COPY  SAVE  COPY  COPY  SAVE < LIST `0 BORDER 1 DATA 0LfUSR < LPRINT  LPRINT 1 TO 0>=|USR  LPRINT USR  <` COPY q CIRCLE p▖ LIST ©<= LIST © SAVE a RUN  NEXT  SAVE  LET [J] LPRINT  COPY  LPRINT  CAT  LIST  COPY  LIST 1▜ATN m CLS c COPY |▝ LLIST   SAVE  TO  COPY  RUN [P]>> STOP 0NOT [I]c SAVE ~3x0NOT ▜ NEW ~#STR$ USR  INVERSE !IN CHR$  OR  INVERSE F INVERSE # INVERSE N INVERSE #> PRINT > COPY  STEP  AND  LET =  POKE >!6 STEP  AND  LET =  INPUT &NOT  INVERSE n INVERSE # INVERSE V INVERSE # INVERSE ^ INVERSE #> OR  MERGE  RESTORE  GO SUB VAL  STEP  AND  LLIST  MOVE STR$ =  LIST > MERGE  RESTORE  GO SUB VAL  STEP  AND  LLIST  MOVE =  LIST STR$ [I]v CLEAR >!SY6B# CLS =  PAUSE ! RUN NOT SH OR > GO SUB VAL  RESTORE ! FOR  LLIST =  LET  RESTORE ! FOR  LLIST STR$  DATA <> OR  RANDOMIZE STR$ <>O! MERGE ]IN CHR$  GO SUB VAL NOT W OR 3