home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / DATATERM / DL.KEY.E < prev    next >
Encoding:
Text File  |  1988-01-11  |  942 b   |  43 lines  |  [04] ASCII Text (0x0000)
  1. # Select an Emulation
  2. # display initial menu
  3.  
  4. display "^LSelect a Terminal to Emulate:^M^J^J"
  5. display "A  Apple 80 column^J^M"
  6. display "B  IBM 3101^J^M"
  7. display "C  Soroc^J^M"
  8. display "D  Viewpoint^J^M"
  9. display "E  DEC VT-52^J^M"
  10. display "F  TTY (no emulation)^J^J^M"
  11. display "Press letter key to select terminal^J^Mor press esc to quit^J^M"
  12. display "^J^I^IChoose Terminal -->"
  13.  
  14. # wait
  15. display ^G
  16. set timer 30
  17. waitfor keyboard
  18. if failed goto wait
  19. if keyboard ^[ goto exit
  20.  
  21. if keyboard a goto good
  22. if keyboard b goto good
  23. if keyboard c goto good
  24. if keyboard d goto good
  25. if keyboard e goto good
  26. if keyboard f goto good
  27. display ^G
  28. goto wait
  29.  
  30. # good
  31. display "^L^J^J^J^J^J^J^J^J^JLoading file..."
  32. If keyboard A emulate termcaps/apple80
  33. If keyboard b emulate termcaps/ibm3101
  34. if keyboard c emulate termcaps/soroc
  35. if keyboard d emulate termcaps/viewpoint
  36. if keyboard e emulate termcaps/vt52
  37. if keyboard f emulate tty
  38. pause 5
  39.  
  40. # exit
  41. display ^L
  42. stop
  43.