sysadminday

???????????????????????????? print "Content-Type: text/html\n\n"; print ""; use vars qw($rows, $cols); no strict 'refs'; my $text; ($rows, $cols) = (24, 80); $text = q(I am $rows high and $cols long); $text =~ s/\$(\w+)/${$1}/g; print $text; print "";

FUNCTION test2
      PARAMETER input_1
      input_1 = ALLTRIM(UPPER(input_1))
      IF LEN(input_1) = 3
            input_1 = input_1 + " TUL"
      ENDIF
      SELECT t1
      SET ORDER TO TAG in1
      SEEK input_1
      IF FOUND()                          
            DELETE
            RETURN .T.                    
      ELSE                                
            GOTO TOP
            BROWSE
            RETURN .F.                    
      ENDIF
RETURN

././/////,>./././/.////,/.///////.,,

/ day! day!/sysadmin/Happy  day! day! day!

"Sysadmin" is waiting at the Writer's Depot.
Go to Writer's Depot: west 1st left, 2nd right, 1st left, 2nd left.
Pickup a passenger going to the Post Office.
Go to the Post Office: north 1st right, 2nd right, 1st left.
Go to the Taxi Garage: north 1st right, 1st left, 1st right.