home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 14 / CDACTUAL.iso / cdactual / demobin / share / program / Basic / SDA30.ZIP / DEMO.BAS < prev    next >
Encoding:
BASIC Source File  |  1983-03-06  |  495 b   |  32 lines
  1.     REM
  2.     REM    THIS BASIC PROGRAM DEMONSTRATES    THE SCREEN DESIGN AID
  3.     REM
  4.  
  5.     DEF SEG=&H40
  6.     POKE &H10,(PEEK(&H10) AND &H0CF) OR &H10
  7.     DEF SEG
  8.     SCREEN    0,1,0,0
  9.     WIDTH 40
  10.     LOCATE    1,1,1,6,7
  11. 100    CMD%=0:FLD%=1:PRM$="       "
  12.     GOSUB 200
  13.     FLD%=1
  14.     CMD%=2
  15.     GOSUB 200
  16.     FLD%=ASC(LEFT$(PRM$,1))-48
  17.     IF FLD%    <0 OR FLD% >3 THEN 100
  18.     IF FLD%=0 THEN 1000
  19.     FLD%=FLD%+1
  20.     CMD%=0
  21.     GOSUB 200
  22.     FLD%=1
  23.     CMD%=2
  24.     GOSUB 200
  25.     GOTO 100
  26.  
  27. 200    CALL    BASSCR(CMD%,FLD%,PRM$)
  28.     RETURN
  29.  
  30. 1000    SCREEN 0,0
  31.     END
  32.