/**************************************************************************\
|*                                                                        *|
|* The Wheel of Fortune, v6.0b; CONFIG MODULE by Dotoran of Frontiers BBS *|
|*                                                                        *|
\**************************************************************************/
options results ; signal on SYNTAX ; signal on ERROR ; signal on IOERR
tr=transmit ; se=sendstring ; gc=getchar ; gu=getuser ; mg=maygetchar

call SETUP ; call READCONFIG ; signal SCREEN1

START:
    pt=it.ed.it ; if index(pt,'c6')>0 then pt=delstr(pt,pos('c6',pt),3)
    if index(pt,'ce')>0 then pt=delstr(pt,pos('ce',pt),3)
    se 'z4cb'pt'z0c6' ; gc ; a=c2d(result) ; do 2 ; mg ; b=result ; end
    if a=27 & b='NOCHAR' then signal SAVE ; if a=13 then signal CONFIG
    if b='A' then do ; tr it.ed.it ; it=it-1 ; if it<1 then it=max ; signal START ; end
    if b='B' then do ; tr it.ed.it ; it=it+1 ; if it>max then it=1 ; signal START ; end
    if b='C' then do ; tr it.ed.it ; if index(zz.ed,' '||it||' ')>0 then do
        a=pos(right(it,2,'0')'-',zz.ed.1)+3 ; it=strip(substr(zz.ed.1,a,2),'l','0') ; end ; end
    if b='D' then do ; tr it.ed.it ; if index(zz.ed,' '||it||' ')>0 then do
        a=pos(right(it,2,'0')'-',zz.ed.2)+3 ; it=strip(substr(zz.ed.2,a,2),'l','0') ; end ; end
    if d2c(a)='V' & ed=1 then signal SCREEN2 ; if d2c(a)='V' & ed=2 then signal SCREEN1
  signal START

CONFIG:
    if ed=2 then signal LOADER ; else a='CONFIG'||it ; signal (a)
CONFIG1:
    addkeys (path) ; se 'z7c0i0 55}z0' ; gu 70 ; a=result ; if ~exists(a||'Config') then do
        a=path ; tr 'z7c0'left(path,55)'z0' ; end ; else path=a
  signal START
CONFIG2:
    addkeys (kasc1p) ; se 'z7c0i256 62}z0' ; gu 70 ; d=result
    if d='' then do ; d=kasc1p ; se 'z7c0' ; send d ; tr 'z0' ; end ; kasc1p=d
    call COUNT(kasc1p) ; kasc1m=a ; tr 'z7c0'right(kasc1m,2)'z0'
  signal START
CONFIG3:
    addkeys (kasc2p) ; se 'z7c0i256 62}z0' ; gu 70 ; d=result
    if d='' then do ; d=kasc2p ; se 'z7c0' ; send d ; tr 'z0' ; end ; kasc2p=d
    call COUNT(kasc2p) ; kasc2m=a ; tr 'z7c0'right(kasc2m,2)'z0'
  signal START
CONFIG4:
    addkeys (kans1p) ; se 'z7c0i256 62}z0' ; gu 70 ; d=result
    if d='' then do ; d=kans1p ; se 'z7c0' ; send d ; tr 'z0' ; end ; kans1p=d
    call COUNT(kans1p) ; kans1m=a ; tr 'z7c0'right(kans1m,2)'z0'
  signal START
CONFIG5:
    addkeys (kans2p) ; se 'z7c0i256 62}z0' ; gu 70 ; d=result
    if d='' then do ; d=kans2p ; se 'z7c0' ; send d ; tr 'z0' ; end ; kans2p=d
    call COUNT(kans2p) ; kans2m=a ; tr 'z7c0'right(kans2m,2)'z0'
  signal START
CONFIG6:
    addkeys (kibm1p) ; se 'z7c0i256 62}z0' ; gu 70 ; d=result
    if d='' then do ; d=kibm1p ; se 'z7c0' ; send d ; tr 'z0' ; end ; kibm1p=d
    call COUNT(kibm1p) ; kibm1m=a ; tr 'z7c0'right(kibm1m,2)'z0'
  signal START
