10 BORDERPI-PI:POKEVAL"23693",VAL"71":POKEVAL"23624",VAL"71":CLEARVAL"25999":LETkbd=VAL"23472":LETk=PI-PI

   20 LETdrv=CODE"0"+PEEKVAL"23766":CLOSE#0:IFPEEKVAL"23734"<>VAL"244"THENCLEAR#

   30 IFdrv<CODE"1"ORdrv>CODE"8"THENLETdrv=CODE"T"

   40 CLS:PRINTTABVAL"10";"DEVPAC 4.1";TABVAL"10";INKPI/PI;"ャャャャャ"

   50 PRINT''''" 1: M/C Assembler, 32 char"'" 2: M/C Assembler, 51 char"'" 3: Monitor/Disassembler"'INVERSEk;" 4: Load ASCII keyboard driver "'INVERSEPI-PI;" 5: Re-enter program"

   60 INPUT"Select: ";q

   70 IFq=VAL"4"THENLETk=PI/PI:GOTOVAL"40"

   80 IFq<VAL"1"ORq>VAL"5"THENGOTOVAL"60"

   90 PRINTATq+VAL"5",VAL"3";">";ATVAL"10",PI-PI

  100 INPUT"Start address",code:LETstart=code:IFcode<VAL"26000"THENGOTOVAL"60"

  110 IFq=VAL"5"THENIFPEEKcode<>VAL"195"THENGOTOVAL"40"

  120 IFq=VAL"1"THENLETf$="gens4":GOSUBVAL"200"

  130 IFq=VAL"2"THENLETf$="gens4-51":GOSUBVAL"200"

  140 IFq=VAL"3"THENLETf$="mons4":GOSUBVAL"200"

  150 IFq>VAL"3"THENLETk=PI-PI

  160 LEToff=code+VAL"40"+PEEK(code+VAL"33")+VAL"256"*PEEK(code+VAL"34"):IFPEEKoff<>VAL"253"THENLEToff=off+VAL"18"

  170 IFk THENLETf$="genskeys":LETstart=kbd:GOSUBVAL"200":POKEoff+VAL"3",INT(kbd/VAL"256"):POKEoff+VAL"2",kbd-VAL"256"*PEEK(off+VAL"3"):POKEoff+VAL"1",VAL"205":POKEoff,PI-PI

  180 RANDOMIZEUSRcode

  190 GOTOVAL"180"

  200 IFf$(VAL"2")<>":"THENLETf$=CHR$drv+":"+f$

  210 IFf$(PI/PI)>"0"ANDf$(PI/PI)<"9"THENLOAD*"m";VALf$(PI/PI);f$(VAL"3"TO)CODEstart:RETURN

  220 IFf$(PI/PI)="T"THENLOADf$(VAL"3"TO)CODEstart:RETURN

  230 RETURN