Joe Blade Ii: J.BLADE2.B

  0 REM    © 1991 Disked by MAGIC STEP |] STEP [C]] STEP o]>2▟/ STEP [M]] STEP [M]]<>CODE  OPEN # RETURN >2H/>2▟/ STEP kP!n]~ PAPER v RESTORE  MERGE o&))$ STEP A] FOR   SAVE  FOR  STEP A] MOVE  LLIST + LLIST ~ACS #ACS  PRINT <>%$!,"%/*!= MERGE ~ACS #xLEN   PRINT  LLIST %"6/<>!=%"6/<> OR  STEP  RETURN STR$  RANDOMIZE <>> STEP > BEEP > BEEP x BEEP > [A] OR !1^G~ BEEP # CLS STR$ x RETURN CHR$ ^<>©1993 TAPE VERSION BY ORIGINAL   
  1 CLEAR VAL "24999": RANDOMIZE USR VAL "23820": INK 0
  10 LOAD "jb"CODE 
  20 RANDOMIZE USR VAL "25000": RANDOMIZE USR VAL "54688"
  100 INPUT "E";C: POKE 23809,C: INPUT "N";C: POKE 23829,C: FOR N=23918 TO 23887 STEP -1: INPUT A$: POKE N,CODE A$-32: NEXT N