home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 351-375 / apd355 / starttext / starttext.amosSourceCode
AMOS Source Code  |  1991-07-30  |  1KB  |  40 lines
  1. Screen Open 0,640,512,16,Hires
  2. '*************************************************************** 
  3. '*   Text Viewer V0.1      by Gary Fearn   30/8/90             * 
  4. '*                                                             * 
  5. '*   Use the left Mouse button to quit reading                 * 
  6. '*   Use the right Mouse button to pause text                  *   
  7. '*************************************************************** 
  8. '
  9. Global A$,FILELEN,RMARGIN,LMARGIN
  10. RMARGIN=4 : LMARGIN=0 : Rem        Change these to change distance from edges
  11. Screen Open 0,650,256,4,Hires
  12. Screen Display 0,128,,,
  13. Curs Off : Flash Off 
  14. Cls : Locate LMARGIN,0
  15. _GETFILE
  16. _PROCESS
  17. Wait Key 
  18. Default 
  19. Edit 
  20. '
  21. Procedure _GETFILE
  22. F$="daug02:starttext.ascii"
  23.    If F$="" Then End 
  24.    Open In 1,F$
  25.    FILELEN=Lof(1)
  26.    A$=Input$(1,FILELEN)
  27. End Proc
  28. Procedure _PROCESS
  29. For A=1 To FILELEN
  30.    R$=Mid$(A$,A,1)
  31.    If Y Curs=>30 Then Vscroll 3 : Locate ,29
  32.    If X Curs=80-RMARGIN Then Locate LMARGIN,Y Curs+1
  33.    If Asc(R$)=9 Then Print Tab$; : Goto MORE
  34.    If Asc(R$)=10 Then Locate LMARGIN,Y Curs+1 : Goto MORE
  35.    Print R$;
  36. MORE:
  37.    If Mouse Key=1 Then Exit 
  38.    If Mouse Key=2 Then Goto MORE
  39. Next A
  40. End Proc