home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh6x / sh69b.d64 / not (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  165b  |  8 lines
  1. 10 INPUT"BITTE EINE ZAHL ZW. 1 UND 5";Z
  2. 20 S=(Z>0)+(Z<6)+NOT(Z>5)
  3. 30 PRINT Z>0,Z<6,NOTZ>5
  4. 40 IFS=-2THENPRINT" DARUNTER! ":GOTO70
  5. 50 IFS=-1THENPRINT" DRUEBER! ":GOTO70
  6. 60 PRINT" O.K. "
  7. 70 END
  8.