home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a039 / 1.ddi / SAMPLE.ZIP / DEBUGTST.SC < prev    next >
Encoding:
Text File  |  1992-08-08  |  1.6 KB  |  42 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.       SHOWPOPUP "School Days" CENTERED    ; build a fake user menu
  22.          "Test" : "This is just a test menu item":"Test",
  23.          "Quiz" : "Yet another test menu item":"Quiz",
  24.          "Exam" : "Another test menu item":"Exam"
  25.          "Exit" : "Leave the test application, thank goodness":"Exit"
  26.       ENDMENU 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.       ENDSWITCH
  41.    ENDWHILE
  42.