home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib25a.dsk / AUGUST.1985 / DEF.VAL.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  908b  |  23 lines
  1. 10  REM **********************
  2. 20  REM *    DEF.VAL.DEMO    *
  3. 30  REM *   BY GARY BREDON   *
  4. 40  REM * COPYRIGHT (C) 1985 *
  5. 50  REM * BY MICROSPARC, INC *  
  6. 60  REM * CONCORD, MA  01742 *
  7. 70  REM **********************
  8. 80  PRINT  CHR$(4)"BRUN DEF.AND.VAL"
  9. 90 PI =  ATN(1) *4
  10. 100  HOME : PRINT "* COPYRIGHT 1985 BY MICROSPARC, INC. *": PRINT : ONERR  GOTO 210
  11. 110  INPUT "F(X,Y)=";F$
  12. 120  PRINT 
  13. 130  &  DEF F$
  14. 140  INPUT "X=";X$: &  DEF X$: &  VALX$ TO X
  15. 150  INPUT "Y=";Y$: &  DEF Y$: &  VALY$ TO Y
  16. 160  &  VALF$ TO V
  17. 170  PRINT "VALUE="V
  18. 180  PRINT : PRINT "N)EW FUNCTION, O)LD, Q)UIT ->";: GET A$: IF A$ = "N"  THEN  PRINT "NEW": GOTO 100
  19. 190  IF A$ = "Q"  THEN  HOME : END 
  20. 200  PRINT "OLD": PRINT : GOTO 140
  21. 210  CALL  -3288:E =  PEEK(222):EL =  PEEK(218) +256 * PEEK(219): POKE 216,0
  22. 220  HOME : VTAB 12: PRINT "ERROR "E" IN LINE "EL"."
  23. 230  PRINT : PRINT "PRESS ANY KEY TO CONTINUE.": GET Z$: GOTO 100