home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MISC / CBT.ZIP / SAMPLE.CBT < prev    next >
Encoding:
Text File  |  1986-03-20  |  1.4 KB  |  41 lines
  1. * Sample cbt program for Doctor Woody
  2.   cls
  3.   display 1,1,'Hello Doctor Woody!',rev
  4.   display 2,1,'This is the sample CBT program that Mike promised you'
  5.   display 3,1,'The program will ask you a couple of questions'
  6.   display 4,1,'and then show you what you typed in'
  7.   display 5,1,'Press <ENTER> when you are ready.'
  8.   inkey @1
  9.   cls
  10.   display 1,1,'Hello to Doctor Woody!!!'
  11.   display 2,1,'How are you doing today >> '
  12.   erase @1
  13.   input 2,28,15,@1
  14.   display 4,1,'How many fingers am I holding up? '
  15.   input 4,40,10,@2
  16.   cls
  17.   display "Hi again Dr. Woody, I'm glad to hear that you're "
  18.   display @1
  19.   display 3,1,'You are ' | display 'absolutly',rev
  20.   display ' correct.  I am holding up ' | display @2 | display ' fingers.'
  21.   display 5,1,'Press enter to continue ' | inkey @1
  22.   cls
  23.   display 1,5,'Hello',uline
  24.   display 2,10,'Hello',blink
  25.   display 3,15,'Hello',rev
  26.   display 4,20,'Hello',high
  27.   display 5,25,'Hello',blrev
  28.   display 10,1,'I can have a BIG cursor.  Press return '
  29.   cursor full | inkey @1
  30.   display 11,1,'I can have no cursor.  Press return '
  31.   cursor off | inkey @1
  32.   display 12,1,'I can have a normal cursor.  Press return '
  33.   cursor on | inkey @1
  34.   type 15,1,'I can type fast',10
  35.   type 16,1,'I can type slow',100
  36.   type 17,1,'I can type REAL slow',500
  37.   display 20,1,'Press enter to continue ' | inkey @1
  38.   cls
  39.   display 'End of demo.  Bye Dr. Woody'
  40.   halt
  41.