home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / wpca / windemo.sc < prev    next >
Encoding:
Text File  |  1989-05-25  |  394 b   |  15 lines
  1. PLAY "Windo"
  2. VIEW "Session#"
  3. Formkey
  4. CLEAR
  5. MKWINDO(9,10,10,32,15,
  6.  "This is a test and only a test!",
  7.  "This is a second test, and only a second test!")
  8. MKWINDO(16,21,5,16,15,"Press any key to see the current lots...","")
  9. x = GETCHAR()
  10. WAIT TABLE
  11.  PROMPT "[PgUp] and [PgDn] to move, [Home] for first, [End] for last",
  12.         "Press [F] when you are finished..."
  13.  UNTIL "F","f"
  14.  
  15.