AMOS PD CD/amospdcd.iso/476-500/apd497/source/source.ascii.pp/source.ascii

Text File | 1993-02-15 | 79KB | 2,875 lines

* This is the source code for Disc Register V1.20. It is useless to run,
* as it need several pictures and icons in different banks. The main
* purpose, is for you to se how i code my programs.
* As you may have noticed, I have a bad habit of not using any
* comments in my sources. This makes it awfully difficult to change
* anyting. That was how I coded before, but now, in my new tools,
* there are more comments than code, just wait and you'll se..

* Well, now it is up to you to get confused! Yours sincerly Pål Løberg.


Set Buffer 180
Break Off
On Error Proc MAINERROR
Request Wb
Set Dir 99,""
SETUP
Show On
View
MANT=1000
Dim X1(18),Y1(18),X2(18),Y2(18),POST$(1000)
Dim TEM$(5),PRT_DEF(6),LIN$(10),INFO$(3),MAGGE$(11)
Global MANT,POST$(),LIN$(),TEM$(),POSTER,POSTEN,MERRA
Global FILE_NAME$,RYDDE_EMNE,PRT_DEF(),PRT_LIN,FERPU
Global ERR_FLAG,LAGRET,BRK_FLAG,MESS_ON,LOMEM
Global SAV_FLAG,DEV$,VICON,INFO$(),MIMAGE,¥$,MAGGE$()
¥$=Chr$(255)
MANT=1000
DEV$=Left$(Dir$,Instr(Dir$,":"))
VICON=1
PRT_LIN=0


RYDDE_EMNE=1
FILE_NAME$="Untitled...."
POSTEN=0
POSTER=-1
LAGRET=True
VIS_DET
For I=0 To MANT
   POST$(I)=String$(¥$,11)
Next
For I=1 To 6
   If I=1 or I=3 or I=5
      PRT_DEF(I)=1
   Else
      PRT_DEF(I)=2
   End If
Next
INFO$(1)="Monday 1-1-1999"
INFO$(2)="Enter something."
INFO$(3)=""
DAT2:
Data 454,106,522,125,526,106,594,125
Data 454,127,522,146,526,127,594,146,454,148,522,167,526,148,594,167
Data 454,169,522,188,526,169,594,188,454,190,522,209,526,190,594,209
Data 454,211,522,230,526,211,594,230,454,106,522,125,454,127,522,146
Data 454,148,522,167,454,169,594,188,454,190,594,209,454,211,594,230
Restore DAT2
For I=1 To 18
   Read X1(I),Y1(I),X2(I),Y2(I)
Next
Reserve Zone 1
'
MENU_ONE:
Change Mouse 4
VIS_DET
Put Cblock 2
Reset Zone
Reserve Zone 12
For I=1 To 12
   Set Zone I,X1(I)+1,Y1(I)+1 To X2(I)-1,Y2(I)-1
Next
Do
   FYFY:
   VIS_DET
   If SAV_FLAG=True
      DASK[2]
      SAV_FLAG=False
   End If
   Repeat
      Z=Mouse Zone
      If Peek($BFEC01)=65
         INFO
      End If
   Until Mouse Key>0 and Z>0
   ARNOLD=Mouse Key
   If ARNOLD=2
      If Z>=7 and Z<>11
         Goto FYFY
      End If
   End If
   Ink 2,6
   Box X1(Z),Y1(Z) To X2(Z),Y2(Z)
   Repeat
      ZZ=Mouse Zone
   Until Mouse Key=0
   Ink 6
   Box X1(Z),Y1(Z) To X2(Z),Y2(Z)
   If ZZ=Z Then Exit
Loop
MOSJOEN:
If POSTER<0 and Z=5 and ARNOLD=2
   MESSAGE[String$("*",34),"THERE ARE NO ITEMS TO WORK WITH.","RECORD SOME FIRST.",String$("*",34),50*5]
   Goto MENU_ONE
End If
If Z>0
   If Z<>9 and Z<>12 and Z<>5 and Z<>11 or(Z=11 and ARNOLD=2)
      If POSTER<0
         MESSAGE[String$("*",34),"THERE ARE NO ITEMS TO WORK WITH.","RECORD SOME FIRST.",String$("*",34),50*5]
         Goto MENU_ONE
      End If
   End If
End If
If Z=1 and ARNOLD=1
   Dec POSTEN
   If POSTEN<0
      POSTEN=0
   End If
   VIS_DET : VIS_DEM
End If
If Z=1 and ARNOLD=2
   VINDUINN["JUMP HOW MANY ITEMS BACKWARDS?",342,127,438,282,X Mouse,Y Mouse,5,True,""]
   P$=Param$-" "
   _VAL[P$]
   HOPP=Param
   If HOPP>0
      Add POSTEN,-HOPP
      If POSTEN<0
         POSTEN=0
      End If
      VIS_DET : VIS_DEM
   End If
End If
If Z=2 and ARNOLD=2
   VINDUINN["JUMP HOW MANY ITEMS FORWARDS?",342,127,438,282,X Mouse,Y Mouse,5,True,""]
   P$=Param$-" "
   _VAL[P$]
   HOPP=Param
   If HOPP>0
      Add POSTEN,HOPP
      If POSTEN>POSTER
         POSTEN=POSTER
         If POSTEN<0
            POSTEN=0
         End If
      End If
      VIS_DET : VIS_DEM
   End If
End If
If Z=2 and ARNOLD=1
   Inc POSTEN
   If POSTEN>POSTER
      POSTEN=POSTER
      If POSTEN<0
         POSTEN=0
      End If
   End If
   VIS_DET : VIS_DEM
End If
If(Z=3 or Z=4) and ARNOLD=2
   VINDUINN["JUMP TO ITEM NUMBER #",342,127,438,282,X Mouse,Y Mouse,5,True,""]
   P$=Param$-" "
   _VAL[P$]
   HOPP=Param
   If HOPP>=0
      POSTEN=HOPP
      If POSTEN<0
         POSTEN=0
      End If
      If POSTEN>POSTER
         POSTEN=POSTER
         If POSTEN<0
            POSTEN=0
         End If
      End If
      VIS_DET : VIS_DEM
   End If
End If
If Z=3 and ARNOLD=1 Then POSTEN=0 : VIS_DET : VIS_DEM
If Z=4 and ARNOLD=1
   POSTEN=POSTER
   If POSTEN<0 : POSTEN=0 : End If
   VIS_DET : VIS_DEM
End If
If Z=5 and ARNOLD=1
   SJEKK_MINNE
   If SAV_FLAG=False
      If POSTER<MANT
         Inc POSTER
         POSTEN=POSTER
         LAGRET=False
         VIS_DET
         Hide On
         SPRE_DEM[POSTEN]
         RENS_OPP
         VIS_LITEN_TEKST["* * * ENTER THE NEW ITEM, PLEASE * * *"]
         INN[TEM$(1),40,9,1,0,0] : TEM$(1)=Param$
         INN[TEM$(2),40,9,3,0,-1] : TEM$(2)=Param$
         INN[TEM$(3),5,20,6,-1,0] : TEM$(3)=Param$
         INN[TEM$(4),5,20,8,0,-1] : TEM$(4)=Param$
         _FIXIT
         If TEM$(3)<>"1"
            INN[TEM$(5),5,32,8,0,-1] : TEM$(5)=Param$
         Else
            TEM$(5)=TEM$(4)
            Print At(32,8);TEM$(5)
         End If
         VIS_LITEN_TEKST["                                      "]
         Show On
         MANGE_INN
         P$=Param$
         SAMLE_DEM[POSTEN]
         VIS_LITEN_TEKST["* SORTING *"]
         Change Mouse 5
         Sort POST$(0)
         Change Mouse 4
         VIS_DET
         VIS_LITEN_TEKST["           "]
         Z=Asc(Left$(P$,1))
         ARNOLD=Asc(Right$(P$,1))
         If ARNOLD=2
            If Z>=7 and Z<>11
               ARNOLD=0
            End If
         End If
         If Z>0 and ARNOLD>0 : Goto MOSJOEN : End If
      Else
         MESSAGE[String$("*",34),"THERE ARE NO ROOM FOR NEW ITEMS","SAVE THEM AND START A NEW FILE.",String$("*",34),50*5]
         Goto MENU_ONE
      End If
   End If
End If
If Z=5 and ARNOLD=2
   SJEKK_MINNE
   If SAV_FLAG=False
      If POSTER<MANT
         OFDANDE=POSTEN
         Inc POSTER
         LAGRET=False
         POSTEN=POSTER
         POST$(POSTEN)=POST$(OFDANDE)
         VIS_DET
         Hide On
         SPRE_DEM[POSTEN]
         VIS_DET : VIS_DEM
         VIS_LITEN_TEKST[" * THE COPY MAY BE CHANGED NOW *  "]
         INN[TEM$(1),40,9,1,0,0] : TEM$(1)=Param$
         INN[TEM$(2),40,9,3,0,-1] : TEM$(2)=Param$
         INN[TEM$(3),5,20,6,-1,0] : TEM$(3)=Param$
         INN[TEM$(4),5,20,8,0,-1] : TEM$(4)=Param$
         _FIXIT
         If TEM$(3)<>"1"
            INN[TEM$(5),5,32,8,0,-1] : TEM$(5)=Param$
         Else
            TEM$(5)=TEM$(4)
            Print At(32,8);TEM$(5)
         End If
         VIS_LITEN_TEKST["                                  "]
         Show On
         MANGE_INN
         P$=Param$
         SAMLE_DEM[POSTEN]
         VIS_LITEN_TEKST["* SORTING *"]
         Change Mouse 5
         Sort POST$(0)
         Change Mouse 4
         VIS_LITEN_TEKST["           "]
         VIS_DET
         Z=Asc(Left$(P$,1))
         ARNOLD=Asc(Right$(P$,1))
         If ARNOLD=2
            If Z>=7 and Z<>11
               ARNOLD=0
            End If
         End If
         If Z>0 and ARNOLD>0 : Goto MOSJOEN : End If
      Else
         MESSAGE[String$("*",34),"THERE ARE NO ROOM FOR NEW ITEMS","SAVE THEM AND START A NEW FILE.",String$("*",34),50*5]
         Goto MENU_ONE
      End If
   End If
End If
If Z=6 and ARNOLD=1
   CPOST=POSTEN
   VINDUINN["PLEASE ENTER THE ITEM TO SEARCH FOR.",342,127,438,282,X Mouse,Y Mouse,38,False,""]
   VANGELIS$=Param$
   If VANGELIS$<>""
      VIS_LITEN_TEKST["* HUNTING *"]
      Change Mouse 5
      Sort POST$(0)
      Change Mouse 4
      _HUNT[VANGELIS$]
      P=Param
      VIS_LITEN_TEKST["           "]
      If P>=0
         POSTEN=P
         If POSTEN<0
            POSTEN=0
         End If
         VIS_DET : VIS_DEM
      Else
         P=P+$FFFF
         POSTEN=-P-1
         If POSTEN<0
            POSTEN=0
         End If
         VIS_DET : VIS_DEM
         MESSAGE["","THIS PATTERN DOES NOT MATCH ANY","OF THE ITEMS IN YOUR FILE.","THIS IS THE CLOSEST I FOUND.",50*5]
      End If
   End If
End If
If Z=6 and ARNOLD=2
   SJEKK_MINNE
   If SAV_FLAG=False
      REQUEST3[342,127,438,282,X Mouse,Y Mouse,1]
      HUBBARD=Param
      If HUBBARD>0 and HUBBARD<4
         GAM_EM_RYDD=RYDDE_EMNE
         RYDDE_EMNE=HUBBARD
         VIS_LITEN_TEKST["* CLEANING UP THE MESS *"]
         CLEANUP[GAM_EM_RYDD]
         Change Mouse 5
         Sort POST$(0)
         Change Mouse 4
         VIS_LITEN_TEKST["                        "]
         LAGRET=False
         VIS_DET
      End If
   End If
End If
If Z=7 and(POST$(POSTEN)<>String$(¥$,11)) and ARNOLD=1
   Hide On
   SPRE_DEM[POSTEN]
   VIS_DET : VIS_DEM
   VIS_LITEN_TEKST["  * * CHANGE THE ITEM, PLEASE * *  "]
   INN[TEM$(1),40,9,1,0,0] : TEM$(1)=Param$
   INN[TEM$(2),40,9,3,0,-1] : TEM$(2)=Param$
   INN[TEM$(3),5,20,6,-1,0] : TEM$(3)=Param$
   INN[TEM$(4),5,20,8,0,-1] : TEM$(4)=Param$
   _FIXIT
   If TEM$(3)<>"1"
      INN[TEM$(5),5,32,8,0,-1] : TEM$(5)=Param$
   Else
      TEM$(5)=TEM$(4)
      Print At(32,8);TEM$(5)
   End If
   LAGRET=False
   VIS_DET
   VIS_LITEN_TEKST["                                   "]
   Show On
   MANGE_INN
   P$=Param$
   SAMLE_DEM[POSTEN]
   VIS_LITEN_TEKST["* SORTING *"]
   Change Mouse 5
   Sort POST$(0)
   Change Mouse 4
   VIS_LITEN_TEKST["           "]
   Z=Asc(Left$(P$,1))
   ARNOLD=Asc(Right$(P$,1))
   If ARNOLD=2
      If Z>=7 and Z<>11
         ARNOLD=0
      End If
   End If
   If Z>0 and ARNOLD>0 : Goto MOSJOEN : End If
