100 SCREEN 1
  110 FOR I=0 TO 10:PALETTE 0,I+1,RGB(I*2+7,I*2+7,I*2+7):PALETTE 10,I+1,RGB(I+7,I+7,I+7):NEXT
  120 PALETTE 10,8,RGB(31,31,31):LINE (0,0)-(127,63),3,BF
  130 FOR I=0 TO 5000:X=RND(128):Y=RND(64)
  140 LINE (X,Y)-(X,Y+2+RND(3)),INT(RND(20)/20+5-ABS(XSIN(X/128))*5)+1:NEXT
  150 LINE (63,0)-(63,31),8,BF
  160 GCOPY 0,(0,0)-(127,63) TO A$:A$=RIGHT$(A$,128*64):SETTEX 0,128,64,256,A$
  170 SETVERTEX 0,4,(0,0,0),(511,0,0),(511,0,127),(0,0,127)
  180 SETPOLYGON 0,1,0,, (0,1,2,3):SETATR 0,1,(0,1,3,0,0,0)
  190 SETDISP 1:SPRWINDOW,,,,,,180
  200 CLS 0:FOR I=1 TO 50:OBJTYPE I,4:OBJATR I,0,0:OBJPOS I,-128,0,64+I*128:NEXT
  210 LINE (0,0)-(320,224),134,BF:LINE (0,188)-(320,224),144,BF
  220 SETPFONT 101,ASC("O"),(35,35,20,0,128,3000) ,RGB(10,10,3):B=-&H0.08*0
  230 SETPFONT 102,ASC("O"),(35,35,20,0,128,6000) ,RGB(10,10,3)
  240 SETPFONT 103,ASC("V"),(2,2,2,50,0,0) ,RGB(31,0,0):OBJ(103,@XR)=.25
  250 SETPFONT 104,12,(.8,.7,1.5,50,-10,-20) ,RGB(31,31,31)
  260 SETPERS 90:PRIORITY 10,5:VI=2:' <-*** Change this value! (VI=0, 0.5, 1,...) ***
  270 Z=(Z+S)AND 8191:OBJ(103,@YP)=-150,Z+500:OBJ(104,@YP)=-150,Z+500:CAMERA (128*(1-VI*3),-50,Z*(1-VI)+VI*4500),B TO (128,-50,Z+500):VSYNC :B=B+&H0.0008*0:S=S-.25*(S<70)-.5*(S>0)*(PAD(0,1)=0):GOTO 270