home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / f / kpgraph.lbr / ATTRIB.BZS / ATTRIB.BAS
Encoding:
BASIC Source File  |  1993-10-26  |  768 b   |  30 lines
  1. $INCLUDE GRAPH1
  2. VAR A = INTEGER
  3. 1 PRINT"ENTER 1 FOR INVERSE ON, 2 FOR INVERSE OFF, 3 FOR REDUCED ON, 4 FOR"
  4. PRINT"REDUCED OFF, 5 FOR BLINKING ON, 6 FOR BLINKING OFF, 7 FOR UNDERLINE"
  5. PRINT"ON, 8 FOR UNDERLINE OFF, 9 FOR CURSOR ON, 10 FOR CURSOR OFF."
  6. INPUT A
  7. ON A GOTO 200,300,400,500,600,700,800,900,1000,100
  8. 100 SET.OFF CURSOR
  9.     GOTO 9999
  10. 200 SET.ON INVERSE
  11.     GOTO 9999
  12. 300 SET.OFF INVERSE
  13.     GOTO 9999
  14. 400 SET.ON REDUCED
  15.     GOTO 9999
  16. 500 SET.OFF REDUCED
  17.     GOTO 9999
  18. 600 SET.ON BLINKING
  19.     GOTO 9999
  20. 700 SET.OFF BLINKING
  21.     GOTO 9999
  22. 800 SET.ON UNDERLINE
  23.     GOTO 9999
  24. 900 SET.OFF UNDERLINE
  25.     GOTO 9999
  26. 1000 SET.ON CURSOR
  27.     GOTO 9999
  28. GOTO 1
  29. 9999 END
  30.