'===========================================================================
' Subject: TI-EMULATOR                       Date: 12-30-96 (12:03)       
' Author:  Mike Taylor                       Code: QB, QBasic, PDS        
' Origin:  m-17319@mailbox.swipnet.se      Packet: GRAPHICS.ABC
'===========================================================================
'This is just a bad excuse for a ti-emulator
'It's most probably not usable for anything.
'If you do find any purpose for it, don't let me know...

DIM y(1 TO 100)
DIM ly(1 TO 100)
CONST pi = 3.1415
'Start config

XMin = -360
XMax = 360
YMin = -360
YMax = 360
XStep = 1

'End config
SCREEN 12
WINDOW SCREEN (XMin, YMin)-(XMax, YMax)
FOR x = XMin TO XMax STEP XStep
'Start y

y(1) = SIN(x * (pi / 180)) * 180

'End y
FOR yn = 1 TO 100
LINE (x - XStep, ly(yn))-(x, y(yn)), 15
ly(yn) = y(yn)
NEXT yn
NEXT x