CONFIG7:
    addkeys (kibm2p) ; se 'z7c0i256 62}z0' ; gu 70 ; d=result
    if d='' then do ; d=kibm2p ; se 'z7c0' ; send d ; tr 'z0' ; end ; kibm2p=d
    call COUNT(kibm2p) ; kibm2m=a ; tr 'z7c0'right(kibm2m,2)'z0'
  signal START
CONFIG8:
    if OLog=1 then OLog=0 ; else OLog=1
    tr 'z7c0'left(subword('No Yes',OLog+1),3)'z0'
  signal START
CONFIG9:
    if Play=1 then Play=0 ; else Play=1
    tr 'z7c0'left(subword('No Yes',Play+1),3)'z0'
  signal START
CONFIG10:
    addkeys (hasc) ; se 'z7c0i0 1}z0' ; gu 70 ; d=result
    if d='' then do ; d=hasc ; tr 'z7c0'd'z0' ; end ; hasc=d
  signal START
CONFIG11:
    addkeys (hans) ; se 'z7c0i0 1}z0' ; gu 70 ; d=result
    if d='' then do ; d=hans ; tr 'z7c0'd'z0' ; end ; hans=d
  signal START
CONFIG12:
    addkeys (hibm) ; se 'z7c0i0 1}z0' ; gu 70 ; d=result
    if d='' then do ; d=hibm ; tr 'z7c0'd'z0' ; end ; hibm=d
  signal START
CONFIG13:
    if NLog=1 then NLog=0 ; else NLog=1
    tr 'z7c0'left(subword('No Yes',NLog+1),3)'z0'
  signal START
CONFIG14:
    if zero=1 then zero=0 ; else zero=1
    tr 'z7c0'left(subword('No Yes',zero+1),3)'z0'
  signal START
CONFIG15:
    addkeys (timer) ; se 'z7c0i16 5}z0' ; gu 70 ; timer=result
    if timer<250 then do ; timer=250 ; se 'z7c0'left(timer,4)'z0' ; end
  signal START
CONFIG16:
    if wans=1 then wans=0 ; else wans=1
    tr 'z7c0'left(subword('Wedges  Spinning',wans+1),8)
  signal START
CONFIG17:
    if wibm=1 then wibm=0 ; else wibm=1
    tr 'z7c0'left(subword('Wedges  Spinning',wibm+1),8)
  signal START
CONFIG18:
    if Vanna=1 then Vanna=0 ; else Vanna=1
    tr 'z7c0'left(subword('No Yes',Vanna+1),3)'z0'
  signal START
CONFIG19:
    signal SCREEN2
CONFIG20:
    addkeys (max1) ; se 'z7c0i64 2}z0' ; gu 70 ; max1=result
    if max1<5 | max1>40 then do ; max1=15 ; tr 'z7c0'left(max1,2)'z0' ; end
  signal START
CONFIG21:
    addkeys (max2) ; se 'z7c0i64 2}z0' ; gu 70 ; max2=result
    if max2<5 | max2>40 then do ; max2=15 ; tr 'z7c0'left(max2,2)'z0' ; end
  signal START
CONFIG22:
    addkeys (minB) ; se 'z7c0i64 2}z0' ; gu 70 ; minB=result
    if minB<10 | minB>40 then do ; minB=15 ; tr 'z7c0'right(minB,2)'z0' ; end
  signal START

LOADER:
    a='LOADER'||it ; signal (a)
LOADER1:
    addkeys (Lpor) ; se 'z7c0i64 2}z0' ; gu 70 ; d=result
    if d='' | d<0 then do ; d=Lpor ; tr 'z7c0'd'z0' ; end ; Lpor=d
  signal START
LOADER2:
    addkeys (Hpor) ; se 'z7c0i64 2}z0' ; gu 70 ; d=result
    if d='' | d>99 then do ; d=Hpor ; tr 'z7c0'd'z0' ; end ; Hpor=d
  signal START
LOADER3:
    addkeys (wofC) ; se 'z7c0i1 7}z0' ; gu 70 ; wofC=result
  signal START
