home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / amos / lturbo / demos / new_graph_instr.asc < prev    next >
Encoding:
Text File  |  1980-05-18  |  2.8 KB  |  110 lines
  1. '*************************************************************************** 
  2. '*                                                                         * 
  3. '*                 AMOS1.3 NEW GRAPHIC INSTRUCTIONS DEMO                   * 
  4. '*                                                                         * 
  5. '*                 CODE WRITTEN BY : MANUEL ANDRE                          * 
  6. '*                                                                         * 
  7. '*             ANY SUGGESTIONS OR IMPROVEMENTS WRITE TO :                  * 
  8. '*                                                                         * 
  9. '*                    MANUEL ANDRE                                         * 
  10. '*                    PRINT BOUDEWIJNLAAN 155 BUS 5                        * 
  11. '*                    2610    WILRIJK                                      * 
  12. '*                    BELGIUM                                              * 
  13. '*                                                                         * 
  14. '*************************************************************************** 
  15. '
  16. '
  17. Flash Off 
  18. Curs Off 
  19. COMBINE
  20. Wait Key 
  21. Cls 
  22. SQUARE
  23. Wait Key 
  24. Cls 
  25. _FILL_SQUARE
  26. Wait Key 
  27. Cls 
  28. FIRST_BLOCK
  29. Wait Key 
  30. ENLARGE_FINER
  31. Wait Key 
  32. Cls 
  33. BLOCKS
  34. Cls 
  35. End 
  36. Procedure COMBINE
  37.    Text 10,62,"Draw combined with R Draw"
  38.    Text 10,72,"Press any key..."
  39.    Draw 100,0 To 100,50
  40.    R Draw 50,0
  41.    Draw To 150,0
  42.    R Draw -50,0
  43. End Proc
  44. Procedure SQUARE
  45.    Text 10,50,"The R Box instruction"
  46.    Text 10,62,"for hollow rectangles."
  47.    Text 10,74,"Press any key..."
  48.    Gr Locate 100,100
  49.    R Box 100,10
  50.    R Move 0,50
  51.    R Box 40,40
  52. End Proc
  53. Procedure _FILL_SQUARE
  54.    Text 10,50,"The R Bar instruction"
  55.    Text 10,62,"for filled rectangles."
  56.    Text 10,74,"Press any key..."
  57.    Gr Locate 100,100
  58.    R Bar 100,10
  59.    R Move 0,50
  60.    R Bar 40,40
  61. End Proc
  62. Procedure FIRST_BLOCK
  63.    Text 10,20,"These instructions can make life very "
  64.    Text 10,32,"easy..."
  65.    Text 10,44,"Press any key..."
  66.    R Home 30,50
  67.    For I=1 To 10
  68.       R Draw 170,0
  69.       R Move 0,5
  70.       R Draw -170,0
  71.       R Move 0,5
  72.    Next 
  73.    R Move 0,-5
  74.    For I=1 To 9
  75.       R Draw 0,-95
  76.       R Move 10,0
  77.       R Draw 0,95
  78.       R Move 10,0
  79.    Next 
  80. End Proc
  81. Procedure ENLARGE_FINER
  82.    Text 67,32,"and very complex !"
  83.    For J=0 To 100 Step 15
  84.       R Home 30+J,50
  85.       For I=1 To 10
  86.          R Draw 170,0
  87.          R Move 0,5
  88.          R Draw -170,0
  89.          R Move 0,5
  90.       Next 
  91.       R Move 0,-5
  92.       For I=1 To 9
  93.          R Draw 0,-95
  94.          R Move 10,0
  95.          R Draw 0,95
  96.          R Move 10,0
  97.       Next 
  98.    Next 
  99. End Proc
  100. Procedure BLOCKS
  101.    Repeat 
  102.       Text 20,100,"Left mouse button to stop..."
  103.       R Home Rnd(280),Rnd(160) : Rem of Gr Locate Rnd(),Rnd() 
  104.       R Draw 20,40
  105.       R Draw 40,0
  106.       R Draw -20,-40
  107.       R Draw -40,0
  108.    Until Mouse Click
  109. End Proc
  110.