home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk116 / frank.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-11-04  |  6.0 KB  |  124 lines
  1. 10  KEY OFF:WIDTH 80:CLS:DEFINT A-Z:CU$="     "
  2. 70  Z=0:GOSUB 3000:FOR X=13 TO 15:LOCATE X,1:PRINT STRING$(80,"CSRLIN");:NEXT X
  3. 74  CHAIN MERGE "b:words", 75, ALL
  4. 75  GOSUB 1000:DIM H$(NW), H(NW), A$(90), A(90), W$(90), W(90), U$(50), U(50):T$=TIME$:XX=VAL(LEFT$(T$,2))*120+VAL(MID$(T$,4,2))*60+VAL(RIGHT$(T$,2)):RANDOMIZE XX
  5. 77  RESTORE:FOR I=1 TO NW:READ H$(I):NEXT I
  6. 80  FOR X=1 TO NW:IF H(X)=0 THEN 100 ELSE NEXT X
  7. 90  FOR X=1 TO NW:H(X)=0:NEXT X:H=INT(RND*NW):GOTO 110
  8. 100  FOR T=1 TO 5:H=INT(RND*NW):IF H(H)=0 THEN 110 ELSE NEXT T:H=X
  9. 110  H$=H$(H):H(H)=1
  10. 120  L=LEN(H$):FOR X=1 TO L:W$(X)=MID$(H$,X,1):W(X)=0:NEXT X
  11. 140  LOCATE 14,39-L/2:PRINT STRING$(L+2," ");:LOCATE 14,40-L/2:COLOR 15:PRINT STRING$(L,"-");:COLOR 7
  12. 150  FOR X=65 TO 90:A$(X)=CHR$(X):NEXT X
  13. 160  LOCATE 16,1:PRINTSPACE$(70):LOCATE 16,1:PRINT"What's your letter?";
  14. 170  LOCATE 18,5:PRINTSTRING$(70,"POINT");
  15. 180  LOCATE 20,14:FOR X=65 TO 90:PRINTA$(X)" ";:NEXT X
  16. 190  CU=22:LOCATE 21,30:PRINT"('/' to guess word)";
  17. 200  IKEY$="":LOCATE 16,CU:PRINTCU$;
  18. 210  GOSUB 59990:BEEP
  19. 220  IF IKEY$="*" THEN CLS:LOCATE 12,10:PRINT"The word was "H$(H)"!";:TIMEOUT=5:GOSUB 59950:RUN "b:ekg001"
  20. 230  IF IKEY$="/" THEN 2000
  21. 240  A=ASC(IKEY$):IF A>90 THEN A=A-32
  22. 250  IF INSTR("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz",IKEY$)=0 THEN 200
  23. 260  LOCATE 16,CU:PRINTIKEY$;
  24. 270  IF A$(A)=" " THEN LOCATE 17,1:PRINT"You've already used "IKEY$"!";:TIMEOUT=2:GOSUB 59950:LOCATE 17,1:PRINTSPACE$(50);:GOTO 200
  25. 280  S=0:NC=0:FOR X=1 TO L
  26. 290  IF W$(X)=IKEY$ THEN W(X)=1:S=S+1
  27. 300  IF W(X)=1 THEN NC=NC+1
  28. 310  NEXT X
  29. 320  IF NC=L THEN 340
  30. 330  IF S<>0 THEN 340 ELSE IF Z>=7 THEN 3800 ELSE LOCATE 17,1:PRINT"The monster gets ";:GOSUB 3000:TIMEOUT=2:GOSUB 59950:LOCATE 17,1:PRINTSPACE$(50);:A$(A)=" ":GOTO 180
  31. 340  LOCATE 14,40-L/2:COLOR 15
  32. 350  FOR X=1 TO L:IF W(X)=1 THEN PRINTW$(X); ELSE PRINT"-";
  33. 360  NEXT X:COLOR 7:A$(A)=" ":IF NC=L THEN 4000
  34. 370  TIMEOUT=2:GOSUB 59950:GOTO 180
  35. 1000  ON ERROR GOTO 1050
  36. 1010  RESTORE:NW=0
  37. 1020  READ X$:NW=NW+1:GOTO 1020
  38. 1050  RETURN
  39. 2000  LOCATE 16,1:PRINT"What is your guess for the word? ";:INPUT W$:IF W$="*" THEN CLS:LOCATE 12,10:PRINT"The word was "H$(H)"!";:TIMEOUT=5:GOSUB 59950:RUN "b:???0??"
  40. 2010  IF W$=H$ THEN 4000
  41. 2020  LOCATE 16,1:PRINT SPACE$(70);:LOCATE 16,1:PRINT"Wrong!  There goes ";:GOSUB 3000:TIMEOUT=2:GOSUB 59950:GOTO 160
  42. 3000  Z=Z+1:ON Z GOTO 3100, 3200,3300,3400,3500,3600,3700,3800
  43. 3010  STOP
  44. 3100  LOCATE 1,1:PRINT STRING$(80,"<0xDF!>");:LOCATE 12,1:PRINT STRING$(80,"POINT");:FOR X=1 TO 12:LOCATE X,1:PRINT"CSRLIN";:LOCATE X,80:PRINT"CSRLIN";:NEXT X:LOCATE 2,28:COLOR 15:PRINT"F R A N K E N S T E I N";:COLOR 7
  45. 3110  FOR X=6 TO 12:LOCATE X,10:PRINTSTRING$(8,"CSRLIN");:LOCATE X,62:PRINTSTRING$(8,"CSRLIN");:NEXT X:LOCATE 5,13:PRINT"CSRLINCSRLIN";:LOCATE 5,65:PRINT"CSRLINCSRLIN";
  46. 3120  RETURN
  47. 3200  PRINT"his body!";
  48. 3210  COLOR 15:LOCATE 6,37:PRINT STRING$(7,"CSRLIN") CHR$(31) STRING$(6,29) STRING$(5,"CSRLIN") CHR$(31) STRING$(4,29) STRING$(3,"CSRLIN") CHR$(31) STRING$(2,29) "CSRLIN";:COLOR 7
  49. 3220  RETURN
  50. 3300  PRINT"his arm!";
  51. 3310  COLOR 15:LOCATE 6,35:PRINT"POINTPOINT" CHR$(31) STRING$(2,29) "CSRLIN" CHR$(31) CHR$(29) "CSRLIN";:COLOR 7
  52. 3320  RETURN
  53. 3400  PRINT"his other arm!";
  54. 3410  COLOR 15:LOCATE 6,44:PRINT"POINTPOINT" CHR$(31) CHR$(29) "CSRLIN" CHR$(31) CHR$(29) "CSRLIN";:COLOR 7
  55. 3420  RETURN
  56. 3500  PRINT"his leg!";
  57. 3510  COLOR 15:LOCATE 9,39:PRINT"POINT" CHR$(31) CHR$(29) "CSRLIN" CHR$(31) STRING$(2,29) "POINTCSRLIN";:COLOR 7
  58. 3520  RETURN
  59. 3600  PRINT"his other leg!";
  60. 3610  COLOR 15:LOCATE 9,41:PRINT"POINT" CHR$(31) CHR$(29) "CSRLIN" CHR$(31) CHR$(29) "CSRLINPOINT";:COLOR 7
  61. 3620  RETURN
  62. 3700  PRINT"his head!";
  63. 3710  COLOR 15:LOCATE 3,39:PRINT"CSRLINCSRLINCSRLIN" CHR$(31) STRING$(3,29) "OFFCSRLININKEY$" CHR$(31) STRING$(3,29) "CSRLIN<0xDF!>CSRLIN";:COLOR 7
  64. 3720  RETURN
  65. 3800  LOCATE 16,1:PRINT"     The word was   " H$ ".";:TIMEOUT=2:GOSUB 59950:PRINT"   The MONSTER lives!!!";:TIMEOUT=2:GOSUB 59950
  66. 3810  FOR X=1 TO 10
  67. 3820  LOCATE 6,35:PRINT"  " CHR$(31) STRING$(2,29) " " CHR$(31) CHR$(29) " ";
  68. 3830  LOCATE 6,44:PRINT"  " CHR$(31) CHR$(29) " " CHR$(31) CHR$(29) " ";
  69. 3840  COLOR 15:LOCATE 6,35:PRINT"<0xDF!><0xDF!>" CHR$(30) STRING$(2,29) "CSRLIN" CHR$(30) CHR$(29) "CSRLIN";
  70. 3850  LOCATE 6,44:PRINT"<0xDF!><0xDF!>" CHR$(30) CHR$(29) "CSRLIN" CHR$(30) CHR$(29) "CSRLIN";
  71. 3860  FOR X1=1 TO 50:NEXT X1
  72. 3870  LOCATE 6,35:PRINT"  " CHR$(30) STRING$(2,29) " " CHR$(30) CHR$(29) " ";
  73. 3880  LOCATE 6,44:PRINT"  " CHR$(30) CHR$(29) " " CHR$(30) CHR$(29) " ";
  74. 3890  COLOR 15:LOCATE 6,35:PRINT"POINTPOINT" CHR$(31) STRING$(2,29) "CSRLIN" CHR$(31) CHR$(29) "CSRLIN";:COLOR 7
  75. 3900  COLOR 15:LOCATE 6,44:PRINT"POINTPOINT" CHR$(31) CHR$(29) "CSRLIN" CHR$(31) CHR$(29) "CSRLIN";:COLOR 7
  76. 3905  NEXT X
  77. 3910  LOCATE 16,1:PRINTSPACE$(70):LOCATE 16,1:PRINT"              Would you like to play again (";:COLOR 15:PRINT"Y";:COLOR 7:PRINT" or ";:COLOR 15:PRINT"N";:COLOR 7:PRINT")?";
  78. 3920  GOTO 4010
  79. 4000  LOCATE 16,1:PRINT"Correct!!     Would you like to play again (";:COLOR 15:PRINT"Y";:COLOR 7:PRINT" or ";:COLOR 15:PRINT"N";:COLOR 7:PRINT")?";
  80. 4010  GOSUB 59990:IF INSTR("ynYN",IKEY$)=0 THEN 4010
  81. 4020  BEEP:IF IKEY$="y" OR IKEY$="Y" THEN CLS:Z=0:GOSUB 3000:FOR X=13 TO 15:LOCATE X,1:PRINT STRING$(80,"CSRLIN");:NEXT X:GOTO 80
  82. 4030  RUN "menu"
  83. 5000  RUN "b:???0??"
  84. 10000  DATA fat,cat,act,can,fast,hat,hand,last,man,ran,have
  85. 10010  DATA red,hen,let,get,help,next,pet,men,went,bed,said
  86. 10020  DATA big,pig,fir,did,swim,six,dig,win,sit,hit,been
  87. 10030  DATA rug,bug,jump,hunt,fun,must,cup,bus,cut,run,of,from
  88. 10040  DATA hot,pond,got,hop,not,dog,log,lost,soft,on,was,want
  89. 10050  DATA glass,grass,bell,dress,will,still,off,cross,fuss,stuff,roll
  90. 10060  DATA milk,truck,ask,back,mask,neck,desk,sick,silk,rock
  91. 10070  DATA fish,dish,brush,splash,wish,ship,shop,shed,shut,shelf,wash
  92. 10080  DATA rich,witch,lunch,catch,ranch,pitch,such,match,much,stretch,watch
  93. 10090  DATA that,this,them,than,then,thin,bath,thick,with,cloth,both
  94. 10100  DATA pink,thank,bank,think,trunk,string,sang,long,bring,hung,young
  95. 10110  DATA play,day,may,say,stay,train,rain,wait,paint,mail,they
  96. 10120  DATA bake,safe,chase,came,cake,gave,late,game,name,made,break
  97. 10130  DATA see,need,keep,sleep,me,she,clean,read,teach,piece
  98. 10140  DATA try,dry,by,cry,fly,pie,tie,lie,cried,tried,eye
  99. 10150  DATA side,line,five,time,like,fine,ride,hide,kite,mine,give
  100. 10160  DATA find,kind,mind,hind,blind,right,night,light,fight,might,wind
  101. 10170  DATA go,no,slow,show,own,low,boat,road,goat,coat,to,do
  102. 10180  DATA cold,nose,old,those,hold,close,told,hope,gold,home,one
  103. 10190  DATA new,chew,few,blue,threw,true,grew,suit,flew,fruit,build
  104. 10200  DATA use,mule,cute,goose,loose,choose,food,soon,zoo,room,you,school
  105. 10210  DATA some,friend,done,does,come,shoe,move,guess,live,head
  106. 10220  DATA put,pull,push,full,bush,foot,look,good,book,took,could,should,would
  107. 10230  DATA why,wheel,when,whip,which,who,white,whose,while,what
  108. 10240  DATA all,draw,ball,crawl,call,fault,fall,caught,saw,taught,shall,gone
  109. 10250  DATA brown,house,cow,found,down,sound,how,our,now,out,your,four
  110. 10260  DATA toy,noise,joy,point,boy,soil,join,boil,oil,spoil
  111. 10270  DATA hear,year,ear,rear,dear,cheer,clear,deer,near,steer,here
  112. 10280  DATA hair,care,air,scare,pair,bare,chair,square,fair,share,bear,where
  113. 10290  DATA fork,or,for,short,horse,floor,store,tore,shore,more,wore,door
  114. 10300  DATA barn,yard,car,arm,farm,are,hard,dark,far,march,part
  115. 10310  DATA her,jerk,serve,girl,bird,first,third,curl,turn,hurt,word,work,were
  116. 10320  DATA better,never,after,under,coller,color,other,mother,water father
  117. 10330  DATA funny,happy,story,hurry,party,any,many,very,ready,pretty
  118. 10340  DATA write,knew,know,wrote,lamb,talk,walk,laugh,climb,eight
  119. 10350  DATA one,two,three,four,five,six,seven,eight,nine,ten
  120. 59950  TIMEOUT$=TIME$:TIME2=VAL(LEFT$(TIMEOUT$,2))*120+VAL(MID$(TIMEOUT$,4,2))*60+VAL(RIGHT$(TIMEOUT$,2))
  121. 59960  TIMEOUT$=TIME$:TIME3=VAL(LEFT$(TIMEOUT$,2))*120+VAL(MID$(TIMEOUT$,4,2))*60+VAL(RIGHT$(TIMEOUT$,2))
  122. 59970  IF TIMEOUT > TIME3 - TIME2 THEN 59960 ELSE RETURN
  123. 59990  IKEY$=INKEY$:IF IKEY$="" THEN 59990 ELSE RETURN
  124.