10 ;FORMAT4›20 ;›30 ;BY PAUL ALHART›40 ;›50 ;›60 ICCOM =   $0342›70 ICBAL =   $0344›80 ICBAH =   $0345›90 CIOV  =   $E456›0100 ;›0110     *=  $5000›0120     LDX #$20›0130     LDA #$FE    ;FORMAT COMMAND›0140     STA ICCOM,X›0150     LDA # <DEVICE›0160     STA ICBAL,X›0170     LDA # >DEVICE›0180     STA ICBAH,X›0190     JSR CIOV    ;DO IT›0200     RTS ›0210 DEVICE .BYTE $44,$34,$3A,$9B ; D4:›0220     *=  $02E0›0230     .WORD $5000›