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