home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 551-575 / apd571 / progs / textreader_pro / textreader_pro.amos / textreader_pro.amosSourceCode
AMOS Source Code  |  1993-12-02  |  1KB  |  36 lines
  1. CREDITS : _GETTEXT
  2. Procedure CREDITS
  3.    Curs Off : Cls 0 : Flash Off : Hide : X=5
  4.    Print At(0,X) : Paper 0 : Pen 5
  5.    Centre "Amos Professional Text Reader"
  6.    Print At(0,X+4) : Pen 3
  7.    Centre "Produced by Maverick Productions"
  8.    Print At(0,X+8)
  9.    Pen 1 : Centre "1993 Mark Ward"
  10.    Print At(0,X+12) : Pen 6
  11.    Centre "Written using AMOS Professional 1.0"
  12.    Wait Key 
  13.    Fade 10 : Wait 100
  14. End Proc
  15. Procedure _GETTEXT
  16.    Screen Close 0 : Screen Open 0,320,256,16,Lowres
  17.    Curs Off : Cls 0 : Flash Off : Show 
  18.    Print At(0,3) : Pen 5 : Paper 0
  19.    Centre Border$("AMOS Professional Text Reader",2)
  20.    Pen 6 : Paper 13
  21.    Reserve Zone 2
  22.    Print At(0,10) : Centre Border$(Zone$("Load ASCII File",1),2)
  23.    Print At(0,15) : Centre Border$(Zone$("     Quit      ",2),2)
  24.    Do 
  25.       On Error Proc HELP
  26.       Do 
  27.          M=Mouse Zone
  28.          If Mouse Key and M>0 Then Exit 
  29.       Loop 
  30.       If M=1 : Read Text Fsel$("**") : End If 
  31.       If M=2 : Edit : End If 
  32.    Loop 
  33. End Proc
  34. Procedure HELP
  35.    Resume Next 
  36. End Proc