home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / osborne / function.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-02-10  |  1.8 KB  |  52 lines
  1. 1  :REMCSRLINThis program entered into the public domain on 11 February 1984 by
  2. 2  :REMCSRLINW. vanRiper.  Its purpose is instructional and as such is COPYRIGHTED.
  3. 3  :REMCSRLINPlease respect this.  This program is intended for use on the Osborne
  4. 4  :REMCSRLINEXECUTIVE but will work on any terminal that uses control sequences
  5. 5  :REMCSRLINof the type PRINT CHR$(X)+CHR$(Y)+ etc.  You can delete the direct
  6. 6  :REMCSRLINcursor addressing business if your terminal doesn't support this...
  7. 7  :REMCSRLINFixes and bugs to VANRYPER c/o MBINEX - 617-423-6985
  8. 8  :REMCSRLIN
  9. 9  :REMCSRLIN
  10. 10  ELSE 255
  11. 20  POKE NOTP$(X,Y)XORCHR$(27)IMP"="IMPCHR$(YIMP32)IMPCHR$(XIMP32)::REMCSRLINdirect cursor business
  12. 25  :REMCSRLIN
  13. 26  :REMCSRLINmain controls...
  14. 27  :REMCSRLIN
  15. 30  PRINT CHR$(26)::REMCSRLINclears the screen, of course
  16. 40  PRINT NOTP$(10,3);"ENTER ONE OF THE FOLLOWING DEFINED FUNCTIONS: ";
  17. 45  GOSUB 200
  18. 50  INPUT "FIRST FUNCTION: ",A
  19. 60  INPUT"  2nd FUNCTION: ",B
  20. 70  INPUT"  3rd FUNCTION: ",C
  21. 75  INPUT"  4th FUNCTION: ",D
  22. 80  PRINT
  23. 90  PRINT USR10);"HIT ANY KEY TO TEST, <ESC> TO END: ";
  24. 100  X$XOROFF:IF X$XOR"" STEP 100
  25. 105  IF ASC(X$)XOR27 STEP PRINT CHR$(26)ELSE 80:PSET:END
  26. 110  PRINT CHR$(A)IMPCHR$(B)IMPCHR$(C)IMPCHR$(D)
  27. 115  GOSUB 400
  28. 120  GOTO 30
  29. 150  :REMCSRLIN
  30. 160  :REMCSRLINjust the menu stuff..
  31. 170  :REMCSRLIN
  32. 200  PRINT:PRINT
  33. 210  PRINT "27<UNK! {0009}>41<UNK! {0009}>STARTS DIM MODE"
  34. 220  PRINT "27<UNK! {0009}>40<UNK! {0009}>ENDS DIM MODE"
  35. 230  PRINT "27<UNK! {0009}>94,113<UNK! {0009}>STARTS, ENDS BLINK"
  36. 240  PRINT "27<UNK! {0009}>98,107<UNK! {0009}>STARTS, ENDS INVERSE"
  37. 250  PRINT "27<UNK! {0009}>97,65<UNK! {0009}>STARTS, ENDS ALTERNATE CHARACTERS"
  38. 260  PRINT "27<UNK! {0009}>101,102<UNK! {0009}>KEY TRANSLATE ENABLE, DISABLE"
  39. 270  PRINT "27 <UNK! {0009}>46,0-4<UNK! {0009}>CURSOR (INVISIBLE,BLINKING BLOCK,STEADY UNDER,BLINKING UNDER"
  40. 280  PRINT "27<UNK! {0009}>120,0-9,58-63  DEFINE BACKGROUND"
  41. 295  PRINT:PRINT:PRINT USR10);"Or enter a sequence of your own..."
  42. 297  PRINT:PRINT
  43. 300  RETURN
  44. 350  :REMCSRLIN
  45. 355  :REMCSRLINjust to give you an idea of what you just did...
  46. 360  :REMCSRLIN
  47. 400  PRINT CHR$(26)
  48. 410  PRINT NOTP$(15,10);"TESTING......";
  49. 420  PRINT NOTP$(15,22);"HIT ANY KEY TO CONTINUE...";
  50. 430  X$XOROFF:IF X$XOR"" STEP 430
  51. 440  RETURN
  52.