I have that reworked script for you.  I got it to work on my system, but I had   
   to write my own ansi files in order to see what it's doinig.   
      
   -----8<-------------------------------------   
   // ignatius' oneliners   
      
   uses cfg   
   uses user   
      
   var  Twriters  : array[1..10] of string   
   var  Toneliner : array[1..10] of string   
   var  S         : string   
   var  Foneline  : string   
   var  Ch        : char   
   var  Ch2       : char   
   var  Count     : byte   
   var  Count2    : byte   
      
      
   //### begin show procedure ######################################   
      
   Procedure show   
   Begin   
     clrscr   
     dispFile('oneh.ans')   
     For Count := 1 To 10 Do Begin   
       write('þ ')   
       write(padRT(Toneliner[count], 64, ' '))   
       write(' : ')   
       writeln(padRT(Twriters[count], 10, ' '))   
     End   
   End // show   
   //### end show procedure #########################################   
   //### begin init procedure #########################################   
      
   Procedure Init   
   Var F1 : File   
   Begin   
     GetThisUser   
     Foneline := cfgDataPath+'oneliner.lst'   
     If Not fileExist(fOneLine) Then Begin   
       fAssign(f1, Foneline, 66)   
       fReWrite(f1)   
       For count := 1 To 10 Do Begin   
         fWriteLn(f1, 'Ia! Cthulhu!')   
         fWriteLn(f1, 'ezdagor')   
       End   
       fClose(f1)   
     End   
      
     fAssign(f1, Foneline, 66)   
       fReset(f1)   
       If IoResult = 0 Then Begin   
         For Count := 1 To 10 Do Begin   
           fReadLn(f1, Toneliner[count])   
           fReadLn(f1, Twriters[count])   
         End   
       fClose(f1)   
     End   
   End // Init   
      
   //### begin bot_bar procedure ####################################   
      
   Procedure bot_bar   
   Begin   
     dispFile('onen.ans')   
     Ch2 := ReadKey   
     If Ch2 = Chr(13) then Begin   
       MenuCmd('go', 'main')   
       Halt   
     End   
   End // bot_bar   
      
   //### end bot_bar procedure ######################################   
   //### begin top_bar procedure ####################################   
      
   Procedure top_bar   
   Var F1 : File   
   Begin   
     dispfile('oney.ans')   
     Ch2 := ReadKey   
     If Ch2 = Chr(13) then Begin   
       dispFile('oneline.asc')   
       Write(': ')   
       s := stripmci(Input(70, 70, 11, ''))   
       If s = '' then Begin   
         WriteLn('aborted')   
         Halt   
       End   
      
       For Count := 1 To 9 Do Begin   
         Count2 := Count + 1   
         Toneliner[count] := Toneliner[count2]   
         Twriters[count] := Twriters[count2]   
       End   
      
       tWriters[10] := userAlias   
       tOneliner[10] := S   
      
       fAssign(f1, Foneline, 66)   
       fReWrite(F1)   
       For Count := 1 To 10 do Begin   
         fWriteLn(f1, tOneliner[count])   
         fWriteLn(f1, tWriters[count])   
       End   
       fClose(f1)   
     End   
     show   
   End // top_bar    
      
   //### end top_bar procedure ######################################   
   //### begin position procedure ###################################   
      
   Procedure position   
   Begin   
     Repeat   
     dispFile('onen.ans')   
      
     Ch := ReadKey   
       If IsArrow and Ch = Chr(80) then begin   
         dispfile('onen.ans')   
         bot_bar   
       End Else Begin   
         If IsArrow and Ch = Chr(72) then begin   
           top_bar   
         End   
       End   
      
     Until Ch = Chr(13)   
   End // position   
      
   //### end position procedure ##########################################   
      
   Begin   
     Init   
     Position   
   End   
   -----8<----------------------   
      
    "No matter where you go, there you are!" - B. Bonzai   
      
   --- Mystic BBS v1.10 A51 (Linux)   
    * Origin: Cyberia BBS | Cyberia.Darktech.Org | Kingwood, TX (46:1/116)   
    þ Synchronet þ thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)