DECLARE SUB plane ()
RANDOMIZE TIMER


CLS
SCREEN 12, 0, 0
COLOR 1

i% = 5
WINDOW (-160 / i%, -100 / i%)-(160 / i%, 100 / i%)

3

LOCATE 1, 1

'|--------------EQUASION-----------|'

G$ = "y = b * SIN(x / a + b * 4 / 2 * 43)"

'|--------------EQUASION-----------|'

LOCATE 1, 42
PRINT G$
LOCATE 1, 1
INPUT "Enter values for a and b in the equation"; a, b
CLS
CALL plane
'FOR a = 1 TO 640 STEP .001
'x = a
'y = 239 * x / 1
'PSET (x, y)
'NEXT a

FOR x = 1 TO 639 STEP .001

'|-------------EQUASION------------|'

y = b * SIN(x / a + b * 4 / 2 * 43)

'|-------------EQUASION------------|'
COLOR 1


PSET (x, y)
NEXT x
SLEEP
GOTO 3

SUB plane
COLOR 1

LINE (320, 0)-(320, 480)
LINE (0, 240)-(640, 240)
LINE (316, 190)-(324, 190)
LINE (316, 190 - 50)-(324, 190 - 50)
LINE (316, 90)-(324, 90)
LINE (316, 90 - 50)-(324, 90 - 50)
'TOP LINE
LINE (320, 0)-(324, 4)
LINE (316, 4)-(320, 0)

LINE (316, 290)-(324, 290)
LINE (316, 290 + 50)-(324, 290 + 50)
LINE (316, 390)-(324, 390)
LINE (316, 390 + 50)-(324, 390 + 50)
LINE (316, 475)-(320, 479)
LINE (320, 479)-(324, 475)
LINE (320 - 50, 236)-(320 - 50, 244)
LINE (320 - 100, 236)-(320 - 100, 244)
LINE (320 - 150, 236)-(320 - 150, 244)
LINE (320 - 200, 236)-(320 - 200, 244)
LINE (320 - 250, 236)-(320 - 250, 244)
LINE (320 - 300, 236)-(320 - 300, 244)
LINE (320 + 50, 236)-(320 + 50, 244)
LINE (320 + 100, 236)-(320 + 100, 244)
LINE (320 + 150, 236)-(320 + 150, 244)
LINE (320 + 200, 236)-(320 + 200, 244)
LINE (320 + 250, 236)-(320 + 250, 244)
LINE (320 + 300, 236)-(320 + 300, 244)

LINE (4, 236)-(0, 240)
LINE (0, 240)-(4, 244)
LINE (635, 236)-(639, 240)
LINE (635, 244)-(639, 240)
LOCATE 3, 37
PRINT "200"
LOCATE 6, 37
PRINT "150"
LOCATE 9, 37
PRINT "100"
LOCATE 12, 38
PRINT "50"
LOCATE 15, 40
PRINT "0"
LOCATE 19, 37
PRINT "-50"
LOCATE 22, 36
PRINT "-100"
LOCATE 25, 36
PRINT "-150"
LOCATE 28, 36
PRINT "-200"
LOCATE 15, 2
PRINT "-300"
LOCATE 15, 7
PRINT "-250"
LOCATE 15, 13
PRINT "-200"
LOCATE 15, 19
PRINT "-150"
LOCATE 15, 26
PRINT "-100"
LOCATE 15, 33
PRINT "-50"
LOCATE 15, 46
PRINT "50"
LOCATE 15, 52
PRINT "100"
LOCATE 15, 58
PRINT "150"
LOCATE 15, 64
PRINT "200"
LOCATE 15, 71
PRINT "250"
LOCATE 15, 77
PRINT "300"

END SUB