ZXTape! 0Created with Ramsoft MakeTZXAPPLE JAM =@  a= ?0~`??0` |????0`?? x???p` p???~?p?? `????> p`0???`? 0`??0`?<0`??0`?80x< x<@A??px< xx<A~B ??x<0x0x>?LJÿ@B(h8x`x<00x>߻ϻ|~0 0TD <38px?߻ﻻ@B 0Tmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm ' 1 A APPLE JAM yte=ek_ar_=v_u_'h_lk9900& |_`  aÀ -a$):"Length in Bytes? ";bytes M 21`4M_M?_+-e3 Rv> ????????? 88~$B<8999`````99ÁA9 88~$B<8999`````99ÁC9 88~$B<8@@9 99``p99ÁA9 88~$B<8@@9 99``p99ÁC9 88~$B<8@9 9999ÁA9 88~$B<8@9 9999ÁC9 88~$B<8` `9;79999ÁA9 88~$B<8` `9;79999ÁC9 8  8~$B<8`009?{g9999ÁA9 8  8~$B<8`009?{g9999ÁC9 88~$B<8p9s??999??9ÁA9 88~$B<8p9s??999??9ÁC9:~~~~~< 00ސ0GGGG88D8 800088D888 /88||8~888?8?ǀ8C8 888?8 8|8>?????? 8??8#DH80H80H8#DH80H80H:$~~~$;<<~~~<?eYZaY*rg*pg2tgw"vg!XR8 *vgR [vg!YR8 *vgR *vg Rw($*vg:tg2tgO ZfZ*g*g2gw"g!XR8 *gR [g!YR8 *gR *g Rw($*g:g2gO sYgsY*bh*`h2dhw"fh!XR8 *fhR [fh!YR8 *fhR *fh Rw($*fh:dh2dhO YIY!Vw"{\>>>>>>> > >>> >>`> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> >>>>>>> >>>> >>>>>>> >>>> >>>>>>>>>>>>>>>>>>>> !w"{\>>>>>>> >>>>>>>>>>P>I>L>L>S>>>>>>> >> >!@Y"pg!e"rgxg!)X6:,>!?@R~ ~w+$ :hʀk!k>2gg*g-"g} !Z"gZ~;(:( >2ggl><2ggl>2h>2gg*g-"g} !Z"gZ~;(:(8(><2ggl>x2ggͬl>2h>2ggͬl>2h:hk>2gg*g-"g} !Y"g>2hZ~8( >x2ggl>2ggl>2h>2gg*g-"g} !Z"g>2h-~9%l? >x2ggl!Z"g>x2ggl>2h>20o<>(>!d͵(>(>!͵ͮj:h(<2h:x0!Jg"bh!?X"`hhhl>2h:hhm:*@$>2h>^2bh!*X"`hhh>:w>J2bh!IX"`h"hhh*h Z~?¦m*h"`h>^2bhhh>J2bh*h Z"`h"hhh!͵*h}Im>^2bh"`hhh>J2bh!Z"`hhh>2h!͵:iI¯m>^2bh*h"`hhh>2h!͵:"o<<2"o*u#"uv:hBn:x\>2h>T2bh!X"`h"hhh!͵:h[n:h:x\>2h*h Z~?›n*h"`h>^2bhhh>T2bh*h Z"`h"hhh!͵*h}Sn>^2bh"`hhh>T2bh!Z"`hhh>2h2h!͵:sI¤n>^2bh*h"`hhh>2h2h!͵:"o<<2"o*u##"uvZaeY:"o !Za"#o !a"#o !b"#o !hb"#o !b"#o !c"#o !vc"#o !c"#o !*d"#o !d"#o !d"#o!8e"#oɯ2\:\(:0oJt:"o Ҫs:'oʶq:,opͫx͎{ʹo5ppx5pTp6o*%o"pg!a"rgxg*%o}yp,"%oTp6o*%o"pg!a"rgxg*%o}cʓq-"%o6o:.o|p*#o"rg*%o"pgxg:"o<2"o>2.o*#o"rg*%o"pgxg:"o=2"o>2.o!͵*%o}h(r *%o,"`h!e"bhhh>g2ch2jln-Tyo!͵>2,o>2+o>(2-op:+o*q!X"pg!f"rgxg>2+o:-ofq=2-oYq!X"pg!a"rgxg!X"pg!f"rgxg>2+o:-ofq=2-o!d͵p>2"o2.o2,o!a"rg!X"pgxg!X"pgxg!wY"%oTp!͵>2'o>2(o2)o21o!@Y"pgp:)or*pg Z"pg!a"rgxg*pg@R"pg!e"rgxg:(o(<2(oBr>2)oBr!a"rgxg!e"rg*pg Z"pgxg*pgZ~8 >21o:(ojr=2(o<!͵:1o(jlnp!cY"%o>2'o:1oTp:2o<22o>>>>:2o >>>>>Ïs >>>>>>Ïs >>>>>>Ïs %>>>>>>>>>>Ïs >>>>>>Ïs >>>>>>Ïs %>>>>>>>>>>Ïs >>>>>>Ïs >>>>>>>2h2h!Z"gTp!a"rgxg*pg-"pg*#o"rgxg!͵!a"rgxg*#o"rg*%o"pgxg>>>>>:/o > "t > "tJt> :/o<2/o!͵> 2"o>2.oTp!a"rgxgl*pgZ"pg!Nu"rgxg !͵:h(j2!f"ggxg!u"g!}Z"gg*g?Z~9(-!a"g!͵g*g-"g!u"gg2!͵*pg R"pg!a"rgxg2!͵!a"g!͵g*g}}(,"g!u"gg2!͵x( ͎{(Nz.w?9 98?@9 mmma9 8988:~~8A888E}9ml8>>>>>>>0:u' >2u:u2u!u(:u8(:x\8!>>>>>>>>!͵:y\ :x\U:p=2p>>2z\2y\>2h2Ly2h2h2h2h2"o !'ow#>-2ph6o*#o"rg!eY"pg"%oxg!Z"g!f"g>2u2uv>>>>>>>0:u2u!u(>2\x(:\(o*uKuBҎv*u"uÎv@G@@DG@󄈏J)(a!!!??~>QYUS9EE}E<">$"9D|DD@@@@8%9%9$$.BB@B{1>>> ~~?ss?88<~?8?aȤ<8`P 0&ff&0dfgggggg8`8~ۭ%+:x\G2x YZxjY*x*x2xw"x!XR8 *xR [x!YR8 *xR *x Rw($*x:x2xO  Y:Lyʚy:y\ :'oͫx:x>2Ly!Zx"x!!X"Jy"xx:p 2p*Jy|Yy*JyZ"x!a"xx*Jy!Z"Jy"x!Zx"xx1z*JyZ"x!a"xx*Jy,"x"Jy!Zx"xx*Jy} >2Ly:p 2pZ"x!a"xxaZ~8( !͵>20o>2Ly!w"{\!XX6$>>>>>>>>> >I>N>S>T>R>U>C>T>I>O>N>S> >>> >>> >C>O>N>T>R>O>L>S> >>> >>>>>5>>> >> >L>E>F>T>>> >>>8>>> >> >R>I>G>H>T>> > >>>H>>> >=> >H>O>L>D>> > >>>I>>> >=> >T>H>I>S> >P>A>G>E>>> >>> >S>E>L>E>C>T> >>> >S>>>T>A>R>T>>> >>>R>>>E>S>E>T> >H>I>>> >>>A>>>L>T>E>R> >K>E>Y>S!͵͎{(.w !"u!͵Îv& ͎{ !X6!͵ ͎{!((2o>2\:\(2z͎{ !X6!X6 !͵>2\͎:\( (G:z(:\2{{2o͎{ !X6!)Y6 !͵>2\͎:\( (G:z(:{(:\2E{{2oNz $Graphpen238(#8-8=graphic pen v12008 by Roy Eastwood Jan 1983   9090# d erase  x%13 ;"ERASE";13 ;"=====" k'" This command allows you to erase the line or shape (box or circle etc.) you have just drawn." ^'" To use the erase command, point the pen at the E at the bottom of the screen." m'" You will not be able to eraseonce you have moved the pen unless you can reposition it exactly." 9700%   draw  #13 ;"DRAW";13 ;"====" d" Draws a line from the ORIGIN (indicated by an x) to the TARGET (indicated by a large +)." ,'" There are three steps to drawa line:" v'"1. Fix one end of the line by positioning the origin (x) at the desired point (use the MOVE command)." l'"2. Fix the other end of the line by moving the pen to the desired point and pressing a key." 2'"3. Point the pen to D and press a key."  9700%  , move  6#13 ;"MOVE";13 ;"====" @<'" This command moves the ORIGIN(x) to the TARGET (+)." J'" Use this command to define the end point of lines and arcs (see DRAW and ARC), the centre of circles (see CIRCLE) or one corner of a box (see RECTANGLE)." T>'" To use MOVE, point the pen atthe M and press a key" ^ 9700% h  circle  '11 ;"CIRCLE";11 ;"======" 6'" There are three steps needed to draw a circle:" v'"1. Fix the centre of the circle by positioning the origin (x) at the desired point (use MOVE command)." ~'"2. Set the radius of the circle by moving the pen to where the edge of the circle is to be and pressing a key." 8'"3. Point the pen at the C and press a key."  9700%   rectangle  -10 ;"RECTANGLE";10 ;"=========" 3'" There are three steps needed to draw a box:" b'"1. Move the origin (x) to where one corner of the box will be (use the MOVE command)." c'"2. Determine the position of the opposite corner by pointing the pen and pressing a key." &8'"3. Point the pen at the R and press a key." 0 9700% : X fill  b#13 ;"FILL";13 ;"====" l.'" There are 2 or 3 steps involved:" v;'"1. Place the pen (+) inside the shape to be filled." U'"2. Use the INK command to set the current ink colour to that desired." 8'"3. Point the pen at the F and press a key."  9700%   sketch " -10 ;"HAND-DRAW";10 ;"=========" c'" HAND-DRAW allows you to sketchfreehand - the pen will draw as you move it across the screen." ;'" First, point the pen at the H and press a key." ]'" Then position the pen at the place where you want to start drawing and press a key." +'" To stop drawing, press a key again."  9700%    colours  *78;"COLOUR COMMANDS";8;"===============" 4#''6;"BORDER - INK - PAPER" 9'" To use these commands:" >`'"1. Point the pen at either the B, I or P as appropriate and press a key." HO'"2. The menu will be replaced with the 8 colours - like this:"'' Rn=07 \1;n;" "; fn p@''"3. Point the pen at the desired colour and press a key." z 9700%   800   800  L new screen  V/10 ;"NEW SCREEN";10 ;"==========" `M''" This command allows you to wipe the slate clean and start afresh." j''" To use this command:" t;'" Simply point the pen at the N and press a key." ~ 9700%   tape  #13 ;"TAPE";13 ;"====" a''" Use this command to either SAVE the screen image to tape orto LOAD a screen from tape." R'" In either case you will be requested to enter a name from the keyboard." ؞'" For SAVE, a name must be supplied, but for LOAD, typing 'ENTER' will cause the first 'byte' file found on the tape to be loaded to the screen." F'" To use TAPE, simply point thepen at the T and press a key."  9700%    keep  /9 ;"KEEP SCREEN";9 ;"===========" (v'" This is only available for the 48k version and allows you to keep a copy of your favouritedesign in memory." 2Q'" It can be instantly recalled using the screen RECALL facility(see r)." 261460 %1;1;12 ,col;" " /63492,((col-6)/2)*28  40(   a r c  !14;"ARC";14;"===" 9'" This command allows you to draw curves or arcs." '" Three points are needed to define an arc. The origin (x) and Target (+) define the end- points of the curve, and the previous position of the Target will define the third point." r'" This third point defines the curvature of the arc so that a curve is drawn joining up the three points." ;'" Hence there are three steps needed to draw an arc." 9700%: '" The three steps are:" _''"1. Move the origin to where one end of the curve is to be. (Use the MOVE command)"  L'"2. Define the extremity of the arc by positioning the Target (+)." 9'"3. Move the pen (+) to the other end of the curve." @''" Then simply point the pen at the A and press a key."  9700%  @ letters  J)10 ;"LETTERS";10 ;"=======" Tb'" This command allows you to insert text - letters or numbersonto any point on the screen." ^M'" The text will be inserted at the current position of the pen (+)." ho'" Simply get the Target (+) into the right position and thenpoint the pen at the L and pressa key." r7'" You can then type the text from the keyboard." | 9700%  @ calibrate rtne  E J90,10 ;"GRAPHIC PEN";10 ;"===========" T''3;"First, to make sure that the control is set correctly, pleasepoint the pen at the white square below and adjust the knobuntil the arrow (<) is alongside" ^15,0;" " |,#1;" Press any key to continue"  a=15  9720% #a,1;" " "" =""a=64147 'a<15a>15a,1;"<" Fa=151;1;15,1;"< correct setting"  8070 #(Instructions #260499S:""60500T #4S3flg=63493 #5%S3flg,0:64091[,40( #6-254,((23624H\)/8)+8 #7Ws=254:s191S3flg,1:64074J,192:64091[,32 #<6:6:0: #F_63?,71G:124|,0:0,24:-124|,0:0,-24 #P,1;11 ,9 ;"STOP THE TAPE" #Z615,0;"And don't forget to swap plugs!!" #d 0 #n 8000@ #x #6:6:0: #S3flg=63493 #Z0,10 ;"GRAPHIC PEN";10 ;"===========";5;"by Roy Eastwood 1983" #a''" This program allows you to draw lines and shapes on the screen using the light pen." #8''" It uses the High-Res routine at address 63582." #''" Sixteen commands are available to draw lines,circles,rectangles, curves or to sketch freehand and to fill-in shapes with the colour of your choice." # 9700% # #," The sixteen commands are as follows:" #*3;"Erase - line or shape" #*3;"Draw - draw a line" #,3;"Move - move origin (x)" #,3;"Circle - draw a circle" #'3;"Rectangle - draw a box" $.3;"Fill - colour-in a shape" $*3;"Hand-draw - draw freehand" $.3;"Border - set border colour" $"+3;"Ink - set ink colour" $,-3;"Paper - set paper colour" $6.3;"New screen- clears the screen" $@-3;"Tape - save/load screen" $J(3;"Keep - copy screen" $T*3;"re-call - recall screen" $^'3;"Arc - draw curve" $h(3;"Letters - insert text" $r&'" Press any key to continue" $|h#1;1;0;4;"Point the pen to the letter to find out more about that command" $ 9710% $""9400$ $s=""a=64147:a>1a<18a,3;1;1;" ";:100d::(a-1)*100d $ 10 $ 9150# $ $´''" Note that you can delete thisBASIC program at any time by typing NEW. This will not affect the machine code program or any screen designs you may have kept." $n''" If you delete this program, it will give you more room to keep copies of the screen display." $9700%: $O" The adjustment of the pen's position will normally be withinthe range of the knob on the topof the box. If however, you cannot get the Target (+) to liedirectly underneath the pen, youcould try POKEing alternative values into location 64074. Thenormal value is 128, and values between 64 and 192 are worth trying." ${'" Thus:"''" POKE 64074,xxx"''" where xxx is a value between 64 and 192, and will adjust the pen's position." $9700%: $" The graphic pen program will start automatically after this, but if you want to run it with- out first running this program, this can easily be done by typing :" $ '" RANDOMIZE USR 60500" $>'"or if you want to preserve any KEPT screen copies, type:" $ '" RANDOMIZE USR 60506" %R''" To delete previous screen copies, and thereby release the space, type:" %%'" CLEAR 60499 followed by:" %" RANDOMIZE USR 60500" %&9700%: %06''''" To SAVE the machine-code on its own, type:" %:&'" SAVE ""name""CODE 60500,3770" %D.'''''" To re-load the machine-code type:" %N!'" CLEAR 60499 followed by" %X" LOAD ""name""CODE" %b9700%: %l?''"Do you want to run through the instructions again (y/n)?" %va$=:a$=""9590v% %a$="y"a$="Y" %"''"OK, let's start drawing...." %""9660% % 100d % 100d %''" Get your pen ready..." %""9660% % 100d % 100d %60500T %4#1;1;" Use the light pen to continue" % 80P %-254,((23624H\)/8)+8 &"" & Y(S3flg=0ƿ254191)(S3flg=1ƿ254255)9720% & ';"Graphpen23"9000(#:"lpmc48K"60500T,3770 ';"Graphpen23"9000(#:"lpmc48K"60500T,3770 z혇)'*$"* "v z?""+z$$)"("fz*448970490:7! $"("1:492792:743;4:42124027:421042492:79;4:407:4284212387:20nz ;4:428924897044779274621:467200292$4162:3 " 792:743 1:09:42897:7:421240:9v%}az*77:0:424244:1242397 <6: ", &", ,02,17712::786787:97:7:4292:3 &',,0z*420144<:712062:786787:94::6422020:;5v }1z*792:449974297:448970:3 )"02:<2"70W;z!276743:4299742<61200246<79724:3 " 'z*767:4299742:<2 '70WRz*423408970::4499742:72907:4292$:426424774642;4:428205::42%77:421:976:4 v msl}z&7727:42499:49z<42:87:z662:4274:7:42!z22900642397<:7&!z1290017;72404397<:7F=k L Ș]H\HY]\ ˈF =k L șH\\\H R# qqhP`iphàhapapp)* rZ*yzrJr) hPXp3fls^$lpmc48K T졀[G͢xx^>8*"C͝(0͝>8-ɸ=->D%< (< > ^>0GC}\^>0G(-; ͎zPress a key to start sketchingop ͂*|0g}0o"}\O0< = Gְ8<= *|0g}0>o"}\O}O}0= < Gְ8<= >TwTwVWWW>C< >E D M C R F H B I P N T K r A L >)U< >Point to colour and press a key.>WW>T?wTwV͂K""èwt>W!cwW-K"K-ó*-"-:Kő0/<(-18:Ő0/<(-1(8-O}84}80|0*|8&}2L|2Q4@4@W8y(--#ó>}C< (;óRadius of circle is too big - re-position pen and try again...-KC}\:O:G:O:G-ó->KC}\C}\-(^>0y?:bľ͛":bľO>SwSM WO~SwSW>k &W."";->D@< 2b?(GʾTAPE - SAVE, LOAD or ABORT ? -*Y\Z[Y\!-""-;**f$(10 ):"SAVE SCREEN - enter name "'f$:"Don't forget to swap the plugs! Press ENTER when ready";x$:f$:"Don't forget to swap the plugs! Press ENTER when ready";x$:12345 -*Y\Z[Y\!j!N"LOAD FROM TAPE - enter name"'l$:"Don't forget to swap the plugs! Press ENTER when ready";x$:l$:X8%>#<  $< (; -:D0!Ro>gs#r!@-:D<2D>.#Not enough room in memory. Press a key to continue.... Screen kept - PAGE 0 >D:D08  #Ó(_-#< >0P<< T < :b2b#0-0'-!Ro>g^#V@;ɯ-:D0G':<( -RESTORE SCREEN - none kept......RESTORE SCREEN - select page No: or CYCLE y(-{(-18x(-z(-1(818(#18x0z(-y(70{(-$8{0z8 1818z118-8ͥ-K"[͂aK[aK[a͊͞K[͸[͸1)8-( 1181)8͔#-{(-y(-8z(-x(-8*KB( KB-[;:>!w#s*Y\6Z[Y\!(!"LETTERS - enter text"'l$:"";l$:9999 :b(3O>2c>2{y2b'2d!o>g^#VS2c2{dK>z< > ;I^v\ >k >&W."""2bW>02DZ< ;k< Iv< ^k >=< (k >;-͝  GRAPHIC PEN ===========by Roy Eastwood Select starting colours for: BORDER INK PAPER Press any key to start. Press BREAK at any time to exit.*e\ r!9B*\r#*\B"\*=\B"=\!9T] ɷ= !6#6 #6 !XN!X>?w# >DeD > >}???(='''!99!N nf##= !6g66gD6g>8~wVwVr~݆w~('567gD>(*4>!ݾ(67gD>(>GN! fn##w# !nfN`w#:H\8???>O:'O>G!vz >@p(  # !^#V#: %G: <#G:w#D> ===yOͱ("-ͤ C}\ͤͽxGC}\ͱ(yC8/<OxD8/<Gͺ$ɒ