OHJELMOINTI KIELI: DBASE III+
KŽŽNTŽJŽ         : CLIPPER

FoxToolBox Ver. 1.1  Copyright 1987,1988, BUZZWORDS Intl.
INPUT FILE:  LAINAT.PRG
PRINTER IS OFF

    1    *  FILE NAME: LAINAT.PRG
    2    *  BY: Matti Karkkainen
    3    *  NOTICE: 
    4    *  DATE: October 4, 1995
    5    *  DESC:
    6    *  CALLED BY:
    7    *  DATA FILES:
    8    ******LAINAT******
    9    SET TALK OFF
   10    SET BELL OFF
   11    SET CONF ON
   12    SET ESCA ON
   13    SET DATE GERM
   14    SET COLOR TO N/W,N/BG
   15    STORE .T. TO JATKO
   16 ÚÄÄDO WHILE JATKO
   17 ³     CLEAR
   18 ³     @ 2,23 SAY 'PVM'
   19 ³     @ 2,28 SAY DATE()
   20 ³     @ 4,19 TO 17,53 DOUBLE
   21 ³     @ 6,23 SAY ' L A I N A O H J E L M A'
   22 ³     @ 9,23 SAY 'TASAERŽLAINA ON........ T'
   23 ³     @ 11,23 SAY 'ALENEVALLA PŽŽOMALLE ON A'
   24 ³     @ 13,23 SAY 'LOPETUS ON L'
   25 ³     STORE ' ' TO VAL
   26 ³     @ 15,23 SAY 'VALINTA...'GET VAL
   27 ³     READ
   28 ³  ÚÄÄDO CASE
   29 ³  ÃÄÄCASE UPPER(VAL)='T'
   30 ³  ³     DO TASAERA
   31 ³  ÃÄÄCASE UPPER(VAL)='A'
   32 ³  ³     DO APLAINA
   33 ³  ÃÄÄCASE UPPER(VAL)='L'
   34 ³  ³     STORE .F. TO JATKO
   35 ³  ÃÄÄOTHE
   36 <==<==<==LOOP
   37 ³  ÀÄÄENDC
   38 ÀÄÄENDD
   39    SET COLOR TO
   40    CLEAR
   41    **************
   42    *Formatted by: FoxToolBox Ver. 1.1  on October 4, 1995 at 10:31 PM.
FoxToolBox found 0 error(s), 0 warning(s), 42 lines.