home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / FRIENDLY.ZIP / ANATOMY.001 < prev    next >
Encoding:
Text File  |  1988-10-13  |  8.6 KB  |  64 lines
  1. 10 SCREEN 0,0,0:COLOR 3,0:ON KEY(10) GOSUB 20:ON KEY(1) GOSUB 620:KEY (10) ON:GOTO 50
  2. 20 CLEAR:ON ERROR GOTO 30:CHAIN"MENU1.001",5000
  3. 30 CLEAR:ON ERROR GOTO 40:RUN"MENU2.002"
  4. 40 RUN"MENU3.003
  5. 50 CLS:GOSUB 610:GOSUB 180:GOSUB 150:IF BK THEN 20
  6. 60 CLS:GOSUB 610:GOSUB 260:GOSUB 150:IF BK THEN 50
  7. 70 CLS:GOSUB 610:GOSUB 290:GOSUB 150:IF BK THEN 60
  8. 80 CLS:GOSUB 610:GOSUB 320:GOSUB 150:IF BK THEN 70
  9. 90 CLS:GOSUB 610:GOSUB 370:GOSUB 150:IF BK THEN 80
  10. 100 CLS:GOSUB 610:GOSUB 420:GOSUB 150:IF BK THEN 90
  11. 110 CLS:GOSUB 610:GOSUB 440:GOSUB 150:IF BK THEN 100
  12. 120 CLS:GOSUB 610:GOSUB 490:GOSUB 150:IF BK THEN 110
  13. 130 CLS:GOSUB 610:GOSUB 530:GOSUB 150:IF BK THEN 120
  14. 140 GOTO 20
  15. 150 BK=0:KEY(1) ON:COLOR 15,0:LOCATE 24,12,0:PRINT "Strike Any Key To Continue  Strike <F1> For Previous Page";:COLOR 3,0
  16. 160 DEF SEG:POKE 106,0:IF INKEY$<>"" THEN 160
  17. 170 A$=INKEY$:IF A$="" THEN 170 ELSE RETURN
  18. 180 PRINT"170 LOCATE 5,20,0:PRINT"CHR$(34)"Welcome to Master Mind. The object of this game is"CHR$(34):PRINT"180 LOCATE 6,15:PRINT"CHR$(34)"TO CORRECTLY GUESS A SERIES OF FROM 3 TO 6 NUMBERS."CHR$(34)
  19. 190 PRINT"190 LOCATE 7,15:PRINT"CHR$(34)"Each number is randomly generated and the possibility"CHR$(34):PRINT"200 LOCATE 8,15:PRINT"CHR$(34)"exists that you may have 2 of the same number in a"CHR$(34)"
  20. 200 PRINT"210 LOCATE 9,15:PRINT"CHR$(34)"series."CHR$(34)"
  21. 210 PRINT"220 LOCATE 11,20:PRINT"CHR$(34)"You will be given from 9 to 15 guesses to accomplish"CHR$(34):PRINT"230 LOCATE 12,15:PRINT"CHR$(34)"this task, depending upon the length of the series."CHR$(34)"
  22. 220 PRINT"240 LOCATE 13,15:PRINT"CHR$(34)"After each guess you will be told the number of cor-"CHR$(34):PRINT"250 LOCATE 14,15:PRINT"CHR$(34)"rect digits, along with how many are in the right po-"
  23. 230 PRINT"260 LOCATE 15,15:PRINT"CHR$(34)"sition. Use these clues to guess the correct series."CHR$(34)
  24. 240 PRINT"270 LOCATE 25,27:COLOR 15,0:PRINT"CHR$(34)"Press Any Key To Continue"CHR$(34)":COLOR 7":PRINT"280 IF INKEY$<>"CHR$(34)""CHR$(34)" THEN 280":PRINT"290 RESP$=INKEY$:IF RESP$="CHR$(34)""CHR$(34)" THEN 290":PRINT"300 CLS
  25. 250 PAGE$=" 11 & 12 ":GOSUB 600:RETURN
  26. 260 PRINT"310 DIM GUESS(6):DIM ANSWER(6):COLOR 15,0":PRINT"320 LOCATE 8,32,0:PRINT "CHR$(34)"WELCOME TO MASTER MIND"CHR$(34):PRINT"330 LOCATE 9,20,0:PRINT"CHR$(34)"TO CHOOSE A LEVEL ENTER THE LETTER NEXT TO IT"CHR$(34)"
  27. 270 PRINT"340 LOCATE 11,29,0:PRINT "CHR$(34)"A)  SERIES OF 3 NUMBERS"CHR$(34):PRINT"350 LOCATE 12,29,0:PRINT "CHR$(34)"B)  SERIES OF 4 NUMBERS"CHR$(34):PRINT"360 LOCATE 13,29,0:PRINT "CHR$(34)"C)  SERIES OF 5 NUMBERS"CHR$(34)"
  28. 280 PRINT"370 LOCATE 14,29,0:PRINT "CHR$(34)"D)  SERIES OF 6 NUMBERS"CHR$(34):COLOR 3,0:PAGE$=" 12 & 13":GOSUB 600:RETURN
  29. 290 PRINT"379 LOCATE 6,17:PRINT CHR$(201)":PRINT"380 FOR A=18 TO 66":PRINT"390     LOCATE 6,A,0:PRINT CHR$(205)":PRINT"400 NEXT":PRINT"410 FOR B=7 TO 15":PRINT"420     LOCATE B,67,0:PRINT CHR$(186)":PRINT"430 NEXT
  30. 300 PRINT"431 LOCATE 16,67:PRINT CHR$(188)":PRINT"440 FOR C=66 TO 18 STEP -1":PRINT"450     LOCATE 16,C,0:PRINT CHR$(205)":PRINT"460 NEXT":PRINT"461 LOCATE 16,17:PRINT CHR$(200)":PRINT"470 FOR D=15 TO 7 STEP -1
  31. 310 PRINT"480     LOCATE D,17,0:PRINT CHR$(186)":PRINT"490 NEXT":PAGE$=" 13 & 14 ":GOSUB 600:RETURN
  32. 320 PRINT"500 RESP$=INKEY$:IF RESP$="CHR$(34)""CHR$(34)" THEN 500":PRINT"510 IF RESP$="CHR$(34)"A"CHR$(34)" OR RESP$="CHR$(34)"a"CHR$(34)"     THEN DIGITS=3:STARTANS=36:STARTGES=8:BOTROW=15:GOTO 560
  33. 330 PRINT"520 IF RESP$="CHR$(34)"B"CHR$(34)" OR RESP$="CHR$(34)"b"CHR$(34)"     THEN DIGITS=4:STARTANS=34:STARTGES=6:BOTROW=15:GOTO 560"
  34. 340 PRINT"530 IF RESP$="CHR$(34)"C"CHR$(34)" OR RESP$="CHR$(34)"c"CHR$(34)"     THEN DIGITS=5:STARTANS=32:STARTGES=4:BOTROW=18:GOTO 560"
  35. 350 PRINT"540 IF RESP$="CHR$(34)"D"CHR$(34)" OR RESP$="CHR$(34)"d"CHR$(34)"     THEN DIGITS=6:STARTANS=30:STARTGES=2:BOTROW=21:GOTO 560":PRINT"550 GOTO 500":PRINT"560 FOR SUB=1 TO DIGITS
  36. 360 PRINT"570 RANDOMIZE(VAL(RIGHT$(TIME$,2))):ANSWER(SUB)=FIX(RND(SUB)*10)":PRINT"580 NEXT SUB":PRINT"590 CLS":PAGE$=" 14 ":GOSUB 600:RETURN
  37. 370 PRINT"600 XX=1:YY=1:GOSUB 1230":PRINT"610 LOCATE 1,34,0:PRINT"CHR$(34)"SECRET NUMBERS"CHR$(34):PRINT"620 LOCATE 2,30,0:PRINT"CHR$(34)"----------------------"CHR$(34)"
  38. 380 PRINT"630 BEGINANS=STARTANS":PRINT"640 FOR M=1 TO DIGITS":PRINT"650     LOCATE 3,BEGINANS,0:PRINT CHR$(219) CHR$(219)":PRINT"660     BEGINANS=BEGINANS+4":PRINT"670 NEXT
  39. 390 PRINT"680 COLOR 15,0:LOCATE 5,4,0:PRINT"CHR$(34)"ENTER YOUR GUESSES"CHR$(34)":COLOR 3,0":PRINT"690 LOCATE 6,2,0:PRINT"CHR$(34)"----------------------"CHR$(34):PRINT"700 LOCATE 5,28,0:PRINT"CHR$(34)"CORRECT NUMBERS"CHR$(34)"
  40. 400 PRINT"710 LOCATE 6,28,0:PRINT"CHR$(34)"---------------"CHR$(34):PRINT"720 LOCATE 5,49,0:PRINT"CHR$(34)"CORRECT NUMBERS/RIGHT POSITION"CHR$(34):PRINT"730 LOCATE 6,49,0:PRINT"CHR$(34)"------------------------------"CHR$(34)"
  41. 410 PAGE$=" 14 & 15 ":GOSUB 600:RETURN
  42. 420 PRINT"740 FOR ROW=7 TO BOTROW":PRINT"750     BEGINGES=STARTGES":PRINT"760     FOR Q=1 TO DIGITS":PRINT"770         LOCATE ROW,BEGINGES,0:PRINT CHR$(220) CHR$(220)":PRINT"780         BEGINGES=BEGINGES+4":PRINT"790     NEXT Q
  43. 430 PRINT"800     LOCATE ROW,35,0:PRINT CHR$(220) CHR$(220)":PRINT"810     LOCATE ROW,63,0:PRINT CHR$(220) CHR$(220)":PRINT"820 NEXT ROW":PAGE$=" 15 ":GOSUB 600:RETURN
  44. 440 PRINT"830 FOR ROW=7 TO BOTROW":PRINT"840     BEGINGES=STARTGES:HITS=0:GUESSES=0":PRINT"850     DIM HITS$(10,6):DIM MISSES$(10,6)":PRINT"860     FOR SUB=1 TO DIGITS":PRINT"870         LOCATE ROW,BEGINGES,0
  45. 450 PRINT"880         DEF SEG:POKE 106,0:IF INKEY$<>"CHR$(34)""CHR$(34)" THEN 880":PRINT"890         TRY$=INKEY$:IF TRY$="CHR$(34)""CHR$(34)" OR TRY$<"CHR$(34)"0"CHR$(34)" OR TRY$>"CHR$(34)"9"CHR$(34)" THEN 890
  46. 460 PRINT"900         GUESS(SUB)=VAL(TRY$)":PRINT"910         LOCATE ROW,BEGINGES-1,0:PRINT CHR$(255) GUESS(SUB)":PRINT"920         BEGINGES=BEGINGES+4":PRINT"930     NEXT SUB":PRINT"940     FOR X=1 TO DIGITS":PRINT"950         FOR Y=1 TO DIGITS
  47. 470 PRINT"960          IF GUESS(X)=ANSWER(Y) AND X=Y AND HITS$(GUESS(X),X)<>"CHR$(34)"*"CHR$(34)"             THEN GUESSES=GUESSES+1:HITS=HITS+1:HITS$(GUESS(X),X)="CHR$(34)"*"CHR$(34)"             :MISSES$(GUESS(X),X)="CHR$(34)"*"CHR$(34)": GOTO 980
  48. 480 PRINT"970         NEXT Y":PRINT"980     NEXT X":PAGE$=" 15 ":GOSUB 600:RETURN
  49. 490 PRINT"990     FOR X=1 TO DIGITS":PRINT"1000         FOR Y=1 TO DIGITS":PRINT"1010             IF GUESS(X)=ANSWER(Y) AND HITS$(GUESS(X),X)="CHR$(34)CHR$(34)"                 AND MISSES$(GUESS(X),X)="CHR$(34)CHR$(34)" AND X<>Y AND MISSES$(GUESS(X),Y)
  50. 500 PRINT"                 ="CHR$(34)CHR$(34)" AND HITS$(GUESS(X),Y)="CHR$(34)CHR$(34)"                 THEN GUESSES=GUESSES+1:MISSES$(GUESS(X),X)="CHR$(34)"*"CHR$(34)"                 :MISSES$(GUESS(X),Y)="CHR$(34)"*"CHR$(34)": GOTO 1030
  51. 510 PRINT"1020         NEXT Y":PRINT"1030     NEXT X":PRINT"1040     LOCATE ROW,34,0:PRINT CHR$(255) GUESSES CHR$(255)":PRINT"1050     LOCATE ROW,62,0:PRINT CHR$(255) HITS CHR$(255)":PRINT"1060     ERASE MISSES$: ERASE HITS$
  52. 520 PAGE$=" 15 ":GOSUB 600:RETURN
  53. 530 PRINT"1070     IF HITS=DIGITS THEN GOSUB 20:GOSUB 1280:LOCATE 22,21:PRINT"CHR$(34):PRINT"          !!!  C O N G R A G U L A T I O N S  !!!"CHR$(34)":GOTO 1110":PRINT"1080 NEXT ROW":PRINT"1090 GOSUB 20
  54. 540 PRINT"1100 GOSUB 1265:LOCATE 22,23,0:PRINT"CHR$(34)"!!!  S O R R Y , Y O U   L O S T  !!!"CHR$(34):PRINT"1110 LOCATE 23,25,O:PRINT"CHR$(34)"DO YOU WISH TO PLAY AGAIN PRINT  <Y/N>"CHR$(34):PRINT"1120 IF INKEY$<>"CHR$(34)""CHR$(34)" THEN 1120
  55. 550 PRINT"1130 RESP$=INKEY$:IF RESP$="CHR$(34)""CHR$(34)" THEN 1130":PRINT"1140 IF RESP$="CHR$(34)"Y"CHR$(34)" OR RESP$="CHR$(34)"y"CHR$(34)" THEN CLS:GOTO 320":PRINT"1150 IF RESP$<>"CHR$(34)"N"CHR$(34)" AND RESP$<>"CHR$(34)"n"CHR$(34)" THEN 1130
  56. 560 PRINT"1160 RUN"CHR$(34)"MENU":PRINT"1170 KEY(10) OFF:XX=CSRLIN:YY=POS(0):LOCATE 25,1:PRINT SPC(79);:LOCATE 25,25":PRINT"1180 COLOR 15:PRINT "CHR$(34)"DO YOU WISH TO LEAVE THIS GAME <Y/N>"CHR$(34)";:COLOR 7
  57. 570 PRINT"1190 IF INKEY$<>"CHR$(34)""CHR$(34)" THEN 1190":PRINT"1200 R$=INKEY$:IF R$="CHR$(34)""CHR$(34)" THEN 1200":PRINT"1210 IF R$="CHR$(34)"Y"CHR$(34)" OR R$="CHR$(34)"y"CHR$(34)" THEN 1160
  58. 580 PRINT"1220 IF R$<>"CHR$(34)"N"CHR$(34)" AND R$<>"CHR$(34)"n"CHR$(34)" THEN 1200":PRINT"1230 LOCATE 25,1:PRINT SPC(79);:LOCATE 25,25:COLOR 0,7":PRINT"1240 PRINT "CHR$(34)" STRIKE <F10> TO LEAVE THIS GAME "CHR$(34)";:COLOR 7,0:LOCATE XX,YY
  59. 590 PRINT"1250 KEY(10) ON:DEF SEG:POKE 106,0:RETURN":PRINT"1260 END":PAGE$=" 15 ":GOSUB 600:RETURN
  60. 600 LOCATE 23,17:PRINT "Screen corresponds to page"PAGE$"in your manual";:LOCATE 25,23:COLOR 0,7:PRINT " Strike <F10> To Leave This Program ";:COLOR 3,0:RETURN
  61. 610 LOCATE 1,28:COLOR 0,7:PRINT " Anatomy of a Program ":COLOR 3,0:PRINT:RETURN
  62. 620 KEY(1) OFF:BK=1:RETURN 630
  63. 630 RETURN
  64.