home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 69 / 64er_Magazin_Sonderheft_69_19xx_Markt__Technik_de_Side_B.d64 / not (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  165 b   |  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.