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