10 REM  By David 'DAX' Hayes
   20 REM  For ENCELADUS
   30  
   31 DATA 0,8,5,7,13,15,82,112,90,120,117,119
   40  
   50 MODE 4: CLS #
   60 LOAD "pussy.$"CODE 
   64 PALETTE 0,0
   65 CSIZE 8,8: RESTORE : FOR n=0 TO 11: READ a: PALETTE 0,a LINE 174-n: PALETT
      E 0,a LINE -16+n: NEXT n
   66  
   67 REM  palette changes 
   70  
   80 REM  Change 'Screen' To 
   90 REM  The MODE 4 Background
  100 REM  Screen
  110  
  120 DPOKE SVAR 64,2
  130  
  140 REM  This Changes The Mode
  150 REM  Without Clearing The
  160 REM  Mode 4 Screen$
  170  
  180 CSIZE 8,8: PEN 3
  190  
  200 REM  This Makes The Text
  210 REM  Legible!
  220  
  230 WINDOW 4,40,12,20
  240 CLS 1
  250 LET xrg=256
  260 PLOT 15,0: DRAW 0,81: DRAW 149,0: DRAW 0,-81: DRAW -149,0: PEN 0: PLOT 16,
      80: DRAW 147,0
  270 REM  Makes a nice box!
  280 PEN 3
  290 POKE SVAR 60,18,0,0,1
  300 REM  Puts the lower window 
  310 REM  (where "scroll?" appears)
  320 REM  at the top of the screen
  330  
  340 REM  A Simple Demo Of
  350 REM  Mixed Mode 4 Graphics
  360 REM  And Mode 3 Text
  370  
  380 REM  Not As Good As 
  390 REM  Modeswitcher's 1+2
  400 REM  But It's Short And
  410 REM  But It Does The Job
  420 REM  And Is Easier To Use
  430 REM  And Incorperate In
  440 REM  Your Own Programs
  450  
  460 SCROLL RESTORE : LIST : GO TO 480
  465 REM *************************
  470 POKE SVAR 60,63,0,22,23
  480 REM  Do above to restore
  490 REM  lower window!
  491 REM  otherwise may crash!