100 PROGRAM "Hilbert.bas"
  110 GRAPHICS 
  120 OPTION ANGLEDEGREES
  130 SET INKWHITE:LET P=1
  140 PLOT 940,700,ANGLE180;
  150 INPUT PROMPT"A gorbe rendje? 1<n<6 ":N
  160 LET S=10*2^(6-N)
  170 CALL HILBERT(S,N,P)
  180 END 
  190 DEF HILBERT(S,N,P)
  200   IF N=0THENEXIT DEF
  210   PLOT LEFT90*P;
  220   CALL HILBERT(S,N-1,-P)
  230   PLOT FORWARDS;RIGHT90*P;
  240   CALL HILBERT(S,N-1,P)
  250   PLOT FORWARDS;
  260   CALL HILBERT(S,N-1,P)
  270   PLOT RIGHT90*P;FORWARDS;
  280   CALL HILBERT(S,N-1,-P)
  290   PLOT LEFT90*P;
  300 END DEF