LOADER4:
    if cnet=1 then cnet=0 ; else cnet=1
    tr 'z7c0'left(subword('2.63 3.0p',cnet+1),4)'z0'
  signal START
LOADER5:
    load=load+1 ; if load>7 then load=1
    tr 'z7c0'left(lo.load,13)'z0'
  signal START
LOADER6:
    if casc=1 then casc=0 ; else casc=1
    tr 'z7c0'left(subword('No Yes',casc+1),3)'z0'
  signal START
LOADER7:
    if cans=1 then cans=0 ; else cans=1
    tr 'z7c0'left(subword('No Yes',cans+1),3)'z0'
  signal START
LOADER8:
    if cibm=1 then cibm=0 ; else cibm=1
    tr 'z7c0'left(subword('No Yes',cibm+1),3)'z0'
  signal START
LOADER9:
    if defL=1 then defL=0 ; else defL=1
    tr 'z7c0'left(subword('No Yes',defL+1),3)'z0'
  signal START
LOADER10:
    maint=maint+1 ; if maint>4 then maint=1
    tr 'z7c0'left(ma.maint,8)'z0'
  signal START
LOADER11:
    if chance=1 then chance=0 ; else chance=1
    tr 'z7c0'left(subword('No Yes',chance+1),3)'z0'
  signal START
LOADER12:
    if smart=1 then smart=0 ; else smart=1
    tr 'z7c0'left(subword('No Yes',smart+1),3)'z0'
  signal START
LOADER13:
    if newplay=1 then newplay=0 ; else newplay=1
    tr 'z7c0'left(subword('No Yes',newplay+1),3)'z0'
  signal START
LOADER14:
    addkeys (sp96) ; se 'z7c0i64 3}z0' ; gu 70 ; d=result
    if d='' then do ; d=sp96 ; tr 'z7c0'd'z0' ; end ; sp96=d
  signal START
LOADER15:
    addkeys (sp14) ; se 'z7c0i64 3}z0' ; gu 70 ; d=result
    if d='' then do ; d=sp14 ; tr 'z7c0'd'z0' ; end ; sp14=d
  signal START
LOADER16:
    a=puPR+1 ; if a>4 then a=0 ; puPR=a
    tr 'z7c0'left(subword('None Time GameP ByteC FileC',puPR+1,1),5)'z0'
  signal START
LOADER17:
    a=bpPR+1 ; if a>4 then a=0 ; bpPR=a
    tr 'z7c0'left(subword('None Time GameP ByteC FileC',bpPR+1,1),5)'z0'
  signal START
LOADER18:
    signal SCREEN1
LOADER19:
    addkeys (puVA) ; se 'z7c0i64 5}' ; gu 70 ; d=result
    if d='' then do ; d=puVA ; tr 'z7c0'd'z0' ; end ; puVA=d
  signal START
LOADER20:
    addkeys (bpVA) ; se 'z7c0i64 5}' ; gu 70 ; d=result
    if d='' then do ; d=bpVA ; tr 'z7c0'd'z0' ; end ; bpVA=d
  signal START

SAVE:
    se 'cbSave c6these casettings c6before exiting? '
    se 'c7[caYesc7]c6: ca' ; gc ; a=result ; if a='N' then do
        tr 'No.' ; exit ; end ; else tr 'Yes!' ; call SAVECONFIG
  exit

COUNT:
    parse arg text ; a=0 ; do z1=1 to length(text) ; b=index(text,'')
    if b>0 then do ; a=a+1 ; text=delstr(text,b,1) ; end ; end z1
  return

