home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma45.dms / ma45.adf / Listingi / MagazynAMIGA4 / Cytaty.ced next >
Text File  |  2002-10-23  |  579b  |  33 lines
  1. /*
  2.    Cytaty.ced
  3. */
  4.  
  5. ADDRESS 'rexx_ced'
  6. OPTIONS RESULTS
  7.  
  8. Status 57         /* kt¢ra linia? */
  9. lin1=RESULT+1
  10.  
  11. Status 14         /* prawy margines */
  12. Marg=RESULT
  13.  
  14. Menu 2 4 0 Marg-2 /* mniejszy margines */
  15. Menu 4 1 0        /* format with fill */
  16. Menu 2 4 0 Marg   /* dawny margines */
  17.  
  18. 'End Of File'     /* koniec pliku */
  19. Status 57         /* która linia? */
  20. lin2=RESULT+1
  21.  
  22. Jump To Line lin1 /* skocz do poczâtku cytatu */
  23.  
  24. /* caˆa robota :-) */
  25. DO i=lin1 TO lin2-1
  26.    Jump To Line i /* skok do kolejnej linii */
  27.    Text "> "      /* wstawienie "> " */
  28. END
  29.  
  30. 'End Of File'
  31.  
  32. EXIT 0
  33.