home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / TM480.ZIP / TMEXAM.EXE / NATO.TSK < prev    next >
Encoding:
Text File  |  1991-09-10  |  1.6 KB  |  74 lines
  1. ; Title   : NATO.TSK                    Last Updated : June 5, 1991
  2. ; Author  : Steve Johnson - FmP.        Version      : 1.01
  3. ; Purpose : Nato Phonetic alphabet
  4. ; Latest  : NATO variants used thrughout
  5.  
  6. hexvar cr,0d
  7. hexvar esc,1b
  8.  
  9. define locx,4
  10. int column 
  11. int i
  12. int j
  13. int locy
  14. int line
  15.  
  16. vconst cls,11       ;clear screen
  17. vconst dim,40       ;low intensity
  18. vconst bright,41    ;high intensity
  19. vconst attn,79      ;arresting colour
  20. vconst normal,5     ;normal colour
  21. vconst std,71       ;alternative arresting colour
  22.  
  23. VAR PHONES,8,OCCURS 27,
  24. 'ALPHA   BRAVO   CHARLIE DELTA   ECHO    FOXTROT GOLF    '
  25. 'HOTEL   INDIA   JULIET  KILO    LIMA    METRO   NOVEMBER'
  26. 'OSCAR   PAPA    QUEBEC  ROMEO   SIERRA  TANGO   UNIFORM '
  27. 'VICTOR  WHISKEY XRAY    YANKEE  ZULU    -space- '
  28.  
  29. var allowed,27,'ABCDEFGHIJKLMNOPQRSTUVWXYZ '
  30. var char,1
  31. var message,20
  32. var word,8
  33.  
  34. END
  35. display normal cls
  36. displayln "Enter a message using A-Z and SPACE <any other key> to quit"
  37. display attn
  38. until char = cr or locx = 22
  39.   inkey char
  40.   if allowed ct char
  41.     display BRIGHT normal char
  42.     locate line column
  43.     move entry FCOL of phones to word
  44.     move locy to i
  45.     add 8 to i
  46.     if i > 79
  47.       increment locx
  48.       clear locy
  49.     fi
  50.     cursor locx locy dim std word
  51.     locate i j
  52.     cursor locx locy bright attn char   ;make 1st bright
  53.     move i to locx
  54.     move j to locy
  55.     cursor line column
  56.     increment locy
  57.   else
  58.     stop
  59.   fi
  60. fi 
  61. move true to key
  62. until not key           ;flush any extraneous characters typed
  63.   inkey
  64. fi
  65. STOP
  66. ENDTASK
  67.  
  68. @video
  69. @nf dummy
  70. No forms required
  71. @end
  72. @eof
  73. 
  74.