READCONFIG:
    call open(f1,'pfiles:WoFortune.Config','r')
        conf1=readln(f1) ; conf2=readln(f1) ; path=readln(f1) ; L=readln(f1)
        parse var L casc'|'cans'|'cibm'|'cnet'|'load'|'Lpor'|'Hpor'|'defL'|'wofC'|'j
        kasc1=readln(f1) ; parse var kasc1 kasc1m'|'kasc1p'|'j
        kasc2=readln(f1) ; parse var kasc2 kasc2m'|'kasc2p'|'j
        kans1=readln(f1) ; parse var kans1 kans1m'|'kans1p'|'j
        kans2=readln(f1) ; parse var kans2 kans2m'|'kans2p'|'j
        kibm1=readln(f1) ; parse var kibm1 kibm1m'|'kibm1p'|'j
        kibm2=readln(f1) ; parse var kibm2 kibm2m'|'kibm2p'|'j
        cdata=readln(f1) ; parse var cdata OLog'|'NLog'|'Play'|'hasc'|'hans,
        '|'hibm'|'wans'|'wibm'|'timer'|'zero'|'max1'|'max2'|'minB'|'vanna,
        '|'maint'|'chance'|'smart'|'newplay'|'sp96'|'sp14'|'puPR'|'puVA,
        '|'bpPR'|'bpVA'|'j
    call close(f1)
  return

SAVECONFIG:
    L=casc'|'cans'|'cibm'|'cnet'|'load'|'Lpor'|'Hpor'|'defL'|'wofC'|x'
    kasc1=kasc1m'|'kasc1p'|x' ; kasc2=kasc2m'|'kasc2p'|x'
    kans1=kans1m'|'kans1p'|x' ; kans2=kans2m'|'kans2p'|x'
    kibm1=kibm1m'|'kibm1p'|x' ; kibm2=kibm2m'|'kibm2p'|x'
    cdata=OLog'|'NLog'|'Play'|'hasc'|'hans'|'hibm'|'wans'|'wibm'|'timer
    cdata=cdata'|'zero'|'max1'|'max2'|'minB'|'vanna'|'maint'|'chance
    cdata=cdata'|'smart'|'newplay'|'sp96'|'sp14'|'puPR'|'puVA'|'bpPR
    cdata=cdata'|'bpVA'|x'
    call open(f1,'pfiles:WoFortune.Config','w')
        call writeln(f1,conf1) ; call writeln(f1,conf2) ; call writeln(f1,path)
        call writeln(f1,L) ; call writeln(f1,kasc1) ; call writeln(f1,kasc2)
        call writeln(f1,kans1) ; call writeln(f1,kans2) ; call writeln(f1,kibm1)
        call writeln(f1,kibm2) ; call writeln(f1,cdata)
    call close(f1)
  return

SETUP:
    it=1 ; ed=1 ; tr 'f1' ; changewhere 'WOF 6.0 CONFIG' ; spa=copies(' ',76)
    pr=' Arrow Keys Select Item to Edit, ENTER/RETURN Edits Item, ESC Saves & Quits!'
    zz.1=' 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 '
    zz.1.1='08-13-18-08-09-14-19-09-10-15-20-10-11-16-21-11-12-17-22-12'
    zz.1.2='22-17-12-22-21-16-11-21-20-15-10-20-19-14-09-19-18-13-08-18'
    it.1.1='Path to Game Files' ; it.1.2='ASC Key1' ; it.1.3='ASC Key2'
    it.1.4='ANS Key1' ; it.1.5='ANS Key2' ; it.1.6='IBM Key1'
    it.1.7='IBM Key2' ; it.1.8='Show OLD Game Log' ; it.1.9='Winner 1st Player'
    it.1.10='ASC Hide Character' ; it.1.11='ANS Hide Character'
    it.1.12='IBM Hide Character' ; it.1.13='Show NEW Game Log'
    it.1.14='Can $0-$100 GUESS' ; it.1.15='Bonus Timer Limit'
    it.1.16='ANS Wheel Graphics' ; it.1.17='IBM Wheel Graphics'
    it.1.18='Show Vanna Picture' ; it.1.19='u1ceVu0c6IEW MORE CONFIG OPTIONS'
    it.1.20='Last Puzzles' ; it.1.21='Last Bonuses'
    it.1.22='Bonus Length' ; zz.2=' 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 '
    zz.2.1='01-10-01-02-11-02-03-12-03-04-13-04-05-14-05-06-15-06-07-16-19-07-08-17-20-08-09-18-09'
    zz.2.2='18-09-18-20-17-08-20-19-16-07-19-15-06-15-14-05-14-13-04-13-12-03-12-11-02-11-10-01-10'
    it.2.1='The Lowest Port Loaded' ; it.2.2='The Highest Port Loaded'
    it.2.3='The WOF Quick Command' ; it.2.4='Which CNet Version'
    it.2.5='Use Which Loader Info' ; it.2.6='Close the ASC Module'
    it.2.7='Close the ANS Module' ; it.2.8='Close the IBM Module'
    it.2.9='Ask to Load DEFAULT Game' ; it.2.10='Who Has Maint Access'
    it.2.11='Use Play Again Chance' ; it.2.12='Smart Bonus Letters'
    it.2.13='Allow NEW/GUEST Plays' ; it.2.14='9600 Spinning Delay'
    it.2.15='14400 Spinning Delay' ; it.2.16='Regular Prize' ; it.2.17='Bonus Prize'
    it.2.18='ceu1Vc6u0IEW PREVIOUS CONFIG OPTIONS' ; it.2.19='Amount' ; it.2.20='Amount'
    lo.1='Last Only' ; lo.2='Current Only' ; lo.3='Bonus Only' ; lo.4='Last/Current' ; lo.5='Last/Bonus'
    lo.6='Current/Bonus' ; lo.7='USE ALL THREE' ; ma.1='ID # 1' ; ma.2='Group23'
    ma.3='Group31' ; ma.4='MaintAcc'
  return

