home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 026-050 / apd035 / archive_loader.amos / archive_loader.amosSourceCode
AMOS Source Code  |  1978-08-29  |  327b  |  18 lines
  1. 'Archive loader
  2. Screen Open 0,640,200,2,Hires
  3. Hide On 
  4. Print 
  5. Print 
  6. Centre "Is your machine using a PAL or a NSTC monitor?"
  7. Print 
  8. Centre "Press `P' for PAL"
  9. Print 
  10. Centre "or"
  11. Print 
  12. Centre "Press `N' for NSTC"
  13. Print 
  14. 1 X$=Inkey$
  15. X$=Upper$(X$)
  16. If X$="P" Then Run "ARCHIVEPAL.AMOS"
  17. If X$="N" Then Run "ARCHIVENSTC.AMOS"
  18. Goto 1