0 REM AUTOSTART
   10 FRAME CLEAR:FRAME SIZE 1:FRAME COLOR 0
PRINT CHR$(12):CURSOR 15,5:COLOR 5:PRINT"EhBASIC Graphic Demo by cm"
CURSOR 10,6:COLOR 3:PRINT"Total of 135 lines BASIC code only"
FOR N=0 TO 15000:NEXT
FRAME POSITION 50,16
FRAME WIDTH 128,96
FRAME GRID 16,16
PRINT CHR$(12):COLOR 2
P=1:CURSOR 0,1:PRINT"Set Pixel"
GOSUB 2000
GOSUB 3000
P=2:CURSOR 0,1:PRINT"Draw Line"
GOSUB 2000
GOSUB 3000
P=3:CURSOR 0,1:PRINT"Draw Rect"
GOSUB 2000
GOSUB 3000
P=4:CURSOR 0,1:PRINT"Fill Rect"
GOSUB 2000
GOSUB 3000
S=0:FRAME CLEAR
FRAME COLOR 10:COLOR 2
CURSOR 0,1:PRINT"Grid Plot"
FRAME POSITION 40,16
GOSUB 500
FOR X=0 TO 80
Y=SIN(X/10)*20
FRAME POSITION Y+80,16
GOSUB 4000
NEXT X
FRAME POSITION 50,16
S=1:FRAME CLEAR
GOSUB 500
COLOR 2:CURSOR 0,1:PRINT"Variable Grid"
FRAME GRID 32,20
GOSUB 3000
FRAME COLOR 12
GOSUB 3000
COLOR 2:CURSOR 0,1:PRINT"Wave Display "
GOSUB 5000
GOSUB 3000
COLOR 2:CURSOR 0,1:PRINT"Instr Macros "
GOSUB 6000
GOSUB 3000
COLOR 2:CURSOR 0,1:PRINT"Circle Demo  "
GOSUB 7000
GOSUB 3000
GOTO 10
  500 FRAME SIZE S:PLOT MOVE 0,96
  510 CURSOR 25,10:COLOR 6
  520 PRINT "Sine 1 YELLOW";:COLOR 1:PRINT" Sine 2 BLUE"
  525 PLOT COLOR 6
  530 FOR X=0 TO 255
  540 Y=SIN(X/16)*80+96
  550 PLOT LINE X,Y
  560 NEXT X
  570 X=0:Y=0
  590 PLOT COLOR 1
  595 PLOT MOVE 0,96
  600 FOR X=0 TO 255
  610 Y=SIN(X/10)*40+96
  620 PLOT LINE X,Y
  630 NEXT X
  640 X=0:Y=0
  650 GOSUB 3000
CURSOR 25,10:COLOR 6
PRINT "Sine 1 YELLOW";:COLOR 1:PRINT" Sine 2 BLUE"
  900 RETURN
 2000 FRAME CLEAR:X=100:Y=100
 2010 FOR N= 0 TO 100
 2020 C=RND(0)*7+1
 2030 PLOT COLOR C
 2040 PLOT MOVE X,Y
 2050 X=RND(0)*255:Y=RND(0)*191
 2060 IF P=1 THEN PLOT POINT X,Y
 2070 IF P=2 THEN PLOT LINE X,Y
 2080 IF P=3 THEN PLOT RECT X,Y
 2090 IF P=4 THEN PLOT FILL X,Y
 2100 NEXT N
 3000 FOR N=0 TO 5000:NEXT N
 3010 PRINT CHR$(12)
 3020 RETURN
 4000 FOR N=0 TO 100:NEXT N
 4010 RETURN
5000 REM PLOT WAVE DEMO              
N=0:Z=0:FRAME POSITION 50,15        
FRAME COLOR 10:FRAME GRID 32,32 
FOR N=0 TO 300                             
Y=SIN(N/7)    
Z=(RND(0)*4)-2+Z
IF Z>30 THEN Z=30                 
IF Z<-30 THEN Z=-30                 
FRAME CLEAR                     
PLOT COLOR 4                    
PLOT WAVE $B000,Z+64         
PLOT COLOR 6                    
PLOT WAVE $B100,Y*40+128        
NEXT    
RETURN   
6000 REM INSTRUMENT DEMO
FRAME POSITION 50,15                          
FRAME CLEAR:FRAME COLOR 0 
FOR I=0 TO 1                           
FOR N=1 TO 100            
PLOT SIZE I+1,1             
PLOT COLOR 6              
PLOT MOVE 10,40           
PLOT PRINT N/1.9276       
PLOT SIZE I,I             
PLOT MOVE 10,60          
PLOT COLOR 4              
PLOT MACRO 16,N           
PLOT MOVE 100,160         
PLOT COLOR 5              
PLOT MACRO 18,N:REM           
PLOT MOVE 100,96          
PLOT COLOR 1              
PLOT MACRO 17,N           
FRAME WAIT                
NEXT                      
NEXT    
RETURN                           
7000 REM CIRCLES DEMO
FRAME CLEAR:FRAME COLOR 0      
PLOT MOVE 128,96               
FOR I=0 TO 150                           
PLOT COLOR 5                   
FOR N=1 TO 70 STEP 5           
PLOT COLOR RND(0)*7            
PLOT CIRCLE N,RND(0)*255       
NEXT                           
NEXT
RETURN