home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 10 / Amoszine 10 (Disk 3 of 3).adf / Amos_Procs.lha / Cursor.proc / Cursor.amosSourceCode
Encoding:
AMOS Source Code  |  1991-12-03  |  331 b   |  15 lines
  1. Procedure CURSOR
  2.    ' By John Smit 
  3.    ' Used to change cursor to 1 line - not the fat ugly 2 line cursor 
  4.    ' This is done becouse this is an Amiga - Not a Vic 20 !!!!!!
  5.    X=Free
  6.    Dim L(8)
  7.    For X=1 To 7
  8.       L(X)=%0
  9.    Next X
  10.    L(8)=%11111111
  11.    Set Curs L(1),L(2),L(3),L(4),L(5),L(6),L(7),L(8)
  12. End Proc
  13. '
  14. ' example
  15. CURSOR