C? FREE CD ACC/RSC LOAD ALERT CD : C FORGET EMPTY
HERE DUP 32 ALLOT : 32C:  HEX 32 0 DO BL WORD DUP COUNT + 0!
NUMBER DROP OVER C!  1+  LOOP  DECIMAL ; 32C:
              FF FF  C0 0F  95 56  AA A6
              C0 0F  FF FF  FE 7F  FC 3F
              FC 3F  FE 7F  FF EF  FE 7F
              FE 7F  FE 7F  FE 7F  FB DF DROP FORGET 32C:

ASSEMBLE DISKETTE EQU STACK
ARR DEFB #80,#C0,#E0,#F0,#C0,#A0,#20,#18
DER DEFB 12 DEFM "Disk  error!"
ABO DEFB  5 DEFM "ABORT"
RTR DEFB  6 DEFM "RETRY "
IGN DEFB  6 DEFM "IGNORE" ;
-->

: A ALERT [ ASSEMBLE
          DEFB #00,1,4,9,20,7,22 DEFW ARR
          DEFB #E3,7,6,8+4*8+1 DEFW RTR
          DEFB #B3,7,1,8+4*8+1 DEFW ABO
          DEFB #B3,3,6,8+4*8+1 DEFW IGN
          DEFB #C1,0,0,7*8+2   DEFW DISKETTE
          DEFB #82,0,4,7*8+1   DEFW DER
          DEFB 0 ; ]
CR ." Returned " .S ." ..." 2- R/I ;
MAKE DSK A ;
REMEMBER EMPTY