ssample1.prg ==2001==
   10 rem ** screen-sample
   20 rem **
   30 rem ** this is the sample-program for the screen-instructions
   40 rem ** (def,set,open,close) from the c65 user manual chapt. 3
   50 rem **
   60 rem ** typed in for the c65 information page at
   70 rem ** http://www.toxic-waste.de/c65/
   80 rem **
   90 rem ** contact me: michael@toxic-waste.de
  100 rem
  110 trap 290                  : rem ** in case of error want text screen
  120 graphic clr               : rem ** initialize graphics
  130 screen def 1,0,0,2        : rem ** define 320x200x2 graphics screen
  140 screen open 1             : rem ** open it
  150 palette 1,0,0,0,0         : rem ** define screen 1 color 0 = black
  160 palette 1,1,15,0,0        : rem ** define screen 1 color 1 = red
  170 palette 1,2,0,0,15        : rem ** define screen 1 color 2 = blue
  180 palette 1,3,0,15,0        : rem ** define screen 1 color 3 = green
  190 screen set 1,1            : rem ** make it the view screen
  200 scnclr 0                  : rem ** clear screen with color 0
  210 border 0                  : rem ** set border color to 0
  220 pen 0,1                   : rem ** make draw pen = color 1 (red)
  230 line 100,100,150,150      : rem ** draw a diagonal red line
  240 pen 0,2                   : rem ** make draw pen = color 2 (blue)
  250 box 50,50,50,80,80,50,80,80 : rem  draw a blue box
  260 pen 0,3                   : rem ** make draw pen = color 3 (green)
  270 char 25,50,1,1,2,"words"  : rem ** draw green text
  280 sleep 5                   : rem ** pause for 5 seconds
  290 screen close 1            : rem ** close graphic, get text screen
  300 palette restore           : rem ** restore normal system colors
  310 border 6                  : rem ** restore normal border color
  320 end