AMOS PD CD/amospdcd.iso/451-475/apd463/amos1.34_progs/temp_conv.amos/temp_conv.amosSourceCode

AMOS Source Code | 1993-01-17 | 62KB | 2,574 lines

'*****************************************************************************
'*                             NCOMMAND v2.03b              Last Updated     *
'*                    (c) Copyright 1992 Dennis Leech         02/03/92       *
'*                   (c) Copyright 1992 Oasis Software         2:07pm        *
'*****************************************************************************
Set Buffer 30 : NEWCSETUP : Dim N0(50),N1$(50),N2(50),N3(50),N4$(50),N5(50),N6$(50),NR$(50),N7$(50),N8$(10,10),N9(10,10),N10(10,10),RADIO(10),N11(50),CYCLIC(50),CHECKBOX(50),N12(1,50)
Dim N13$(7,50),NR#(50),N15$(10,10),N16(50),N17(50),N18$(50,10),N19(50),N20(50),N21$(3,100),FILENAME$(100),N22$(2,3)
Dim N23#(7,10),N14(7,10),N24(7,10),N25(7,10),N26(7,10),N27(7,10),N28(7,10),HPOS(7,5),VPOS(7,5),N29(7,10,2),SBOXH(10),SBOXV(10),N30$(7,50)
Global N31,N1$(),N2(),N3(),N4$(),N5(),N6$(),NR$(),N0(),N32$,N7$(),BUTTON,N33,CHANGEMADE,N8$(),N9(),N10(),RADIO(),N11(),CYCLIC(),N34,N36,CHECKBOX(),N12(),N37
Global N13$(),NR#(),N15$(),N16(),N17(),N18$(),N19(),MK_PRESSED,N20(),N21$(),FILENAME$,FILENAMES,FILENAME$(),V#,N23#(),N14(),N24(),N25(),N26(),N27(),N28(),HPOS(),VPOS(),N38
Global N39,N40,N41#,LAST_VPOS,LAST_HPOS,N42,N35,N29(),SBOXH(),SBOXV(),N22$(),N30$()
Close Editor
'*****************************************************************************
' PLACE YOUR PROGRAM BELOW HERE
'*****************************************************************************
'
'  Escape Quits
'  Enter your desired temperature in the box to the right
'  after selecting the desired scale
'
Global DC#,DF#,DK#
NR#(1)=20.0
'
NSCREEN[0,10,35,4]
NBOX[10,3,75,9,"o"]
CYCLIC[1,12,6,"Scale","Celsius||Fahrenheit||Kelvin",1]
NINP[60,6,"",20,6,1,"b"]
CALCULATE
PRESULT
NFADE_IN
'
Do
   '
   If Key State(69) Then Proc FINISH
   If Mouse Key
      MOUSE_TEST
      CALCULATE
      PRESULT
   End If
   '
Loop
'
Procedure CALCULATE
   Fix(2)
   If CYCLIC(1)=1
      DC#=NR#(1)
      DF#=((NR#(1)*9)/5)+32
      DK#=NR#(1)+273.2
   End If
   If CYCLIC(1)=2
      DC#=((NR#(1)-32)*5)/9
      DF#=NR#(1)
      DK#=(((NR#(1)-32)*5)/9)+273.2
   End If
   If CYCLIC(1)=3
      DC#=NR#(1)-273.2
      DF#=(((NR#(1)-273.2)*9)/5)+32
      DK#=NR#(1)
   End If
