home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 4 / Amoszine 4 (Disk 1 of 3).adf / beginners_examples / example03.AMOS / example03.amosSourceCode
Encoding:
AMOS Source Code  |  1992-02-26  |  1016 b   |  36 lines
  1. '===================== 
  2. 'EXAMPLE PROGRAM THREE 
  3. '===================== 
  4.  
  5. 'Variables are numbers assigned to letters that can change value (vary)
  6. '----------------------------------------------------------------------- 
  7.  
  8. Rem turn the text cursor off, remove the mouse pointer,set text background 
  9. Rem to blue and clear the screen to blue, see EXAMPLE1 and EXAMPLE2  
  10. '--------------------------------------------------------------------------
  11. Curs Off : Hide : Paper 0 : Cls 0
  12.  
  13.  
  14. Rem the variable F1 is given its starting value change this to any number. 
  15. '--------------------------------------------------------------------------    
  16. F1=200
  17.  
  18.  
  19. Rem F1 is now INCremented by 1.    
  20. '------------------------------
  21. Inc F1
  22.  
  23.  
  24. Rem five is now subtracted from F1, change this as well. 
  25. '------------------------------------------------------- 
  26. F1=F1-5
  27.  
  28.  
  29. Rem We now PRINT the value of F1.
  30. '--------------------------------
  31. Print F1
  32.  
  33.  
  34. Rem WAIT for the user to press a KEY 
  35. '----------------------------------- 
  36. Wait Key : Edit