beetle #######################################################+++++ BEETLE +++++++++++++ C.N.GOOCH 1983 ++++++++################################################################ Xy>>>>>>>>>>>>>>>>>>>>>>>>>>>>Graphic in lines 1860/1950 is a "GRAPHICS" 'A'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< L3:1::10 ,4;1;"STOP THE TAPE":21004 2110>:1820 1620T:1500  MAIN LOOP s14,0;" ";1;0;2+t;14,t*8-6;"GO"  1970 $d=1b(t,5)b(t,1)<2b(t,1)=b(t,1)+1:v(t)=v(t)+1:1390n+((b(t,1)=2)*10 ) .d=2b(t,5)b(t,2)<2b(t,2)=b(t,2)+1:v(t)=v(t)+2:1440+((b(t,2)=2)*10 ) 8d=3b(t,6)b(t,3)<4b(t,3)=b(t,3)+1:v(t)=v(t)+3:1470+((b(t,3)=1b(t,3)=3)*10 ) Bbd=4b(t,6)b(t,4)=0b(t,4)=1:v(t)=v(t)+4:1410 Lbd=5b(t,6)b(t,5)=0b(t,5)=1:v(t)=v(t)+5:1370Z VUd=6b(t,6)=0b(t,6)=1:v(t)=v(t)+6:1350F `(12 ,t*8-7;"Sc ";v(t) j&v(t)33!100d:1180 t 1800 ~ 75K  1040  ROUND END H1::2:1,10 ;6;1;" ROUND OVER " \n=132 2:n/100d,n:n:n=40(1-1:.005y# =,n:n ?''7;"WELL DONE";p$(t);''10 ;"YOU WON THAT ROUND" !n=1pl:a(n)=a(n)+v(n):n &8,10 ;"THIS ROUND TOTAL" tn=2pl*22:n+10 ,1;p$(n/2);" ";v(n/2);" ";a(n/2):n 1,20 21004: ""1260 ='2;"PLEASE PRESS KEY TO TELL ME"," WHAT TO DO NEXT" '" (1)PLAY ANOTHER ROUND WITH"," THE SAME PEOPLE"," (2)PLAY A NEW GAME WITH"," DIFFERENT PEOPLE"," (3)FINISH PLAYING BEETLE"  ?="1"1500:b(4,6):v(4):1040 ="2"1020 ="3"2110>:n=814:n,5;7;" ":n:6;2;1;10 ,6;"THANKS FOR PLAYING";11 ,6;"START TAPE TO LOAD";12 ,6;" THE NEXT GAME ":"" ( 1290  2 BEETLES <BODY Fot*64@-44,,119w:24,0,-:0,-8:-24,0,-:0,8: PHEAD Z)t*64@-32 ,138,8: dEYES n)t*64@-35#,140,1: x)t*64@-29,140,1: TAIL It*64@-32 ,98b:0,-8,:-6,0,-:  FEELERS Qt*64@-36$,144:-5,3:-2,-6,.3*: Pt*64@-26,144:5,3:2,-6,-.3*: LH LEG pt*64@-44,,119w-8*(b(t,3)=4):-5,0:-6,-6,.5*: RH LEG ot*64@-20,119w-8*(b(t,3)=3):5,0:6,-6,-.5*:  set screen 0:0::7 .0,10 ;6;2;"BEETLE" K0,167:255,0:0,64@:255,0 '0,166:0,-101e (63?,166:0,-101e )127,166:0,-101e ")191,166:0,-101e ,)255,166:0,-101e 6_n=88*pl8:2,n-7;0;n/8+2;p$(n/8):n @ JSTART T:0:0:7 ^p$(4,6) hL:;6;0;2,2;"HOW MANY PEOPLE TO PLAY?";0; rYn$:n$<491ůn$>5792;7;''"ENTER A NUMBER PLEASE":1650r |tpl=n$:pl<1pl>42;'"I AM SORRY BUT THERE ARE ONLY FOUR CARDS,PLEASE ENTER AGAIN":1650r pl=16;0;''"YOU WILL WANT ME TO PLAY THEN":s$="YES":pl=2:p$(2)="'PUTER":250:1730 !pl=4s$="NO":1730 M:pl<4pl>16;0;''"DO YOU WANT ME TO PLAY?":s$ Xs$(1)="N"s$(1)="n"4;0;''"O.K I'LL JUST WATCH":1730 s$(1)="Y"s$(1)="y"6;0''"GOOD.I LIKE PLAYING":pl=pl+1:p$(pl)="'PUTER":s$="YES":1730 Z2;''"SORRY.I DID NOT UNDERSTAND"'"PLEASE ANSWER ""YES""""NO""":s$:1700 Z''" PLEASE ENTER THE PLAYERS INITIALS OR NAMES...NOT MORE THAN SIX LETTERS EACH"  n=1pl-(s$(1)="Y") 5'"PLAYER ";n:p$(n):p$(n,1)=" "1750  p$(n):n *s$(1)="Y"'"PLAYER ";pl:"'PUTER"  21004 t=1+(*4) &t=t+1:tpl+1t=1  INIT &p23658j\,8:2150f:b(4,6):a(4):v(4):n=07:u:"a"+n,u:n 0#### DICE #### :?a$(6,3):b$(6,3):c$(6,3) Da$(1)=" " Nb$(1)=" " Xc$(1)=a$(1) ba$(2)=" " lb$(2)=a$(1) vc$(2)=" " Ka$(3)=a$(2):b$(3)=b$(1):c$(3)=c$(2) Ea$(4)=" ":b$(4)=a$(1):c$(4)=a$(4) Ka$(5)=a$(4):b$(5)=b$(1):c$(5)=a$(4) Ea$(6)="":b$(6)=a$(1):c$(6)=a$(6) ]d$=139+131+131+131+135:e$=142+""+141: ###PRINT DICE ### ff=0:COUNT=0 Hn=1519:n,5;" ":n:90Z Cd=1+(*6):15,5;d$;19,5;e$ >n=1618:n,5;"";n,9 ;133:n Cs$="YES"t=pl17,12 ;"MY GO":ff=1:2040 16,12 ;"PRESS ANY KEY TO";17,12 ;" ""THROW"" DICE ";18,11 ;" RELEASE TO STOP":=""2030 d=7d=1 I16,6;a$(d);17,6;b$(d);18,6;c$(d)  LffCOUNT=COUNT+1:COUNT>502ƥ>.5ff=0:25: ffd=d+1:2040  =""25: *d=d+1:2040 4!"PRESS ENTER TO CONTINUE";z$: >:0:0: Hnn=130:x=1+(*23):y=1+(*20):p=1+(*7):i=(*7) R'p:i/100d,p:y,x;i;p;"BEETLE" \n:21004: fa0,0,00111100<,00111100<,00111100<,00111100<,0,0 ' "BEETLE"1000::5,2;1;"O.K SET RECORDER";6,2;"FOR VERIFY";7,2;"START THE TAPE":"BEETLE"::10 ,10 ;"O.K"