home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 4 / Amoszine 4 (Disk 1 of 3).adf / READERS_SOURCE.LHA / READERS_SOURCE / B_L_GAUNT / ASC_VIEWER.AMOS / ASC_VIEWER.amosSourceCode
Encoding:
AMOS Source Code  |  1992-02-26  |  865 b   |  26 lines
  1. '********************************
  2. '*** ASC VIEWER  BY B.L.GAUNT ***
  3. '**********************************************************************
  4. '*** THIS PROGRAM LOADS AN ASC TEXT FILE AND DISPLAYES IT ON SCREEN ***
  5. '**********************************************************************
  6. Screen Open 4,640,256,4,Hires
  7. Colour 1,$44
  8. Curs Off : Hide : Flash Off : Cls 1
  9. Paper 1
  10.  
  11. '*** SET THE NAME AND LOCATION OF THE FILE TO BE LOADED AND DISPLAYED ***
  12. Open In 1,"PATH:ASC_NAME" : Rem <<<CHANGE THE PATH AND NAME
  13.  
  14. Set Input 10,-1
  15. Do 
  16.    For L=0 To 28
  17.       Line Input #1,A$
  18.       Locate 0,L : Print A$
  19. If Eof(1)=-1 : Locate 26,30 : Print "PRESS FIRE FOR NEXT PAGE" : Wait 10 : Repeat : Until Joy(1)<>0 : Exit 2 : End If 
  20.    Next L
  21.    Print : Locate 26,30 : Print "PRESS FIRE FOR NEXT PAGE" : Wait 10
  22. Repeat : Until Joy(1)<>0
  23. Cls 0 : Locate 0,0
  24. Loop 
  25. Close 1
  26. Screen Close 4