SCREEN1:
    tr 'f0@4ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿'
    tr '³r1cb The Wheel of Fortune, v6.0b Config Options Editor by Dotoran of Frontiers! r0c9³' ; tr '³'spa'³'
    tr '³ Path to Game Files:                                                        ³' ; tr '³'spa'³'
    tr '³ ASC Key1:                                                                  ³'
    tr '³ ASC Key2:                                                                  ³' ; tr '³'spa'³'
    tr '³ ANS Key1:                                                                  ³'
    tr '³ ANS Key2:                                                                  ³' ; tr '³'spa'³'
    tr '³ IBM Key1:                                                                  ³'
    tr '³ IBM Key2:                                                                  ³' ; tr '³'spa'³'
    tr '³  Show OLD Game Log:      Show NEW Game Log:       Show Vanna Picture:      ³' ; tr '³'spa'³'
    tr '³  Winner 1st Player:      Can $0-$100 GUESS:       ceu1Vu0c6IEW MORE CONFIG OPTIONS ³' ; tr '³'spa'³'
    tr '³ ASC Hide Character:      Bonus Timer Limit:             Last Puzzles:      ³'
    tr '³ ANS Hide Character:     ANS Wheel Graphics:             Last Bonuses:      ³'
    tr '³ IBM Hide Character:     IBM Wheel Graphics:             Bonus Length:      ³'
    tr 'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ'
    tr pr ; max=22 ; it=1 ; ed=1 ; tr 'z7c0'left(path,53)'z0'
    se 'z7c0' ; send left(kasc1p,62) ; tr 'z0' ; tr 'z7c0'right(kasc1m,2)'z0'
    se 'z7c0' ; send left(kasc2p,62) ; tr 'z0' ; tr 'z7c0'right(kasc2m,2)'z0'
    se 'z7c0' ; send left(kans1p,62) ; tr 'z0' ; tr 'z7c0'right(kans1m,2)'z0'
    se 'z7c0' ; send left(kans2p,62) ; tr 'z0' ; tr 'z7c0'right(kans2m,2)'z0'
    se 'z7c0' ; send left(kibm1p,62) ; tr 'z0' ; tr 'z7c0'right(kibm1m,2)'z0'
    se 'z7c0' ; send left(kibm2p,62) ; tr 'z0' ; tr 'z7c0'right(kibm2m,2)'z0'
    tr 'z7c0'left(subword('No Yes',OLog+1,1),3)'z0' ; tr 'z7c0'left(subword('No Yes',NLog+1,1),3)'z0'
    tr 'z7c0'left(subword('No Yes',vanna+1,1),3)'z0' ; tr 'z7c0'left(subword('No Yes',play+1,1),3)'z0'
    tr 'z7c0'left(subword('No Yes',zero+1,1),3)'z0' ; tr 'z7c0'hasc'z0'
    tr 'z7c0'left(timer,5)'z0' ; tr 'z7c0'left(max1,2)'z0' ; tr 'z7c0'hans'z0'
    tr 'z7c0'left(subword('Wedges  Spinning',wans+1,1),8)'z0'
    tr 'z7c0'left(max2,2)'z0' ; tr 'z7c0'hibm'z0'
    tr 'z7c0'left(subword('Wedges  Spinning',wibm+1,1),8)'z0'
    tr 'z7c0'left(minB,2)'z0'
  signal START

