home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG003.ARK / ANIMAL.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  2KB  |  93 lines
  1.     NAME$="ANIMAL.GME"
  2.     PRINT"***** ANIMALS ******"
  3.     PRINT "YOU THINK OF AN ANIMAL AND"
  4.     PRINT"THIS PROGRAM TRIES TO GUESS IT"
  5.     PRINT"THE COMPUTER ASKS A SERIES OF QUESTIONS AND YOU REPLY YES OR NO"
  6.     PRINT "IF IT DOES NOT GET YOUR ANIMAL THEN IT ASKS YOU"
  7.     PRINT "FOR A QUESTION THAT IT COULD HAVE ASKED"
  8.     PRINT "IT LEARNS NEW QUESTIONS IN THIS WAY"
  9.     PRINT "THE MORE IT PLAYS THE MORE ANIMALS IT GETS TO KNOW"
  10. 10    PRINT
  11.     PRINT
  12.     PRINT "ARE YOU THINKING OF AN ANIMAL";
  13.     INPUT R$
  14.     R$=LEFT$(R$,1)
  15.     IF R$ NE "Y" THEN STOP
  16.       FILE NAME$(80)
  17.     IF END #1 THEN 600
  18.     READ #1,1;N
  19.     L=0
  20.     FOR I=2 TO N
  21.     J=I
  22.     IF END #1 THEN 600
  23.     READ #1,I;Q$,A$,B$
  24.     PRINT Q$;
  25.     INPUT R$
  26.     R$=LEFT$(R$,1)
  27.     IF R$=A$ THEN 800
  28.     NEXT I
  29.     L=1
  30. 200    READ #1,N;Q$,A$,B$,P$
  31. 210    PRINT "IS IT A "+P$;
  32.     INPUT R$
  33.     R$=LEFT$(R$,1)
  34.     IF R$="Y" THEN 700
  35.     B$=P$
  36. 300    GOSUB 2000
  37.     REM ****INSERT AT END OF FILE ****
  38. 400    IF J<>N THEN 500
  39.     IF L=0 THEN 500
  40.     READ #1,N;Q$,A$,B$,P$
  41.     PRINT #1,N;Q$,A$,B$
  42.     PRINT #1,N+1;D$,E$,C$,P$
  43.     PRINT #1,1;N+1
  44.     GO TO 710
  45.     REM ****CREATE NEW FILE *****
  46. 500    IF J<>N THEN 510
  47.     READ #1,N;Q$,A$,B$,P$
  48.     PRINT #1,N;Q$,A$,"@"+B$,P$
  49.     GO TO 520
  50. 510    READ #1,J;Q$,A$,B$
  51.     PRINT #1,J;Q$,A$,"@"+B$
  52. 520    F$=LEFT$(B$,5)+".GME"
  53. 530    CLOSE (1)
  54.     FILE F$(80)
  55.     PRINT #1,1;2
  56.     PRINT #1,2;D$,E$,C$,B$
  57.     GO TO 710
  58. REM **** HERE ON ERROR *****
  59. 600    PRINT "FILE READ ERROR RECORD";J
  60.     CLOSE (1)
  61.     STOP
  62. 700    PRINT
  63.     PRINT
  64.     PRINT
  65.     PRINT "!!!!  I GOT THAT ONE  !!!!!"
  66.     PRINT
  67.     PRINT
  68.     PRINT
  69. 710    NAME$="ANIMAL.GME"
  70.     CLOSE (1)
  71.     GO TO 10
  72. 800    IF LEFT$(B$,1)="@" THEN 900
  73.     PRINT "IS IT A "+B$;
  74.     INPUT R$
  75.     R$=LEFT$(R$,1)
  76.     IF R$="Y" THEN 700
  77.     GO TO 300
  78. 900    B$=RIGHT$(B$,LEN(B$)-1)
  79.     NAME$=LEFT$(B$,5)+".GME"
  80.     CLOSE (1)
  81.     GO TO 200
  82. 2000    INPUT"WHAT ANIMAL WERE YOU THINKING OF";C$
  83.     PRINT "GIVE ME A QUESTION THAT I COULD HAVE ASKED TO TELL A "+C$+" FROM A "+B$
  84.     INPUT D$
  85.     PRINT "FOR A "+C$+" WHAT IS THE ANSWER ";
  86. 2100    INPUT E$
  87.     E$=LEFT$(E$,1)
  88.     IF E$="Y" OR E$="N" THEN RETURN
  89.     PRINT "PLEASE ANSWER YES OR NO"
  90.     GO TO 2100
  91. 9999    CLOSE(1)
  92.     END
  93.