diff --git a/res/DEMO/AO b/res/DEMO/AO
new file mode 100644
index 000000000..fc356c5a4
Binary files /dev/null and b/res/DEMO/AO differ
diff --git a/res/DEMO/_FileInformation.txt b/res/DEMO/_FileInformation.txt
index c16dacd50..9ea782b37 100644
--- a/res/DEMO/_FileInformation.txt
+++ b/res/DEMO/_FileInformation.txt
@@ -6,6 +6,7 @@ ALIEN.AMBUSH=Type(06),AuxType(4000),Access(C3)
 ALIEN.DOWNPOUR=Type(06),AuxType(0300),Access(C3)
 ALIEN.MUNCHIES=Type(06),AuxType(0200),Access(C3)
 ALIEN.TYPHOON=Type(06),AuxType(0300),Access(C3)
+AO=Type(06),AuxType(B900),Access(C3)
 APPLE.INVADER=Type(06),AuxType(0200),Access(C3)
 AQUATRON=Type(06),AuxType(BD00),Access(C3)
 AXIS.ASSASSIN=Type(06),AuxType(0300),Access(C3)
diff --git a/src/demo/apple.oids.a b/src/demo/apple.oids.a
new file mode 100644
index 000000000..7d9d62981
--- /dev/null
+++ b/src/demo/apple.oids.a
@@ -0,0 +1,64 @@
+;license:MIT
+;(c) 2021 by Frank M.
+
+!cpu 6502
+!to "res/DEMO/AO",plain
+*=$B900
+
+         !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   $604E
+         jsr   $6000      ; decompress
+
+         lda   #$4C
+         sta   $4FD7      ; exit on keypress
+         sta   $4F96      ; exit at end of demo
+         lda   #0
+         sta   $4FD7+1
+         lda   #1
+         sta   $4FD7+2
+
+                          ; doesn't try to detect joystick or joystick buttons
+
+         lda   #$D0       ; disable sounds
+         sta   $0DA0      ; A-P-P-L-E-O-I-D-S
+         sta   $1118      ; alien
+         sta   $111F      ; alien
+
+         lda   #<callback
+         sta   $4F96+1
+         lda   #>callback
+         sta   $4F96+2    ; wait 10 seconds at end of demo once Twilight logo is shown
+
+         +DISABLE_ACCEL
+         jmp   $4D00
+
+callback lda   $C000
+         bmi   +
+         lda   #$FF
+         jsr   $FCA8      ; WAIT 0.16395694 seconds
+         dec   count
+         beq   +
+         jmp   callback
++        jmp   $100
+
+count    !byte $3D        ; number of 0.16395694 second WAIT cycles
+
+                          ; (A*A*2.5 + A*13.5 + 7) * 0.980 usec
+                          ; 163,840 + 3,456 + 7 = 167,303 * 0.980 usec = 163,956.94 usec
+                          ; 163,956.94 usec = 0.16395694 seconds
+                          ; 61 cycles (hex $3D) of A=256 WAIT = 10 seconds
+
+title    !byte x_e-x_b
+x_b      !text "X/AO/AO"
+x_e
+
+!if * > $BDFF {
+  !error "code is too large, ends at ", *
+}