SCREEN2:
    tr 'f0@4ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿'
    tr '³r1cb The Wheel of Fortune, v6.0b Config Options Editor by Dotoran of Frontiers! r0c9³' ; tr '³'spa'³'
    tr '³   The Lowest Port Loaded:    'left(spa,14)'Who Has Maint Access:           ³' ; tr '³'spa'³'
    tr '³  The Highest Port Loaded:    'left(spa,13)'Use Play Again Chance:           ³' ; tr '³'spa'³'
    tr '³    The WOF Quick Command:         'left(spa,10)'Smart Bonus Letters:           ³' ; tr '³'spa'³'
    tr '³       Which CNet Version:      'left(spa,11)'Allow NEW/GUEST Plays:           ³' ; tr '³'spa'³'
    tr '³    Use Which Loader Info:                   9600 Spinning Delay:           ³' ; tr '³'spa'³'
    tr '³     Close the ASC Module:     'left(spa,13)'14400 Spinning Delay:           ³' ; tr '³'spa'³'
    tr '³     Close the ANS Module:         Regular Prize:         Amount:           ³' ; tr '³'spa'³'
    tr '³     Close the IBM Module:           Bonus Prize:         Amount:           ³' ; tr '³'spa'³'
    tr '³ Ask to Load DEFAULT Game:     'left(spa,13)'u1ceVu0c6IEW PREVIOUS CONFIG OPTIONS    ³' ; tr '³'spa'³'
    tr 'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ'
    tr pr ; max=20 ; it=1 ; ed=2
    tr 'z7c0'left(Lpor,2)'z0' ; tr 'z7c0'left(ma.maint,8)'z0'
    tr 'z7c0'left(Hpor,2)'z0' ; tr 'z7c0'left(subword('No Yes',chance+1,1),3)'z0'
    tr 'z7c0'left(wofC,7)'z0' ; tr 'z7c0'left(subword('No Yes',smart+1,1),3)'z0'
    tr 'z7c0'left(subword('2.63 3.0p',cnet+1,1),4)'z0' ; tr 'z7c0'left(subword('No Yes',newplay+1,1),3)'z0'
    tr 'z7c0'left(lo.load,13)'z0' ; tr 'z7c0'left(sp96,3)'z0'
    tr 'z7c0'left(subword('No Yes',casc+1,1),3)'z0' ; tr 'z7c0'left(sp14,3)'z0'
    tr 'z7c0'left(subword('No Yes',cans+1,1),3)'z0' ; tr 'z7c0'left(subword('None Time GameP ByteC FileC',puPR+1,1),5)'z0'
    tr 'z7c0'left(puVA,5)'z0' ; tr 'z7c0'left(subword('None Time GameP ByteC FileC',bpPR+1,1),5)'z0'
    tr 'z7c0'left(bpVA,5)'z0' ; tr 'z7c0'left(subword('No Yes',cibm+1,1),3)'z0'
    tr 'z7c0'left(subword('No Yes',defL+1,1),3)'z0'
  signal START

SYNTAX: ; ERROR: ; IOERR:
    tr 'n2ce*** c9BOOM ce*** c9Error Detectedce!' ; tr 'c6ERc9:cb'rc' c6(ca'errortext(rc)'c6) @ cf'sigl
    tr 'cdSysop has been notified...' ; logentry 'ER:'rc' ('errortext(rc)') @ 'sigl
    logentry 'while using WOF Config, v6.0' ; bufferflush
  exit

/* Completed: November 15, 1993              Frontiers BBS (716)/823-9892 */