home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 351-375 / apd360 / wardoc.amos / wardoc.amosSourceCode
AMOS Source Code  |  1991-10-22  |  272b  |  25 lines
  1. Screen Open 0,640,200,4,Hires
  2. Paper 0
  3. Cls 0
  4. Locate 0,0
  5. Open In 1,"war.ASCII"
  6. Set Input 10,-1
  7. Do 
  8. For T=0 To 78
  9. If Eof(1)=-1
  10. Exit 
  11. Else 
  12. F$=Input$(1,1)
  13. If F$=Chr$(10)
  14. Print : Exit 
  15. End If 
  16. Print F$;
  17. End If 
  18. Next T
  19. Print 
  20. While Mouse Key=0
  21. Wend 
  22. Loop 
  23. Close 1
  24. Bell 
  25. Wait Key