End If
If Z=8 and ARNOLD=1
   REQUEST3[342,127,438,282,X Mouse,Y Mouse,3]
   JMJARRE=Param
   If JMJARRE=1
      POST$(POSTEN)=String$(¥$,11)
      LAGRET=False
      VIS_LITEN_TEKST["* SORTING *"]
      Change Mouse 5
      Sort POST$(0)
      Change Mouse 4
      VIS_LITEN_TEKST["           "]
      Dec POSTER
      If POSTER<-1
         POSTER=-1
      End If
      If POSTEN>POSTER
         POSTEN=0
      End If
      VIS_DET : VIS_DEM
   End If
   If JMJARRE=2
      REQUEST["ARE YOU SURE YOU","WANT TO DELETE ALL THE ITEMS?","",342,127,438,282,2,False,X Mouse,Y Mouse]
      If Param=True
         SJEKK
         If Param=True
            Change Mouse 5
            VIS_LITEN_TEKST["* KILLING YOUR ITEMS *"]
            RYDDE_EMNE=1
            For I=0 To 5
               TEM$(I)=""
            Next
            For I=0 To 6
               LIN$(I)=""
            Next
            FILE_NAME$="Unnamed...."
            POSTEN=0
            POSTER=-1
            VIS_DET
            LAGRET=True
            For I=0 To MANT
               POST$(I)=String$(¥$,11)
            Next
            VIS_DET : VIS_DEM
            VIS_LITEN_TEKST["                      "]
            Change Mouse 4
         End If
      End If
   End If
End If
If Z=9 and ARNOLD=1
   SJEKK
   If Param=False
      Goto MENU_ONE
   End If
End If
If ARNOLD=1
   If Z=10 or Z=9
      DASK[Z-8]
      VIS_DET : VIS_DEM
   End If
   If Z=12
      Goto QUIT
   End If
   If Z=11
      Gosub OTHER_MENU
   End If
End If
If ARNOLD=2 and Z=11
   VIS_DET
   ROSENBIFF
End If
Goto MENU_ONE
'
QUIT:
VIS_DET
ABBABA$=""
ABBAB$=Pen$(1)+"-"+Pen$(2)+"-"
For I=1 To 13 : ABBABA$=ABBABA$+ABBAB$ : Next
ABBABA$=ABBABA$+Pen$(1)+"-"+Pen$(0)
REQUEST[ABBABA$,Pen$(3)+"DO YOU REALLY WANT TO QUIT?"+Pen$(0),ABBABA$,342,127,438,282,2,False,X Mouse,Y Mouse]
If Param=False Then Goto MENU_ONE
SJEKK
If Param=False Then Goto MENU_ONE
Del Block : Del Cblock : Erase 15
GREETS
Timer=0 : Repeat : MK=Mouse Key : I$=Inkey$ : Until MK<>0 or(I$=" ") or Timer=50*10
Wait 20 : Fade 2 : Wait 45 : Screen Close 0
If(I$="") and MK=0 Then _COPYRIGHT[50]
A=Intcall(-210)
End
'
OTHER_MENU:
Reset Zone : Reserve Zone 6
For I=13 To 18
   Set Zone I-12,X1(I)+1,Y1(I)+1 To X2(I)-1,Y2(I)-1
Next
Put Cblock 1
For I=1 To 6 : YN[I,PRT_DEF(I)] : Next
Do
   VIS_DET
   Repeat
      Z=Mouse Zone
      If Mouse Key=2 Then Goto BABG
   Until Mouse Key=1 and Z>0
   Ink 2
   Box X1(Z+12),Y1(Z+12) To X2(Z+12),Y2(Z+12)
   Repeat
      ZZ=Mouse Zone
   Until Mouse Key=0
   Ink 6
   Box X1(Z+12),Y1(Z+12) To X2(Z+12),Y2(Z+12)
   BABG:
   If Mouse Key=2 Then Repeat : Until Mouse Key=0 : Return
   If ZZ=Z and Z>3 Then Exit
   If ZZ=Z
      If Z>=1 and Z<=3
         MAMAMA=Z*2-2
         Swap PRT_DEF(1+MAMAMA),PRT_DEF(2+MAMAMA)
      End If
      For I=1 To 6
         YN[I,PRT_DEF(I)]
      Next
   End If
Loop
If Z>0
   If POSTER<0
      MESSAGE[String$("*",34),"THERE ARE NO ITEMS TO PRINT.","RECORD SOME FIRST.",String$("*",34),50*5]
      Goto PRTF
   End If
End If
On Error Proc FEILHANDLE
Resume Label PRTF
BRK_FLAG=False
ERR_FLAG=False
If Z=4 or Z=5 or Z=6
   On Error Proc FEILHANDLE
   Resume Label PRTF
   FERPU=1
   Open Out 1,"Prt:"
   Request Off
   FERPU=2
   P=1
   If Z<>6
      X Mouse=220 : Y Mouse=130
      Limit Mouse 198,124 To 379,173
      MESSAGE2[Pen$(1)+"**** P R I N T I N G ****"+Pen$(0),"","PRESS RIGHT MOUSE BUTTON","IF YOU WANT TO STOP THE PRINTING...",True]
   End If
End If
If Z=4
   FYTTIGRISEN[POSTEN,True]
   If BRK_FLAG=True : Goto PRTA : End If
   If ERR_FLAG=True : Goto PRTF : End If
End If
If Z=5
   For I=0 To POSTER
      FYTTIGRISEN[I,False]
      If BRK_FLAG=True
         Goto PRTA
      End If
      If ERR_FLAG=True
         Goto PRTF
      End If
   Next
End If
If Z=6
   REQUEST3[342,127,438,282,X Mouse,Y Mouse,2]
   ANNA=Param
   If ANNA<>2
      X Mouse=220 : Y Mouse=130
      Limit Mouse 198,124 To 379,173
      MESSAGE2[Pen$(1)+"**** P R I N T I N G ****"+Pen$(0),"","PRESS RIGHT MOUSE BUTTON","IF YOU WANT TO STOP THE PRINTING...",True]
   End If
   If ANNA>0
      If ANNA=1
         VINDUINN["PRINT ALL ITEMS FROM NUMBER:",198,124,379,173,X Mouse,Y Mouse,5,True,""]
         I$=Param$
         If I$-" "=""
            Goto PRTA
         End If
         _VAL[I$]
         X1X=Param
         VINDUINN["PRINT ALL ITEMS TO NUMBER:",198,124,379,173,X Mouse,Y Mouse,5,True,""]
         I$=Param$
         If I$-" "=""
            Goto PRTA
         End If
         _VAL[I$]
         X2X=Param
         If Min(X1X,X2X)<0 or Max(X1X,X2X)>POSTER
            MESSAGE["",Pen$(2)+"*** OUT OF RANGE ***"+Pen$(0),"ONE OF THE ITEMS YOU SPECIFIED","DO NOT EXIST !!",50*5]
            Goto PRTA
         End If
         For I=Min(X1X,X2X) To Max(X1X,X2X)
            FYTTIGRISEN[I,True]
            If BRK_FLAG=True
               Goto PRTA
            End If
            If ERR_FLAG=True
               Goto PRTF
            End If
         Next
      End If
      If ANNA=3
         VINDUINN["PRINT ALL WITH FIRST DISK Nº FROM:",198,124,379,173,X Mouse,Y Mouse,5,False,""]
         I1$=Param$
         If I1$-" "=""
            Goto PRTA
         End If
         VINDUINN["PRINT ALL WITH FIRST DISK Nº UP TO:",198,124,379,173,X Mouse,Y Mouse,5,False,""]
         I2$=Param$
         If I2$-" "=""
            Goto PRTA
         End If
         For I=0 To POSTER
            SPRE_DEM[I]
            If Upper$(TEM$(4))>=Upper$(I1$) and(Upper$(TEM$(4))=<Upper$(I2$))
               FYTTIGRISEN[I,True]
               If BRK_FLAG=True
                  Goto PRTA
               End If
               If ERR_FLAG=True
                  Goto PRTF
               End If
            End If
         Next
      End If
      If ANNA=2
         VIS_DET : Hide On : RENS_OPP
         VIS_LITEN_TEKST["* * ENTER THE SEARCH/PRINT PATTERN * *"]
         INN["",40,9,1,0,-1] : TEM1$=Param$
         INN["",40,9,3,0,-1] : TEM2$=Param$
         INN["",5,20,6,-1,-1] : TEM3$=Param$
         INN["",5,20,8,0,-1] : TEM4$=Param$
         _FIXIT
         If TEM3$<>"1"
            INN["",5,32,8,0,-1] : TEM5$=Param$
         Else
            TEM5$=TEM4$
            Print At(32,8);TEM5$
         End If
         VIS_LITEN_TEKST["                                      "]
         Show On
         VIS_DEM : VIS_DET
         X Mouse=220 : Y Mouse=130
         Limit Mouse 198,124 To 379,173
         MESSAGE2[Pen$(1)+"**** P R I N T I N G ****"+Pen$(0),"","PRESS RIGHT MOUSE BUTTON","IF YOU WANT TO STOP THE PRINTING...",True]
         For I=0 To POSTER
            KJ2=0
            SPRE_DEM[I]
            SAMLIKN[TEM1$,1] : Add KJ2,Param
            SAMLIKN[TEM2$,2] : Add KJ2,Param
            SAMLIKN[TEM3$,3] : Add KJ2,Param
            SAMLIKN[TEM4$,4] : Add KJ2,Param
            SAMLIKN[TEM5$,5] : Add KJ2,Param
            If KJ2=5
               FYTTIGRISEN[I,True]
               If BRK_FLAG=True : Goto PRTA : End If
               If ERR_FLAG=True : Goto PRTF : End If
            End If
         Next
      End If
   End If
End If
PRTA:
Wait 25
MESSAGE2["","","","",False]
If BRK_FLAG=True
   MESSAGE["","**** PRINT ABORTED BY USER ****",String$("-",31),"",50*5]
End If
Close 1
'
PRTF:
If ERR_FLAG=True
   MESSAGE[Pen$(2),String$("=",22),"CAN'T PRINT ANYTHING",String$("=",22)+Pen$(0),-1]
   ERR_FLAG=False
End If
FERPU=0
Request Wb
On Error Proc MAINERROR
X Mouse=400 : Y Mouse=130
Limit Mouse 342,127 To 438,282
Return
'
Procedure YN[NR,S]
   On Error Proc MAINERROR
   If NR=1 Then Paste Icon 526,106,S
   If NR=3 Then Paste Icon 526,127,S
   If NR=5 Then Paste Icon 526,148,S
   If NR=2 Then Paste Icon 526,116,S
   If NR=4 Then Paste Icon 526,137,S
   If NR=6 Then Paste Icon 526,158,S
End Proc
Procedure BOKS_OPP[X1,Y1,X2,Y2,TYX,TYY,OPP]
   On Error Proc MAINERROR
   I1=5 : I2=7 : If OPP<>1 Then Swap I1,I2
   Ink 6 : Bar X1,Y1 To X2,Y2 : Ink I1
   If TYY>1 Then Bar X1,Y1 To X2,Y1+TYY : Else Box X1,Y1 To X2,Y1+TYY
   If TYX>1 Then Bar X1,Y1 To X1+TYX,Y2 : Else Box X1,Y1 To X1+TYX,Y2
   Ink I2
   If TYX>1 Then Bar X2,Y1 To X2+TYX,Y2 : Else Box X2,Y1 To X2+TYX,Y2
   If TYY>1 Then Bar X1,Y2 To X2+TYX,Y2+TYY : Else Box X1,Y2 To X2+TYX,Y2+TYY
End Proc
Procedure GREETS
   On Error Proc MAINERROR : Hide On : View
   BOKS_OPP[140,20,500,210,2,1,1] : Paste Icon 225,22,5 : Restore DAT1
   DAT1:
   Data "DISK REGISTER V1.20",1,"~~~~~~~~~~~~~~~~~~~",1
   Data "Released: July 18, 1993",2,"Copyright Pål Løberg 1992/93.",2,"All rights reserved.",2
   Data "",0,"Coding and Graphics:",1
   Data "­­­­­­­­­­­­­­­­­­­­",1,"Pål Løberg",2
   Data "",,"For more information about this little",0
   Data "program, read the document about it",0,"on the disk. If you spread the program,",0
   Data "the document must be copied with it.",0
   For I=1 To 14 : Read A$,J : Ink J,6,6 : Text 320-(Len(A$)*4),89+(8*I),A$ : Next
