home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a116 / 1.img / TABLES / TABLES.ZIP / DEBUGTST.SC < prev    next >
Encoding:
Text File  |  1990-08-25  |  1.6 KB  |  44 lines
  1.  ; DEBUGTST -- Note: this script has errors in it!
  2.  PROC SomeText()         ; define a procedure that displays text
  3.     @4,0                 ; locate cursor
  4.     STYLE REVERSE        ; change to reverse video
  5.     ? title              ; print title of the screen
  6.     STYLE                ; return to normal text display
  7.     @7,0                 ; relocated cursor
  8.  TEXT
  9.              This is just some miscellaneous text to occupy the
  10.              screen during our debugging test.  It should appear
  11.              approximately centered, a couple of lines below the
  12.              title for the screen.
  13.  ENDTEXT
  14.     SLEEP 5000           ; wait 5 seconds
  15.  ENDPROC
  16.  
  17.  WHILE(TRUE)             ; just a test loop, always true
  18.     CLEAR                ; clear the PAL canvas (screen)
  19.     CLEARALL             ; make sure no images are left on workspace
  20.     @4,0                 ; locate cursor at line 4, column 0
  21.     SHOWMENU             ; build a fake user menu
  22.        "Test" : "This is just a test menu item",
  23.        "Quiz" : "Yet another test menu item",
  24.        "Exam" : "We'll bet you guessed this was another test menu item"
  25.        "Exit" : "Leave the test application, thank goodness"
  26.     TO choice
  27.     IF choice = "Esc"
  28.        THEN QUIT
  29.     ENDIF
  30.     CLEAR
  31.     SWITCH
  32.        CASE choice = "Test":
  33.           SomeText()
  34.        CASE choice = "Quiz":
  35.           SomeText()
  36.        CASE choice = "Exam":
  37.           SomeText()
  38.        CASE choice = "Exit":
  39.           QUIT
  40.        OTHERWISE:
  41.           BEEP BEEP BEEP ; let user know choice was invalid
  42.     ENDSWITCH
  43. ENDWHILE
  44.