End Proc
Procedure PRESULT
   LOC[37,5,"                  ",1]
   LOC[37,6,"                  ",1]
   LOC[37,7,"                  ",1]
   LOC[37,5,"Kelvin     "+Str$(DK#),1]
   LOC[37,6,"Celsius    "+Str$(DC#),1]
   LOC[37,7,"Fahrenheit "+Str$(DF#),1]
End Proc
Procedure FINISH
   Default
   Edit
End Proc
'
'*****************************************************************************
' PLACE YOUR PROGRAM ABOVE HERE
'*****************************************************************************
Edit
End
Procedure NEWCSETUP
   Screen Open 0,680,256,4,Hires
   Screen Hide 0
   Flash Off
   Curs Off
   Cls 0
   Default Palette ,,,,,,,,,,,,,,,,$999,$458,$0,$FFF
   If Exist("ram:temp.amos")
      Kill "ram:temp.amos"
   End If
   Limit Mouse 10,46 To 680,300
   N31=0
   Get Rom Fonts
   Set Font 2
   N32$="*"
   OB$=""
   OB$=OB$+"0003333333333000"
   OB$=OB$+"0033000000002200"
   OB$=OB$+"0330000000000220"
   OB$=OB$+"3300000000000022"
   OB$=OB$+"3300000000000022"
   OB$=OB$+"0330000000000220"
   OB$=OB$+"0033000000002200"
   OB$=OB$+"0002222222222000"
   For A=1 To Len(OB$) Step 16
      For B=0 To 15
         Y=A/16
         NVAL[Mid$(OB$,A+B,1)]
         Ink V#
         Plot B+50,Y+50
      Next B
   Next A
   Get Icon 1,50,50 To 50+16,50+8
   Screen Close 0
   N35=1
   Screen Open 0,50,50,2,Lowres
   Screen Hide 0
End Proc
Procedure NBOX[X1,Y1,X2,Y2,T$]
   On Error Proc PERROR
   Resume Label E1
   T$=Upper$(T$)
   XX1=(X1*8)
   YY1=(Y1*8)+4
   XX2=(X2*8)+6
   YY2=(Y2*8)+4
   If(T$="BO") or(T$="BI")
      YY1=YY1+1
      YY2=YY2-2
      XX1=XX1+2
      XX2=XX2-2
   End If
   '1st corner
   If(T$="O") or(T$="") or(T$="BO")
      Ink 3
   Else
      Ink 2
   End If
   Draw XX1,YY1+0 To XX2-0,YY1
   Draw XX1+0,YY1 To XX1+0,YY2-1
   '2nd corner
   If(T$="O") or(T$="") or(T$="BO")
      Ink 2
   Else
      Ink 3
   End If
   Draw XX1+0,YY2-1 To XX2,YY2-1
   Draw XX2-0,YY2-1 To XX2-0,YY1
   E1:
   Ink 0
   Paper 0 : Pen 2
End Proc
Procedure IBOX[X1,Y1,X2,Y2]
   On Error Proc PERROR
   Resume Label E2
   XX1=(X1*8)
   YY1=(Y1*8)+4
   XX2=(X2*8)+6
   YY2=(Y2*8)+4
   '
   '  draw 1st corner of box
   '
   Ink 3
   Draw XX1,YY1+0 To XX2-0,YY1
   Ink 2
   Draw XX1,YY1+1 To XX2-0,YY1+1
   Ink 3
   '
   Draw XX1+0,YY1 To XX1+0,YY2-1
   Draw XX1+1,YY1 To XX1+1,YY2-1
   Ink 2
   Draw XX1+2,YY1+1 To XX1+2,YY2-1
   Draw XX1+3,YY1+1 To XX1+3,YY2-1
   '
   '  draw 2nd corner of box
   '
   Ink 2
   Draw XX1+0,YY2-1 To XX2,YY2-1
   Ink 3
   Draw XX1+3,YY2-2 To XX2-3,YY2-2
   Ink 2
   '
   Draw XX2-0,YY2-1 To XX2-0,YY1
   Draw XX2-1,YY2-1 To XX2-1,YY1+1
   Ink 3
   Draw XX2-2,YY2-2 To XX2-2,YY1
   Draw XX2-3,YY2-2 To XX2-3,YY1+1
   '
   E2:
   Ink 0
   Paper 0 : Pen 2
End Proc
Procedure BBOX[NUM,X1,Y1,X2,Y2,T$]
   On Error Proc PERROR
   Resume Label E3
   If NUM>0
      N$=Right$(Str$(X1),2)
      N$=N$+Right$(Str$(Y1),2)
      N$=N$+Right$(Str$(X2),2)
      N$=N$+Right$(Str$(Y2),2)
      N$=N$+"1"
      N$=N$+Right$(Str$(Len(T$)),2)
      N$=N$+T$
      If NUM<51
         N13$(Screen,NUM)=N$
      End If
      Ink 2,0
      CENT=((X2-X1)*4)-(Len(T$)*4)
      T1$=Upper$(T$)
      If(T1$<>"#UP#") and(T1$<>"#DOWN#") and(T1$<>"#LEFT#") and(T1$<>"#RIGHT#") and(Left$(T1$,7)<>"#BLANK#")
         If Left$(T1$,9)<>"#NOCLICK#"
            Text(X1+1)*8+CENT-4,(Y1+2)*8-2,T$
         Else
            CENT=((X2-X1)*4)-(Len(Right$(T$,Len(T$)-9))*4)
            Text(X1+1)*8+CENT-4,(Y1+2)*8-2,Right$(T$,Len(T$)-9)
         End If
      End If
      If T1$="#UP#"
         Paste Icon(X1+1)*8+((X2-X1)*4)-12,(Y1+1)*8,5
      End If
      If T1$="#DOWN#"
         Paste Icon(X1+1)*8+((X2-X1)*4)-12,(Y1+1)*8,6
      End If
      If T1$="#LEFT#"
         Paste Icon(X1+1)*8+((X2-X1)*4)-12,(Y1+1)*8,7
      End If
      If T1$="#RIGHT#"
         Paste Icon(X1+1)*8+((X2-X1)*4)-12,(Y1+1)*8,8
      End If
      If Left$(T1$,7)<>"#BLANK#"
         NBOX[X1,Y1,X2,Y2,"bo"]
         If Left$(T1$,9)<>"#NOCLICK#"
            Set Zone NUM,X1*8,Y1*8+4 To X2*8+6,Y2*8+4
         End If
      End If
   End If
   E3:
End Proc
Procedure NVAL[N$]
   On Error Proc PERROR
   Resume Label E4
   V=0
   P=1
   M=0
   DP=Instr(Flip$(N$),".")
   If DP>0 : Dec DP : End If
   DP#=1 : A=0 : While A<DP : DP#=DP#*10 : Inc A : Wend
   Repeat
      If(Mid$(N$,P,1)>="0") and(Mid$(N$,P,1)<="9")
         V=V*10+Asc(Mid$(N$,P,1))-48
      Else
         If Mid$(N$,P,1)="-"
            M=1
         End If
      End If
      Inc P
   Until P>Len(N$) or P=10
   If M : V=-V : End If
   V#=V/DP#
   E4:
End Proc
Procedure PRNT_BUTTON[NUM]
   On Error Proc PERROR
   Resume Label E5
   Rem biggest number used to be 202
   If(NUM>0) and(NUM<51)
      N$=N13$(Screen,NUM)
      NVAL[Mid$(N$,1,2)]
      X1=V#
      NVAL[Mid$(N$,3,2)]
      Y1=V#
      NVAL[Mid$(N$,5,2)]
      X2=V#
      NVAL[Mid$(N$,7,2)]
      Y2=V#
      NVAL[Mid$(N$,9,1)]
      STAT=V#
      NVAL[Mid$(N$,10,2)]
      L=V#
      T$=Right$(N$,L)
      '
      XX1=(X1*8)
      YY1=(Y1*8)+4
      XX2=(X2*8)+6
      YY2=(Y2*8)+4
      '
      N$=Right$(Str$(X1),2)
      N$=N$+Right$(Str$(Y1),2)
      N$=N$+Right$(Str$(X2),2)
      N$=N$+Right$(Str$(Y2),2)
      If STAT=1
         N$=N$+"0"
      Else
         N$=N$+"1"
      End If
      N$=N$+Right$(Str$(Len(T$)),2)
      N$=N$+T$
      N13$(Screen,NUM)=N$
      If STAT=1
         NBOX[X1,Y1,X2,Y2,"bi"]
         Ink 1
         Bar XX1+2+2,YY1+1+1 To XX2-3-2,YY2-2-2
         Ink 3,1
         CENT=((X2-X1)*4)-(Len(T$)*4)
         T1$=Upper$(T$)
         If(T1$<>"#UP#") and(T1$<>"#DOWN#") and(T1$<>"#LEFT#") and(T1$<>"#RIGHT#")
            Text(X1+1)*8+CENT-4,(Y1+2)*8-2,T$
         End If
         If T1$="#UP#"
            Paste Icon(X1+1)*8+((X2-X1)*4)-12,(Y1+1)*8,9
         End If
         If T1$="#DOWN#"
            Paste Icon(X1+1)*8+((X2-X1)*4)-12,(Y1+1)*8,10
         End If
         If T1$="#LEFT#"
            Paste Icon(X1+1)*8+((X2-X1)*4)-12,(Y1+1)*8,11
         End If
         If T1$="#RIGHT#"
            Paste Icon(X1+1)*8+((X2-X1)*4)-12,(Y1+1)*8,12
         End If
      Else
         NBOX[X1,Y1,X2,Y2,"bo"]
         Ink 0
         Bar XX1+2+2,YY1+1+1 To XX2-3-2,YY2-2-2
         Ink 2,0
         CENT=((X2-X1)*4)-(Len(T$)*4)
         T1$=Upper$(T$)
         If(T1$<>"#UP#") and(T1$<>"#DOWN#") and(T1$<>"#LEFT#") and(T1$<>"#RIGHT#")
            Text(X1+1)*8+CENT-4,(Y1+2)*8-2,T$
         End If
         If T1$="#UP#"
            Paste Icon(X1+1)*8+((X2-X1)*4)-12,(Y1+1)*8,5
         End If
         If T1$="#DOWN#"
            Paste Icon(X1+1)*8+((X2-X1)*4)-12,(Y1+1)*8,6
         End If
         If T1$="#LEFT#"
            Paste Icon(X1+1)*8+((X2-X1)*4)-12,(Y1+1)*8,7
         End If
         If T1$="#RIGHT#"
            Paste Icon(X1+1)*8+((X2-X1)*4)-12,(Y1+1)*8,8
         End If
      End If
   End If
   E5:
End Proc
Procedure LOC[X1,Y1,T$,P]
   On Error Proc PERROR
   Resume Label E6
   If P=1
      Pen 1
   Else
      Pen 2
   End If
   Paper 0
   Locate X1,Y1 : Print T$
   Pen 2
   E6:
End Proc
Procedure NFADE_IN
   Fade 1,$999,$458,$0,$FFF
   Wait 30
End Proc
Procedure NFADE_OUT
   Fade 1,$999,$999,$999,$999
   Wait 30
End Proc
Procedure NREAD
   NR[1,1]
   If N33>0
      BUTTON=N33
   End If
End Proc
Procedure NR[XC,YC]
   On Error Proc PERROR
   Resume Label E7
   Paper 2
   Pen 0
   Gosub P3
   K$=""
   While YC<=N31
      Repeat
         K$=Inkey$
         S=Scancode
         N37=Mouse Key
         MZ=Mouse Zone
         K=Key Shift
         If(K$<>"") and(K=128)
            For A=1 To 50
               Exit If N30$(Screen,A)=Upper$(K$)
            Next A
            If A<51
               MZ=A
               N37=1
            End If
         End If
         If(N37=1 or N37=2) and MZ>0
            Gosub P1
            N33=MZ
            YC=N31
            K$=Chr$(13)
         End If
         If N37=1 or N37=2 and MZ=0
            Gosub MOUSE_CO
         End If
         N37=0
         KK=Key Shift
      Until K$<>"" or S=70
      '
      If S=65 Then K$=Chr$(8)
      If S=76 Then K$=Chr$(30)
      If S=77 Then K$=Chr$(31)
      If S=78 Then K$=Chr$(28)
      If S=79 Then K$=Chr$(29)
      '***** del *****
      If(S=70) and(N5(YC)>1)
         If(N6$(YC)<>"D") and(N6$(YC)<>"T") and(N20(YC)=0)
            TT$=Right$(N4$(YC),N5(YC)-XC)
            TT$=TT$+" "
            TT=Len(TT$)
            TT1$=Left$(N4$(YC),XC-1)
            N4$(YC)=TT1$+TT$
         End If
         If N20(YC)>0
            If N20(YC)<XC
               N4$(YC)=Left$(N4$(YC),XC-1)+Right$(N4$(YC),N5(YC)-XC)+" "
            End If
            If N20(YC)>XC
               TT$=Left$(N4$(YC),XC-1)
               TT1$=Mid$(N4$(YC),XC+1,N20(YC)-XC-1)+" "
               N4$(YC)=TT$+TT1$+Right$(N4$(YC),N5(YC)-N20(YC)+1)
            End If
         End If
         If((N6$(YC)="D") or(N6$(YC)="T")) and(XC=1)
            N4$(YC)=Mid$(N4$(YC),2,1)+" "+Right$(N4$(YC),6)
         End If
         If((N6$(YC)="D") or(N6$(YC)="T")) and(XC=2)
            N4$(YC)=Left$(N4$(YC),1)+" "+Right$(N4$(YC),6)
         End If
         If((N6$(YC)="D") or(N6$(YC)="T")) and(XC=4)
            N4$(YC)=Left$(N4$(YC),3)+Mid$(N4$(YC),5,1)+" "+Right$(N4$(YC),3)
         End If
         If((N6$(YC)="D") or(N6$(YC)="T")) and(XC=5)
            N4$(YC)=Left$(N4$(YC),4)+" "+Right$(N4$(YC),3)
         End If
         If((N6$(YC)="D") or(N6$(YC)="T")) and(XC=7)
            N4$(YC)=Left$(N4$(YC),6)+Right$(N4$(YC),1)+" "
         End If
         If((N6$(YC)="D") or(N6$(YC)="T")) and(XC=8)
            N4$(YC)=Left$(N4$(YC),7)+" "
         End If
         Gosub P2
         K$="" : K=0 : S=0 :
      End If
      '***** del *****
      If(S=70) and(N5(YC)=1) and(N6$(YC)<>"F")
         N4$(YC)=" "
         Gosub P2
         K$="" : K=0 : S=0
      End If
      '***** ctrl-x *****
      If(KK=128) and(K$="x") and(N6$(YC)<>"F")
         N4$(YC)=String$(" ",N5(YC))
         If N6$(YC)="D"
            N4$(YC)="  /  /  "
         End If
         If N6$(YC)="T"
            N4$(YC)="00:00.00"
         End If
         If N20(YC)>0
            N4$(YC)=Space$(N20(YC)-1)+"."+Space$(N5(YC)-N20(YC))
         End If
         Paper 0 : Pen 2 : Locate N2(YC)+1,N3(YC) : Print N4$(YC) : Paper 0 : Pen 2
         K$="" : K=0 : S=0 : XC=1
      End If
      '***** ctrl-X *****
      If(KK=132) and(K$="X") and(N6$(YC)<>"F")
         N4$(YC)=String$(" ",N5(YC))
         If N6$(YC)="D"
            N4$(YC)="  /  /  "
         End If
         If N6$(YC)="T"
            N4$(YC)="00:00.00"
         End If
         If N20(YC)>0
            N4$(YC)=Space$(N20(YC)-1)+"."+Space$(N5(YC)-N20(YC))
         End If
         Inverse On : Locate N2(YC)+1,N3(YC) : Print N4$(YC) : Inverse Off
         K$="" : K=0 : S=0 : XC=1
      End If
      '***** ctrl-X *****
      If(KK=128) and(K$="x") and(N6$(YC)="F")
         K$=" " : CM=1
      End If
      '***** ctrl-x *****
      If(KK=132) and(K$="X") and(N6$(YC)="F")
         K$=" " : CM=1
      End If
      '
      K=Asc(K$)
      If N7$(YC)="U"
         If(K>96) and(K<123)
            K$=Upper$(K$)
         End If
      End If
      If(N1$(YC)<>"") and(N6$(YC)="F") and(K<>13) and(K<>30) and(K<>31) and(S<>70) and(K<>8)
         XX=Instr(N1$(YC),K$)
         If XX=0
            K$="" : K=0 : S=0
         End If
      End If
      '***** escape *****
      If K=27
         Gosub P1
         YC=N31
         K=13
      End If
      '***** cursor left *****
      If(K=29) and(XC>1)
         If(N6$(YC)="D") or(N6$(YC)="T")
            If(XC=4) or(XC=7)
               Gosub P1
               Dec XC
            End If
         End If
         If N20(YC)>1
            If XC=N20(YC)+1
               Gosub P1
               Dec XC
            End If
         End If
         Gosub P1
         Dec XC
         K$="" : K=0 : S=0
      End If
      '
      If(K=29) and(XC=1)
         K$="" : K=0 : S=0
      End If
      '***** cursor right *****
      If(K=28) and(XC<N5(YC))
         If(N6$(YC)="D") or(N6$(YC)="T")
            If(XC=2) or(XC=5)
               Gosub P1
               Inc XC
            End If
         End If
         If N20(YC)<N5(YC)-1
            If XC=N20(YC)-1
               Gosub P1
               Inc XC
            End If
         End If
         Gosub P1
         Inc XC
         K$="" : K=0 : S=0
      End If
      '
      If(K=28) and(XC=N5(YC))
         K$="" : K=0 : S=0
      End If
      '***** cursor up *****
      If(K=30) and(YC>1)
         If(N6$(YC)="D") and(N4$(YC)<>"  /  /  ")
            Gosub VDATE
         End If
         If(N6$(YC)="T") and(N4$(YC)<>"00:00.00")
            Gosub VTIME
         End If
         If EF=0
            Gosub P1
            Dec YC
            If(N6$(YC)="D") or(N6$(YC)="T")
               If XC=3 or XC=6
                  Gosub P1
                  XC=XC-2
               End If
            End If
            If N20(YC)=XC
               If XC=N20(YC)
                  Gosub P1
                  Dec XC
               End If
            End If
            K$="" : K=0 : S=0
            If N5(YC)<XC
               XC=N5(YC)
            End If
         End If
         If EF=1
            Gosub P1
            XC=1
         End If
         K$="" : K=0 : S=0
      End If
      '
      If(K=30) and(YC=1)
         K$="" : K=0 : S=0
      End If
      '***** cursor down *****
      If(K=31) and(YC<N31)
         If(N6$(YC)="D") and(N4$(YC)<>"  /  /  ")
            Gosub VDATE
         End If
         If(N6$(YC)="T") and(N4$(YC)<>"00:00.00")
            Gosub VTIME
         End If
         If EF=0
            Gosub P1
            Inc YC
            If(N6$(YC)="D") or(N6$(YC)="T")
               If XC=3 or XC=6
                  Gosub P1
                  XC=XC-2
               End If
            End If
            If N20(YC)=XC
               If XC=N20(YC)
                  Gosub P1
                  Dec XC
               End If
            End If
            If N5(YC)<XC
               XC=N5(YC)
            End If
         End If
         If EF=1
            Gosub P1
            XC=1
         End If
         K$="" : K=0 : S=0
      End If
      '
      If(K=31) and(YC=N31)
         K$="" : K=0 : S=0
      End If
      '***** return *****
      If K=13
         If(N6$(YC)="D") and(N4$(YC)<>"  /  /  ")
            Gosub VDATE
         End If
         If(N6$(YC)="T") and(N4$(YC)<>"00:00.00")
            Gosub VTIME
         End If
         If EF=0
            Gosub P1
            If CM=0
               Inc YC
            End If
            If CM=1
               CM=0
            End If
         End If
         If EF=1
            Gosub P1
         End If
         K$="" : K=0 : S=0 : XC=1
      End If
      '***** backspace *****
      If(K=8) and(XC>1)
         If(N6$(YC)<>"D") and(N6$(YC)<>"T") and(N20(YC)=0)
            TT$=Right$(N4$(YC),N5(YC)-XC+1)
            TT$=TT$+" "
            TT=Len(TT$)
            TT1$=Left$(N4$(YC),XC-2)
            N4$(YC)=TT1$+TT$
         End If
         '** dec point **
         If N20(YC)>0
            If N20(YC)=XC
               N4$(YC)=Left$(N4$(YC),N20(YC)-2)+" ."+Right$(N4$(YC),N5(YC)-N20(YC))
               Gosub P2
               Dec XC
            End If
            If N20(YC)<XC
               TT$=Right$(N4$(YC),N5(YC)-XC+1)
               TT$=TT$+" "
               TT=Len(TT$)
               TT1$=Left$(N4$(YC),XC-2)
               N4$(YC)=TT1$+TT$
               If N20(YC)=XC-1
                  Dec XC
                  N4$(YC)=Left$(N4$(YC),N20(YC)-1)+"."+Right$(N4$(YC),N5(YC)-N20(YC))
               End If
            End If
            If N20(YC)>XC
               TYU$=Left$(N4$(YC),N20(YC)-1)
               TT$=Right$(TYU$,Len(TYU$)-XC+1)
               TT$=TT$+" "
               TT=Len(TT$)
               TT1$=Left$(TYU$,XC-2)
               TYU$=TT1$+TT$
               N4$(YC)=TYU$+"."+Right$(N4$(YC),N5(YC)-N20(YC))
            End If
         End If
         '** date & time **
         If(N6$(YC)="D") and(XC=2)
            N4$(YC)=Mid$(N4$(YC),2,1)+" /"+Mid$(N4$(YC),4,5)
         End If
         If(N6$(YC)="T") and(XC=2)
            N4$(YC)=Mid$(N4$(YC),2,1)+" :"+Mid$(N4$(YC),4,5)
         End If
         '
         If((N6$(YC)="D") or(N6$(YC)="T")) and(XC=4)
            N4$(YC)=Left$(N4$(YC),3)+Mid$(N4$(YC),5,1)+" "+Right$(N4$(YC),3)
            Gosub P2
            Dec XC
         End If
         If((N6$(YC)="D") or(N6$(YC)="T")) and(XC=5)
            N4$(YC)=Left$(N4$(YC),3)+Mid$(N4$(YC),5,1)+" "+Right$(N4$(YC),3)
         End If
         If((N6$(YC)="D") or(N6$(YC)="T")) and(XC=7)
            N4$(YC)=Left$(N4$(YC),6)+Mid$(N4$(YC),8,1)+" "
            Gosub P2
            Dec XC
         End If
         If((N6$(YC)="D") or(N6$(YC)="T")) and(XC=8)
            N4$(YC)=Left$(N4$(YC),6)+Mid$(N4$(YC),8,1)+" "
         End If
         Gosub P2
         Dec XC
         K$="" : K=0 : S=0
      End If
      '
      If(K=8) and(XC=1)
         K$="" : K=0 : S=0
      End If
      '
      If((S>79) and(S<90)) or(K=9)
         K$="" : K=0 : S=0
      End If
      '
      If K>0
         If(N6$(YC)="A")
            If((K<65) or(K>90)) and((K<97) or(K>122)) and(K<>32)
               K$="" : K=0 : S=0
            End If
         End If
         If(N6$(YC)="N")
            If((K<48) or(K>57)) and(K<>46) and(K<>32)
               K$="" : K=0 : S=0
            End If
         End If
         If(N6$(YC)="D") or(N6$(YC)="T")
            If(K<48) or(K>57)
               K$="" : K=0 : S=0
            End If
         End If
      End If
      '
      If K>0
         If(N20(YC)>0) and(K$=".")
            T1$=Left$(N4$(YC),N20(YC)-1)
            NVAL[T1$]
            V=V#
            T1$=Right$(Str$(V),Len(Str$(V))-1)
            T1=Len(T1$)
            If T1<N20(YC)-1
               T1$=Space$(N20(YC)-T1-1)+T1$+"."
            End If
            N4$(YC)=T1$+Right$(N4$(YC),N5(YC)-N20(YC))
            Gosub P2
            XC=N20(YC)
         End If
         If(N0(YC)=0) or(K$=" ")
            Locate N2(YC)+XC,N3(YC) : Inverse On : Print K$
         End If
         If(N0(YC)=1) and(K$<>" ")
            Locate N2(YC)+XC,N3(YC) : Inverse On : Print Left$(N32$,1)
         End If
         If(N6$(YC)<>"D") and(N6$(YC)<>"T") and(N20(YC)=0)
            D1$=N4$(YC)
            T1$=Right$(D1$,N5(YC)-XC+1)
            T2$=Left$(T1$,Len(T1$)-1)
            T3$=Left$(D1$,XC-1)
            N4$(YC)=T3$+K$+T2$
         End If
         If(N6$(YC)="D") or(N6$(YC)="T") or(N20(YC)>0)
            D1$=N4$(YC)
            T1$=Right$(D1$,N5(YC)-XC)
            T2$=Left$(T1$,Len(T1$)-1)
            T3$=Left$(D1$,XC-1)
            N4$(YC)=T3$+K$+T1$
         End If
         Gosub P2
         K$="" : K=0 : S=0
         Inc XC
         If N6$(YC)="D"
            If Mid$(N4$(YC),XC,1)="/"
               Gosub P2
               Inc XC
            End If
         End If
         If N6$(YC)="T"
            If(Mid$(N4$(YC),XC,1)=":") or(Mid$(N4$(YC),XC,1)=".")
               Gosub P2
               Inc XC
            End If
         End If
         If N20(YC)>0
            If Mid$(N4$(YC),XC,1)="."
               Gosub P2
               Inc XC
            End If
         End If
         If XC>N5(YC)
            K$=Chr$(13) : K=13
            XC=N5(YC)
         End If
      End If
      '
      Gosub P3
   Wend
   Inverse Off
   Paper 0
   Pen 2
   CHANGEMADE=1
   For A=1 To N31
      NR$(A)=N4$(A)
      If N19(A)=1
         T$=NR$(A)
         L=Len(T$)
         If L>0
            For B=L To 1 Step -1
               Exit If Mid$(T$,B,1)<>" "
            Next B
            If B=>1
               T$=Left$(T$,B)
            Else
               T$=""
            End If
         End If
         NR$(A)=T$
      End If
      NVAL[NR$(A)]
      NR#(A)=V#
   Next A
   Pop Proc
   P1:
   If XC>0
      If(N0(YC)=0) or(Mid$(N4$(YC),XC,1)=" ")
         Locate N2(YC)+XC,N3(YC) : Paper 0 : Pen 2 : Print Mid$(N4$(YC),XC,1)
      End If
      If(XC<=N5(YC)) and(N0(YC)=1) and(Mid$(N4$(YC),XC,1)<>" ")
         Locate N2(YC)+XC,N3(YC) : Paper 0 : Pen 2 : Print Left$(N32$,1)
      End If
   End If
   Return
   P2:
   If(N0(YC)=0)
      Paper 0 : Pen 2 : Locate N2(YC)+1,N3(YC) : Print N4$(YC)
   End If
   If(N0(YC)=1)
      Paper 0 : Pen 2 : Locate N2(YC)+1,N3(YC)
      For AA=1 To Len(N4$(YC))
         If Mid$(N4$(YC),AA,1)<>" "
            Locate N2(YC)+AA,N3(YC) : Print N32$
         Else
            Locate N2(YC)+AA,N3(YC) : Print " "
         End If
      Next AA
   End If
   Return
   P3:
   If(N0(YC)=0) or(Mid$(N4$(YC),XC,1)=" ")
      Paper 1 : Pen 3 : Locate N2(YC)+XC,N3(YC) : Print Mid$(N4$(YC),XC,1) : Paper 0 : Rem Inverse On
   End If
   If(N0(YC)=1) and(Mid$(N4$(YC),XC,1)<>" ")
      Paper 1 : Pen 3 : Locate N2(YC)+XC,N3(YC) : Print Left$(N32$,1) : Paper 0 : Rem Inverse On
   End If
   Paper 0 : Pen 2 : Inverse Off
   Return
   VDATE:
   VDATE[N4$(YC)]
   EF=N38
   Return
   VTIME:
   VTIME[N4$(YC)]
   EF=N38
   Return
   MOUSE_CO:
   XM=X Mouse
   YM=Y Mouse
   MXC=X Screen(XM)/8
   MYC=Y Screen(YM)/8
   For ABC=1 To N31
      If(N3(ABC)=MYC) and(MXC-N2(ABC)<=N5(ABC)) and(MXC-N2(ABC)>0)
         CHM=0 : Rem ** NO CHANGE MADE **
         If YC<>ABC
            CHM=1
         End If
         If XC<>MXC-N2(ABC)
            CHM=1
         End If
         If CHM=1
            Gosub P1
            YC=ABC : XC=MXC-N2(ABC)-1
            If N6$(YC)="F"
               XC=1
            End If
            K$=Chr$(28)
         End If
      End If
   Next ABC
   Return
   E7:
End Proc
Procedure UNREAD
   For A=1 To 50
      N1$(A)=""
      NR$(A)=""
      N4$(A)=""
      N0(A)=0
      N20(A)=0
   Next A
   N31=0
End Proc
Procedure TINP[X,Y,M$,T$,L,T1$,TT$]
   On Error Proc PERROR
   Resume Label E8
   If Len(T$)>L
      T$=Left$(T$,L)
   End If
   T1$=Upper$(T1$)
   TT$=Upper$(TT$)
   Inc N31
   Rem ** check for trim **
   FOUND$="T"
   FOUND=Instr(TT$,FOUND$)
   If FOUND<>0
      N19(N31)=1
   Else
      N19(N31)=0
   End If
   FOUND$="P"
   FOUND=Instr(TT$,FOUND$)
   If FOUND<>0
      N0(N31)=1
   Else
      N0(N31)=0
   End If
   Rem ** print text **
   Pen 2
   Locate X,Y
   Print M$;
   Paper 0
   Pen 2
   XC=X Curs
   Locate XC,Y : Print Space$(L)
   Rem ** validate time **
   If T1$="T"
      L=8
      VTIME[T$]
      EF=N38
      If EF=0
         T$=Right$(Str$(HH),2)+":"+Right$(Str$(MM),2)+"."+Right$(Str$(SS),2)
         If HH<10
            T$="0"+Right$(T$,7)
         End If
      Else
         T$="00:00.00"
      End If
   End If
   Rem ** validate date **
   If T1$="D"
      L=8
      VDATE[T$]
      EF=N38
      If EF=1
         T$="  /  /  "
      End If
   End If
   Rem ** turn text upper case **
   FOUND$="U"
   FOUND=Instr(TT$,FOUND$)
   If FOUND<>0
      T$=Upper$(T$)
      N7$(N31)="U"
   Else
      N7$(N31)=""
   End If
   Rem ** use a filter with the text **
   If T1$="F"
      L=1
      T$=Left$(T$,1)
      IT=Instr(N1$(N31),T$)
      If IT=0
         T$=" "
      End If
   End If
   XL=Instr(N1$(N31),T$)
   If(XL<>0) and(T1$="F")
      Locate XC,Y
      Print T$
   End If
   Inverse Off
   Rem ** put a box around the input box **
   Paper 0
   Pen 3
   FOUND$="B"
   FOUND=Instr(TT$,FOUND$)
   If FOUND<>0
      MM=Len(M$)
      IBOX[X+MM-1,Y-1,X+MM+L,Y+1]
   End If
   Paper 0
   Pen 2
   Rem ** check for a decimal point **
   If T1$="N"
      FOUND$="."
      FOUND=Instr(T$,FOUND$)
      If FOUND<>0
         Fix(N42)
         NVAL[T$]
         T#=V#
         T$=Str$(T#)
         T$=Right$(T$,Len(T$)-1)
         T$=Left$(T$,FOUND+N42)
         TL=Len(T$)
         If TL<L
            T$=Space$(L-TL)+T$
         End If
         If TL>L
            T$=Right$(T$,L)
         End If
         FOUND$="."
         FOUND=Instr(T$,FOUND$)
         N20(N31)=FOUND
         Fix(8)
      End If
   End If
   Rem *******************************
   N32$=Left$(N32$,1)
   If T1$<>"F"
      If N0(N31)=1
         For AA=1 To Len(T$)
            Locate XC+AA-1,Y
            If((Mid$(T$,AA,1)<>" ") and(Len(T$)>0))
               Print N32$
            Else
               Print " "
            End If
         Next AA
      Else
         Locate XC,Y
         Print T$;
      End If
   End If
   N2(N31)=XC-1
   N3(N31)=Y
   D1$=String$(" ",L)
   D2=Len(T$)
   Left$(D1$,D2)=T$
   N4$(N31)=D1$
   N5(N31)=L
   N6$(N31)=T1$
   E8:
End Proc
Procedure NINP[X,Y,M$,T#,L,DP,TT$]
   N42=DP
   LL=Len(Str$(T#))-1
   T$=Right$(Str$(T#),LL)
   If DP>0
      FOUND$="."
      FOUND=Instr(T$,FOUND$)
      If FOUND=0
         T$=T$+".0"
      End If
   End If
   TINP[X,Y,M$,T$,L,"n",TT$+"t"]
   N42=0
End Proc
Procedure FILT[T$]
   N1$(N31+1)=T$
End Proc
Procedure TBROWSE[NUM,T$]
   On Error Proc PERROR
   Resume Label E9
   X=N2(NUM)
   Y=N3(NUM)
   L=N5(NUM)
   LLL=L-Len(T$)
   If Len(T$)>L
      T$=Left$(T$,L)
   End If
   If LLL>0
      T$=T$+Space$(LLL)
   End If
   If T$=""
      T$=Space$(L)
   End If
   T1$=N6$(NUM)
   FOUND$="P"
   FOUND=Instr(TT$,FOUND$)
   If FOUND<>0
      N0(NUM)=1
   End If
   Paper 0
   Pen 2
   XC=X+1
   If T1$="D"
      L=8
      VDATE[T$]
      EF=N38
      '
      If(Mid$(T$,3,1)<>"/") or(Mid$(T$,6,1)<>"/") or(EF=1)
         T$="  /  /  "
      End If
   End If
   FOUND$="U"
   FOUND=Instr(TT$,FOUND$)
   If FOUND<>0
      T$=Upper$(T$)
      N7$(NUM)="U"
   End If
   If T1$="F"
      L=1
      T$=Left$(T$,1)
   End If
   XL=Instr(N1$(NUM),T$)
   If(XL<>0) and(T1$="F")
      Locate XC,Y
      Print T$
   End If
   N32$=Left$(N32$,1)
   If T1$<>"F"
      If N0(NUM)=1
         For AA=1 To Len(T$)
            Locate XC+AA-1,Y
            If((Mid$(T$,AA,1)<>" ") and(Len(T$)>0))
               Print N32$
            Else
               Print " "
            End If
         Next AA
      Else
         Locate XC,Y
         Print T$;
      End If
   End If
   D1$=String$(" ",L)
   D2=Len(T$)
   Left$(D1$,D2)=T$
   N4$(NUM)=D1$
   Inverse Off
   Paper 0
   Pen 2
   E9:
End Proc
Procedure NBROWSE[NUM,T#]
   If Int(T#)<>T#
      L=Len(Str$(T#))-1
      T$=Right$(Str$(T#),L)
   Else
      T=T#
      L=Len(Str$(T))-1
      T$=Right$(Str$(T),L)
   End If
   TBROWSE[NUM,T$]
End Proc
Procedure TITLE[T1$,T2$,T3$,B,Y]
   Paper 0
   Ink 2
   Pen 2
   SH=(Screen Height-14)/8
   SH=SH
   If B>0
      NUM=202+Screen
      N$=Right$(Str$(X1),2)
      N$=N$+Right$(Str$(Y1),2)
      N$=N$+Right$(Str$(X2),2)
      N$=N$+Right$(Str$(Y2),2)
      N$=N$+"1"
      N$=N$+Right$(Str$(Len(T$)),2)
      N$=N$+T$
      If NUM<51
         N13$(Screen,NUM)=N$
      End If
      Ink 2,0
      Set Zone NUM,(2*8)+2,((1+Y)*8)+2 To(82*8)+4,(3*8)-3
   End If
   '
   XX1=(2*8)+2
   YY1=((1+Y)*8)
   XX2=(82*8)+4
   YY2=(3*8)-3
   '1st corner
   Ink 3
   Draw XX1,YY1+0 To XX2-0,YY1
   Draw XX1+0,YY1 To XX1+0,YY2-1
   '2nd corner
   Ink 2
   Draw XX1+0,YY2-1 To XX2,YY2-1
   Draw XX2-0,YY2-1 To XX2-0,YY1
   Ink 0
   Paper 0 : Pen 2
   '
   Ink 1
   Paint 30,12+(Y*8),1
   Paper 1
   Pen 2
   Ink 2,1
   Text 24,14+(Y*8)+3,T1$
   TL=Text Length(T2$)
   Text 328-(TL/2),14+(Y*8)+3,T2$
   Text 656-Text Length(T3$),14+(Y*8)+3,T3$
   Paper 0
   Pen 2
   Ink 2,0
   NBOX[2,2+Y,82,SH,"bo"]
End Proc
Procedure RADIO[NUM,X,Y,T$,V$,STRT]
   On Error Proc PERROR
   Resume Label E10
   If NUM<1 or NUM>10
      Pop Proc
   End If
   If Right$(T$,2)<>"||"
      T$=T$+"||"
   End If
   SPAC=N35+1
   CNT=1
   NW=0
   For A=1 To 10
      N8$(NUM,A)=""
   Next A
   For A=1 To Len(T$)
      If Mid$(T$,A,2)<>"||" and CNT<10
         N8$(NUM,CNT)=N8$(NUM,CNT)+Mid$(T$,A,1)
      End If
      If Mid$(T$,A,2)="||" and CNT<10
         OL=Len(N8$(NUM,CNT))
         ' ** check to see if length is more than biggest one
         If OL>NW
            NW=OL
         End If
         Inc CNT
         Inc A
      End If
   Next A
   If Upper$(V$)<>"H"
      ' *************************************************
      ' ** now right justify all text and print verticaly
      ' *************************************************
      Dec CNT
      For AA=1 To CNT
         N8$(NUM,AA)=Space$(NW-Len(N8$(NUM,AA)))+N8$(NUM,AA)
         Locate X,Y+(AA*SPAC-(SPAC-1)) : Print N8$(NUM,AA)
      Next AA
      For AA=1 To CNT
         LL=Len(N8$(NUM,AA))+1
         N9(NUM,AA)=LL+X+1
         N10(NUM,AA)=Y+1
         Paste Icon(LL*8)+X*8,Y*8+8,1
         '
         XN=(50+((NUM-1)*10))+AA
         XC=(LL*8)+X*8
         YC=(Y*8+8)
         Set Zone XN,XC,YC To XC+16,YC+8
         Y=Y+SPAC
      Next AA
      RADIO(NUM)=STRT
      Pen 2
      Paste Icon N9(NUM,STRT)*8-8,N10(NUM,STRT)*8,2
   End If
   If Upper$(V$)="H"
      ' ***************************************************
      ' ** now right justify all text and print horizontaly
      ' ***************************************************
      Dec X
      Dec CNT
      For AA=1 To CNT
         N8$(NUM,AA)=Space$(NW-Len(N8$(NUM,AA)))+N8$(NUM,AA)
         LE=Len(N8$(NUM,AA))
         Locate X+(AA*(LE+5))-LE-2-(CNT-AA),Y : Print N8$(NUM,AA)
      Next AA
      OFSET=3-CNT
      For AA=1 To CNT
         LL=Len(N8$(NUM,AA))+1
         N9(NUM,AA)=LL+X+2+OFSET
         N10(NUM,AA)=Y
         Paste Icon N9(NUM,AA)*8-8,Y*8,1
         '
         XN=(50+((NUM-1)*10))+AA
         '         XC=(LL*8)+X*8
         XC=N9(NUM,AA)*8-8
         YC=(Y*8)
         Set Zone XN,XC,YC To XC+16,YC+8
         X=X+(LL+5)
      Next AA
      RADIO(NUM)=STRT
      Pen 2
      Paste Icon N9(NUM,STRT)*8-8,N10(NUM,STRT)*8,2
   End If
   Paper 0
   Pen 2
   E10:
End Proc
Procedure CYCLIC[NUM,X,Y,M$,T$,STRT]
   On Error Proc PERROR
   Resume Label E11
   '***** if num is out of range then exit procedure *****
   If NUM<1 or NUM>49
      Pop Proc
   End If
   '******************************************************
   '
   '***** clear old variables *****
   For A=0 To 10
      N18$(NUM,A)=""
   Next A
   '*******************************
   Paper 0 : Pen 2
   Locate X,Y : Print M$
   X=X+Len(M$)+1
   TX=X*8+8
   TY=Y*8
   Paste Icon TX,TY,3
   BN=100+NUM-1
   If Right$(T$,2)<>"||"
      T$=T$+"||"
   End If
   CNT=1
   NW=0
   For A=1 To Len(T$)
      If Mid$(T$,A,2)<>"||" and CNT<10
         N18$(NUM,CNT)=N18$(NUM,CNT)+Mid$(T$,A,1)
      End If
      If Mid$(T$,A,2)="||" and CNT<10
         OL=Len(N18$(NUM,CNT))
         ' ** check to see if length is more than biggest one
         If OL>NW
            NW=OL
         End If
         Inc CNT
         Inc A
      End If
   Next A
   For AA=1 To CNT
      N18$(NUM,AA)=Space$(NW-Len(N18$(NUM,AA)))+N18$(NUM,AA)
   Next AA
   N18$(NUM,0)=Space$(NW)
   N11(NUM)=CNT-1
   BBOX[BN,X,Y-1,X+NW+5,Y+1,""]
   N16(NUM)=X+4
   N17(NUM)=Y
   Locate N16(NUM),N17(NUM) : Print N18$(NUM,STRT)
   CYCLIC(NUM)=STRT
   E11:
End Proc
Procedure CHECKBOX[NUM,X,Y,T$,TICK]
   On Error Proc PERROR
   Resume Label E12
   If NUM<1 or NUM>50
      Pop Proc
   End If
   Paper 0 : Ink 2
   Locate X,Y : Print T$
   L=Len(T$)
   BBOX[NUM+150,X+L+2,Y-1,X+L+5,Y+1,""]
   If TICK=1
      CHECKBOX(NUM)=1
      Paste Icon(X+L+3)*8,Y*8,4
      N12(0,NUM)=(X+L+3)*8
      N12(1,NUM)=Y*8
   Else
      CHECKBOX(NUM)=0
      N12(0,NUM)=(X+L+3)*8
      N12(1,NUM)=Y*8
   End If
   E12:
End Proc
Procedure NSCREEN[NUM,HEIGHT,Y_OFFSET,_COLS]
   On Error Proc PERROR
   Resume Label E13
   '*************************************************
   '** check to see if screen has to be interlaced **
   If HEIGHT<100
      _LACE=0
   Else
      _LACE=1
      HEIGHT=HEIGHT-100
   End If
   '*****************************************************
   '** check to see if a valid colour has been entered **
   _COLOURS=4
   If _COLS=4 or _COLS=8 or _COLS=16
      _COLOURS=_COLS
   End If
   '*****************************************************
   HEIGHT=HEIGHT*8
   HEIGHT=HEIGHT+15
   If _LACE=0
      Screen Open NUM,675,HEIGHT,_COLOURS,Hires
   Else
      Screen Open NUM,675,HEIGHT,_COLOURS,Hires+Laced
   End If
   Screen Offset NUM,,8
   Screen Display NUM,,Y_OFFSET,,HEIGHT-20
   Flash Off
   Curs Off
   Get Sprite Palette
   Palette $999,$458,$0,$FFF
   Cls 0
   Paper 0
   Pen 2
   Palette $999,$999,$999,$999
   Change Mouse 12
   '
   Reserve Zone 270
   E13:
End Proc
Procedure VTIME[T$]
   NVAL[Left$(T$,2)]
   HH=V#
   NVAL[Mid$(T$,4,2)]
   MM=V#
   NVAL[Right$(T$,2)]
   SS=V#
   EF=0 : Rem er = error flag
   If HH<1 or HH>24
      EF=1
   End If
   If MM<0 or MM>59
      EF=1
   End If
   If SS<0 or SS>59
      EF=1
   End If
   N38=EF
End Proc
Procedure VDATE[T$]
   NVAL[Left$(T$,2)]
   DD=V#
   NVAL[Mid$(T$,4,2)]
   MM=V#
   NVAL[Right$(T$,2)]
   YY=V#
   EF=0
   If YY<1
      EF=1
   End If
   YY$=Str$(YY)+".0"
   NVAL[YY$]
   Y1#=V#/4
   NVAL[YY$]
   Y2=Int(V#)/4
   If Y2=Y1#
      LYEAR=1
   End If
   If Y2<>Y1#
      LYEAR=0
   End If
   If(DD<1) or(DD>31)
      EF=1
   End If
   If(MM<1) or(MM>12)
      EF=1
   End If
   If(MM=1) or(MM=3) or(MM=5) or(MM=7) or(MM=8) or(MM=10) or(MM=12)
      If(DD<1) or(DD>31)
         EF=1
      End If
   End If
   If(MM=4) or(MM=6) or(MM=9) or(MM=11)
      If(DD<1) or(DD>30)
         EF=1
      End If
   End If
   If(MM=2) and(LYEAR=0)
      If(DD<1) or(DD>28)
         EF=1
      End If
   End If
   If(MM=2) and(LYEAR=1)
      If(DD<1) or(DD>29)
         EF=1
      End If
   End If
   N38=EF
End Proc
Procedure CLEAR
   Reset Zone
   Cls 0
   UNREAD
   BUTTON=-1
End Proc
Procedure NMENU[STRT,X,Y,T$,XN36,YN36]
   On Error Proc PERROR
   Resume Label E14
   Inc XN36
   Rem **** clear old menu ****
   For A=1 To 10
      For B=1 To 10
         N15$(A,B)=""
      Next B
   Next A
   Rem **** find number of Y's ****
   L=Len(T$)
   YW=1
   For LP=1 To L
      If Mid$(T$,LP,2)="\\"
         Inc YW
      End If
   Next LP
   Rem **** find width of X's ****
   BIGX=0
   XX=1
   For LP=1 To L
      If Mid$(T$,LP,2)="||"
         Inc XX
         If XX>BIGX
            BIGX=XX
         End If
      End If
      If Mid$(T$,LP,2)="\\"
         XX=1
      End If
   Next LP
   XX=1
   YY=1
   X1=X
   Y1=Y
   BIGGEST=0
   '
   For A=1 To L
      LLL=Len(N15$(XX,YY))
      M$=Upper$(N15$(XX,YY))
      If(Mid$(T$,A,2)="||") or(Mid$(T$,A,2)="\\")
         If Left$(M$,9)="#NOCLICK#"
            LLL=Len(M$)-9
         End If
         If Left$(M$,7)="#BLANK#"
            LLL=Len(M$)-7
         End If
         If(M$="#UP#") or(M$="#DOWN#") or(M$="#LEFT#") or(M$="#RIGHT#")
            LLL=2
         End If
         If LLL>BIGGEST
            BIGGEST=LLL
         End If
      End If
      If Mid$(T$,A,2)="||"
         Inc XX
      End If
      If Mid$(T$,A,2)="\\"
         XX=1
         Inc YY
      End If
      If(Mid$(T$,A,1)<>"|") and(Mid$(T$,A,1)<>"\")
         N15$(XX,YY)=N15$(XX,YY)+Mid$(T$,A,1)
      End If
      LLL=Len(N15$(XX,YY))
      M$=Upper$(N15$(XX,YY))
   Next A
   M$=Upper$(N15$(XX,YY))
   LLL=Len(M$)
   If Left$(M$,9)="#NOCLICK#"
      LLL=Len(M$)-9
   End If
   If Left$(M$,7)="#BLANK#"
      LLL=Len(M$)-7
   End If
   If(M$="#UP#") or(M$="#DOWN#") or(M$="#LEFT#") or(M$="#RIGHT#")
      LLL=2
   End If
   If LLL>BIGGEST
      BIGGEST=LLL
   End If
   '
   YCO=Y1
   For Y=1 To YW
      XCO=X1
      For X=1 To BIGX
         BBOX[STRT,XCO,YCO,XCO+BIGGEST+1,YCO+2,N15$(X,Y)]
         Inc STRT
         XCO=XCO+BIGGEST+1+XN36
      Next X
      YCO=YCO+2+YN36
   Next Y
   E14:
End Proc
Procedure REQUEST[T$,M$,LIST$]
   SCR=Screen
   NSCREEN[7,10,46,4]
   NBOX[3,3,81,7,"bi"]
   TITLE["",T$,"",1,0]
   '
   M$=M$+"||"
   MC=0
   ST=1
   Ink 2,0
   For A=1 To Len(M$)
      If Mid$(M$,A,2)="||"
         Inc MC
         If MC<4
            N22$(1,MC)=Mid$(M$,ST,A-ST)
            Add A,2
            ST=A
         End If
      End If
   Next A
   '
   '
   LIST$=LIST$+"||"
   LC=0
   ST=1
   BIGR=0
   For A=1 To Len(LIST$)
      If Mid$(LIST$,A,2)="||"
         Inc LC
         If LC<4
            N22$(2,LC)=Mid$(LIST$,ST,A-ST)
            If Len(N22$(2,LC))>BIGR
               BIGR=Len(N22$(2,LC))
            End If
            Add A,2
            ST=A
         End If
      End If
   Next A
   Add BIGR,2
   If MC>3
      MC=3
   End If
   If LC>3
      LC=3
   End If
   If MC=1
      X=(3*8)+4
      Y=((3+1)*8)+6+8
      L=Text Length(N22$(1,1))
      Text 328-(L/2),Y,N22$(1,1)
   End If
   If MC=2
      For A=1 To 2
         X=(3*8)+4
         Y=((3+A)*8)+6+4
         L=Text Length(N22$(1,A))
         Text 328-(L/2),Y,N22$(1,A)
      Next A
   End If
   If MC=3
      For A=1 To 3
         X=(3*8)+4
         Y=((3+A)*8)+6
         L=Text Length(N22$(1,A))
         Text 328-(L/2),Y,N22$(1,A)
      Next A
   End If
   If LC=1
      BBOX[1,40-(BIGR/2),6,40+(BIGR/2),8,N22$(2,1)]
   End If
   If LC=2
      BBOX[1,4,7,4+BIGR,9,N22$(2,1)]
      BBOX[2,80-BIGR,7,80,9,N22$(2,2)]
   End If
   If LC=3
      BBOX[1,4,7,4+BIGR,9,N22$(2,1)]
      BBOX[2,40-(BIGR/2),7,40+(BIGR/2),9,N22$(2,2)]
      BBOX[3,80-BIGR,7,80,9,N22$(2,3)]
   End If
   '
   Set Pattern 2
   Ink 3,0
   Paint 22,22
   Ink 2,0
   Set Pattern 0
   '
   Y1=Y Hard(Screen)
   NFADE_IN
   BUTTON=0
   Do
      MZ=Mouse Zone
      If MZ=202+Screen and(Mouse Key=1 or Mouse Key=2)
         SC=Screen
         Limit Mouse X Hard(SC),40 To X Hard(SC)+(Screen Width/2),295
         Repeat
            Screen Display SC,,Y Mouse-5,,
            Wait Vbl
         Until Mouse Key=0
      End If
      If Mouse Key=1 or Mouse Key=2
         BUTTON=MZ
      End If
      If BUTTON>0 and BUTTON<50
         PRNT_BUTTON[BUTTON]
         Wait 10
         PRNT_BUTTON[BUTTON]
      End If
      Exit If BUTTON>0 and BUTTON<50
   Loop
   NFADE_OUT
   Screen Close 7
   Screen SCR
End Proc
Procedure MOUSE_TEST
   On Error Proc PERROR
   Resume Label E15
   CHANGEMADE=0
   LAST_VPOS=0
   LAST_HPOS=0
   If N33<=0
      BUTTON=0
   Else
      N33=0
   End If
   N37=Mouse Key
   MK_PRESSED=N37
   K=Key Shift
   K$=Upper$(Inkey$)
   If N37=1 or N37=2 or N39>0 or N40>0 or K<>0
      XM=X Mouse
      YM=Y Mouse
      MZ=Mouse Zone
      If(K$<>"") and(K=128)
         For A=1 To 50
            Exit If N30$(Screen,A)=K$
         Next A
         If A<51
            MZ=A
         End If
      End If
      If N39>0
         MZ=259+N39
      End If
      If N40>0
         MZ=259+N40+5
      End If
      Rem **** MULTI-READ ****
      If N31>0
         MXC=X Screen(XM)/8
         MYC=Y Screen(YM)/8
         For ABC=1 To N31
            If(N3(ABC)=MYC) and(MXC-N2(ABC)<=N5(ABC)) and(MXC-N2(ABC)>0)
               CHM=0 : Rem ** NO CHANGE MADE **
               If YC<>ABC
                  CHM=1
               End If
               If XC<>MXC-N2(ABC)
                  CHM=1
               End If
               If CHM=1
                  YC=ABC : XC=MXC-N2(ABC)-1
                  Clear Key
                  If(N6$(ABC)="D") and((XC=2) or(XC=5))
                     Inc XC
                  End If
               End If
            End If
         Next ABC
         If(XC>-1) and(YC>0)
            BUTTON=0
            NR[XC+1,YC]
            BUTTON=N33
         End If
      End If
      Rem **** test radio ****
      N=MZ
      Pen 2
      NUM=N
      If NUM>50 and NUM<100
         NUM=NUM-50
         NUM=NUM/10
         NUM=NUM+1
         N=N-50
         N=N-((NUM-1)*10)
         If N=0
            N=10
         End If
         B=RADIO(NUM)
         If NUM<11
            If B<>N
               Paste Icon N9(NUM,B)*8-8,N10(NUM,B)*8,1
               Paste Icon N9(NUM,N)*8-8,N10(NUM,N)*8,2
               RADIO(NUM)=N
            End If
         End If
         Paper 0
         Pen 2
      End If
      Rem **** test cyclic ****
      N=MZ
      Paper 0 : Pen 2
      NUM=N
      If NUM>99 and NUM<151
         NUM=N-99
         N=N-99
         '
         N34=CYCLIC(NUM)
         Inc N34
         If N34>N11(NUM) or N34=0
            N34=1
         End If
         CYCLIC(NUM)=N34
         Locate N16(NUM),N17(NUM) : Print N18$(NUM,0)
         Ink 1
         Paint N16(NUM)*8,N17(NUM)*8
         TX=(N16(NUM)*8)-32
         TY=N17(NUM)*8
         Paste Icon TX+8,TY,13
         NBOX[TX/8,(TY/8)-1,(TX/8)+Len(N18$(NUM,0))+5,(TY/8)+1,"bi"]
         Ink 0
         Pen 3 : Paper 1
         Locate N16(NUM),N17(NUM) : Print N18$(NUM,N34)
         Pen 2 : Paper 0
         Repeat
         Until Mouse Key=0 or Mouse Key=1
         Ink 0
         Paint(N16(NUM)*8)-4,N17(NUM)*8
         Paste Icon TX+8,TY,3
         NBOX[TX/8,(TY/8)-1,(TX/8)+Len(N18$(NUM,0))+5,(TY/8)+1,"bo"]
         Locate N16(NUM),N17(NUM) : Print N18$(NUM,N34)
         Ink 2
      End If
      Rem **** scrll menu ****
      If MZ=202+Screen
         SC=Screen
         Limit Mouse X Hard(SC),40 To X Hard(SC)+(Screen Width/2),295
         Repeat
            Screen Display SC,,Y Mouse-5,,
            Wait Vbl
         Until Mouse Key=0
      End If
      Rem **** rbutton ****
      BUTTON=0
      If MZ>0 and MZ<51
         BUTTON=MZ
         Repeat
         Until Mouse Key=0 or Mouse Key=1
         If Mouse Key=1
            Wait 5
         End If
      End If
      Rem **** test tick ****
      Paper 0 : Ink 2
      M=MZ
      If M>150 and M<202
         While Mouse Key<>0
         Wend
         NUM=M-150
         X=N12(0,NUM)/8
         Y=N12(1,NUM)/8
         If CHECKBOX(NUM)=1
            Locate X,Y : Print "  "
            CHECKBOX(NUM)=0
            Wait 5
            Pop Proc
         End If
         If CHECKBOX(NUM)=0
            Paste Icon X*8,Y*8,4
            CHECKBOX(NUM)=1
            Wait 5
            Pop Proc
         End If
      End If
      Rem **** slide box ****
      If M>219 and M<230
         N=M-219
         X1=N29(Screen,N,1)
         Y1=N29(Screen,N,2)
         X=X Screen(X Mouse)
         Y=Y Screen(Y Mouse)
         NUMX=(X-X1)/8
         NUMY=(Y-Y1)/8
         SBOXH(N)=NUMX
         SBOXV(N)=NUMY
      End If
      Rem **** slide bars ****
      If MZ>259 and MZ<271
         If N24(Screen,MZ-259)>1
            '
            OFFSET=259
            X=X Screen(X Mouse)
            Y=Y Screen(Y Mouse)
            MZ=MZ-OFFSET
            '
            If MZ<6
               '            HP=hpos(screen,MZ)
               If X-N27(Screen,MZ)>10 and X-N27(Screen,MZ)<23
                  SLIDEH[MZ,HPOS(Screen,MZ)]
                  FLAG=-1
               End If
               If X-N27(Screen,MZ)>22
                  SLIDEH[MZ,HPOS(Screen,MZ)+1]
                  FLAG=1
               End If
               LAST_HPOS=1
            Else
               VP=VPOS(Screen,MZ-5)
               If Y-N27(Screen,MZ)>4 and Y-N27(Screen,MZ)<12
                  SLIDEV[MZ-5,VPOS(Screen,MZ-5)]
                  FLAG=-1
               End If
               If Y-N27(Screen,MZ)>11
                  SLIDEV[MZ-5,VPOS(Screen,MZ-5)+1]
                  FLAG=1
               End If
               LAST_VPOS=1
            End If
            '
            If N39>0
               X=N14(Screen,MZ)+N41#+FLAG
               If X<N14(Screen,MZ)
                  X=N14(Screen,MZ)
               End If
               If X>N27(Screen,MZ)
                  X=N27(Screen,MZ)
               End If
               Y=ST_Y
               N39=0
            End If
            If N40>0
               Y=N25(Screen,MZ)+N41#+FLAG
               If Y<N25(Screen,MZ)
                  Y=N25(Screen,MZ)
               End If
               If Y>N27(Screen,MZ)
                  Y=N27(Screen,MZ)
               End If
               X=ST_X
               N40=0
            End If
            '
            If N28(Screen,MZ)=1
               XXX=N14(Screen,MZ)-X
               If XXX>N23#(Screen,MZ)*N24(Screen,MZ)
                  XXX=N23#(Screen,MZ)*N24(Screen,MZ)
               End If
               If XXX<1
                  '*** make xxx a positive number ***
                  XXX=XXX-XXX-XXX
               End If
               XXX=XXX*1
               POS=XXX/N23#(Screen,MZ)
               Inc POS
               If POS>N24(Screen,MZ)
                  POS=N24(Screen,MZ)
               End If
               HPOS(Screen,MZ)=POS
               X1=N14(Screen,MZ)+XXX+1
               Y1=N25(Screen,MZ)+1
               If N23#(Screen,MZ)<8.0
                  SS#=8.0
               Else
                  SS#=N23#(Screen,MZ)
               End If
               If X1>N27(Screen,MZ)-SS#-1
                  X1=N27(Screen,MZ)-SS#-1
               End If
               If N26(Screen,MZ)<>X1
                  Bob 0+MZ,X1+2,Y1+5,MZ+11
                  N26(Screen,MZ)=X1
               End If
            End If
            '
            If N28(Screen,MZ)=2
               YYY=Y-N25(Screen,MZ)
               If YYY>N23#(Screen,MZ)*N24(Screen,MZ)
                  YYY=N23#(Screen,MZ)*N24(Screen,MZ)
               End If
               If YYY<1
                  '*** make yyy a positive number ***
                  YYY=YYY-YYY-YYY
               End If
               YYY=YYY*1
               POS=YYY/N23#(Screen,MZ)
               Inc POS
               If POS>N24(Screen,MZ)
                  POS=N24(Screen,MZ)
               End If
               VPOS(Screen,MZ-5)=POS
               X1=N14(Screen,MZ)+1
               Y1=N25(Screen,MZ)+YYY+1
               If N23#(Screen,MZ)<8.0
                  SS#=8.0
               Else
                  SS#=N23#(Screen,MZ)
               End If
               If Y1>N27(Screen,MZ)-SS#+2
                  Y1=N27(Screen,MZ)-SS#+2
               End If
               If N26(Screen,MZ)<>Y1
                  Bob 0+MZ,X1+2,Y1,MZ+11
                  N26(Screen,MZ)=Y1
               End If
            End If
         End If
      End If
      '
   End If
   E15:
End Proc
'
'***** New Commands Since v2.02 *****
'
Procedure HOTKEY[NUM,K$]
   N30$(Screen,NUM)=Upper$(K$)
End Proc
Procedure DISABLE_BUTTON[NUM]
   Reset Zone NUM
End Proc
Procedure ENABLE_BUTTON[NUM]
   If(NUM>0) and(NUM<51)
      N$=N13$(Screen,NUM)
      NVAL[Mid$(N$,1,2)]
      X1=V#
      NVAL[Mid$(N$,3,2)]
      Y1=V#
      NVAL[Mid$(N$,5,2)]
      X2=V#
      NVAL[Mid$(N$,7,2)]
      Y2=V#
      NVAL[Mid$(N$,9,1)]
      STAT=V#
      NVAL[Mid$(N$,10,2)]
      L=V#
      T$=Right$(N$,L)
      N$=Right$(Str$(X1),2)
      N$=N$+Right$(Str$(Y1),2)
      N$=N$+Right$(Str$(X2),2)
      N$=N$+Right$(Str$(Y2),2)
      N$=N$+"0"
      N$=N$+Right$(Str$(Len(T$)),2)
      N$=N$+T$
      N13$(Screen,NUM)=N$
      PRNT_BUTTON[NUM]
      BBOX[NUM,X1,Y1,X2,Y2,T$]
   End If
End Proc
Procedure FSEL[SOURCE$,FILE$,TITLE$]
   FS[SOURCE$,FILE$,TITLE$,1]
End Proc
Procedure MFSEL[SOURCE$,TITLE$]
   FILENAMES=0
   For A=1 To 100 : FILENAME$(A)="" : Next A
   FS[SOURCE$,"",TITLE$,2]
End Proc
Procedure FS[SOURCE$,FILE$,TITLE$,TYPE]
   FILENAME$=FILE$
   Rem ** split wild card from source$ **
   If(Right$(SOURCE$,1)="/") or(Right$(SOURCE$,1)=":")
      WILDCARD$=""
   Else
      L=Len(SOURCE$)
      For A=L To 1 Step -1
         Exit If Mid$(SOURCE$,A,1)="/"
         Exit If Mid$(SOURCE$,A,1)=":"
      Next A
      If A>1
         WILDCARD$=Right$(SOURCE$,L-A)
         SOURCE$=Left$(SOURCE$,L)
      Else
         If Left$(SOURCE$,2)="*."
            WILDCARD$=SOURCE$
            SOURCE$=Dir$
         End If
      End If
   End If
   If SOURCE$<>""
      If Exist(SOURCE$)
         Dir$=SOURCE$
      Else
         SOURCE$=Dir$
      End If
   Else
      SOURCE$=Dir$
   End If
   SCR=Screen
   DEVDISP=0 : Rem ** devices are not currently beeing displayed **
   NSCREEN[7,16,46,4]
   HEIGHT=7
   XX=5
   YY=6
   WILDCARD$=Upper$(WILDCARD$)
   '
   UNREAD
   TINP[67,4,"",WILDCARD$,12,"b","tu"]
   UNREAD
   Rem ** set up areas for file requestor **
   For A=1 To HEIGHT
      XX1=(XX-1)*8 : YY1=(5+A)*8
      XX2=(XX+55)*8 : YY2=YY1+8
      Set Zone A+19,XX1,YY1 To XX2,YY2
   Next A
   '
   NMENU[8,66,3,"            ",0,0]
   IBOX[66,3,79,5]
   UNREAD
   TINP[67,4,"",WILDCARD$,12,"b","tu"]
   UNREAD
   NMENU[9,66,7,"OK\\   Parent   \\Quit",0,0]
   '
   TITLE["",TITLE$,"",1,0]
   IBOX[XX-1,3,XX+57,5]
   IBOX[XX-1,5,XX+55,13]
   UNREAD
   TINP[XX,14,"",FILE$,55,"b",""]
   IBOX[XX-1,13,XX+55,15]
   If TYPE=2
      UNREAD
   End If
   VSLIDE[5,56+XX,5,10,1]
   '
   NFADE_IN
   '
   Gosub _GETDIRECTORY
   Do
      Do
         MOUSE_TEST
         If CHANGEMADE
            FILENAME$=NR$(1)
         End If
         Exit If BUTTON<>0 or LAST_VPOS=1
      Loop
      If BUTTON>8 and BUTTON<12
         PRNT_BUTTON[BUTTON]
         Wait 10
         PRNT_BUTTON[BUTTON]
      End If
      '
      If LAST_VPOS=1
         SP=VPOS(Screen,5) : EP=SP+6
         If EP>CNT-1
            EP=CNT-1
            SP=EP-6
         End If
         For A=SP To EP
            If N21$(3,A)="Y"
               Pen 3
            Else
               Pen 2
            End If
            F$=N21$(0,A)+N21$(1,A)+N21$(2,A)
            Locate 0+XX,0+A-SP+YY : Print F$
            Pen 2
         Next A
      End If
      '
      If BUTTON=8
         DISABLE_BUTTON[8]
         UNREAD
         TINP[67,4,"",WILDCARD$,12,"b","tu"]
         NREAD
         ENABLE_BUTTON[8]
         IBOX[66,3,79,5]
         If(Left$(NR$(1),2)<>"*.") and(NR$(1)<>"")
            Locate 67,4 : Print Space$(12) : Locate 67,4 : Print Upper$(WILDCARD$)
            If TYPE=1
               UNREAD
               TINP[XX,14,"",FILE$,55,"b",""]
            End If
         Else
            WILDCARD$=NR$(1)
            Locate 67,4 : Print Space$(12) : Locate 67,4 : Print Upper$(WILDCARD$)
            If TYPE=1
               UNREAD
               TINP[XX,14,"",FILE$,55,"b",""]
            End If
            Gosub _GETDIRECTORY
         End If
      End If
      Rem ** ok **
      If BUTTON=9
         If TYPE=1
            F$=Dir$+FILENAME$
            L=Len(F$)
            For A=L To 1 Step -1
               Exit If Mid$(F$,A,1)<>" "
            Next A
            If A>0
               FILENAME$=Left$(F$,A)
               If Right$(FILENAME$,1)=":"
                  FILENAME$=""
               End If
            Else
               FILENAME$=""
            End If
         Else
            CNT=1 : FILENAMES=0
            For AQ=1 To 100
               If N21$(3,AQ)<>""
                  F$=N21$(1,AQ)
                  L=Len(F$)
                  For A=L To 1 Step -1
                     Exit If Mid$(F$,A,1)<>" "
                  Next A
                  If A>0
                     FILENAME$=Dir$+Left$(F$,A)
                     If Right$(FILENAME$,1)=":"
                        FILENAME$=""
                     End If
                  Else
                     FILENAME$=""
                  End If
                  If FILENAME$<>""
                     FILENAME$(CNT)=FILENAME$
                     Inc FILENAMES
                     Inc CNT
                  End If
               End If
            Next AQ
         End If
         NFADE_OUT : Screen Close 7 : Screen SCR : BUTTON=0
         Pop Proc
      End If
      '
      If BUTTON=10
         If Right$(Dir$,1)<>":"
            Dir$="/"
            Gosub _GETDIRECTORY
         End If
      End If
      '
      If BUTTON=11
         FILENAME$="" : NFADE_OUT : Screen Close 7 : Screen SCR : BUTTON=0 : UNREAD
         Pop Proc
      End If
      '
      Rem *** get devices ***
      If BUTTON=>20 and MK_PRESSED=2 and DEVDISP=1
         DEVDISP=0 : BUTTON=0
         Gosub _GETDIRECTORY
      End If
      If BUTTON=>20 and MK_PRESSED=2 and DEVDISP=0
         DEVDISP=1
         For AA=1 To 100
            N21$(0,AA)=" "
            N21$(1,AA)=Space$(46)
            N21$(2,AA)=Space$(8)
            N21$(3,AA)=""
         Next AA
         F$=Dev First$("")
         CNT=1
         While F$<>""
            Q$=Mid$(F$,2,6)
            If(Q$<>"C:    ") and(Q$<>"DEVS: ") and(Q$<>"FONTS:") and(Q$<>"L:    ") and(Q$<>"LIBS: ") and(Q$<>"S:    ") and(Q$<>"SYS:  ")
               N21$(0,CNT)=Left$(F$,1)
               N21$(1,CNT)=Mid$(F$,2,46)
               FT$=Right$(F$,8)
               For AA=8 To 1 Step -1
                  Exit If Mid$(FT$,AA,1)<>" "
               Next AA
               N21$(2,CNT)=Space$(8-AA)+Left$(FT$,AA)
               Inc CNT
            End If
            F$=Dev Next$
         Wend
         VSLIDE[5+100,56+XX,5,10,CNT-7]
         Paper 1
         Pen 2
         Ink 2,1
         T1$="Devs :"+Str$(CNT-1)+"    "
         T3$="         Disk Free : 0"
         Text 24,14+(Y*8)+3,T1$
         Text 656-Text Length(T3$),14+(Y*8)+3,T3$
         Paper 0
         Pen 2
         Ink 2,0
         STRT=1
         SP=1
         For A=1 To HEIGHT
            If A<=CNT
               F$=N21$(0,A)+N21$(1,A)+N21$(2,A)
               Locate 0+XX,0+A+YY-1 : Print F$
               EP=A
            Else
               Locate 0+XX,0+A+YY-1 : Print Space$(55)
            End If
         Next A
      End If
      '
      Rem ** get device name **
      If BUTTON>=20 and MK_PRESSED=1 and DEVDISP=1
         DEVDISP=0
         F$=(N21$(1,SP+BUTTON-20))
         For AA=Len(F$) To 1 Step -1
            Exit If Mid$(F$,AA,1)<>" "
         Next AA
         F$=Left$(F$,AA)
         Dir$=F$
         Gosub _GETDIRECTORY
         BUTTON=0
      End If
      '
      Rem ** get file name or change directory **
      If BUTTON>=20 and MK_PRESSED=1 and DEVDISP=0
         If N21$(0,SP+BUTTON-20)<>"*"
            If NR$(1)=N21$(1,SP+BUTTON-20) and TYPE=1
               F$=Dir$+FILENAME$
               L=Len(F$)
               For A=L To 1 Step -1
                  Exit If Mid$(F$,A,1)<>" "
               Next A
               If A>0
                  FILENAME$=Left$(F$,A)
               Else
                  FILENAME$=""
               End If
               NFADE_OUT : Screen Close 7 : Screen SCR : BUTTON=0
               Pop Proc
            End If
            '
            Rem ** print text on file requestor black or white **
            If(TYPE=2) and(N21$(3,SP+BUTTON-20)="")
               N21$(3,SP+BUTTON-20)="Y"
               Pen 3
               F$=N21$(0,SP+BUTTON-20)+N21$(1,SP+BUTTON-20)+N21$(2,SP+BUTTON-20)
               Locate 0+XX,0+BUTTON-20+YY : Print F$
               Pen 2
               Do
                  Exit If Mouse Key=0
               Loop
            Else
               N21$(3,SP+BUTTON-20)=""
               Pen 2
               F$=N21$(0,SP+BUTTON-20)+N21$(1,SP+BUTTON-20)+N21$(2,SP+BUTTON-20)
               Locate 0+XX,0+BUTTON-20+YY : Print F$
               Do
                  Exit If Mouse Key=0
               Loop
            End If
            '
            UNREAD
            FILENAME$=N21$(1,SP+BUTTON-20)
            NR$(1)=N21$(1,SP+BUTTON-20)
            If TYPE=1
               TINP[XX,14,"",N21$(1,SP+BUTTON-20),55,"b",""]
               Do
                  Exit If Mouse Key=0
               Loop
            End If
         Else
            F$=(N21$(1,SP+BUTTON-20))
            For AA=Len(F$) To 1 Step -1
               Exit If Mid$(F$,AA,1)<>" "
            Next AA
            F$=Left$(F$,AA)
            Dir$=F$
            Gosub _GETDIRECTORY
         End If
      End If
      '
   Loop
   NFADE_OUT: Screen Close 7 : Screen SCR : BUTTON=0
   Pop Proc
   '
   _GETDIRECTORY:
   For A=1 To HEIGHT
      Locate 0+XX,0+A+YY-1 : Print Space$(55)
   Next A
   Locate XX,4 : Print Space$(55)
   Locate XX,4 : Print Left$(Dir$+WILDCARD$,55)
   Locate XX+10,9 : Print "Please Wait - Reading Directory..."
   Set Dir 100,"*.info"
   For AA=1 To 100
      N21$(0,AA)=" "
      N21$(1,AA)=Space$(46)
      N21$(2,AA)=Space$(8)
      N21$(3,AA)=""
   Next AA
   F$=Dir First$(WILDCARD$)
   CNT=1
   FCNT=0 : Rem ** file count **
   While F$<>""
      N21$(0,CNT)=Left$(F$,1)
      N21$(1,CNT)=Mid$(F$,2,46)
      FT$=Right$(F$,8)
      For AA=8 To 1 Step -1
         Exit If Mid$(FT$,AA,1)<>" "
      Next AA
      N21$(2,CNT)=Space$(8-AA)+Left$(FT$,AA)
      If N21$(0,CNT)=" " : Inc FCNT : End If
      Inc CNT
      F$=Dir Next$
   Wend
   VSLIDE[5+100,56+XX,5,10,CNT-7]
   Paper 1
   Pen 2
   Ink 2,1
   T1$="Files :"+Str$(FCNT)+"   "
   T3$="       Disk Free :"+Str$(Dfree)
   Text 24,14+(Y*8)+3,T1$
   Text 656-Text Length(T3$),14+(Y*8)+3,T3$
   Paper 0
   Pen 2
   Ink 2,0
   STRT=1
   SP=1
   For A=1 To HEIGHT
      If A<=CNT
         If N21$(3,A)="Y"
            Pen 3
         Else
            Pen 2
         End If
         F$=N21$(0,A)+N21$(1,A)+N21$(2,A)
         Locate 0+XX,0+A+YY-1 : Print F$
         EP=A
      Else
         Locate 0+XX,0+A+YY-1 : Print Space$(55)
      End If
   Next A
   Pen 2
   Return
End Proc
Procedure HSLIDE[NUM,X1,Y1,WIDTH,_TOTAL#]
   If NUM>100 and NUM<106
      EDFLAG=1
      NUM=NUM-100
   End If
   '
   If NUM<1 or NUM>5
      Pop Proc
   End If
   '
   WIDTH=WIDTH-4
   X2=WIDTH
   HPOS(Screen,NUM)=1
   '
   If _TOTAL#<=0
      _TOTAL#=1
   End If
   OFFSET=259
   X1=X1*8
   X2=(X2*8)+X1
   Y1=Y1*8
   Ink 2
   Paste Bob X2+7,Y1+4,2
   If EDFLAG=0
      IBOX[X1/8,Y1/8,X2/8,(Y1+8)/8]
   End If
   Set Zone NUM+OFFSET,X1,Y1+5 To X2+36,Y1+7+5
   N27(Screen,NUM)=X2
   Ink 3
   SH=Screen Height-8
   SIZE#=(X2-X1)/_TOTAL#
   If SIZE#>8
      XX1=X1+Int(SIZE#)
      Ink 0
      Bar 0,0+SH To 0+Int(SIZE#),4+SH
      Ink 3
      Draw 0,0+SH To 0+Int(SIZE#),0+SH
      Draw 0,0+SH To 0,3+SH
      Ink 2
      Draw 1,3+SH To 0+Int(SIZE#),3+SH
      Draw 0+Int(SIZE#),0+SH To 0+Int(SIZE#),3+SH
      Get Bob NUM+11,0,0+SH To 0+Int(SIZE#)+1,4+SH
   End If
   If SIZE#<=8
      XX1=X1+8
      Draw 0,0+SH To 8,0+SH
      Draw 0,0+SH To 0,3+SH
      Ink 2
      Draw 1,3+SH To 8,3+SH
      Draw 8,0+SH To 8,3+SH
      Get Bob NUM+11,0,0+SH To 8+1,4+SH
   End If
   Bob 0+NUM,X1+2,Y1+1+5,NUM+11
   N23#(Screen,NUM)=SIZE#
   N14(Screen,NUM)=X1
   N25(Screen,NUM)=Y1
   N24(Screen,NUM)=_TOTAL#
   N26(Screen,NUM)=1
   N28(Screen,NUM)=1
End Proc
Procedure VSLIDE[NUM,X1,Y1,HEIGHT,_TOTAL#]
   If NUM>100 and NUM<106
      EDFLAG=1
      NUM=NUM-100
   End If
   If NUM<1 or NUM>5
      Pop Proc
   End If
   HEIGHT=HEIGHT-2
   Y2=HEIGHT
   VPOS(Screen,NUM)=1
   '
   If _TOTAL#<=0
      _TOTAL#=1
   End If
   OFFSET=259
   NUM=NUM+5
   X1=X1*8
   Y1=Y1*8
   Y2=(Y2*8)+Y1
   Ink 2
   Paste Bob X1,4+Y2,1
   If EDFALG=0
      IBOX[X1/8,Y1/8,(X1+8)/8,Y2/8]
   End If
   '
   Y1=Y1+5
   '
   Set Zone NUM+OFFSET,X1,Y1 To X1+12,Y2+20
   N27(Screen,NUM)=Y2
   Ink 3
   SW=1
   SIZE#=(Y2-Y1)/_TOTAL#
   If SIZE#>8
      XX1=X1+Int(SIZE#)
      Draw 0+SW,0 To 0+SW,0+Int(SIZE#)
      Draw 0+SW,0 To 5+SW,0
      Ink 2
      Draw 5+SW,1 To 5+SW,0+Int(SIZE#)
      Draw 0+SW,0+Int(SIZE#) To 5+SW,0+Int(SIZE#)
      Get Bob NUM+11,0+SW-1,0 To 6+SW,0+Int(SIZE#)+1
      Ink 0
      Bar 0+SW,0 To 5+SW,Int(SIZE#)
      Ink 2
   End If
   If SIZE#<=8
      XX1=X1+8
      Draw 0+SW,0 To 0+SW,7
      Draw 0+SW,0 To 5+SW,0
      Ink 2
      Draw 3+SW,1 To 5+SW,7
      Draw 0+SW,7 To 5+SW,7
      Get Bob NUM+11,0+SW-1,0 To 6+SW,7+1
      Ink 0
      Bar 0+SW,0 To 5+SW,7
      Ink 2
   End If
   Bob 0+NUM,X1+2,Y1+1,NUM+11
   N23#(Screen,NUM)=SIZE#
   N14(Screen,NUM)=X1
   N25(Screen,NUM)=Y1
   N24(Screen,NUM)=_TOTAL#
   N26(Screen,NUM)=1
   N28(Screen,NUM)=2
End Proc
Procedure SLIDEH[NUM,ITEM]
   N39=NUM
   N41#=(N23#(Screen,NUM)*ITEM)-N23#(Screen,NUM)
End Proc
Procedure SLIDEV[NUM,ITEM]
   N40=NUM
   N41#=(N23#(Screen,NUM+5)*ITEM)-N23#(Screen,NUM+5)
End Proc
Procedure SBOX[NUM,X1,Y1,X2,Y2,NUMH,NUMV]
   IBOX[X1,Y1,X2,Y2]
   Set Zone 219+NUM,X1*8,Y1*8+4 To X2*8+6,Y2*8+4
   N29(Screen,NUM,1)=X1*8
   N29(Screen,NUM,2)=Y1*8
   If NUMH>0
      HSLIDE[NUM,X1,Y2,X2-X1,NUMH]
   End If
   If NUMV>0
      VSLIDE[NUM,X2+1,Y1,Y2-Y1,NUMV]
   End If
   If NUMH>0 and NUMV>0
      NBOX[X2+1,Y2,X2+2,Y2+1,"o"]
   End If
End Proc
Procedure DELETE[F$]
   MFSEL[F$,"Delete File(s)"]
   If FILENAMES>0
      For A=1 To FILENAMES
         Kill FILENAME$(A)
      Next A
   End If
End Proc
Procedure SNOOZE_ON
   Change Mouse 13
End Proc
Procedure SNOOZE_OFF
   Change Mouse 12
End Proc
Procedure NFADE_HALF
   Fade 1,$999,$667,$444,$BBB
   Wait 30
End Proc
'
Procedure PERROR
   Resume Label
End Proc