0 REM AUTOSTART
   10 FRAME CLEAR
   20 PRINT CHR$(12)
   30 FRAME CLEAR:FRAME SIZE 1:FRAME COLOR 0
   40 FRAME POSITION 50,16
   50 FRAME WIDTH 128,96
   60 FRAME GRID 16,16
   70 COLOR 2
   80 P=1:CURSOR 0,1:PRINT"Pixel setzen"
   90 GOSUB 3000
  100 GOSUB 2000
  110 P=2:CURSOR 0,1:PRINT"Linien ziehen"
  120 GOSUB 3000
  130 GOSUB 2000
  140 P=3:CURSOR 0,1:PRINT"Rechtecke zeichnen"
  150 GOSUB 3000
  160 GOSUB 2000
  170 P=4:CURSOR 0,1:PRINT"Rechtecke fuellen "
  180 GOSUB 3000
  190 GOSUB 2000
  200 S=0:FRAME CLEAR
  210 FRAME COLOR 10:COLOR 2
  220 CURSOR 0,1:PRINT"Plot mit Gitterraster"
  230 FRAME POSITION 40,16
  240 GOSUB 500
  250 FOR X=0 TO 80
  260 Y=SIN(X/10)*20
  270 FRAME POSITION Y+80,16
  280 GOSUB 4000
  290 NEXT X
  300 FRAME POSITION 50,16
  310 S=1:FRAME CLEAR
  320 GOSUB 500
  325 COLOR 2:CURSOR 0,1:PRINT"Variables Gitterraster"
  330 FRAME GRID 32,20
  340 GOSUB 3000
  350 FRAME COLOR 12
  360 GOSUB 3000
  365 GOSUB 3000
  370 GOTO 10
  500 FRAME SIZE S:PLOT MOVE 0,96
  510 CURSOR 25,10:COLOR 6
  520 PRINT "Sinus 1 GELB";:COLOR 1:PRINT" Sinus 2 BLAU"
  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
  900 RETURN
 2000 FRAME CLEAR
 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
 3020 RETURN
 4000 FOR N=0 TO 100:NEXT N
 4010 RETURN