home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 08_09 / fortran / cursor.for < prev    next >
Encoding:
Text File  |  1988-05-19  |  657 b   |  31 lines
  1. C     FORTRAN77-PROGRAMM
  2. C     ZUM DEMONSTRIEREN DER ASSEMBLER-ROUTINEN
  3. C     PUTCUR UND CLRSCR
  4. C     (C) 1988 JÜRGEN BANDT & PASCAL Int.
  5. C     *****************************************
  6. C
  7.       PROGRAM CURSOR
  8. C
  9.       INTEGER*2 Zeile, Spalte, Aus, Ein
  10. C
  11.    10 FORMAT(I1)
  12.    20 FORMAT(I2)
  13. C
  14.     1 CALL CLRSCR
  15. C
  16.       CALL PUTCUR(1,10)
  17.       READ(*,20)Zeile
  18.       CALL PUTCUR(1,20)
  19.       READ(*,20)Spalte
  20. C
  21.       IF(Zeile.LT.1.OR.Zeile.GT.25)   GOTO 1
  22.       IF(Spalte.LT.1.OR.Spalte.GT.80) GOTO 1
  23. C
  24.     5 CALL PUTCUR(Zeile,Spalte)
  25.       READ(*,10)Ein
  26.       IF(Ein)5,99,1
  27. C
  28.    99 CALL CLRSCR
  29.       STOP ' ENDE PROGRAMM '
  30.       END
  31.