äH Š This program demonstrates a technique to set the MS-DOS criticalKŠ error handler to your own ZBasic code. See page A-23 in the manual:((Š save previous vector22:!<<€& &06,&B8,&3524,&CD,&21,&8C,FF€& &06,Old_Seg%,&89,&1E,Old_Offset%,&07PP:ZZŠ set new vectordd:/nnSeg% = „ C : Offset% = ‚ "Error Routine">xx€& &1E,&8B,&16,Offset%,&8E,&1E,Seg%,&B8,&2524,&CD,&21,&1F‚‚:=ŒŒŠ access drive a: to produce an error (leave door open)––:   €! "I", 1, "A:TESTFILE.DAT"ªª:,´´Š reset error vector to previous value¾¾:'ÈÈ€& &1E,&8B,&16,Old_Offset%,&8E,&1E&ÒÒ€& Old_Seg%,&B8,&2524,&CD,&21,&1FÜÜ€ææ:ðð:úú"Error Routine"/Š start of our own critical error handler:'€& &53,&51,&52,&1E,&06,&8B,&EC,&8E*""€& &5E,&1E,&8E,&46,&20,&89,&3E,Error%,,:866Š do anything here except disk i/o (see page A-24)@@:JJ€ Error%TT€ Error$^^€1hh€1 Error$; " error!"#rr€1 "(Ignore, Retry, Abort)? ";||€3 †† A$ = ˆ  A$ = ˆ(A$)šš I% = „(1,"IRA",A$)¤¤€4 I% > 0 ®®€1 A$¸¸Response% = I% - 1€ I% = 3 Š €ÌÌ: ÖÖ"Do DOS"ààŠ return to DOS-êê€& &A1,Response%,&07,&1F,&5A,&59,&5B,&CFôô:(þþ€ "Write protected","Unknown unit"+€ "Drive not ready","Unknown command"-€ "Data","Bad request structure length"#€ "Seek","Unknown media type"1&&€ "Sector not found","Printer out of paper"400€ "Write fault","Read fault","General failure"ÿÿ