ZXTape! 0Created with Ramsoft MakeTZXTARGET 9 A ; "TARGET" >>  MACBRIDE 1983 << 80,12 ;"TARGET":1,12 ;"" (22,1;"This is a working diagram to " 254,1;"show how to move ""Targets"" and" <56,1;"""guns"" in shooting type games." F910 ,1;"Press  P  for the Program Index" P712 ,1;" or  R  to RUN the program." Z="R"Ŧ="r"300, d="p"Ŧ="P"200 n 90Z :0,13 ;"INDEX" /2,2;"GAME INSTRUCTIONS......300" /4,2;"TARGET ROUTINE.........400" /6,2;"INKEY$ CHECKS..........500" /8,2;"CHECK FOR HITS.........600" 010 ,2;"SPEED ADJUSTMENTS......480" A12 ,18;".......560";14,18;".......620" 018,3;"GOTO 300 for the game." " ,GAME INSTRUCTIONS 1&:0,7;"TARGET SHOOTING" 6C2,1;"Press keys  5   6   7  or  8 " @)4,1;"to move the gun (+)." J/6,1;"Press  4  to ""fire""." T610 ,1;"Press  S  to start the game." YS=0:SCORE ^="s"Ŧ="S"400 h 350^ m r w |    TARGET ROUTINE Y:21,2;" Press  E  to End game";0,22;7;" SCORE ";S !tl=3:target line %tc=0:target column gl=16:gun line !gc=16:gun column  GUN  gl,gc;"+"  TARGET tl,tc;" " DATA PRINT OUT ]18,0;"Target Line ";tl;" ":19,0;"Target Column ";tc+1;" " Q18,18;"Gun Line ";gl;" ":19,18;"Gun Column ";gc;" " TARGET MOVER (tc=tc+1:tc=29tc=0 KEY CONTACT ? ""500 SPEED ADJUSTMENT d=115:d %20,0;" "   440 RUB OUT GUN  gl,gc;" " INKEY$ CHECKS .="5"gc=gc-1:gc<0gc=0 0="6"gl=gl+1:gl>21gl=21 .="7"gl=gl-1:gl<0gl=0 0="8"gc=gc+1:gc>31gc=31 !FIRING BUTTON &="4"600X 0="e"Ŧ="E"70F 5SPEED ADJUSTMENT :d=16:d D 430 I N S XCHECK FOR HIT ]!12 ,10 ;"FIRING" btl=gltc=gc640 g MISSED! ld=14:d q#12 ,17;"MISSED !" v 430 { HIT tl,tc;"boom" #12 ,17;" HIT ! " d=1100d:d ""655  SCORE  s=s+1  405 s RACING App~ "RACING" >>  MACBRIDE 1982 << FRONT PAGE 1000 DRAWS TRACK ON SCREEN  (N=130 2#1,N;"":THESE <"20,N;"":ARE FN:  ALL BRIGHT PN=120 Z!N,1;"":BUT dN,30;"" nN: INVISIBLY xN=624 5,N;"" 16,N;"" N N=615 N,5;"" N,25;"" N PRINTING 9 ,10 ;"GRAND PRIX" "11 ,10 ;"DIRECTION 1" #13 ,9 ;"BEEP time .25" !GRAPHICS DEFINITION " ,N=14:G$ 6R=07:B @ G$+R,B JR:N T"A",0,102f,102f,255,255,102f,102f,0,"B",24,126~,126~,24,24,126~,126~,24 ^"C",0,102f,102f,255,255,102f,102f,0,"D",24,126~,126~,24,24,126~,126~,24 CAR CO-ORDINATES  CL=18  CC=15 SPEED -length of BEEP  S=.25~  D=1 START OF MOVEMENT LOOP CL,CC;(143+D) 11 ,20;D delay between movements  S,-20 '13 ,20;(S*100d);" "  CL,CC;" " CONTROLS *="5"D=D-1:D=0D=4 *="8"D=D+1:D=5D=1 ="6"S=S*1.1 ="7"S=S*.9ffff %MOVE - WHICH WAY ? &4D=1CC=CC+1:CC>30CC=30 04D=2CL=CL+1:CL>20CL=20 :2D=3CC=CC-1:CC<0CC=0 D2D=4CL=CL-1:CL<0CL=0 MCHECK ATTRIBUTES N(CL,CC)>64@610b WCLOSE LOOP X 450 a CRASH bCL,CC-4;"BANG" lT=120 v!.1}L,(*80P)-40( T START AGAIN ? "ANOTHER GO ?(Y/N)";A$ A$="Y"A$="y":30 a$="n"a$="N"700 1,-12 :650 :1,12 ;"INDEX" 2,12 ;"" 54,0;"Draw Track....................30" 56,0;"Graphics Definition..........290" 58,0;"Variables....................400" 610 ,0;"Movement loop................450" 612 ,0;"Controls.....................500" 614,0;"Co-ordinate change...........550"  616,0;"Check for crash..............590" 618,0;"CRASH!.......................610"   FRONT PAGES 96:7:0::0,12 ;"RACING" X2,2;"This program demonstrates the";4,2;"use of ATTRIBUTES." /8,2;"Do you want instructions ?" -"Please  ENTER  yes or no ";a$ a$=""1030 -a$(1)="y"a$(1)="Y"1200 $%a$(1)="n"a$(1)="N": .1,-12 :1030 ,:0,6;"HOW TO DRIVE YOUR CAR" *1,6;"" "3,12 ;"CONTROLS" 08,5;" 5 ";24;" 8 " *100d,135:0,-60<, 896`,83S:6,-8:-8,-4 +154,135:0,-60<,- 9158,83S:-6,-8:8,-4 *14,8;"BRAKE ACCELERATOR" ,16,9 ;" 6   7 "  G21,0;" PRESS ANY KEY TO GO ON ":0:: ,6bGDsz@GidlAn SPACE S "SPACE" >>  MACBRIDE << Graphics Definition T=14:G$ (R=07:B 2 G$+R,B <R:T FK"A",8,8,28,28,28,62>,546,34" PN"B",0,0,224,124|,63?,124|,224,0 ZO"C",68D,108l,124|,568,568,568,16,16 dI"D",0,7,62>,252,62>,7,0,0 hFront Page i7:7:0: n0,12 ;"SPACE" x32,0;"This program shows how to turn" 14,0;"and move graphics in 4 ways." 36,0;"This is the basic character..." 10 ,10 ;"" 821,0;"Press any key to spin it.":0 ""165 SPIN ROUTINE d=14 #10 ,10 ;(143+d) 2 d   21,17;"stop it." ""240 170 412 ,0;"These 4 characters are used..." #14,8;" " V16,0;"They are UDG's with character code numbers 144,145,146 and 147" 619,0;"LIST 170 to see the spin routine" /21,0;"GOTO 300 to move on. " " +Index or Game ? ,4:5,0;"Press ""P"" for Program Index" 637,3;"or ""G"" for the example game." @="p"Ŧ="P"2000 J="G"Ŧ="g"400 T 320@ ""400 INSTRUCTIONS 7:7:0: 31,0;"PRESS  8 TO TURN CLOCKWISE" 83,0;"PRESS  5 TO TURN ANTI-CLOCKWISE" /5,0;"PRESS  7  TO SPEED UP." 07,0;"PRESS  6  TO SLOW DOWN." 410 ,0;"TRY TO LAND YOUR SPACESHIP IN " 412 ,0;"A TOTAL OF FOUR BASES -WITHOUT" 314,0;"CRASHING -AS FAST AS YOU CAN." 621,0;"Press any key to start.":0 )START CLOCK.Base count Crash count @23672x\,0:23673y\,0:B=0:C=0 0:0:7:: S=.3:SPEED CONTROL D=1:DIRECTION "SL=10 :SHIP LINE "SC=15:SHIP COLUMN SL,SC;(143+D) %BASES-NOTE-ALL "BRIGHT" &n1:1:1,1;"":1,30;"":20,1;"":20,30;"" +0:0 /CONTROLS 0,="5"D=D-1:D<1D=D+4 :,="8"D=D+1:D>4D=D-4 D="6"S=S*1.2 N="7"S=S*.9ffff W SPEED XS>.28\(540 [ S,20 ] SL,SC;" " aDIRECTED MOVEMENT bD=1SL=SL-1 lD=2SC=SC+1 vD=3SL=SL+1 D=4SC=SC-1 THE WORLD IS ROUND SC>31SC=SC-32 SC<0SC=SC+32 SL<0SL=SL+22 SL>21SL=SL-22 LANDED ? (SL,SC)>64@1000  540 WS>.25~20,10 ;1;"GOOD LANDING":1,10 :1040 Ys<.15~20,10 ;1;"!! CRASHED !!":1,-40(:1100L 9C=120,10 ;"MORE DAMAGE":1100L A20,10 ;"BUMP.CAREFUL":1,-20:C=1  B=B+1 B=41100L $?20,4;1;"PRESS ""T"" TO TAKE OFF":0 )="T"Ŧ="t"10808 . 1060$ 8-20,4;" " B KELAPSED TIME L=T=((23672x\+256*23673y\)/5)/10 V321,5;1;" TIME ";T;" SECONDS " `"ANOTHER GAME ?(Y/N)";A$ jA$="Y"A$="y"400 tA$="N"A$="n" ~ 1130j 7:7:0: 0,12 ;"INDEX" 42,0;"GRAPHICS DEFINITION..........25" 44,0;"FRONT PAGE..................105" 46,0;"FURTHER PAGES.......210,300,400" 48,0;"VARIABLES...................500"  510 ,0;"CONTROLS....................560" 512 ,0;"DIRECTED MOVEMENT...........610"  514,0;"EDGE ROUTINE................650" *516,0;"LANDED ?....................690" 4518,0;"COMMENTS,AND END ROUTINE...1000" H520,0;"INDEX......................2000" bz(bGDcsbAn MAZE &( "MAZE"  MACBRIDE 1982 FRONT PAGE 7:7:0: #0,14;"MAZE" (32,0;"This program shows how a path-" -44,0;"making routine works,and how an" 256,0;"array can be used to map a maze." 7516,0;"The BEEPs might annoy you so .." <>18,0;"Press  Q  for a quiet program or" F=20,0;" Press any key to start. " K 0 P#Q=0:="q"Ŧ="Q"Q=1 UINITIAL VALUES Zx1=.353333:x2=.85Y _:X1 , X2 set limits for random moves.See lines 300 - d4:sl=1:sc=1:fl=10 :fc=10 esl =start line fsc =start column gfl =finish line hfc =finish column nl=110 xc=110 l,c;0 l,c+20;"" c:l <11 ,1;"The Array";21;"The Maze" )16,0;"Ready when you are." 521,0;"Press any key to start " 10:14,0;" " L=SL:C=SC  COMMENTS ON DISPLAY  C12 ,0;"Variables. Line =";l;" Column =";c;" " 14,0;"X (RND) =" 716,0;"Line in use on this movement." >21,0;"PRESS ANY KEY FOR NEXT MOVE":0  FLASHES NEW MOVE N=15 L,C;" " L,C+20;" " Q=0.1}L,0  !Q=1d=15:d l,c;1 l,c+20;"*" "!Q=0.1}L,10 :N '$Q=1d=15:d:N + ,PATH-MAKING ROUTINE -THE WHITED OUT LINES PRODUCE THE DISPLAY COMMENTS. YOU DON'T NEED THEM. IF YOU WANT TO SEE THEM RUB OUT THE COLOUR CONTROL AT THE START OF THE LINE .x=:14,9 ;x 66x10 l=10 :300, @qx10 THEN LET L=10:GO TO 300 " J?x>x1X<.5l=l-1:l<1l=1:300, Tqx>x1X<.517,0;"330 IF X>";X1;" AND X<.5 THEN LET L=L-1: IF L<1 THEN LET L=1:GO TO 300" ^Ax>.5X10 C=10 :300, hux>.5X.5 AND X<";X2;" THEN LET C=C+1: IF C>10 THEN LET C=10:GO TO 300 " r4X>X2C=C-1:C<1C=1:300, |oX>X217,0;"370 IF X>";X2;" THEN LET C=C-1: IF C<1 THEN LET C=1:GO TO 300 " CHECK FOR END C=FCL=FL500  200 .12 ,17;FL:12 ,28;FC %L,C;1:L,C+20;"*" \17,0;"400 IF C=FC AND L=FL THEN GO TO 500 "  1,20 921,0;" Press ""G"" to go on. " ="g"Ŧ="G"550& ! 530 &-:5,0;"LIKE TO RUN IT AGAIN ?" 027,0;"YOU CAN FIX THE START AND END" :-9 ,0;"POINTS TO SUIT YOURSELF." D"RUN IT AGAIN?";A$ NA$="YES" A$="yes"620l XA$="NO"A$="no" b""YES OR NO PLEASE";A$:590N l!"CHOOSE YOUR OWN ENDS ?";A$ vA$="NO"A$="no"100d "A$="YES"A$="yes"660 #"YES OR NO PLEASE.";A$:630v :15,0;"NUMBERS MUST BE BETWEEN 1 AND 10" "START LINE ";SL "START COLUMN ";SC "FINISH LINE ";FL "FINISH COLUMN ";FC "ADJUSTS LIMITS FOR RND MOVES 0X1=.25~+(.1}LFL>SL)-(.1}LFLSC)-(.1}LFC>  MACBRIDE 1983 << &7:0:0:6: INTRODUCTION 45,0;"THIS PROGRAM SHUFFLES,DEALS AND" (+7,0;"SORTS A PACK OF CARDS." 2?1,20:21,2;"PRESS ANY KEY TO GO ON." < 0: F"" I AM DEFINING GRAPHICS"'' P" HERE THEY COME"'' ZT=19 :G$ dR=07:B nG$+R,B xR };7;" ";(64@+T);" ";6;(143+T); T "A",0,28,28,107k,127,107k,8,8,"B",8,28,62>,127,62>,28,8,0 "C",0,546,127,127,127,62>,28,8,"D",8,28,62>,127,127,107k,8,8 "E",0,68D,74J,81Q,81Q,74J,68D,0,"F",0,126~,8,8,8,72H,480,0 "G",24,36$,66B,66B,74J,36$,26,0,"H",34",36$,40(,480,40(,36$,34",0 R"I",0,60<,66B,66B,126~,66B,66B,0  "1,10 ::" DONE.": C(4,13 ) D$(4,13 ,2) F" SHUFFLING AND DEALING."'':" THIS TAKES ABOUT 20 SECONDS."'' H=14 N=113 PICKS SUIT S=(*4)+1 CHECKS FOR ANY LEFT T=113 *C(S,T)=0T=13 :T:300, T " 250 'PICKS CARD VALUE ,V=(*13 )+1 1CHECKS NOT USED ALREADY 6C(S,V)=1300, ;MARKS OFF @C(S,V)=1 ED$(H,N,1)=SUIT GRAPHIC J D$(H,N,1)=(143+S) OD$(H,N,2)=CARD VALUE T*V<9 D$(H,N,2)=(491+V) YPICTURE CARDS ^+V>8D$(H,N,2)=(139+V) hN rH "1,20:"ALL DEALT."'' "PRESS ANY KEY TO SEE HANDS."  0: PRINTS HANDS H=14 .5,0 &h*3-1,2;"HAND ";H N=113 I0:D$(H,N,1)=146D$(H,N,1)=1452 H*3,N*2;D$(H,N); N::H 1,20:0 +15,3;"NOW THEY NEED SORTING" 318,1;"HOLD DOWN A KEY FOR FAST SORT" -21,3;"PRESS ANY KEY TO WATCH."  0 N SORTING X S=0 bH=14 gONE HAND AT A TIME lN=112 qSWITCH NEEDED ? v$D$(H,N)D$(H,N+1)675 { BUBBLES  W$=D$(H,N) D$(H,N)=D$(H,N+1) D$(H,N+1)=W$ S=SWITCH DONE  S=1 I0:D$(H,N,1)=146D$(H,N,1)=1452 "H*3,N*2;D$(H,N)  0 N I0:D$(H,N,1)=146D$(H,N,1)=1452 (H*3,26;D$(H,13 )  0 H S=1600X  0 613 ,1;"FULLY SORTED. READY TO PLAY." 2,10 015,3;"THE HEART OF THIS PROGRAM " U17,1;"IS THE SORTING ROUTINE FROM " '19,1;"LINE 600 ONWARDS."  021,2;"YOU MAY LIKE TO LIST THIS."  c LOGICOL GZǔ  "LOGICOL"   MACBRIDE 1982   700  C(4) COMPUTER'S COLOURS # W(4) $WORKING ARRAY ( P(4) )PLAYER'S GUESSES 2 G=0 c4PRODUCES 4 DIFFERENT RANDOM NUMBERS 1 TO 6 dN=14 nC(N)=(*6)+1 sN=1140 xT=14 }T=N135 1C(T)=C(N)T=4:T:N=N-1:110n T N SCREEN DISPLAY &0,12 ;"RIGHT RIGHT" '1,11 ;"PLACES COLOURS" 20,2;"? ? ? ? " I=2 RC=0 Right Colours RP=0 Right Places N=14 PLAYER'S INPUT 221,0;"ENTER COLOURS ONE AT A TIME." P$:P$=""220 Jz=1̱p$:P$(z)<491ůP$(z)>568z=10 :z:220 z $p$<1Űp$>6220 P(N)=P$ PRINTS THE COLOURS  *I*2,N*2;9 ;P(N);P(N) N ,T=14 -COPY ONTO WORKING ARRAY 1 W(T)=C(T) 5ANY IN RIGHT PLACE ? 66P(T)=W(T)RP=RP+1:P(T)=7:W(T)=0 ;T >T=14 @N=14 IANY RIGHT COLOURS ? JAP(T)=W(N)RC=RC+1:P(T)=7:W(N)=0:N=4 TN ^T gALL RIGHT hRP=4500 |%I*2,15;RP;" ";RC  I=I+1 2I=818,0;"ENOUGH":500  190 N=14  20,N*2;C(N);C(N) N "CAN I HAVE A GO NOW?";A$ &A$="YES"A$="yes"900 0a$="no"A$="NO"600X :"YES OR NO";A$:550& X "DO YOU WANT ANOTHER GO ?";A$ bA$="YES"A$="yes":30 la$="no"A$="NO" v"YES OR NO";A$:610b 7:7:0: 0,10 ;"LOGICOL" 32,0;"IN THE FIRST PART OF THIS GAME" 54,0;"SPECTRUM IS THINKING OF 4 COLOUR" >6,0;"NUMBERS -E.G. 6 4 2 5" 38,0;"THE NUMBERS ARE ALL DIFFERENT." *10 ,0;"YOU MUST GUESS THEM." :21,0;"PRESS ANY KEY TO GO ON.":0 : SPECTRUM GUESSES 6:7:0: 32,0;"I AM NOT VERY CLEVER.PLEASE DO" 34,0;"NOT USE ANY COLOUR MORE THAN " 06,0;"ONCE. I CAN ONLY GUESS THE " 28,0;"COLOURS AND NOT THEIR PLACES." 320,2;"PRESS ANY KEY WHEN READY."  0  N=14 7"ENTER COLOURS ONE AT A TIME.";P$:P$=""1020 KZ=1̱P$:P$(Z)<491ůP$(Z)>568Z=10 :Z:1020 Z  %p$<1Űp$>61020  P(N)=P$ )18,N*2;9 ;P(N);P(N) $N . 9 8 RC=0 B,2,2;"1 2 3 4" L 2000 `RC=31150~ jRC=21600@ t2500 :1120` ~,4,2;"2 3 4 5"  2000 RC=31200 RC=21400x 2500 :1170 ,6,2;"2 3 4 6"  2000 RC=31250 RC=21270 2500 :1220 ,8,0;"1 3 4 6" $2000:2500 :1260 ,8,2;"1 2 3 5"  2000  RC=31310 2500 :1290  -10 ,2;"1 2 4 5" ( 2000 2RC=31350F <2500 :13302 F-12 ,2;"1 3 4 5" P 2000 Z2500 :1360P x,6,2;"1 2 3 6"  2000 RC=31440 2500 :1420 ,8,2;"1 2 4 6"  2000 RC=31480 2500 :1460 -10 ,2;"1 3 4 6"  2000 2500 :1490 @,4,2;"1 2 5 6" J 2000 TRC=31700 ^RC=21650r h2500 :1620T r,6,2;"3 4 5 6" | 2000 2500 :1660| ,6,2;"1 3 5 6"  2000 RC=31800 RC=21750 2500 :1720 ,8,2;"2 4 5 6"  2000 2500 :1760 ,8,2;"1 4 5 6"  2000 RC=218400 &2500 :1820 0-10 ,2;"2 3 5 6" : 2000 D2500 :1850: 3"HOW MANY COLOURS RIGHT ?";R$:R$=""2000 'R$<491ůR$>5462000 RC=R$ RC=421004  4*21,0;"HOW'S THAT THEN?" H 600X 021,0;"PLEASE CHECK THAT." 2000 (21,0;" "  M(23730\+256*23731\)-(23653e\+256*23654f\) g>iP1R4Ano9