End Proc
Procedure DASK[SA_LO]
   On Error Goto DIS_ERR
   BALLEBUFFX=X Mouse : BALLEBUFFY=Y Mouse
   DISK : FILNAVNET$=Param$
   '
   If FILNAVNET$<>""
      If SA_LO=1
         If Not Exist(FILNAVNET$)
            MESSAGE["","FILE DOESN'T EXISTS.","LOAD ABORTED....","",250]
            Goto TILBAKE
         End If
         If Len(FILNAVNET$)>38
            MESSAGE2["LOADING FILE AS:",Left$(FILNAVNET$,38),Mid$(FILNAVNET$,39,38),Mid$(FILNAVNET$,39*2-1,38),True]
         Else
            MESSAGE2["","LOADING FILE AS:",Right$(FILNAVNET$,38),"",True]
         End If
         Hide On
         Ink 0
         Open In 1,FILNAVNET$
         OPENED=True
         If Lof(1)<10
            MESSAGE["","WRONG FILE TYPE.","LOAD ABORTED....","",250]
            Goto SPRI
         End If
         HEADER$=Input$(1,11)
         Pof(1)=0
         If HEADER$<>"DISKREGFILE"
            If HEADER$<>"DISKREGFIL2"
               MESSAGE["","WRONG FILE TYPE.","LOAD ABORTED....","",250]
               Goto SPRI
            End If
         End If
         Input #1,HEADER$
         If HEADER$="DISKREGFIL2"
            For YIQ=1 To 3
               Input #1,INFO$(YIQ)
            Next
         Else
            INFO$(1)="Monday 1-1-1999"
            INFO$(2)="Enter something."
            INFO$(3)=""
         End If
         Input #1,POSTER
         XWAS#=0
         EX1#=170
         If POSTER>0
            AX#=300.0/(POSTER+6.0)
         End If
         Ink 2
         GANG#=300.0/MANT
         For I=0 To MANT
            POST$(I)=String$(¥$,11)
            If I mod 5=0
               Bar 170,123 To 171+(GANG#*I),127
            End If
         Next
         Bar 170,123 To 470,127
         Ink 0
         If POSTER=<0
            Bar 170,123 To 470,127
         End If
         If Free<Lof(1) or POSTER>MANT
            MESSAGE2["","","","",False]
            RYDDE_EMNE=1
            For I=0 To 5
               TEM$(I)=""
            Next
            For I=0 To 6
               LIN$(I)=""
            Next
            FILE_NAME$="Unnamed...."
            POSTEN=0
            POSTER=-1
            VIS_DET
            LAGRET=True
            MESSAGE[Pen$(2),"LOAD HAS BEEN ABORTED !.","NOT ENOUGH WORKSPACE.",Pen$(0),-1]
            Goto SPRI
         Else
            Input #1,RYDDE_EMNE
            For FIFI=1 To 6
               If POSTER>0
                  EX1#=EX1#+AX#
                  Bar 170,123 To EX1#+1,127
               End If
               Input #1,PRT_DEF(FIFI)
            Next
            For FIFI=0 To POSTER
               If POSTER>0
                  EX1#=EX1#+AX#
                  Bar 170,123 To EX1#+1,127
                  Add DSAJNBVLK,1,0 To 50
                  If DSAJNBVLK=50
                     FRE_M=Free
                     If FRE_M<25000
                        MESSAGE2["","","","",False]
                        POSTER=FIFI-1
                        POSTEN=0
                        LL=Len(FILNAVNET$)-Max(Instr(FILNAVNET$,":"),Instr(FILNAVNET$,"/"))
                        FILE_NAME$=Right$(FILNAVNET$,LL)
                        LAGRET=True
                        MESSAGE[Pen$(2),"LOAD HAS BEEN ABORTED !.","OUT OF WORKSPACE.",Pen$(0),-1]
                        Goto SPRI
                     End If
                     Timer=0
                  End If
               End If
               Line Input #1,POST$(FIFI)
            Next
            Bar 170,123 To 470,127
            POSTEN=0
            LL=Len(FILNAVNET$)-Max(Instr(FILNAVNET$,":"),Instr(FILNAVNET$,"/"))
            FILE_NAME$=Right$(FILNAVNET$,LL)
            LAGRET=True
            SPRI:
            Close 1
            OPENED=False
            Wait Vbl
            MESSAGE2["","","","",False]
            Show On
         End If
      End If
      If SA_LO=2
         If Exist(FILNAVNET$)
            REQUEST["FILE EXISTS. DO YOU WANT","TO OVERWRITE IT?","",342,127,438,282,2,False,X Mouse,Y Mouse]
            If Param=False
               Goto TILBAKE
            End If
         End If
         If Len(FILNAVNET$)>38
            MESSAGE2["SAVING FILE AS:",Left$(FILNAVNET$,38),Mid$(FILNAVNET$,39,38),Mid$(FILNAVNET$,39*2-1,38),True]
         Else
            MESSAGE2["","SAVING FILE AS:",Right$(FILNAVNET$,38),"",True]
         End If
         Hide On
         Ink 2
         Bar 170,123 To 470,127
         Open Out 1,FILNAVNET$
         OPENED=True
         XWAS#=0
         EX1#=170
         If POSTER>0
            AX#=300.0/(POSTER+6.0)
         Else
            Bar 170,123 To 470,127
         End If
         Ink 0
         Print #1,"DISKREGFIL2"
         For YIQ=1 To 3
            Print #1,INFO$(YIQ)
         Next
         Print #1,POSTER
         Print #1,RYDDE_EMNE
         For FIFI=1 To 6
            If POSTER>0
               EX1#=EX1#+AX#
               Bar 170,123 To EX1#+1,127
            End If
            Print #1,PRT_DEF(FIFI)
         Next
         For FIFI=0 To POSTER
            If POSTER>0
               EX1#=EX1#+AX#
               Bar 170,123 To EX1#+1,127
            End If
            Print #1,POST$(FIFI)
         Next
         LAGRET=True
         Bar 170,123 To 470,127
         Close 1
         OPENED=False
         Wait Vbl
         LL=Len(FILNAVNET$)-Max(Instr(FILNAVNET$,":"),Instr(FILNAVNET$,"/"))
         FILE_NAME$=Right$(FILNAVNET$,LL)
         MESSAGE2["","","","",False]
         Show On
      End If
   End If
   '
   TILBAKE:
   Limit Mouse
   X Mouse=BALLEBUFFX
   Y Mouse=BALLEBUFFY
   Limit Mouse 342,127 To 438,282
   Change Mouse 4
   View
   If HUMVDSKJHGHIUEA=True
      VIS_LITEN_TEKST[Pen$(2)+"* *  L O W   O N   M E M O R Y  * *"+Pen$(0)]
      Wait 50*5
      VIS_LITEN_TEKST["                                   "]
   End If
   Pop Proc
   '
   DIS_ERR:
   If MESS_ON=True
      Put Block 56
      Del Block 56
      MESS_ON=False
   End If
   Restore ERR_DATA
   ERR=Errn
   If ERR=24
      Inc LOMEM
      If LOMEM<8
         HUMVDSKJHGHIUEA=True
         Resume TILBAKE
      End If
      Del Cblock 1
      Del Cblock 2
      Del Block 9
      Screen Close 3
      Screen Close 0
      Screen Open 0,640,20,2,Hires
      Curs Off
      Palette $FF0,$F00
      Screen Display 0,,120,,
      Cls 0
      Centre "* * *  OUT OF MEMORY.  I'LL HAVE TO QUIT.  * * *"
      Wait Key
      Screen Close 0
      Edit
   End If
   If OPENED=True
      Close 1
   End If
   For I=1 To 19
      Read ¿ERR,MESS$
      If ¿ERR=ERR
         MESSAGE[Pen$(2)+"AN ERROR HAS OCCURRED",String$("*",23)+Pen$(0),MESS$,"ERROR NUMBER: D"+(Str$(I)-" "),50*8]
         HUMVDSKJHGHIUEA=False
         Resume TILBAKE
      End If
   Next
   MESSAGE[Pen$(2)+"AN ERROR HAS OCCURRED",String$("*",23)+Pen$(0),"UNKNOWN TYPE.","ERROR NUMBER: A"+(Str$(ERR)-" "),50*8]
   Resume TILBAKE
   ERR_DATA:
   Data 86,"THIS DEVICE NOT AVAILABLE."
   Data 85,"THE DIRECTOY IS NOT EMPTY."
   Data 80,"COULD NOT FIND THIS DIRECTORY."
   Data 88,"THE DISK IS FULL. USE A NEW ONE."
   Data 83,"THE DISK IS NOT VALIDATED."
   Data 84,"THE DISK IS WRITE PROTECTED."
   Data 96,"THE FILE IS ALREADY OPEN.?"
   Data 91,"FILE PROTECTED AGAINST READING."
   Data 89,"FILE PROTECTED AGAINST DELETING."
   Data 90,"FILE PROTECTED AGAINST WRITING."
   Data 81,"FILE NOT FOUND. DELETED?"
   Data 97,"THE FILE IS NOT OPENED. MY FAULT?"
   Data 98,"PROGRAM ERROR. BIG BUG!!"
   Data 94,"I/O ERROR. DISK ERROR !!"
   Data 82,"ILLEGAL FILE NAME. CHANGE IT!"
   Data 99,"INPUT TOO LONG. CAN'T READ FILE."
   Data 93,"NO DISK IN DRIVE. INSERT THE F... DISK!"
   Data 92,"THIS IS NOT A FUCKING AmigaDOS DISK!"
   Data 100,"IT'S THE END OF THE FILE !!"
End Proc
Procedure SETUP
   On Error Proc MAINERROR
   Make Icon Mask
   Hide On
   View
   Reserve As Work 15,230*62
   Unpack 11 To 2
   Erase 11
   Screen Hide 2
   Get Cblock 1,428,85,192,155
   Screen Close 2
   Unpack 10 To 0
   Erase 10
   Get Cblock 15,0,0,16,15
   Screen Hide 0
   Bob Update Off
   For I=11 To 16
      No Mask I
   Next
   Screen Display 0,,42,,
   Colour 19,$440
   Colour 18,$770
   Colour 17,$AA0
   Change Mouse 5
   Paper 6
   Pen 0
   Ink 1
   Curs Off
   Put Cblock 15
   Del Cblock 15
   Get Cblock 2,428,85,192,155
   Limit Mouse
   X Mouse=400
   Y Mouse=130
   Limit Mouse 342,127 To 438,282
   Screen Show
End Proc
Procedure REQUEST[T1$,T2$,T3$,F1,F2,F3,F4,STED,DISK,XMM,YMM]
   On Error Proc MAINERROR
   Get Block 61,140,80,368,55
   If DISK
      T2$=Left$(T2$,Instr(T2$,":"))
   End If
   BOKS_OPP[140,82,500,130,2,1,1]
   Hide On
   View
   Limit Mouse
   If STED=1
      X Mouse=222
      Y Mouse=164
   Else
      X Mouse=352
      Y Mouse=164
   End If
   Limit Mouse 198,124 To 379,173
   Show On
   View
   Centre At(,11)+T1$
   Centre At(,12)+T2$
   Centre At(,13)+T3$
   Ink 0
   Bar 162,120 To 218,127
   Bar 420,120 To 480,127
   If Not DISK
      Paste Icon 160,118,3
      Paste Icon 418,118,4
   Else
      Paste Icon 160,118,4
      Paste Icon 418,118,4
   End If
   If DISK
      Repeat
         X=X Screen(X Mouse)
         Y=Y Screen(Y Mouse)
         Z=0
         If X>159 and Y>117 and X<159+62 and Y<128
            Z=1
         End If
         If X>417 and Y>117 and X<417+62 and Y<128
            Z=2
         End If
      Until Mouse Key=1 and Z>0 or Exist(T2$)
      If Z=1 or Z=2
         OK_CAN=False
      End If
      If Exist(T2$)
         OK_CAN=True
      End If
   Else
      Repeat
         X=X Screen(X Mouse)
         Y=Y Screen(Y Mouse)
         Z=0
         If X>159 and Y>117 and X<159+62 and Y<128
            Z=1
         End If
         If X>417 and Y>117 and X<417+62 and Y<128
            Z=2
         End If
      Until Mouse Key=1 and Z>0
      If Z=1
         OK_CAN=True
      Else
         OK_CAN=False
      End If
   End If
   Put Block 61
   Del Block 61
   Hide On
   View
   Limit Mouse
   X Mouse=XMM
   Y Mouse=YMM
   Limit Mouse F1,F2 To F3,F4
   Show On
   View
End Proc[OK_CAN]
Procedure REQUEST3[F1,F2,F3,F4,XMM,YMM,NR]
   On Error Proc MAINERROR
   Get Block 59,140,80,368,55
   If NR=2 Then AJO=10 Else AJO=0
   BOKS_OPP[140,82+AJO,500,130,2,1,1]
   Hide On
   View
   Limit Mouse
   X Mouse=352
   Y Mouse=164
   Limit Mouse 198,124+AJO To 379,173
   Show On
   View
   If NR=1
      Centre At(,11)+"WHAT DO YOU WANT TO USE AS"
      Centre At(,12)+"SEARCH/SORT KEY FOR YOUR ITEMS?"
      Centre At(,13)+Pen$(2)+"THE FILES WILL BE SORTED AFTERWARDS."+Pen$(0)
   Else
      If NR=2
         Centre At(,12)+"WHAT SHALL BE USED, WHEN SEARCHING"
         Centre At(,13)+"FOR THE ITEMS YOU WANT TO PRINT?"
      Else
         Centre At(,11)+"DO YOU WANT TO DELETE THIS ITEM"
         Centre At(,12)+"OR ALL THE ITEMS?"
         Centre At(,13)+Pen$(2)+"THE ITEM(S) WILL BE LOST FOREVER!"+Pen$(0)
      End If
   End If
   Ink 0,6
   If NR=3 Then Bar 420,120 To 480,127
   Paste Icon 160,118,3
   Paste Icon 289,118,4
   Paste Icon 418,118,4
   If NR=3
      Text 175,126,"THIS"
      Text 308,126,"ALL"
   Else
      If NR=1
         Text 175,126,"NAME"
         Text 304,126,"TYPE"
         Text 433,126,"DISK"
      Else
         Text 175-11,126,"ITEM Nº"
         Text 304-11,126,"PATTERN"
         Text 433-11,126,"DISK Nº"
      End If
   End If
   Repeat
      X=X Screen(X Mouse)
      Y=Y Screen(Y Mouse)
      Z=0
      If X>159 and Y>117 and X<159+62 and Y<128
         Z=1
      End If
      If X>288 and Y>117 and X<288+62 and Y<128
         Z=2
      End If
      If X>417 and Y>117 and X<417+62 and Y<128
         Z=3
      End If
   Until(Mouse Key=1 and Z>0) or(Mouse Key=2 and Z=0)
   OK_CAN=Z
   Put Block 59
   Del Block 59
   Hide On
   View
   Limit Mouse
   X Mouse=XMM
   Y Mouse=YMM
   Limit Mouse F1,F2 To F3,F4
   Show On
   View
End Proc[OK_CAN]
Procedure MESSAGE[T1$,T2$,T3$,T4$,PAUSE]
   On Error Proc MAINERROR
   Get Block 57,140,80,368,55
   BOKS_OPP[140,82,500,130,2,1,1]
   Hide On
   View
   Centre At(,11)+T1$
   Centre At(,12)+T2$
   Centre At(,13)+T3$
   Centre At(,14)+T4$
   If PAUSE=-1
      Repeat
      Until Mouse Key>0
   End If
   For I=0 To PAUSE
      Wait Vbl
      Exit If Mouse Key>0
   Next
   Repeat
   Until Mouse Key=0
   Put Block 57
   Del Block 57
   Show On
   View
End Proc
Procedure MESSAGE2[T1$,T2$,T3$,T4$,OFF_ON]
   On Error Proc MAINERROR
   If OFF_ON=True and MESS_ON=False
      Get Block 56,140,80,368,55
      BOKS_OPP[140,82,500,130,2,1,1]
      Centre At(,11)+T1$
      Centre At(,12)+T2$
      Centre At(,13)+T3$
      Centre At(,14)+T4$
      MESS_ON=True
   Else
      If MESS_ON=True
         Put Block 56
         Del Block 56
         MESS_ON=False
      End If
   End If
End Proc
Procedure VINDUINN[TIT$,F1,F2,F3,F4,XMM,YMM,MTLEN,TALL,TE$]
   On Error Proc MAINERROR
   TLEN=Len(TE$)
   POS=TLEN+1
   LPOS=1
   TEKST$=TE$
   If TE$<>"" Then NOKOT=True
   Get Block 47,140,80,368,55
   BOKS_OPP[140,82,500,130,2,1,1]
   ¤×°=MTLEN*8+176
   BOKS_OPP[160,102,¤×°,112,1,0,0]
   Hide On
   View
   Limit Mouse
   X Mouse=352
   Y Mouse=164
   Limit Mouse 198,124 To 379,173
   Show On
   View
   Ink 0
   Bar 162,120 To 218,127
   Bar 420,120 To 480,127
   Paste Icon 160,118,3
   Paste Icon 418,118,4
   Centre At(,11)+TIT$
   I$=""
   Gosub INNKEYS
   Repeat
      I$=Inkey$
      If I$<>"" and(I$<>Chr$(13)) Then Gosub INNKEYS
      X=X Screen(X Mouse)
      Y=Y Screen(Y Mouse)
      Z=0
      If X>159 and Y>117 and X<159+62 and Y<128
         Z=1
      End If
      If X>417 and Y>117 and X<417+62 and Y<128
         Z=2
      End If
   Until(Mouse Key=1 and Z>0) or(I$=Chr$(13))
   If I$=Chr$(13)
      Z=1
   End If
   X=21
   Y=13
   If TLEN<MTLEN
      Print At(X+POS-1,Y);" "
   Else
      Ink 6
      Bar(X+POS-1)*8,Y*8 To(X+POS-1)*8+1,Y*8+6
   End If
   FAFA$=" "
   If TLEN=MTLEN Then FAFA$=""
   Print At(X,Y);TEKST$;FAFA$
   If Z=1 and Len(TEKST$)>0
      RET_BAK$=TEKST$
   Else
      If NOKOT=True
         RET_BAK$=TE$
      Else
         RET_BAK$=""
      End If
   End If
   Put Block 47
   Del Block 47
   Hide On
   View
   Limit Mouse
   X Mouse=XMM
   Y Mouse=YMM
   Limit Mouse F1,F2 To F3,F4
   Show On
   View
   Goto HUBBABUBBA
   '
   INNKEYS:
   X=21
   Y=13
   FAFA$=" "
   If TLEN=MTLEN Then FAFA$=""
   Print At(X,Y);TEKST$;FAFA$
   If POS=TLEN+1 and TLEN<MTLEN
      Pen 1
      Print At(X+POS-1,Y);"|"
   Else
      Paper 1
      If TLEN<MTLEN
         Print At(X+POS-1,Y);Mid$(TEKST$,POS,1)
      Else
         If POS<TLEN+1
            Print At(X+POS-1,Y);Mid$(TEKST$,POS,1)
         Else
            Ink 1
            Bar(X+POS-1)*8,Y*8 To(X+POS-1)*8+1,Y*8+6
         End If
      End If
   End If
   Paper 6
   Pen 0
   AAA=Asc(I$)
   SAC=Scancode
   KSH=Key Shift
   If SAC=79 and POS>1 and KSH<>1 and KSH<>2 and KSH<>32
      If TLEN+1<MTLEN
         Print At(X+POS-1,Y);" "
      Else
         Ink 6
         Bar(X+POS-1)*8,Y*8 To(X+POS-1)*8+1,Y*8+6
      End If
      Dec POS
   End If
   If SAC=78 and POS=<TLEN and KSH<>1 and KSH<>2 and KSH<>32
      Inc POS
   End If
   If TALL=True
      If AAA<>47 and AAA<>127 and((AAA>47 and AAA<58)) and TLEN<MTLEN
         TT$=Left$(TEKST$,POS-1)
         TT2$=Right$(TEKST$,TLEN-POS+1)
         TEKST$=TT$+I$+TT2$
         Inc TLEN
         Inc POS
      End If
   Else
      If AAA<>47 and AAA<>127 and((AAA>31 and AAA<127) or(AAA>160)) and TLEN<MTLEN
         TT$=Left$(TEKST$,POS-1)
         TT2$=Right$(TEKST$,TLEN-POS+1)
         TEKST$=TT$+I$+TT2$
         Inc TLEN
         Inc POS
      End If
   End If
   If POS>1 and SAC=65
      TT$=Left$(TEKST$,POS-2)
      TT2$=Right$(TEKST$,TLEN-POS+1)
      TEKST$=TT$+TT2$
      Dec TLEN
      Dec POS
      If TLEN+1<MTLEN
         Print At(X+POS,Y);" "
      Else
         Ink 6
         Bar(X+POS)*8,Y*8 To(X+POS)*8+1,Y*8+6
      End If
   End If
   If SAC=70 and POS=<TLEN
      TT$=Left$(TEKST$,POS-1)
      TT2$=Right$(TEKST$,TLEN-POS)
      TEKST$=TT$+TT2$
      Dec TLEN
   End If
   If(KSH=1 or KSH=2) and SAC>77 and SAC<80
      If SAC=78
         POS=TLEN+1
      Else
         If TLEN+1<MTLEN
            Print At(X+POS-1,Y);" "
         Else
            Ink 6
            Bar(X+POS-1)*8,Y*8 To(X+POS-1)*8+1,Y*8+6
         End If
         POS=1
      End If
   End If
   If SAC=78 and POS=<TLEN and KSH=32
      TT=Instr(Right$(TEKST$,TLEN-POS)," ")
      If TT>0
         Add POS,TT
      Else
         POS=TLEN+1
      End If
   End If
   If SAC=79 and KSH=32
      TT$=Flip$(Left$(TEKST$,POS-1))
      TT=Instr(TT$," ")
      If TLEN+1<MTLEN
         Print At(X+POS-1,Y);" "
      Else
         Ink 6
         Bar(X+POS-1)*8,Y*8 To(X+POS-1)*8+1,Y*8+6
      End If
      If TT>0
         Add POS,-TT
      Else
         POS=1
      End If
   End If
   FAFA$=" "
   If TLEN=MTLEN Then FAFA$=""
   Print At(X,Y);TEKST$;FAFA$
   If POS=TLEN+1 and TLEN<MTLEN
      Pen 1
      Print At(X+POS-1,Y);"|"
   Else
      Paper 1
      If TLEN<MTLEN
         Print At(X+POS-1,Y);Mid$(TEKST$,POS,1)
      Else
         If POS<TLEN+1
            Print At(X+POS-1,Y);Mid$(TEKST$,POS,1)
         Else
            Ink 1
            Bar(X+POS-1)*8,Y*8 To(X+POS-1)*8+1,Y*8+6
         End If
      End If
   End If
   Paper 6
   Pen 0
   Return
   HUBBABUBBA:
End Proc[RET_BAK$]
Procedure INN[TEKST$,MTLEN,X,Y,TALL,FULL]
   On Error Proc MAINERROR
   TLEN=Len(TEKST$)
   POS=TLEN+1
   LPOS=1
   Repeat
      FAFA$=" "
      If TLEN=MTLEN Then FAFA$=""
      Print At(X,Y);TEKST$;FAFA$
      If POS=TLEN+1 and TLEN<MTLEN
         Pen 1
         Print At(X+POS-1,Y);"|"
      Else
         Paper 1
         If TLEN<MTLEN
            Print At(X+POS-1,Y);Mid$(TEKST$,POS,1)
         Else
            If POS<TLEN+1
               Print At(X+POS-1,Y);Mid$(TEKST$,POS,1)
            Else
               Ink 1
               Bar(X+POS-1)*8,Y*8 To(X+POS-1)*8+1,Y*8+6
            End If
         End If
      End If
      Paper 6
      Pen 0
      Repeat
         I$=Inkey$
      Until I$<>""
      AAA=Asc(I$)
      SAC=Scancode
      KSH=Key Shift
      If SAC=79 and POS>1 and KSH<>1 and KSH<>2 and KSH<>32
         If TLEN+1<MTLEN
            Print At(X+POS-1,Y);" "
         Else
            Ink 6
            Bar(X+POS-1)*8,Y*8 To(X+POS-1)*8+1,Y*8+6
         End If
         Dec POS
      End If
      If SAC=78 and POS=<TLEN and KSH<>1 and KSH<>2 and KSH<>32
         Inc POS
      End If
      If TALL=True
         If AAA<>127 and((AAA>47 and AAA<58)) and TLEN<MTLEN
            TT$=Left$(TEKST$,POS-1)
            TT2$=Right$(TEKST$,TLEN-POS+1)
            TEKST$=TT$+I$+TT2$
            Inc TLEN
            Inc POS
         End If
      Else
         If AAA<>127 and((AAA>31 and AAA<127) or(AAA>160)) and TLEN<MTLEN
            TT$=Left$(TEKST$,POS-1)
            TT2$=Right$(TEKST$,TLEN-POS+1)
            TEKST$=TT$+I$+TT2$
            Inc TLEN
            Inc POS
         End If
      End If
      If POS>1 and SAC=65
         TT$=Left$(TEKST$,POS-2)
         TT2$=Right$(TEKST$,TLEN-POS+1)
         TEKST$=TT$+TT2$
         Dec TLEN
         Dec POS
         If TLEN+1<MTLEN
            Print At(X+POS,Y);" "
         Else
            Ink 6
            Bar(X+POS)*8,Y*8 To(X+POS)*8+1,Y*8+6
         End If
      End If
      If SAC=70 and POS=<TLEN
         TT$=Left$(TEKST$,POS-1)
         TT2$=Right$(TEKST$,TLEN-POS)
         TEKST$=TT$+TT2$
         Dec TLEN
      End If
      If(KSH=1 or KSH=2) and SAC>77 and SAC<80
         If SAC=78
            POS=TLEN+1
         Else
            If TLEN+1<MTLEN
               Print At(X+POS-1,Y);" "
            Else
               Ink 6
               Bar(X+POS-1)*8,Y*8 To(X+POS-1)*8+1,Y*8+6
            End If
            POS=1
         End If
      End If
      If SAC=78 and POS=<TLEN and KSH=32
         TT=Instr(Right$(TEKST$,TLEN-POS)," ")
         If TT>0
            Add POS,TT
         Else
            POS=TLEN+1
         End If
      End If
      If SAC=79 and KSH=32
         TT$=Flip$(Left$(TEKST$,POS-1))
         TT=Instr(TT$," ")
         If TLEN+1<MTLEN
            Print At(X+POS-1,Y);" "
         Else
            Ink 6
            Bar(X+POS-1)*8,Y*8 To(X+POS-1)*8+1,Y*8+6
         End If
         If TT>0
            Add POS,-TT
         Else
            POS=1
         End If
      End If
   Until AAA=13 and Len(TEKST$)>FULL
   If TLEN<MTLEN
      Print At(X+POS-1,Y);" "
   Else
      Ink 6
      Bar(X+POS-1)*8,Y*8 To(X+POS-1)*8+1,Y*8+6
   End If
   FAFA$=" "
   If TLEN=MTLEN Then FAFA$=""
   Print At(X,Y);TEKST$;FAFA$
End Proc[TEKST$]
If you've found this two lines, I just have to tell you that
Monty Python and Mr Bean is the best.
Procedure RENS_OPP
   Print At(9,1);String$(" ",40)
   Print At(9,3);String$(" ",40)
   Print At(20,6);"     "
   Print At(20,8);"     "
   Print At(32,8);"     "
   Cls 6,12,102 To 396,154
   Print At(2,20);Space$(45)
   If Fast Free+Chip Free<100000
      Pen 2
   End If
   Print At(31,28);Right$(Space$(12)+Str$(Fast Free+Chip Free),13)
   Pen 0
End Proc
Procedure VIS_LITEN_TEKST[A$]
   L=Len(A$)
   ½L=L/2
   Print At(5+(20-½L),24);A$
End Proc
Procedure MANGE_INN
   On Error Proc MAINERROR
   Dim X1(18),Y1(18),X2(18),Y2(18)
   DAS:
   Data 454,106,522,125,526,106,594,125,454,127,522,146,526,127,594,146,454,148,522,167,526,148,594,167,454,169,522,188,526,169,594,188,454,190,522,209,526,190,594,209
   Data 454,211,522,230,526,211,594,230,454,106,522,125,454,127,522,146,454,148,522,167,454,169,594,188,454,190,594,209,454,211,594,230
   Restore DAS : For I=1 To 18 : Read X1(I),Y1(I),X2(I),Y2(I) : Next
   '
   ANT=6
   MAKS=45
   X=1
   XX=1
   YY=12
   VIS_LITEN_TEKST["SELECT / MOUSE BUTTON TO EXIT"]
   Dim MX(ANT)
   Pen 0
   For Y=1 To ANT
      MX(Y)=Len(LIN$(Y))+1
      Print At(XX+1,Y+YY);LIN$(Y);" "
   Next
   Y=1
   Pen 2
   Print At(2,20);"Line:"
   Print At(20,20);"Column:"
   FYTTEGRISEN:
   Repeat
      Pen 2
      Paper 6
      Print At(7,20);Y;".  "
      Print At(27,20);X;".  "
      Pen 0
      Repeat
         I$=Inkey$
         If Mid$(LIN$(Y),X,1)<>""
            Paper 1
            Pen 0
            Print At(X+XX,Y+YY);Mid$(LIN$(Y),X,1)
         Else
            Paper 6
            Pen 1
            Print At(X+XX,Y+YY);"‹"
         End If
         Paper 6
         Pen 1
         MK=Mouse Key
      Until I$<>"" or MK=1 or MK=2
      If MK=1 Then Goto BALELUJA
      SAC=Scancode
      KSH=Key Shift
      LX=X
      LY=Y
      If((I$=Cdown$) or(I$=Chr$(13))) and Y<ANT
         Print At(X+XX,Y+YY);" "
         Inc Y
         If X>MX(Y)
            X=MX(Y)
         End If
         If I$=Chr$(13)
            X=1
         End If
      End If
      If I$=Cup$ and Y>1
         Print At(X+XX,Y+YY);" "
         Dec Y
         If X>MX(Y)
            X=MX(Y)
         End If
      End If
      If I$=Cleft$ and X>1 and KSH=0
         Dec X
      End If
      If I$=Cright$ and X<MX(Y) and KSH=0
         Inc X
      End If
      If KSH>0 and KSH<4 and SAC=78
         X=MX(Y)
      End If
      If KSH>0 and KSH<4 and SAC=79
         X=1
      End If
      If((Asc(I$)>31 and Asc(I$)<127) or(Asc(I$)>=161 and Asc(I$)=<255)) and MX(Y)<MAKS
         TT$=Left$(LIN$(Y),X-1)
         TT2$=Right$(LIN$(Y),MX(Y)-X)
         LIN$(Y)=TT$+I$+TT2$
         Inc X
         Inc MX(Y)
      End If
      If SAC=70 and X<MX(Y)
         TT$=Left$(LIN$(Y),X-1)
         TT2$=Right$(LIN$(Y),MX(Y)-X-1)
         LIN$(Y)=TT$+TT2$
         Dec MX(Y)
      End If
      Pen 0
      Paper 6
      If X>1 and Asc(I$)=8
         TT$=Left$(LIN$(Y),X-2)
         TT2$=Right$(LIN$(Y),MX(Y)-X)
         LIN$(Y)=TT$+TT2$
         Dec MX(Y)
         Dec X
         If X=MX(Y)
            Print At(XX+1,LY+YY);LIN$(LY);"  "
         End If
      End If
      Print At(XX+1,LY+YY);LIN$(LY);" "
      If Mid$(LIN$(Y),X,1)<>""
         Paper 1
         Pen 0
         Print At(X+XX,Y+YY);Mid$(LIN$(Y),X,1)
      Else
         Paper 6
         Pen 1
         Print At(X+XX,Y+YY);"‹"
      End If
      BALELUJA:
      Paper 6
      Pen 1
      MK=Mouse Key
   Until MK>0 and MK<3
   Z=Mouse Zone
   If MK=>1 and Z>0
      Ink 2,6 : Box X1(Z),Y1(Z) To X2(Z),Y2(Z)
      Repeat : ZZ=Mouse Zone : Until Mouse Key=0
      Ink 6 : Box X1(Z),Y1(Z) To X2(Z),Y2(Z)
      If ZZ<>Z : Z=0 : MK=0 : End If
   End If
   P$=Chr$(Z)+Chr$(MK)
   Paper 6
   Pen 0
   If Mid$(LIN$(Y),X,1)<>""
      Print At(X+XX,Y+YY);Mid$(LIN$(Y),X,1)
   Else
      Print At(X+XX,Y+YY);" "
   End If
   VIS_LITEN_TEKST["                             "]
   Print At(2,20);Space$(45)
End Proc[P$]
Procedure SAMLE_DEM[I]
   On Error Proc MAINERROR
   _FIXIT
   If RYDDE_EMNE=1 Then POST$(I)=TEM$(1)+¥$+TEM$(2)+¥$+TEM$(3)+¥$+TEM$(4)+¥$+TEM$(5)+¥$+LIN$(1)+¥$+LIN$(2)+¥$+LIN$(3)+¥$+LIN$(4)+¥$+LIN$(5)+¥$+LIN$(6)+¥$
   If RYDDE_EMNE=2 Then POST$(I)=TEM$(2)+¥$+TEM$(1)+¥$+TEM$(3)+¥$+TEM$(4)+¥$+TEM$(5)+¥$+LIN$(1)+¥$+LIN$(2)+¥$+LIN$(3)+¥$+LIN$(4)+¥$+LIN$(5)+¥$+LIN$(6)+¥$
   If RYDDE_EMNE=3 Then POST$(I)=TEM$(4)+¥$+TEM$(5)+¥$+TEM$(1)+¥$+TEM$(2)+¥$+TEM$(3)+¥$+LIN$(1)+¥$+LIN$(2)+¥$+LIN$(3)+¥$+LIN$(4)+¥$+LIN$(5)+¥$+LIN$(6)+¥$
End Proc
Procedure SPRE_DEM[I]
   On Error Proc MAINERROR
   AQA$=POST$(I)
   For MA=1 To 11
      MAGGE$(MA)=""
   Next
   If AQA$<>""
      For MA=1 To 11
         ROCK=Instr(AQA$,¥$)
         If ROCK>0
            MAGGE$(MA)=Left$(AQA$,ROCK-1)
            AQA$=Right$(AQA$,Len(AQA$)-ROCK)
         Else
            AQA$=Right$(AQA$,Len(AQA$)-1)
         End If
      Next
   End If
   If RYDDE_EMNE=1
      For I=1 To 5
         TEM$(I)=MAGGE$(I)
      Next
      For I=1 To 6
         LIN$(I)=MAGGE$(I+5)
      Next
   End If
   If RYDDE_EMNE=2
      TEM$(1)=MAGGE$(2)
      TEM$(2)=MAGGE$(1)
      For I=3 To 5
         TEM$(I)=MAGGE$(I)
      Next
      For I=1 To 6
         LIN$(I)=MAGGE$(I+5)
      Next
   End If
   If RYDDE_EMNE=3
      TEM$(2)=MAGGE$(4)
      TEM$(3)=MAGGE$(5)
      TEM$(4)=MAGGE$(1)
      TEM$(5)=MAGGE$(2)
      TEM$(1)=MAGGE$(3)
      For I=1 To 6
         LIN$(I)=MAGGE$(I+5)
      Next
   End If
End Proc
Procedure VIS_DET
   Paper 6
   If LAGRET=False Then Pen 2 Else Pen 0
   If Len(FILE_NAME$)=<33
      Print At(12,26);Left$(FILE_NAME$+Space$(33),33);
   Else
      Print At(12,26);Right$(FILE_NAME$,33);
   End If
   If Fast Free+Chip Free<100000 Then Pen 2 Else Pen 0
   Print At(31,28);Right$(Space$(12)+Str$(Fast Free+Chip Free),13);
   Pen 0
   Print At(12,28);Right$("     "+(Str$(POSTEN)-" "),5);
End Proc
Procedure VIS_DEM
   Print At(2,20);Space$(45)
   SPRE_DEM[POSTEN]
   Print At(9,1);Left$(TEM$(1)+Space$(40),40)
   Print At(9,3);Left$(TEM$(2)+Space$(40),40)
   Print At(20,6);Left$(TEM$(3)+"     ",5)
   Print At(20,8);Left$(TEM$(4)+"     ",5)
   Print At(32,8);Left$(TEM$(5)+"     ",5)
   For Y=1 To 6
      Print At(2,Y+12);Left$(LIN$(Y)+Space$(47),47)
   Next
End Proc
Procedure CLEANUP[MI]
   On Error Proc MAINERROR
   MIMAGE=6
   Every 50 Proc KLOKKE
   Change Mouse MIMAGE
   Every On
   For I=1 To 11 : MAGGE$(I)="" : Next
   For I=0 To POSTER+1
      AQA$=POST$(I)
      If AQA$<>""
         For MA=1 To 11
            ROCK=Instr(AQA$,¥$)
            If ROCK>0
               MAGGE$(MA)=Left$(AQA$,ROCK-1)
               AQA$=Right$(AQA$,Len(AQA$)-ROCK)
            Else
               AQA$=Right$(AQA$,Len(AQA$)-1)
            End If
         Next
      End If
      If MI=1
         For IJ=1 To 5
            TEM$(IJ)=MAGGE$(IJ)
         Next
         For IJ=1 To 6
            LIN$(IJ)=MAGGE$(IJ+5)
         Next
      End If
      If MI=2
         TEM$(1)=MAGGE$(2)
         TEM$(2)=MAGGE$(1)
         For IJ=3 To 5
            TEM$(IJ)=MAGGE$(IJ)
         Next
         For IJ=1 To 6
            LIN$(IJ)=MAGGE$(IJ+5)
         Next
      End If
      If MI=3
         TEM$(2)=MAGGE$(4)
         TEM$(3)=MAGGE$(5)
         TEM$(4)=MAGGE$(1)
         TEM$(5)=MAGGE$(2)
         TEM$(1)=MAGGE$(3)
         For IJ=1 To 6
            LIN$(IJ)=MAGGE$(IJ+5)
         Next
      End If
      SAMLE_DEM[I]
   Next
   Every Off
End Proc
Procedure FEILHANDLE
   ERR=Errn
   ERR_FLAG=True
   If ERR=94
      If FERPU=1
         MESSAGE[Pen$(2)+"*** ERROR ***"+Pen$(0),"","CAN'T OPEN PRINTER....","",-1]
         Resume Label
      End If
      If FERPU=2
         REQUEST[Pen$(2)+"** PRINTER TROUBLE **"+Pen$(0),"PLEASE TURN PRINTER ON-LINE AND TRY AGAIN.","CHECK THE PRINTER CABLE TOO.",198,124,379,173,2,False,X Mouse,Y Mouse]
         AHAHA=Param
         If AHAHA=True
            ERR_FLAG=False
            Resume
         End If
         Close 1
         Resume Label
      End If
   End If
   If ERR=86
      If FERPU=1
         MESSAGE[Pen$(2)+"*** ERROR ***"+Pen$(0),"","CAN'T OPEN PRINTER....","",-1]
         Resume Label
      End If
   End If
End Proc
Procedure _HUNT[FIN$]
   On Error Proc MAINERROR
   For I=0 To POSTER+1
      If POST$(I)<>String$(¥$,11)
         If Upper$(Left$(POST$(I),Len(FIN$)))=Upper$(FIN$)
            PF=I
            Goto B
         End If
      End If
   Next
   For I=0 To POSTER+1
      If Upper$(Left$(POST$(I),Len(FIN$)))>Upper$(FIN$)
         PF=-I-$FFFF
         Goto B
      End If
   Next
   B:
End Proc[PF]
Procedure ROSENBIFF
   On Error Proc MAINERROR
   Dim IMA(1,2),YMA(2)
   YMA(1)=20 : YMA(2)=60 : IMA(0,0)=15 : IMA(0,1)=19 : IMA(0,2)=16 : IMA(1,0)=17 : IMA(1,1)=20 : IMA(1,2)=18
   LA8PV=X Mouse : LA9PV=Y Mouse : Hide On : X Mouse=128 : Y Mouse=42
   Limit Mouse 128,42 To 447,122
   B=Colour(7) : A=Colour(5)
   Screen Open 1,640,82,2,Hires
   Screen To Back 1 : Paper 0 : Pen 1 : View : Home : Curs Off : Cls 0
   Print "Name";At(35,);"Type";At(54,);"Disks & disk numbers"
   Print String$("‰",76)
   Wind Open 2,0,16,76,8,0
   Pen 1 : Paper 0 : Hide On : Curs Off : Clw
   Palette B,A : Colour 19,$440 : Colour 18,$770 : Colour 17,$AA0
   Change Mouse 20
   For I=0 To 2 : Paste Bob 623,YMA(I),IMA(0,I)-4 : Next
   Bob Update
   If POSTER<7
      FPO=0
      TPO=7
   Else
      If POSTEN+7>POSTER
         FPO=POSTER-7
         TPO=POSTER
      Else
         FPO=POSTEN
         TPO=POSTEN+7
      End If
   End If
   L=0
   For I=FPO To TPO
      SPRE_DEM[I]
      If TEM$(4)<>TEM$(5)
         Print At(0,L);Left$(TEM$(1),34);At(35,);Left$(TEM$(2),18);At(54,);Left$(TEM$(3)+Space$(5),5);" ";Left$(TEM$(4)+Space$(5),5);" to ";Left$(TEM$(5)+Space$(5),5);
      Else
         Print At(0,L);Left$(TEM$(1),34);At(35,);Left$(TEM$(2),18);At(54,);Left$(TEM$(3)+Space$(5),5);" ";Left$(TEM$(4)+Space$(5),5);
      End If
      Inc L
      VISES=I
   Next
   Screen Display 1,,42,,
   For I=42 To 42+82 Step 2
      Screen Display 0,,I,,
      Wait Vbl
   Next
   Show On
   Do
      Repeat
         MX=X Screen(X Mouse)
         MY=Y Screen(Y Mouse)
         Z=0
         If MX>623 and MX<641 and MY>0 and MY<20
            Z=1
         End If
         If MX>623 and MX<641 and MY>19 and MY<60
            Z=2
         End If
         If MX>623 and MX<641 and MY>59 and MY<80
            Z=3
         End If
      Until Mouse Key=1 and Z>0
      Paste Bob 623,YMA(Z-1),IMA(1,Z-1)-4
      Repeat
         If Z=1 and ZZ=1
            Dec VISES
            If VISES<7
               VISES=7
            Else
               SPRE_DEM[VISES-7]
               Locate 0,0
               Vscroll 1
               If TEM$(4)<>TEM$(5)
                  Print At(0,0);Left$(TEM$(1),34);At(35,);Left$(TEM$(2),18);At(54,);Left$(TEM$(3)+Space$(5),5);" ";Left$(TEM$(4)+Space$(5),5);" to ";Left$(TEM$(5)+Space$(5),5);
               Else
                  Print At(0,0);Left$(TEM$(1),34);At(35,);Left$(TEM$(2),18);At(54,);Left$(TEM$(3)+Space$(5),5);" ";Left$(TEM$(4)+Space$(5),5);
               End If
            End If
         End If
         If Z=3 and ZZ=3
            Inc VISES
            If VISES>POSTER
               VISES=POSTER
            Else
               SPRE_DEM[VISES]
               Locate 0,7
               Vscroll 3
               If TEM$(4)<>TEM$(5)
                  Print At(0,7);Left$(TEM$(1),34);At(35,);Left$(TEM$(2),18);At(54,);Left$(TEM$(3)+Space$(5),5);" ";Left$(TEM$(4)+Space$(5),5);" to ";Left$(TEM$(5)+Space$(5),5);
               Else
                  Print At(0,7);Left$(TEM$(1),34);At(35,);Left$(TEM$(2),18);At(54,);Left$(TEM$(3)+Space$(5),5);" ";Left$(TEM$(4)+Space$(5),5);
               End If
            End If
         End If
         MX=X Screen(X Mouse)
         MY=Y Screen(Y Mouse)
         ZZ=0
         If MX>623 and MX<641 and MY>0 and MY<20
            ZZ=1
         End If
         If MX>623 and MX<641 and MY>19 and MY<60
            ZZ=2
         End If
         If MX>623 and MX<641 and MY>59 and MY<80
            ZZ=3
         End If
      Until Mouse Key=0
      Paste Bob 623,YMA(Z-1),IMA(0,Z-1)-4
      If Z=2 and ZZ=2 Then Goto HITTT
   Loop
   '
   HITTT:
   Bob Update Off
   Hide On
   For I=42+82 To 42 Step -2
      Screen Display 0,,I,,
      Wait Vbl
   Next
   Screen Close 1
   Screen Display 0,,42,,
   Screen 0
   X Mouse=LA8PV
   Y Mouse=LA9PV
   Limit Mouse 342,127 To 438,282
   Change Mouse 4
   X Mouse=LA8PV
   Y Mouse=LA9PV
   View
   Show On
   If VISES<7
      VISES=7
   End If
   POSTEN=VISES-7
   VIS_DET : VIS_DEM
End Proc
Procedure FYTTIGRISEN[I,COMMA]
   On Error Proc FEILHANDLE
   Resume Label PRTF2
   If PRT_LIN=0
      CLKFHSMLF$="Name"+Space$(26-3)+"  Type"+Space$(26-10)+"  Disks  From   To   "
      Gosub TST
      Print #1,CLKFHSMLF$
      Inc PRT_LIN
      Gosub TST
      Print #1,String$("=",Len(CLKFHSMLF$))
      Inc PRT_LIN
   End If
   SPRE_DEM[I]
   Gosub TST
   Print #1,Left$(TEM$(1)+Space$(30),30-3)+"  "+Left$(TEM$(2)+Space$(30-10),30-10)+"  "+Right$(Space$(5)+(TEM$(3)-" "),5)+"  "+Left$(TEM$(4)+Space$(5),5)+"  "+Left$(TEM$(5)+Space$(5),5)
   Inc PRT_LIN
   Gosub SJK_PL
   If COMMA=True
      If PRT_DEF(5)=1 and PRT_DEF(6)=2
         For YYPY=6 To 1 Step -1
            Exit If LIN$(YYPY)-" "<>""
         Next
         If YYPY>=1
            For Y=1 To YYPY
               Gosub TST
               Print #1,"  "+LIN$(Y)
               Inc PRT_LIN
               Gosub SJK_PL
            Next
         End If
      End If
   End If
   Pop Proc
   '
   SJK_PL:
   If PRT_DEF(3)=1 and PRT_DEF(4)=2
      If PRT_LIN>=58
         Gosub TST
         Print #1,Chr$(12)
         PRT_LIN=0
      End If
   End If
   '
   TST:
   If Mouse Key=>2
      REQUEST[Pen$(2)+"**** BREAK DETECTED ****"+Pen$(0),"DO YOU WANT TO ABORT THE PRINTING?","",198,124,379,173,2,False,X Mouse,Y Mouse]
      NGFSA=Param
      If NGFSA=True
         BRK_FLAG=True
         Pop Proc
      End If
   End If
   Return
   PRTF2:
   ERR_FLAG=True
   MESSAGE2["","","","",False]
End Proc
Procedure SJEKK
   On Error Proc MAINERROR
   If LAGRET=True
      _OK=True
   Else
      REQUEST[Pen$(2)+"THE FILE IS NOT SAVED !",Pen$(1)+"*************************"+Pen$(0),"DO YOU WANT TO SAVE IT?",342,127,438,282,1,False,X Mouse,Y Mouse]
      HM=Param
      If HM=True
         DASK[2]
         If LAGRET=True
            _OK=True
         Else
            _OK=False
         End If
      Else
         _OK=True
      End If
   End If
End Proc[_OK]
Procedure SAMLIKN[FIN$,Nº]
   L=Min(Len(FIN$),Len(TEM$(Nº)))
   If Upper$(Left$(FIN$,L))=Upper$(Left$(TEM$(Nº),L)) Then HVA=1 Else HVA=0
End Proc[HVA]
Procedure _FIXIT
   _VAL[TEM$(3)] : R=Param : TEM$(3)=Str$(R)-" "
End Proc
Procedure MAINERROR
   If MESS_ON=True
      Put Block 56
      Del Block 56
      MESS_ON=False
   End If
   ERR=Errn
   If ERR=24
      Inc LOMEM
      If LOMEM<8
         Resume
      End If
      Del Cblock 1
      Del Cblock 2
      Del Block 9
      Screen Close 3
      Screen Close 0
      Screen Open 0,640,20,2,Hires
      Curs Off
      Palette $FF0,$F00
      Screen Display 0,,120,,
      Cls 0
      Centre "* * *  OUT OF MEMORY.  I'LL HAVE TO QUIT.  * * *"
      Wait Key
      Screen Close 0
      Edit
   End If
   Inc MERRA
   If MERRA<5
      Screen Open 7,640,20,2,Hires
      Curs Off
      Palette $FF0,$F00
      Screen Display 7,,120,,
      Cls 0
      Centre "* *  ERROR !!! IF IT REPEATS, PLEASE REPORT.  * *"+Cdown$
      Centre "[ THE ERROR NUMBER IS:"+Str$(ERR)+" ]"
      Wait Key
      Screen Close 7
      Resume Next
   Else
      Del Cblock 1
      Del Cblock 2
      Del Block 9
      Screen Close 3
      Screen Close 0
      Screen Open 0,640,20,2,Hires
      Curs Off
      Palette $FF0,$F00
      Screen Display 0,,120,,
      Cls 0
      Centre "* * *  FATAL ERROR !!  I'LL HAVE TO QUIT.  * * *"+Cdown$
      Centre "[ THE ERROR NUMBER IS:"+Str$(ERR)+" ]"
      Wait Key
      Screen Close 0
      Edit
   End If
End Proc
Procedure SJEKK_MINNE
   FRE_M=Free
   If FRE_M<5000
      MESSAGE[String$("*",34),"LOW ON FREE WORKSPACE!","SAVE NOW!!!",String$("*",34),50*5]
      SAV_FLAG=True
   Else
      SAV_FLAG=False
   End If
End Proc
Procedure _VAL[A$]
   B$=Right$("     "+A$,5)
   G=1
   T=0
   C=0
   For P=5 To 1 Step -1
      C$=Mid$(B$,P,1)
      If C$=" " Then C$="0"
      For I=0 To 9
         F$=Str$(I)-" "
         If C$=F$ Then C=I
      Next
      T=T+(C*G)
      G=G*10
   Next
End Proc[T]
Procedure _COPYRIGHT[YDISPLAY]
   Auto View Off : Unpack 7 To 7 : For Y=2 To Screen Height/2 Step 2 : Screen Display 7,,YDISPLAY+Screen Height/2-Y,,Y*2 : Screen Offset 7,,Screen Height/2-Y : View : Wait Vbl : Next
   Wait 50*3 : For Y=Screen Height/2 To 0 Step -8 : Screen Display 7,,YDISPLAY+Screen Height/2-Y,,Y*2 : Screen Offset 7,,Screen Height/2-Y : View : Wait Vbl : Next : Screen Close 7 : Auto View On
End Proc
Procedure DISK
   On Error Proc MAINERROR
   Erase 15 : Reserve As Work 15,261
   Unpack 12 To 1 : Screen Display 1,,60,,
   Paste Icon 455,79,Abs(1-VICON)+6
   View : Limit Mouse
   Colour 19,$440 : Colour 18,$770 : Colour 17,$AA0
   Paper 3 : Pen 2 : Wind Open 1,16,8,38,18
   Dim FILNA$(400),FILN2$(400),X1(24),Y1(24),X2(24),Y2(24),EDLIN$(2)
   LES_OK=False
   If FILE_NAME$<>"Unnamed...." Then EDLIN$(2)=FILE_NAME$ Else EDLIN$(2)=""
   TLEN=Len(EDLIN$(2)) : TPOS=TLEN+1 : MTLEN=23
   LES_OK=False
   Window 0
   Pen 2
   Print At(52,7);Left$(EDLIN$(2)+Space$(MTLEN),MTLEN+1)
   If TPOS=TLEN+1
      Pen 1
      Print At(51+TPOS,7);"|"
   Else
      Paper 2
      Pen 0
      Print At(51+TPOS,7);Mid$(EDLIN$(2),TPOS,1)
      Paper 3
   End If
   Pen 2
   Window 1
   Gosub MAK_ZON
   LES_DIR:
   LES_OK=False
   RSIZ=0
   VIPOS=0
   SIZTO=0
   FIL=0
   RFIL=0
   For I=0 To 400 : FILNA$(I)=¥$ : FILN2$(I)=¥$ : Next
   '
   A:
   Timer=0 : Window 0
   Print At(50,2);Left$(Str$(FIL)+" files,"+Str$(SIZTO)+" bytes."+Space$(27),27)
   Window 1 : Clw
   If Exist(DEV$)
      Dir$=DEV$ : DISKNAVN$=Dir$ : DEV$=DISKNAVN$
   Else
      NEW_DMESSAGE[DEV$]
      P=Param
      If P=True
         Goto A
      Else
         DEVS
         PA$=Param$
         If PA$<>""
            DEV$=PA$
            Goto A
         Else
            Goto HELLO
         End If
      End If
   End If
   '
   A$=DEV$+Chr$(0)
   Dreg(1)=Varptr(A$)
   Dreg(2)=-2
   A=Doscall(-84)
   If A=0
      Goto A
   End If
   LOCSAV=A
   Dreg(1)=LOCSAV
   Dreg(2)=Start(15)
   A=Doscall(-102)
   MORN[Start(15)+8,108]
   Window 0
   Pen 2
   If Len(DISKNAVN$)=<24
      Print At(52,5);Left$(DISKNAVN$+Space$(24),24)
   Else
      Print At(52,5);Right$(DISKNAVN$,24)
   End If
   Print At(50,2);Left$(Str$(FIL)+" files,"+Str$(SIZTO)+" bytes."+Space$(27),27)
   Window 1
   '
   Do
      If LES_OK=False and FAG=0
         Gosub LEDIR
      End If
      Add FAG,1,0 To 2
      Z=Mouse Zone
      MK=Mouse Key
      If MK=0 and LAF>0 and LAF<10
         Gr Writing 2+1
         Bar X1(LAF),Y1(LAF) To X2(LAF),Y2(LAF)
         Gr Writing 0
         LAF=0
      End If
      If MK=1 and Z<>8 and Z<>9 and LAF>0 and LAF<10
         Gr Writing 2+1
         Bar X1(LAF),Y1(LAF) To X2(LAF),Y2(LAF)
         Gr Writing 0
         LAF=0
      End If
      If MK=1
         If Z=2 and LES_OK=True
            Add VICON,1,1 To 2
            Paste Icon 455,79,Abs(1-VICON)+6
            Repeat
            Until Mouse Key=0
            Gosub INFO
         End If
         If Z>0 and Z<>2
            If Z<>8 and Z<>9 and Z<10
               Gr Writing 2+1
               Bar X1(Z),Y1(Z) To X2(Z),Y2(Z)
               Repeat
                  ZZ=Mouse Zone
                  If LES_OK=False
                     Gosub LEDIR
                  End If
               Until Mouse Key=0
               Gr Writing 2+1
               Bar X1(Z),Y1(Z) To X2(Z),Y2(Z)
               Gr Writing 0
            End If
            ZZ=Mouse Zone
            If ZZ=Z and(Z=9 or Z=8)
               If LAF=0
                  LAF=Z
                  If Z<10
                     Gr Writing 2+1
                     Bar X1(Z),Y1(Z) To X2(Z),Y2(Z)
                  End If
               End If
               If Z=8 and FIL>18 and VIPOS>0
                  Locate 0,0
                  Vscroll 1
                  Dec VIPOS
                  I=VIPOS
                  A$=Left$(FILNA$(I),Instr(FILNA$(I),Chr$(1))-1)
                  If Left$(A$,1)="-"
                     TGFD=0
                  Else
                     TGFD=1
                  End If
                  A$=Right$(A$,Len(A$)-1)
                  If TGFD=0
                     B$=Right$(FILNA$(I),Len(FILNA$(I))-Instr(FILNA$(I),Chr$(1)))-" "
                     Print Left$(A$,28);At(30,);Right$(Space$(7)+B$,7);
                  Else
                     Print Left$(A$,28);At(32,);"(Dir)";
                  End If
               End If
               If Z=9 and FIL>18 and VIPOS+17<FIL-1
                  Locate 0,17
                  Vscroll 3
                  Inc VIPOS
                  I=VIPOS+17
                  A$=Left$(FILNA$(I),Instr(FILNA$(I),Chr$(1))-1)
                  If Left$(A$,1)="-"
                     TGFD=0
                  Else
                     TGFD=1
                  End If
                  A$=Right$(A$,Len(A$)-1)
                  If TGFD=0
                     B$=Right$(FILNA$(I),Len(FILNA$(I))-Instr(FILNA$(I),Chr$(1)))-" "
                     Print Left$(A$,28);At(30,);Right$(Space$(7)+B$,7);
                  Else
                     Print Left$(A$,28);At(32,);"(Dir)";
                  End If
               End If
            End If
            If Z=1 or(Z>=3 and Z=<7) or Z>=10
               If Z=6 and ZZ=6
                  OK_RET=True
                  Goto HELLO
               End If
               If Z=7 and ZZ=7
                  OK_RET=False
                  Goto HELLO
               End If
               If Z=3 and ZZ=3
                  If Right$(DEV$,1)<>":"
                     For I=Len(DEV$)-1 To 0 Step -1
                        DEV$=Left$(DEV$,I)
                        Exit If Right$(DEV$,1)=":" or(Right$(DEV$,1)="/")
                     Next
                     Goto LES_DIR
                  End If
               End If
               If Z=5 and ZZ=5
                  Goto LES_DIR
               End If
               If Z=1 and ZZ=1
                  Sort FILNA$(0)
                  For I=VIPOS To VIPOS+17
                     Window 1
                     Locate 0,I-VIPOS
                     Print String$(" ",37);
                     Locate 0,I-VIPOS
                     If I<FIL
                        A$=Left$(FILNA$(I),Instr(FILNA$(I),Chr$(1))-1)
                        If Left$(A$,1)="-"
                           TGFD=0
                        Else
                           TGFD=1
                        End If
                        A$=Right$(A$,Len(A$)-1)
                        If TGFD=0
                           B$=Right$(FILNA$(I),Len(FILNA$(I))-Instr(FILNA$(I),Chr$(1)))-" "
                           Print Left$(A$,28);At(30,);Right$(Space$(7)+B$,7);
                        Else
                           Print Left$(A$,28);At(32,);"(Dir)";
                        End If
                     End If
                  Next
               End If
               If Z=4 and ZZ=4
                  DEVS
                  PA$=Param$
                  If Upper$(PA$)=Upper$(Left$(DISKNAVN$,Instr(DISKNAVN$,":"))) or(PA$="")
                     For I=VIPOS To VIPOS+17
                        Window 1
                        Locate 0,I-VIPOS
                        Print String$(" ",37);
                        Locate 0,I-VIPOS
                        If I<FIL
                           A$=Left$(FILNA$(I),Instr(FILNA$(I),Chr$(1))-1)
                           If Left$(A$,1)="-"
                              TGFD=0
                           Else
                              TGFD=1
                           End If
                           A$=Right$(A$,Len(A$)-1)
                           If TGFD=0
                              B$=Right$(FILNA$(I),Len(FILNA$(I))-Instr(FILNA$(I),Chr$(1)))-" "
                              Print Left$(A$,28);At(30,);Right$(Space$(7)+B$,7);
                           Else
                              Print Left$(A$,28);At(32,);"(Dir)";
                           End If
                        End If
                     Next
                  Else
                     DEV$=PA$
                     Goto LES_DIR
                  End If
               End If
               If Z>=10 and Z=<27 and Z=ZZ
                  I=Z-10+VIPOS
                  If FILNA$(I)<>¥$
                     A$=Left$(FILNA$(I),Instr(FILNA$(I),Chr$(1))-1)
                     If Left$(A$,1)="-"
                        FILTYP=0
                     Else
                        FILTYP=1
                     End If
                     LCURRFIL$=CURRFIL$
                     CURRFIL$=Right$(A$,Len(A$)-1)
                     If LCURRFIL$=CURRFIL$
                        Inc VLGT
                        If VLGT>2
                           VLGT=0
                        End If
                        If VLGT>=1
                           Gr Writing 2+1
                           Bar 16,8*(Z-9) To 312,8*(Z-9)+7
                           Repeat
                           Until Mouse Key=0
                           Bar 16,8*(Z-9) To 312,8*(Z-9)+7
                           Gr Writing 0
                        End If
                        Timer=0
                     Else
                        VLGT=0
                        LCURRFIL$=""
                        Timer=55
                     End If
                     FILSIZ$=Right$(FILNA$(I),Len(FILNA$(I))-Instr(FILNA$(I),Chr$(1)))-" "
                     If FILTYP=0
                        EDLIN$(2)=CURRFIL$
                        TLEN=Len(EDLIN$(2))
                        TPOS=TLEN+1
                        Window 0
                        Pen 2
                        Print At(52,7);Left$(EDLIN$(2)+Space$(MTLEN),MTLEN+1)
                        If TPOS=TLEN+1
                           Pen 1
                           Print At(51+TPOS,7);"|"
                        Else
                           Paper 2
                           Pen 0
                           Print At(51+TPOS,7);Mid$(EDLIN$(2),TPOS,1)
                           Paper 3
                        End If
                        Pen 2
                        Window 1
                     End If
                     If VLGT=2 and Timer=<30
                        If FILTYP=1
                           DEV$=DEV$+CURRFIL$+"/"
                           Goto LES_DIR
                        End If
                        If FILTYP=0
                           OK_RET=True
                           Goto HELLO
                        End If
                     End If
                  End If
               End If
            End If
         End If
      End If
      I$=Inkey$
      If Asc(I$)=13
         OK_RET=True
         Goto HELLO
      End If
      If I$<>""
         Window 0
         AAA=Asc(I$)
         SAC=Scancode
         KSH=Key Shift
         If SAC=79 and TPOS>1 and KSH<>1 and KSH<>2 and KSH<>32
            Dec TPOS
         End If
         If SAC=78 and TPOS=<TLEN and KSH<>1 and KSH<>2 and KSH<>32
            Inc TPOS
         End If
         If AAA<>47 and AAA<>127 and((AAA>31 and AAA<127) or(AAA>160)) and TLEN<MTLEN
            TT$=Left$(EDLIN$(2),TPOS-1)
            TT2$=Right$(EDLIN$(2),TLEN-TPOS+1)
            EDLIN$(2)=TT$+I$+TT2$
            Inc TLEN
            Inc TPOS
         End If
         If TPOS>1 and SAC=65
            TT$=Left$(EDLIN$(2),TPOS-2)
            TT2$=Right$(EDLIN$(2),TLEN-TPOS+1)
            EDLIN$(2)=TT$+TT2$
            Dec TLEN
            Dec TPOS
         End If
         If SAC=70 and TPOS=<TLEN
            TT$=Left$(EDLIN$(2),TPOS-1)
            TT2$=Right$(EDLIN$(2),TLEN-TPOS)
            EDLIN$(2)=TT$+TT2$
            Dec TLEN
         End If
         If(KSH=1 or KSH=2) and SAC>77 and SAC<80
            If SAC=78
               TPOS=TLEN+1
            Else
               TPOS=1
            End If
         End If
         If SAC=78 and TPOS=<TLEN and KSH=32
            TT=Instr(Right$(EDLIN$(2),TLEN-TPOS)," ")
            If TT>0
               Add TPOS,TT
            Else
               TPOS=TLEN+1
            End If
         End If
         If SAC=79 and KSH=32
            TT$=Flip$(Left$(EDLIN$(2),TPOS-1))
            TT=Instr(TT$," ")
            If TT>0
               Add TPOS,-TT
            Else
               TPOS=1
            End If
         End If
         Pen 2
         Print At(52,7);Left$(EDLIN$(2)+Space$(MTLEN),MTLEN+1)
         If TPOS=TLEN+1
            Pen 1
            Print At(51+TPOS,7);"|"
         Else
            Paper 2
            Pen 0
            Print At(51+TPOS,7);Mid$(EDLIN$(2),TPOS,1)
            Paper 3
         End If
         Pen 2
         Window 1
      End If
   Loop
   '
   LEDIR:
   Dreg(1)=LOCSAV
   Dreg(2)=Start(15)
   A=Doscall(-108)
   If A<>True
      LES_OK=True
      Return
   End If
   TYPE=Leek(Start(15)+4)
   SIZE=Leek(Start(15)+124)
   MORN[Start(15)+8,108]
   P$=Param$
   If VICON=1
      If Upper$(Right$(P$,5))<>Upper$(".info")
         FILN2$(RFIL)=Left$(Str$(TYPE),1)+P$+Chr$(1)+Str$(SIZE)
         Inc RFIL
         Add RSIZ,SIZE
      End If
      FILNA$(FIL)=Left$(Str$(TYPE),1)+P$+Chr$(1)+Str$(SIZE)
      Add SIZTO,SIZE
      Inc FIL
      If FIL-1<18
         Locate 0,FIL-1
         If TYPE<0
            Print Left$(P$,28);At(30,);Right$(Space$(7)+Str$(SIZE),7);
         Else
            Print Left$(P$,28);At(32,);"(Dir)";
         End If
      End If
      Window 0
      Print At(50,2);Left$(Str$(FIL)+" files,"+Str$(SIZTO)+" bytes."+Space$(27),27)
      Window 1
   Else
      If Upper$(Right$(P$,5))<>Upper$(".info")
         FILNA$(FIL)=Left$(Str$(TYPE),1)+P$+Chr$(1)+Str$(SIZE)
         Inc FIL
         Add SIZTO,SIZE
      End If
      FILN2$(RFIL)=Left$(Str$(TYPE),1)+P$+Chr$(1)+Str$(SIZE)
      Add RSIZ,SIZE
      Inc RFIL
      If Upper$(Right$(P$,5))<>Upper$(".info")
         If FIL-1<18
            Locate 0,FIL-1
            If TYPE<0
               Print Left$(Param$,28);At(30,);Right$(Space$(7)+Str$(SIZE),7);
            Else
               Print Left$(Param$,28);At(32,);"(Dir)";
            End If
         End If
         Window 0
         Print At(50,2);Left$(Str$(FIL)+" files,"+Str$(SIZTO)+" bytes."+Space$(27),27)
         Window 1
      End If
   End If
   Return
   '
   INFO:
   Sort FILN2$(0)
   VIPOS=0
   For I=0 To Max(RFIL,FIL)
      X$=FILN2$(I)
      FILN2$(I)=FILNA$(I)
      FILNA$(I)=X$
      If I<18
         If FILNA$(I)=¥$
            Locate 0,I
            Print String$(" ",37);
         Else
            Locate 0,I
            A$=Left$(FILNA$(I),Instr(FILNA$(I),Chr$(1))-1)
            If Left$(A$,1)="-"
               TGFD=0
            Else
               TGFD=1
            End If
            A$=Right$(A$,Len(A$)-1)
            If TGFD=0
               B$=Right$(FILNA$(I),Len(FILNA$(I))-Instr(FILNA$(I),Chr$(1)))-" "
               Print Left$(A$+Space$(28),28);At(30,);Right$(Space$(7)+B$,7);
            Else
               Print Left$(A$+Space$(28),28);At(30,);"  (Dir)";
            End If
         End If
      End If
   Next
   Swap FIL,RFIL
   Swap SIZTO,RSIZ
   Window 0
   Print At(50,2);Left$(Str$(FIL)+" files,"+Str$(SIZTO)+" bytes."+Space$(27),27)
   Window 1
   Return
   '
   ZON_DAT:
   Data 375,79,447,95,455,79,607,95,375,103,447,119,455,103,527,119
   Data 535,103,607,119,375,127,479,143,503,127,607,143,328,8,344,24,328,135,344,151
   '
   MAK_ZON:
   Reserve Zone 27 : Restore ZON_DAT
   For I=1 To 9
      Read X1(I),Y1(I),X2(I),Y2(I)
      Set Zone I,X1(I),Y1(I) To X2(I),Y2(I)
   Next
   Window 1
   For I=10 To 27
      Locate 0,I-10
      Print Zone$(String$(" ",37),I);
   Next
   Return
   '
   HELLO:
   If OK_RET=True and(EDLIN$(2)<>"")
      RET$=DISKNAVN$+EDLIN$(2)
   Else
      RET$=""
   End If
   Screen Close 1
End Proc[RET$]
Procedure DEVS
   On Error Proc MAINERROR
   Dim X1(24),Y1(24),X2(24),Y2(24),DEV$(128)
   LES_OK=False : VIPOS=0 : Gosub MAK_ZON : Window 0
   Print At(50,2);Left$(" Select a device, please."+Space$(27),27)
   LES_DEV:
   FRST=False
   Window 1 : Clw : Restore DRIV : Inverse On
   For I=0 To 128 : DEV$(I)="" : Next : DEV=0 : Read KAAREW
   For N=0 To KAAREW : Read DEV$(DEV) : If Drive(DEV$(DEV))=-1 Then Inc DEV
   Print At(1,DEV-1);Left$(DEV$(DEV-1),35); : Next : JYNE=DEV
   Inverse Off : LES_OK=False : VIPOS=0 : SELDEV$=""
   Window 0 : Print At(52,5);Left$(SELDEV$+Space$(24),24)
   Timer=0 : Window 1
   Do
      If LES_OK=False
         Gosub LEDEV
      End If
      Z=Mouse Zone
      If Z<5 Then Z=0
      MK=Mouse Key
      If MK=0 and LAF>0 and LAF<10
         Gr Writing 2+1
         Bar X1(LAF),Y1(LAF) To X2(LAF),Y2(LAF)
         Gr Writing 0
         LAF=0
      End If
      If MK=1 and Z<>8 and Z<>9 and LAF>0 and LAF<10
         Gr Writing 2+1
         Bar X1(LAF),Y1(LAF) To X2(LAF),Y2(LAF)
         Gr Writing 0
         LAF=0
      End If
      If MK=1
         If Z>0 and Z<>2
            If Z<>8 and Z<>9 and Z<10
               Gr Writing 2+1
               Bar X1(Z),Y1(Z) To X2(Z),Y2(Z)
               Repeat
                  ZZ=Mouse Zone
                  If LES_OK=False
                     Gosub LEDEV
                  End If
               Until Mouse Key=0
               Gr Writing 2+1
               Bar X1(Z),Y1(Z) To X2(Z),Y2(Z)
               Gr Writing 0
            End If
            ZZ=Mouse Zone
            If ZZ=Z and(Z=9 or Z=8)
               If LAF=0
                  LAF=Z
                  If Z<10
                     Gr Writing 2+1
                     Bar X1(Z),Y1(Z) To X2(Z),Y2(Z)
                  End If
               End If
               If Z=8 and DEV>18 and VIPOS>0
                  Window 1
                  Locate 1,0
                  Vscroll 1
                  Dec VIPOS
                  I=VIPOS
                  If I<6 : Inverse On : End If
                  Print Left$(DEV$(I),35);
                  Inverse Off
                  Wait Vbl
               End If
               If Z=9 and DEV>18 and VIPOS+17<DEV-1
                  Window 1
                  Locate 1,17
                  Vscroll 3
                  Inc VIPOS
                  I=VIPOS+17
                  If I<6 : Inverse On : End If
                  Print Left$(DEV$(I),35);
                  Inverse Off
                  Wait Vbl
               End If
            End If
            If Z>=5 and Z<>8 and Z<>9
               If Z=6 and ZZ=6 : Goto HELLO : End If
               If Z=7 and ZZ=7 : SELDEV$="" : Goto HELLO : End If
               If Z=5 and ZZ=5 : Goto LES_DEV : End If
               If Z>=10 and Z=<27
                  I=Z-10+VIPOS
                  If DEV$(I)<>""
                     Gr Writing 2+1
                     Bar 16,8*(Z-9) To 312,8*(Z-9)+7
                     Repeat
                     Until Mouse Key=0
                     Bar 16,8*(Z-9) To 312,8*(Z-9)+7
                     Gr Writing 0
                     If DED$=DEV$(I)
                        If Timer<30
                           SELDEV$=DEV$(I)
                           Goto HELLO
                        Else
                           DED$=""
                        End If
                     Else
                        DED$=DEV$(I)
                        SELDEV$=DEV$(I)
                        Window 0
                        Print At(52,5);Left$(SELDEV$+Space$(24),24)
                        Window 1
                     End If
                     Timer=0
                  End If
               End If
            End If
         End If
      End If
   Loop
   LEDEV:
   If FRST=False
      DEV$(DEV)=Dev First$("")
      FRST=True
   Else
      DEV$(DEV)=Dev Next$
   End If
   If DEV$(DEV)="" Then LES_OK=True : Return
   DEV$(DEV)=Left$(DEV$(DEV),Instr(DEV$(DEV),":"))
   DEV$(DEV)=Right$(DEV$(DEV),Len(DEV$(DEV))-1)
   Restore NOPE : Read OI3
   For KBW=0 To OI3
      Read SJ$ : If Upper$(SJ$)=Upper$(DEV$(DEV)) Then Return
   Next
   Window 1 : If DEV<18 Then Print At(1,DEV);Left$(DEV$(DEV),35); : Inc DEV
   Return
   '
   ZON_DAT:
   Data 375,79,447,95,455,79,607,95,375,103,447,119,455,103,527,119,535,103,607,119,375,127,479,143,503,127,607,143,328,8,344,24,328,135,344,151
   DRIV:
   Data 6,"Df0:","Df1:","Df2:","Df3:","Dh0:","Ram:","Rad:"
   NOPE:
   Data 15,"Df0:","Df1:","Df2:","Df3:","Dh0:","Ram:"
   Data "Rad:","L:","Libs:","FONTS:"
   Data "C:","Devs:","Par:","Ser:","Aux:","S:"
   MAK_ZON:
   Reserve Zone 27 : Restore ZON_DAT
   For I=1 To 9 : Read X1(I),Y1(I),X2(I),Y2(I) : Set Zone I,X1(I),Y1(I) To X2(I),Y2(I) : Next
   Window 1 : For I=10 To 27 : Print At(0,I-10);Zone$(String$(" ",37),I); : Next : Return
   HELLO:
End Proc[SELDEV$]
Procedure MORN[ST,LE]
   FAF$=Space$(LE) : SASS=Varptr(FAF$)
   For I=ST To ST+LE : If Peek(I)=0 : Goto C : End If : Poke SASS+ADSAD,Peek(I) : Inc ADSAD : Next :
   C: FAF$=Left$(FAF$,ADSAD)
End Proc[FAF$]
Procedure NEW_DMESSAGE[DISK$]
   On Error Proc MAINERROR
   Hide On : I=Instr(DISK$,":") : If I=0 Then Pop Proc
   DISK$=Left$(DISK$,I) : DRIV=False
   If(Upper$(DISK$)=Upper$("Df0:")) or(Upper$(DISK$)=Upper$("Df1:")) or(Upper$(DISK$)=Upper$("Df2:")) or(Upper$(DISK$)=Upper$("Dh0:")) or(Upper$(DISK$)=Upper$("Ram:")) or(Upper$(DISK$)=Upper$("Rad:"))
      DRIV=True
      DISK$=Lower$(DISK$)
      Left$(DISK$,1)=Upper$(Left$(DISK$,1))
   End If
   Screen Open 7,640,32,4,Hires : Screen Hide 7
   Flash Off : Get Palette 1 : Colour 2,Colour(3)
   Curs Off : Paper 3 : Ink 1 : Pen 1 : Cls 0
   Box 12,0 To 628,31 : Box 13,0 To 627,31 : Ink 3
   Bar 91,1 To 627-90+12,30 : Ink 2,3,3
   Bar 14,1 To 88,30 : Bar 628-90+14,1 To 626,30
   Ink 1,2,2 : Box 628-90+12,0 To 628-89+12,31
   Box 90,0 To 89,31 : Text 24,8,"LEFT MB"
   Text 28,18,"  to" : Text 24,28," Retry"
   Text 558,8,"RIGHT MB" : Text 566,18,"  to"
   Text 558,28," Cancel" : Ink 1,3,3
   Screen Display 7,,217,,32
   If DRIV=True
      Text 208,18,"Please insert a disk in "+DISK$
   Else
      Text 232,12," Please insert volume "
      L=Text Length(DISK$)
      Text 320-(L/2),20,DISK$
   End If
   A:
   Screen Show 7
   Repeat : MK=Mouse Key : Until Exist(DISK$) or MK=1 or MK=2
   Gr Writing 2+1
   If MK=0 Then Goto B
   If MK=1 Then Bar 12,0 To 90,31 Else Bar 628-90+12,0 To 628,31
   Repeat : Until Mouse Key=0
   If MK=1 Then Bar 12,0 To 90,31 Else Bar 628-90+12,0 To 628,31
   B:
   If MK=1 Then Goto A
   Screen Close 7 : Show On
   If MK<>0 and Exist(DEV$)<>True Then _OK=False
   If MK=0 and Exist(DEV$)=True Then _OK=True
   If Exist(DEV$)=False Then _OK=False
End Proc[_OK]
Procedure INFO
   Repeat : Until Peek($BFEC01)=64
   XXM=Y Mouse : YYM=X Mouse
   Get Block 77,140,50,368,105
   BOKS_OPP[140,52,500,130,2,1,1]
   Pen 2 : Centre At(,7)+"****  INFO BOX  ****"
   Centre At(,8)+"" : Pen 0
   Print At(20,9);"LAST UPDATED:  "
   Y Mouse=160 : X Mouse=375 : Limit Mouse 200,95 To 378,170
   Paste Icon 160,118,4 : Paste Icon 418,118,4 : Ink 0,6,6
   Text 20*8,11*8+3,"ABOUT THE FILE:" : Text 168,126,"CHANGE" : Text 434,126,"EXIT"
   A: BOKS_OPP[280,69,480,81,1,0,0]
   BOKS_OPP[160,102-8,480,112,1,0,0]
   Print At(36,9);INFO$(1) : Print At(21,12);INFO$(2)
   Print At(21,13);INFO$(3)
   Repeat
      X=X Screen(X Mouse) : Y=Y Screen(Y Mouse) : Z=0
      If X>159 and Y>117 and X<159+62 and Y<128 Then Z=1
      If X>417 and Y>117 and X<417+62 and Y<128 Then Z=2
   Until Mouse Key>0
   Repeat : Until Mouse Key=0
   If Z=1
      VINDUINN["ENTER THE DATE:",200,95,378,170,X Mouse,Y Mouse,23,False,INFO$(1)] : INFO$(1)=Param$
      VINDUINN["ENTER FIRST COMMENT LINE:",200,95,378,170,X Mouse,Y Mouse,38,False,INFO$(2)] : INFO$(2)=Param$
      VINDUINN["ENTER SECOND COMMENT LINE:",200,95,378,170,X Mouse,Y Mouse,38,False,INFO$(3)] : INFO$(3)=Param$ : Goto A
   End If
   Put Block 77 : Del Block 77
   Y Mouse=XXM : X Mouse=YYM : Limit Mouse 342,127 To 438,282
End Proc
Procedure KLOKKE
   Add MIMAGE,1,6 To 13 : Change Mouse MIMAGE : Every On
End Proc