home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / pl / typetest.pl < prev    next >
Encoding:
Text File  |  1986-11-19  |  1.8 KB  |  32 lines
  1. BEGIN                                                    $1
  2. CONST SORT_OF_TRUE = TRUE;
  3. CONST NEG = -10;
  4. INTEGER A,B,C;                                           $2
  5. INTEGER ARRAY D,E,F[10];                                 $3
  6. boolean array j[5];                                      $4
  7. boolean array k,l[true];                                 $5
  8. integer array m,n[true];                                 $6
  9. BOOLEAN G,H,I;                                           $7
  10. PROC BELL                                                $8
  11. BEGIN                                                    $9
  12. $ YOUR NAME IN LIGHTS HERE!!!!                            10
  13. END;                                                     $11
  14. $ HERE IS SOME GOOD STUFF                                 12
  15. CALL BELL;                                               $13
  16. G:= TRUE;                                                $14
  17. H:= FALSE;                                               $15
  18. I:= SORT_OF_TRUE;                                        $16
  19. H,G:= I;                                                 $17
  20. A:= B;                                                   $18
  21. D[5],E[9]:= A,C;                                         $19
  22. $ NOW SOME BAD STUFF                                     $20
  23. CALL A;                                                  $21
  24. WRITE A,G;                                               $22
  25. READ B,I;                                                $23
  26. D[1]:= H;                                                $24
  27. E[TRUE]:= A;                                             $25
  28. C:= F;                                                   $26
  29. IF 32 -> SKIP;                                           $27
  30. READ BELL;                                               $28
  31. END.                                                     $29
  32.