home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / Beispiele_3 / BSP20.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-08-29  |  166 b   |  16 lines
  1. DEFINE  a  BYTE
  2.  
  3. PRINT "Beispiel 20"
  4.  
  5. a = 0
  6.  
  7. #start
  8. a = a + 1
  9. IF a > 3 THEN PRINT ">3" ELSE PRINT "<=3"
  10. IF a > 5 THEN GOTO stop
  11. GOTO start
  12.  
  13. #stop
  14. END
  15.  
  16.