100 SCREEN 0:PRIORITY 4,7
  110 FOR I=0 TO 223:LINE (0,I)-(320,223-I),RGB(0,0,I*32/224):NEXT
  120 FOR I=1 TO 14:P$=P$+CHR$(I):NEXT :P$=P$+"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  130 OBJ(100,@TYPE)=6:OBJ(100,@XR)=.22:OBJ(100,@XP)=0,200,940:OBJ(100,@ZRV)=.001*0
  140 FOR N=1 TO 50 :OBJ(N,@PARENT)=100 :OBJ(N,@TYPE)=4 :OBJ(N,@XRV)=.0008,.003 :OBJ(N,@XP)=XCOS(N/50+.73)*1000,XSIN(N/50+.73)*1000 :SETPFONT N,ASC(MID$(P$,N,1)),,RGB(RND(32),RND(32),RND(32)) :NEXT
  150 P=PAD(0,2) :LOCATE 12,20 :PRINT "FONT No.";ASC(MID$(P$,M+1,1))
  160 IF P AND @PAD_LEFT THEN V = -1 ELSE IF P AND @PAD_RIGHT THEN V = 1 ELSE 150
  170 FOR I=0 TO 9: OBJ(100,@ZR)=U/500: U=U-V: VSYNC :NEXT :M=(M+V+50)MOD 50
  180 GOTO 150