10REM Program to invoke any type of BREAK
   20REM (C) John Robinson 1988
   30REM Entry parameters: A=break type, 0=BREAK, 1=power-up, 2=CTRL BREAK
   40:
   50DIM code &100
   60origin$="FFFF0C00"
   70:
   80osnewl=&FFE7
   90oswrch=&FFEE
  100osbyte=&FFF4
  110:
  120FOR pass=0 TO 3 STEP 3
  130P%=EVAL("&"+origin$)
  140O%=code
  150[OPT pass
  160
  170.kitkat .oldb
  180CMP #3
  190BCC goodbreak
  200BRK:EQUB 254:EQUS "Bad BREAK":EQUB 0
  210.goodbreak
  220CMP #1
  230BEQ powerup
  240BCC softbreak
  250.hardbreak
  260LDA &287:LDX &288:LDY &289
  270STA oldb:STX oldb+1:STY oldb+2
  280LDY #newb DIV 256:LDX #newb MOD 256:LDA #&4C
  290PHP
  300SEI
  310STY &289:STX &288:STA &287
  320PLP
  330.softbreak
  340JMP (&FFFC)
  350.powerup
  360LDA #&7F:STA &FE4E
  370BNE softbreak
  380
  390.newb
  400PHP
  410LDA oldb:LDX oldb+1:LDY oldb+2
  420STY &289:STX &288:STA &287
  430.finish
  440LDA #2:STA &28D
  450LDA oldb:CMP #&4C
  460BNE no
  470PLP:JMP oldb
  480.no
  490PLP:RTS
  500
  510]
  520NEXT pass
  530:
  540INPUT "Break type? (0-2) "break
  550A%=break
  560CALL kitkat
  570: