home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Emulatoren / C64-Files / GUESSNUM (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-05-15  |  1.6 KB  |  55 lines
  1. 10 REM - GUESSNUM -
  2. 20 ]SAM
  3. 40 PRINT "[147]":PRINT :PRINT:PRINT"GUESS THE NUMBER BETWEEN 1 AND 100"
  4. 60 N=INT(99*RND(0))+1
  5. 70 SAY "GEHS DHAX NAH4MBER BIXTWIY5N WAH4N Q AEND WAHN6 /HAH4NDRIHD."
  6. 80 INPUT G
  7. 85 REM NOTE COLON IN IF-THEN STATEMENT
  8. 90 IF G>100 THEN:SAY "DHAETS MOH4R DHAEN WAHN /HAH4NDRIHD.":GOTO 80
  9. 100 IF G<1 THEN:SAY "DHAETS LEH3S DHAEN WAH5N.":GOTO 80
  10. 110 SA$="":B$=""
  11. 120 IF G<10 THEN B$="":GOTO 340
  12. 130 ON G-9 GOTO 150,160,170,180,190,200,210,220,230,240
  13. 140 GOTO 250
  14. 150 B$="TEH4N":GOTO 460
  15. 160 B$="IHLEH4VIXN":GOTO 460
  16. 170 B$="TWEH4LV":GOTO 460
  17. 180 B$="THER4TIY6N":GOTO 460
  18. 190 B$="FOH4RTIY6N":GOTO 460
  19. 200 B$="FIH4FTIY6N":GOTO 460
  20. 210 B$="SIH4KSTIY6N":GOTO 460
  21. 220 B$="SEH4VUNTIY6N":GOTO 460
  22. 230 B$="EY4TIY6N":GOTO 460
  23. 240 B$="NAY4NTIY6N":GOTO 460
  24. 250 ON INT(G/10)-1 GOTO 260,270,280,290,300,310,320,330
  25. 260 B$="TWEH4NTIY6":GOTO 340
  26. 270 B$="THER4TIY6":GOTO 340
  27. 280 B$="FOHR4TIY6":GOTO 340
  28. 290 B$="FIH4FTIY6":GOTO 340
  29. 300 B$="SIH4KSTIY6":GOTO 340
  30. 310 B$="SEH4VUNTIY6":GOTO 340
  31. 320 B$="EY4TIY6":GOTO 340
  32. 330 B$="NAY4NTIY6"
  33. 340 R=G-10*INT(G/10)
  34. 350 IF R=0 THEN 460
  35. 360 ON R GOTO 370,380,390,400,410,420,430,440,450
  36. 370 B$=B$+"WAH5N":GOTO 460
  37. 380 B$=B$+"TUW5":GOTO 460
  38. 390 B$=B$+"THRIY5":GOTO 460
  39. 400 B$=B$+"FOHR5":GOTO 460
  40. 410 B$=B$+"FAY5V":GOTO 460
  41. 420 B$=B$+"SIH5KS":GOTO 460
  42. 430 B$=B$+"SEH5VUN":GOTO 460
  43. 440 B$=B$+"EY5T":GOTO 460
  44. 450 B$=B$+"NAY5N":GOTO 460
  45. 460 IF G>N+25 THEN C$=" IHZ MAH3CH TUW5 /HAY6.":GOTO 530
  46. 470 IF G>N+5 THEN C$=" IHZ  TUW3 /HAY6.":GOTO 530
  47. 480 IF G>N THEN C$=" IHZ AH LIH3TUL TUW4 /HAY6.":GOTO 530
  48. 490 IF G<N-25 THEN C$=" IHZ MAH3CH TUW4 LAXOW.":GOTO 530
  49. 500 IF G<N-5 THEN C$=" IHZ TUW3 LAXOW.":GOTO 530
  50. 510 IF G<N THEN C$=" IHZ AH LIH3TUL TUW4 LAXOW.":GOTO 530
  51. 520 IF G=N THEN C$="? YUW3 AAR RAY2IH7T.":GOTO 530
  52. 530 SA$=B$+C$:SAY SA$
  53. 540 IF G<>N THEN 80
  54. 550 GOTO 40
  55.