diff --git a/res/DEMO/PEST.PATROL b/res/DEMO/PEST.PATROL
index 07b068a4a..d10491bbf 100755
Binary files a/res/DEMO/PEST.PATROL and b/res/DEMO/PEST.PATROL differ
diff --git a/res/DEMO/POOYAN b/res/DEMO/POOYAN
index ce8b198a4..3c4a586f7 100755
Binary files a/res/DEMO/POOYAN and b/res/DEMO/POOYAN differ
diff --git a/res/DEMO/_FileInformation.txt b/res/DEMO/_FileInformation.txt
index a38cf9ecc..112738c8a 100644
--- a/res/DEMO/_FileInformation.txt
+++ b/res/DEMO/_FileInformation.txt
@@ -113,7 +113,7 @@ NORAD.1=Type(F1),AuxType(0000),Access(C3)
 NIBBLER=Type(06),AuxType(0300),Access(C3)
 OM=Type(06),AuxType(08FD),Access(C3)
 PACMAN=Type(06),AuxType(0300),Access(C3)
-PEST.PATROL=Type(06),AuxType(0800),Access(C3)
+PEST.PATROL=Type(06),AuxType(0300),Access(C3)
 PM=Type(06),AuxType(0300),Access(C3)
 PIEMAN.1=Type(F1),AuxType(0000),Access(C3)
 PIEMAN.HI=Type(F1),AuxType(0000),Access(C3)
@@ -122,7 +122,6 @@ PLASMANIA=Type(06),AuxType(0200),Access(C3)
 PHASER.FIRE=Type(06),AuxType(9200),Access(C3)
 PHASER.FIRE.1=Type(F1),AuxType(0000),Access(C3)
 POOYAN=Type(06),AuxType(0300),Access(C3)
-POOYAN.1=Type(F1),AuxType(0000),Access(C3)
 REPTON=Type(06),AuxType(0300),Access(C3)
 REPTON.1=Type(F1),AuxType(0000),Access(C3)
 ROBOTRON.2084=Type(06),AuxType(3000),Access(C3)
diff --git a/src/demo/pest.patrol.a b/src/demo/pest.patrol.a
new file mode 100644
index 000000000..3c0ce3bcc
--- /dev/null
+++ b/src/demo/pest.patrol.a
@@ -0,0 +1,55 @@
+;license:MIT
+;(c) 2021 by Frank M.
+
+!cpu 6502
+!to "res/DEMO/PEST.PATROL",plain
+*=$300
+
+         !source "src/constants.a"   ; no code in these
+         !source "src/macros.a"
+
+         +READ_RAM2_WRITE_RAM2
+         jsr   EnableAccelerator
+         +LOAD_FILE_AT title, $00
+
+         lda   #$60
+         sta   $0837
+         jsr   $0800      ; decompress
+
+         ldx   #11-1
+-        lda   patch, x
+         sta   $47BA, x
+         dex
+         bpl   -          ; exit when user presses a key during main menu
+
+         lda   #$4C
+         sta   $57C4
+         sta   $5589
+         sta   $B493
+         lda   #0
+         sta   $57C4+1
+         sta   $5589+1
+         sta   $485A       ; disable sound
+         sta   $48AE       ; disable sound
+         lda   #1
+         sta   $57C4+2
+         sta   $5589+2
+         lda   #$BD
+         sta   $B493+1
+         lda   #$47
+         sta   $B493+2     ; set exits
+
+         +DISABLE_ACCEL
+
+         jmp   $4003
+
+title    !byte x_e-x_b
+x_b      !text "X/PEST.PATROL/PEST.PATROL"
+x_e
+
+patch    !byte $4C,$00,$01,$AD,$00,$C0,$30,$F8,$4C,$90,$B3
+
+
+!if * > $3F0 {
+  !error "code is too large, ends at ", *
+}
diff --git a/src/demo/pooyan.a b/src/demo/pooyan.a
new file mode 100644
index 000000000..54787dde0
--- /dev/null
+++ b/src/demo/pooyan.a
@@ -0,0 +1,49 @@
+;license:MIT
+;(c) 2021 by Frank M.
+
+!cpu 6502
+!to "res/DEMO/POOYAN",plain
+*=$300
+
+         !source "src/constants.a"   ; no code in these
+         !source "src/macros.a"
+
+         +READ_RAM2_WRITE_RAM2
+         jsr   EnableAccelerator
+         +LOAD_FILE_AT title, $00
+
+         lda   #$60
+         sta   $203A
+         jsr   $2000      ; decompress
+
+         lda   #$4C
+         sta   $6069
+         sta   $60C8
+         sta   $60EA
+         sta   $7DB5
+         lda   #0
+         sta   $6069+1
+         sta   $60C8+1
+         sta   $60EA+1
+         sta   $7DB5+1
+         lda   #1
+         sta   $6069+2
+         sta   $60C8+2
+         sta   $60EA+2
+         sta   $7DB5+2    ; set exits
+
+         lda   #$D0
+         sta   $A008
+         sta   $A025      ; disable sound
+
+         +DISABLE_ACCEL
+
+         jmp   $6000
+
+title    !byte x_e-x_b
+x_b      !text "X/POOYAN/POOYAN"
+x_e
+
+!if * > $3F0 {
+  !error "code is too large, ends at ", *
+}