ZXTape! 0Created with Ramsoft MakeTZXcover L 10 `1:1:1:1:5:4:6:2:1:=""5 a$=:0: )9990':0:7:0:  a=1 :a*100d:#1;0,0;6;" Page ";a;" ENTER=Next SPACE=Back":a=2#1;1,0;" PRESS C TO COPY TO ZX PRINTER" (""40( 2 5 <)a$=" "a>1a=a-1:30 F0a$=13 a<12 a=a+1:30 Ka$="c"a$="C":40( PX(a$="l"a$="L")a=12 1:1::10 ,8;"START THE TAPE":"" Z 20 d'" This magazine is composed of a number of programs that chain together, so that each one will LOAD the next when you are ready for it." n'" Any particular program can be LOADed using its file name listed on the contents page, but to 'read' everything in the magazine, it is easier to use the chaining." sv'" We advise that you do not use Microdrives with this magazine, as some of the programs have a very low RAMTOP." xM6'" Press ENTER to go to next page"'" Press SPACE to go back a page"  Ȟ'" SPECTRUM COMPUTING - ISSUE 17 SEPTEMBER  APS LTD 1985 222 REGENT ST. LONDON WIR 7DB TELEPHONE 01-439 0666 EDITOR - FRANK DUNN" Ҿ'" CONTENTS - SIDE ONE"'" Editorial next page"'" Utility #1 'banner'"'" Attack of the 'moles' "'" Reviews 'reviews'"'" Utility #2 'music'" ܏'" CONTENTS - SIDE TWO"'" Competition"'" Utility #3 's-sound'"'" Reviews 'reviews'"'" Jet set 'gertie'"  ,4'''''''':z$=" HELLO,GOODBYE":9980&: uz$="Or yet another change of editor.During the last few months I have been realy suprised by the sheer quality of submitted work.I hope it continues as long as Sinclair do. Or rather longer considering the recent escapadesof Clive. It is apparent that SRdo not have the problems of Acorn. But you innovate or die in the micro business. So I hope":9980&: uz$="the forthcoming portable gives us more bangs for our bucks. Thegood news is its use of SpectrumMicrodrives. I can't but help wonder tho' if the TV will be good enough whilst keeping the weight down. Visions of a huge plastic lens keep occuring to me,I must stop playing review games till the early hours of the morning! Not a great deal to":9980&: Xsz$="report on new software realy. There is a distinct increase in conversions of U$ games. And more games are now being priced around the `10 mark. It was fun to hear that the old Imagine megagames are still under development. One doubts if or when they do appear that a ZX version will be among them. May be wrong but who cares anyway?":9980&: tz$="A quick scan of the survey cardsshows that a lot of you want to do useful things with this micro, you know doorstops that kind of thing.So this time around we have lots of utilities for your eager eyes. Plus a game or two just to keep some balance and the game players quiet. Please write if there is a topic close to your heart that you think is":9980&:  uz$="truly wonderful. Whilst the survey returns were great its letters that I'd like to see as well. I'd also like to see Eliteas well but thats another story.Using my trusty VTX5000 modem and Prestel I manage to keep in contact with lots of people all over the UK. Via this I heard about a Bulletin Board using a Spectrum + Microdrives. As the":9980&: uz$="RS 232 on Interface 1 is not toohot when it comes to driving a modem its good to hear someone hasn't let this deter them. To access the BB you need some special software thats availableas telesoftware on Micronet 800.It is feasible to use the Speccyto log onto more serious databases. But they are pretty expensive to use a lot. It also ":9980&: uz$="occurs to me that by the time comms costs have come down that Compact Disc ROMs will be very attractive. The idea of putting Encyclopaedia Brittanica on a CD ROM appeals. Its a bit hard to imagine the games potential this opens up. As such ROMs are very good at storing masses of images. Gulp. Its going to take ages to create the games to fill":9980&: Luz$="a CD ROM. So until then can we have more games that use the Microdrive please? Only one gamecomes to mind that actualy encourages you to SAVE to drives.At least more of the utility and graphics packages allow easy use of them. For now the various hardware copiers are very handy pieces of kit. And onthat sticky topic I leave you...":9980&: '''''':z$=" Press 'L' to LOAD the next section of the magazine."+13 +13 +" Press any other key to read this section again.":9980&: #( &;:vec=(23637U\+256*23638V\+9 ):z$:vec=23633Q\+256*23634R\:vec,244:vec+1,9 : &k >;;!*Q\s#rOF(  *\K\ 88'0 :k\ ͈ ͈ ! ֥_ b>?K6\!;\ˆ &o))) y!(= :k\ ͈ ͈ ! >w$w$=  >w$w$= #C\"\Y缧:ٰ"2":ڼ::"21","10";ٰ"9";"PRESS A KEY": ("23637"+"256"*"23638"+"6"): '1:1:1::9 :21,0;" STOP THE TAPE AND PRESS A KEY ":(23637U\+256*23638V\+6): '*U\@@>2\:@ H >2@>.g=(+͵v:\(>!XX#= = *@##"@@F#NAR0!X> 0:@w6 = !"@ ```````````````````````````````````````````````````````````````...................................................... '"cover"1 BANNER '= S29999/u: Banner Generator -A(X,Y)=22528X+X+32 *Y DATA=30530Bw:CODE=300000u:A$(38&):A$=22+0+0+17+6+16+0+" FOR CONTROLS ENTER TO END "  9000(# (100d*CHOICE 2 30 d :CODE nF7:0:20,1;"R TO RUN AGAIN SPACE FOR MENU" x Z$=:Z$"R"Z$" "120x Z$="R"100d  .:A$;:M$="K":X=0:Y=1:TO=DATA 1000  TO=DATA ,&:A$;:X=0:Y=1:TO=DATA 6X=0:Y=1:TO=DATA @KKEY=(TO):KEY255(KEY=200):1500:0:320@ JM$="K":1000 T mend=1+300033u::5,0;"SAVE ";34";"BANNER";34";"30000,";END-300000u &"BANNER"300000u,END-300000u   8000@ X(23732\+256*23733\)-168:8,5;"Loading next program...";12 ,7;"Start the tape...";:"" 2Y,X;0;1;M$;0;" ";:1 !KEY=:KEY=01010 1KEY=623658j\,8-(23658j\) F.006yD,12 :M$"G"M$="KL"(1+(23658j\=0)) LF(M$="K"M$="L")(KEY32 KEY<128)1500:1000 VeM$="G"(KEY480KEY568)KEY=KEY+(7KEY=568)+80P:1500:1000 `YM$="G"(KEY4KEY11 )KEY=" "(KEY-3):1500:1000 jNM$="G"(KEY65AKEY85U)KEY=KEY+79O:1500:1000 KEY=12 21004 KEY=152000 R(M$="K"M$="L")KEY=2001:1500:0:23658j\,8 ,KEY13 DATA<"A"-11000 TO,255:Y,X;" ";: ܀Y,X;(KEY);:TO,KEY:TO=TO+1:X=X+1:X=32 X=0:Y=Y+1:Y=213280 :A$;:Y=20 8X>8Y>122519W+X+32 *Y,15  .M$="K"M$="L"M$="G":23658j\,8:  M$="K": 4X=0Y=1 >@TO=TO-1:X=X-1:X<0X=31:Y=Y-1 H7X>7Y>122520W+X+32 *Y,7 R X*#1;1,8;"Press SPACE"; b" "7010b l"": @$:0,10 ;"INSTRUCTIONS" J''" This program allows you to"'"generate the scrolling displays"'"often found in shop windows."'"The effect is produced by 530"'"bytes of machine code stored at" Tl"30000 and the stroing is poked"'"into memory from 30530 onwards"'"with 255 (hex #ff) as an end"'"marker." ^''"The text will be smooth scrolledacross the top of the screen as"'"in the demo seen on loading."''"There are several special"'"effects using chr$(200) and a"'"number or letter.(pressing "'"will show an inverse >)" h7000X: rk'" and U (>U) Scroll display up"''" and F (>F) Flash display"''" and C (>C) Clear display" |''" and I (>I) toggles inverse on and off"''" and 0-7 (>6) sets the ink colour (0-7)" 7000X: '''"When your message is typed in"'"RANDOMIZE USR 30000 will"'"produce the display."''"You can save the code using"'"option 4 on the menu and use it in your own programs." 7000X: #' #(B0:7:0::1,8;"BANNER GENERATOR" #26,2;"1. DISPLAY BANNER";8,2;"2. NEW BANNER";10 ,2;"3. EDIT BANNER";12 ,2;"4. SAVE CODE";14,2;"5. INSTRUCTIONS";16,2;"6. LOAD NEXT PROGRAM";20,4;"PRESS 1-6" #"6"9020<# #FCHOICE=Z$: '0:7:0:1:0:0:0:29999/u:5,5;"LOADING CODE...":""::300000u: '7"BANNER"9998':"BANNER"300000u,1730 4BANNER 0u1 =uBw !Bw~u#~P wwu#U wwwwwvaF ":\_8???Ͷvw:\Ͷvw=;I :v2v-08800_:\2\ͶvC @wu#@u~Avͥvwuv#@u  w> o+ wxG w x8 w 6#x -v8֐o&)))[{\w82ր!vo|g~w!vo|g~o&)))[6\w!w:v_~w#!Xw#!w>>&#v_zW> ww= = v x  x x8o&))xgx@gyoHello there SPECTRUM COMPUTING readers... Here's another amazingly useful(?) utility for 16 and 48k machines. A Banner Generator ! You can store up to 2k of text on a 16k machine and 34k on a 48k spectrum. Just right for that novel that you were always meaning to write, or a letter for the magazine ??!? There are several flash things you can add to the display ... you can ... flash itFFFFFFFF scroll up U up U change the ink colours from 7 White P to 6 Yellow P to 5 Cyan P to 4 Green P to 3 Magenta P to 2 Red P to 1 Blue P 2 And you can print in I Inverse UI Also you can pause the display for any important bit ... for example BUY PP THIS PP MAGAZINEPPU Yes, I know you've bought it already ! (The instructions option on the main menu will explain how it's done) Incidentally for machine code buffs the left scroll was produced using RLD (rotate left decimal). Is this the first use ever found for this op-code ? Answers on the back of a `20 note (or several) please to ... 5 Pete Cooke, 340 Mere Rd Highfields, Leicester. Anyway, have fun with the progam The EndF7F6F5F4F3F2F6PUxMole (#  !z  z R8x(y/O|(}/oAMͺ$!"\"x\:\*x\R +-K+-Kv\+-+-218͢-Cv\+-'8͢-z~#ooooooooo 0:0:7: "0,10 ;"MOLE ATTACK." 5,12 ;"CONTROLS" 8,12 ;"1 - LEFT" # 10 ,12 ;"2 - RIGHT" (:12 ,12 ;"0 - DROP";13 ,16;"BRICK" 2.19,4;"PRESS I FOR INSTRUCTIONS" <)20,7;"PRESS SPACE TO PLAY" F%21,9 ;"PRESS Q TO QUIT" P'=""ٺ(*3)+4::10 Q="I"300, R="Q"200 U" "10 d nL=28000`m x+10 ,10 ;1;"YOUR SACKED" &F=-502502:.01z# =,F:F F=11000:F 1   ""  , 62,0;"YOU HAVE JUST GOT YOURSELF A JOBWHICH INVOLVES DROPPING BRICKS ONTO MOLES AS THEY DIG THEIR WAYINTO YOUR EMPLOYERS GARDEN." ;8,0;"YOUR EMPLOYER HOWEVER IS VERY STRICT AND HAS ALREADY GIVEN YOUA WARNING THAT IF YOU DO NOT DO YOUR JOB PROPERLY HE WILL GIVE YOU THE SACK !" @15,0;"HE PAYS YOU DEPENDING ON THE NUMBER OF MOLES YOU KILL AND ALSO HOW MANY BRICKS YOU HAVE LEFT AFTER KILLING A MOLE." E021,3;"PRESS ANY KEY TO CONTINUE." J 0 T 1 #(0:0:0 #)27999_m:"" #2B23658j\,8:23675{\,88X:23676|\,126~ #F610 ,10 ;2;1;"STOP THE TAPE" #P821,3;7;"PRESS ANY KEY TO CONTINUE" #Z(.01z# =,*20:=""9050Z# #d 1 '"Mole"9000(# '."Attack"28000`m,32768-28000`m aAttack `mV>!}2H\!͵!>!}:\2\>!}:\2\:\2\ͯ ! "X!6"N!"!"!"$>!}:\2\>!}!}!M}!O}!N}!E}!Y}!-}!`}![$+--> >!}!}!C}!H}!A}!N}!C}!E}!S}!-}![+--> >!}!}!B}!R}!I}!C}!K}!S}!-}![XR+--> !".!"0!" >!! ![ \R}:\2\!">>![ }![>}!}> ![>">![>! T]RoÆo![ " ![ !T]RoOo>!}:\2\>!}!}!}> !" >!}:\2\>!}![ }!}> ![ " ![ ! T]RқpNp>!}:\2\!!4]"![ "!"![NR"N![N!<T]R q!<"N![N \"!["(>!}!}![$+--> ! "X!">!}!}![XR+--> ![."b![0"d![\!2T]Rr![.".!\!s![.!T]Rr!".![\!1T]Rhr![.R".!\!s![.! T]Rhr! ".![(![T]R҅r{s![X!T]R¡r{s![\!0T]R{s!\!s![XR"X>!}!}![X+--! }> >!}:\2\>!}:\2\>!}![.}!}> >!}:\2\>!}:\2\![X!T]Ržs!"X![b![.T]Rʻss![d![0T]Rss!t>![0}![.}!}> >![d}![b}! }> ![(!T]ROt![(R"({u!["J!["L![R"!![)))))[X^!T]RҪt\v!![)))))[X^"D>!}:\2\>![}![}!}> >![}:\2\>![J}![L}!}> ![D">!}:\2\!["(![!T]R{uôw!"&![(![R͵![&"&![&!T]RuÅuÏq!F" ![ ![ ͵![ R" ![ !2T]Rvu![NP"N![N!JT]RPv!J"N:\2\ͯ m!" >![}![}!}> ![ " ![ ![ ͵![ !2T]RvÉv>![}![}! }> >!}:\2\>![}![}!}> >!}:\2\![$!"[R[X"$!" >!}![ }! }> ![ " ![ !T]Rұwdwíp![R"![!T]Rx>!}!}![+--> u 019222EFF210000110400192230FF21000011080019220AFF3E10D7210000E521000011090019E5210000ED5B0AFF19110300CDE05CEBE1A7ED52EBE1197DD73A8F5C328D5C21000011000019223EFF3E16D7210000ED5B0AFF197DD7210000ED5B3EFF197DD7210000119000197DD73E0DD7210000ED5B3EFF1911010019223EFF210000ED5B3EFF19E521000011200019545DE1A7ED52D2xxC3xx210000ED5B0AFF1911010019220AFF210000ED5B0AFF19E521000011160019545DE1A7ED52D2xxC3xx3E10D7210000110700197DD73A8F5C328D5C3E16D7210000110400197DD7210000110F00197DD7210000119200197DD73E0DD721000011000019220AFF3E10D7210000110700197DD73A8F5C328D5C3E16D7210000110500197DD7210000ED5B0AFF197DD7210000119100197DD73E0DD7210000ED5B0AFF1911010019220AFF210000ED5B0AFF19E521000011200019545DE1A7ED52D2xxC3xx3E10D7210000110800197DD73A8F5C328D5C210000E5210F00CD345DE1192218FF210000ED5B18FF19110900192218FF210000111500192216FF210000ED5B4EFF19110500A7ED52224EFF210000ED5B4EFF19E5210000113C0019545DE1A7ED52D2xx210000113C0019224EFF210000ED5B4EFF19110A00CDE05C221AFF210000ED5B1AFF192228FF3E16D7210000110000197DD7210000110700197DD7210000ED5B24FF19E5C1CD2B2DCDE32D3E0DD7210000110B00192258FF210000110200192210FF3E16D7210000110200197DD7210000110700197DD7210000ED5B58FF19110100A7ED52E5C1CD2B2DCDE32D3E0DD7210000ED5B2EFF192262FF210000ED5B30FF192264FF210000FFED5B085C160019E521000011320019545DE1A7ED52C2xx 210000ED5B2EFF1911010019222EFF21000011085C19E521000011000019EBE173210000ED5B2EFF19E521000011170019545DE1EBA7ED52D2xx 21000011170019222EFF210000FFED5B085C160019E521000011310019545DE1A7ED52C2xx 210000ED5B2EFF19110100A7ED52222EFF21000011085C19E521000011000019EBE173210000ED5B2EFF19E521000011090019545DE1A3f<~$$$<$$~ZýB28FF19E5210000ED5B1AFF19545DE1A7ED52D2xx C3xx 210000ED5B58FF19E521000011000019545DE1A7ED52C2xx C3xx 210000FFED5B085C160019E521000011301951A2x 21085C1100001100001 BE1710008FF19110 0A7ED522F3E16D7210000110200197DD7210000110700197DD7210000ED5B58FF19E5C1CD2B2DCDE32D210000112000197DD73E0DD73E13D7210000110100197DD73A8F5C328D5C3E10D72100001105001reviews HE 50000P +236066\,0:236077\,60< 67:1::10 ,9 ;"LET TAPE RUN" ""60000` "" 'B""60000`:"reviews"1:"code"60000`,5534 code `܀S7 *[[[K[xȧR8 +>(> >bd&F(*D:  >>> ~BBFF~~B~`~|DFF~|DD~ ~@~F~~@~FF~~<$~bb~~BB~ >>~~``x^#^x>?99?8998Ȝ@@@@@@@@@@@@mXr)"j .2J 6 Wn   BB -N3DH0]VpL@t QR@H@P(vl8Ш90XX0x(B B)P@X/8-@rS):l" P (L(m9 |1+Ȑ:E (! H2 !͵Z} !͵Z} !͵Z} !p͵R !͵Z} P P P 88 MNMK.JK !xv>;;889~x9x~#>x^#^x>BBBBBbrucelee G* e?I(x$=" Bruce Lee Datasoft 48k press any key to read review" 2y$="Good fun this even if its only avariant on the platform typegame. As Bruce you have 20screens to get through. Thereare 4 one and two player optionsand its ace if played as 2player vs opponent. The mainprotagonist is the Green Yamo alarge looking lad. Also in theSpectrum version he's plainwhite not green. Ninjas are theother baddies. The Yamo attacks" 7Jy$=y$+"just like Bruce. You can kick orchop , defend by running away orducking. Ninjas hit you withbokken sticks and are creampuffs in comparison to the Yamo. Bruce has to collect certainlanterns to exit from screens oropen sections up. Not all areneeded but all are worth points.A scan of what you get points" <z$="is worth while as I found youeven get them for landing onpeople! Squashed Green Yamo? Asyou get deeper into the chambersproblems get less easy to solve.Again its a matter of findingthe right way and sequencethrough the screen. Nothingrealy new here but the way itsbeen put together is smooth. Themove and attack optionsavailable broaden the game without making it too hard to keep" A"z$=z$+"track of whats going on. A joystick is of course aprerequisite to play it well. Asmentioned above the best aspectis the play options you have.Its possible to progress quitequickly at first whilst notgetting too jaded with it. Agood and competant game." F""50000P P.:10 ,9 ;"STOP THE TAPE":0 :x$:0 :y$:0 :z$:0 23296[,80P:23297[,195:23298[,00:23299[,64@:23300[,00:23301[,24 60000` 23296[,80P:23297[,219:23298[,00:23299[,88X:23300[,00:23301[,3 60000`  0 [:10 ,4;"press 'R' to read again":11 ,4;"press 'L' to load next" !a$=:a$="r"a$="R"1000 a$="l"a$="L"2000 8 1040 *:10 ,9 ;"START THE TAPE":"" '3"brucelee"1:"code"50000P,6912 X Bruce Lee Datasoft 48k press any key to read reviewYGood fun this even if its only avariant on the platform typegame. As Bruce you have 20screens to get through. Thereare 4 one and two player optionsand its ace if played as 2player vs opponent. The mainprotagonist is the Green Yamo alarge looking lad. Also in theSpectrum version he's plainwhite not green. Ninjas are theother baddies. The Yamo attacksjust like Bruce. You can kick orchop , defend by running away orducking. Ninjas hit you withbokken sticks and are creampuffs in comparison to the Yamo. Bruce has to collect certainlanterns to exit from screens oropen sections up. Not all areneeded but all are worth points.A scan of what you get pointsZis worth while as I found youeven get them for landing onpeople! Squashed Green Yamo? Asyou get deeper into the chambersproblems get less easy to solve.Again its a matter of findingthe right way and sequencethrough the screen. Nothingrealy new here but the way itsbeen put together is smooth. Themove and attack optionsavailable broaden the game without making it too hard to keeptrack of whats going on. A joystick is of course aprerequisite to play it well. Asmentioned above the best aspectis the play options you have.Its possible to progress quitequickly at first whilst notgetting too jaded with it. Agood and competant game.code P*,xxxxxxxx%$$$$$$$$$$$$$$$$$$$$B|<~~<<|<~~<~<@@<<BJSSHBBHJBBSJRHBHSJ (BBF(@@FBBF(@@F@B@@@F(ƥ$$$ $BBBBBBBBBBBBBBBBBBBBBBJ(||JBBJ(||J|B@@<J ** * (* BBBBBBBBBBBBBBBB9BBBBB|RHRB|RHR@~@@RBBBBBBBBBBBB`BBBBmBBBBB@b~BBbB@b~BBb@B@@BbBBBBBBBBBBBBBBBBBBBB><@<><<<<@<><<<@B~~<<>BBBBBBÇ$$$$$$$$$$$$$$$$<$$$$ <%xxxx%%%%xxxxxTT$$TTTT$$$$$$$$$$$$$$$$$$$$ $$$$BJRBBBBRJRRJRBBJHSHJx((((((~~~~~~Ɣ $>|88BB8888BB~~BB~~~~BBBBBBBBBB0BBBBƀ (( (( ( * BBBBBBBBBBBB>BBBB`XBBBB`xBBBBBBBBBBBBBBBBbBBBB`~~BB~~~~BBBBBBBBBByBBBBfBBBB`xBBBBBBB~~~~~~r;`x$$$$$$$$$$$$$$$$$$p$$$$<$$<<$$8xTT%%%%%%$$?UUUUUUUUUUUUUUUUUUUUUUUUU?((HRJSHRJSHRJSHRJSHRJSHRJSSJSHS~~%ۤUUUUUUUUUUUUUUUUUUUUUUUUU%ۤ88 $ $ $ $ $ $$$$~~$@$@( *( *( *( *( *( ** **1):1030 .Qz$="s"65149},(65149})+(1ƾ65149}<255):1030 8v=65120`:  *** write *** q$="":t$="":notes=0 :8000@:print keys noton=0:onoton=0 46,6;q$;" ";2,P$(onoton+1)-64@;1;7;0;" ";2,P$(noton+1)-64@;6;2;" " >""2110> Hz$=:z$=""2120H Monoton=noton R<z$="8"noton=noton+1:noton=26noton=0 \=z$="5"noton=noton-1:noton=-1noton=25 6(z$12 T$="")z$13 z$"q"21004 bZ$=12 T$=T$(̱T$-2):Q$=Q$(̱Q$-1):10 ,0;T$;" ";:21004 Xz$"q"Ʊq$=255#1;1;0,0;"No More Room !!":21004 &t$>320@t$=t$(t$-320@) tz$"q"T$=T$+N$(2*noton+12*noton+2):q$=q$+noton:10 ,0;t$;"";:21004  q$="" 521,0;"Do you want to store this (y/n)" !z$=:z$"y"z$"n"2240  z$="n" j19,0;"Please selecct a value for the duration of notes."'"1) 0.01 secs 2) 0.02 or 3) 0.03" !z$=:z$<"1"z$>"3"2270 dur=z$/100d  ** store ** p#1;0,0;1;1;" Storing this tune.... Please wait "  9000(# 7"":#1;0,0;" O.K. ":100d:  *** save *** B:2,12 ;"SAVE";10 ,0;"Type in code name" c$:c$=""3010 C14,0;"SAVE";34";c$;34";"CODE 64070,1180" c$64070F,1180   *** load *** T:2,12 ;"LOAD";10 ,0;"Type in code name"'"(ENTER to skip)" c$ 314,0;"Searching";:c$""" for ";c$ c16,0;"If an error occurs type"'"GOTO 4000 to try again or"'"RUN to go back to menu." c$64070F,1180  :10 ,0;" To use in your own program savethe code and type..."''"LET A=USR 65100 to turn tune on and LET A=65120 to turn off."  " END OF SIDE 1 - TURN OVER"  "" XI:3,8;"Music Generator";4,8;"for Interrupts." bv8,1;"Press...";10 ,2;"1 ... For a demo/listen";12 ,2;"2 ... To write in a tune" l14,2;"3 ... To save the code";16,2;"4 ... To load in a tune";18,2;"5 ... Leave program" v!z$=:z$<"1"z$>"5"7030v  ? keyboard @" a b c d e f g A B C D E F G a# c#d# f#g#A# C#D# F#G## " J6,0;"Notes 0";7,0;" Use cursor keys+ Enter to Enter note and delete to delete. Press Q to finish." T #(864070F,Q$-1:TO=64071G:N=1̱Q$ #2(FRE=N(Q$(N)):DE=FRE*DUR:HL=B(FRE) #<221,0;n;" ";DE;" ";HL;31;" "; #FDTO,L(DE):TO+1,H(DE):TO+2,L(HL):TO+3,H(HL) #PTO=TO+4 #Zn #d # data #62>,9 ,237,71G,237,94^,33!,71G,250,34",181,254,201: INTS ON #M62>,62>,237,86V,237,71G,201:INTS OFF #255,243,245,229,197,213,221,229,58:,183,254,61=,502,183,254,254,0,32 ,480,62>,5 #502,183,254,42*,181,254,94^,35#,86V,35#,78N,35#,70F,35#,34",181,254,58:,180,254,60<,111o #58:,70F,250,189,480,8,33!,71G,250,34",181,254,46.,0,125},502,180,254,96`,105i,205,181 #3,243,221,225,209,193,225,241,251,201,31,195,250,3:END OF INTERRUPT #X0,60<,102f,102f,126~,102f,102f,0: GRAPHIC A #U0,124|,102f,124|,102f,102f,124|,0: GRA B #R24,24,24,24,24,24,24,24: GRA H #S24,24,24,24,24,24,255,255: GRA I #M0,0,0,0,0,0,255,255: GRA J # data for demo tune #29,13 ,0,196,3,18,0,203,2,13 ,0,196,3,20,0,122z,2,13 ,0,196,3,16 $0,38&,3,18,0,203,2,13 ,0,196,3,21,0,84T,2,13 ,0,196,3,24,0,16 $2,13 ,0,196,3,20,0,122z,2,21,0,84T,2,13 ,0,196,3,18,0,203,2,13 $0,196,3,20,0,122z,2,13 ,0,196,3,16,0,38&,3,18,0,203,2,13 ,0,196 $"3,21,0,84T,2,13 ,0,196,3,24,0,16,2,13 ,0,196,3,20,0,122z,2,21 $,`0,84T,2,13 ,0,196,3,20,0,122z,2 $Ts9100#:CS=0:N=65100L65112X:Z:CS=CS+Z:N,Z:N:CS1734"ERROR IN DATA LINE 9100": $^r9110#:CS=0:N=65120`65126f:Z:CS=CS+Z:N,Z:N:CS956"ERROR IN DATA LINE 9110": $hz9120#:CS=0:N=65129i65207:Z:CS=CS+Z:N,Z:N:CS11019 +"ERROR IN DATA LINES 9120-9150": $rs9160#:CS=0:N="A""B"+7:Z:CS=CS+Z:N,Z:N:CS1272"ERROR IN DATA LINES 9160-9170": $|s9180#:CS=0:N="H""J"+7:Z:CS=CS+Z:N,Z:N:CS1356L"ERROR IN DATA LINES 9180-9200": $y9210#:CS=0:n=64070F64190:z:n,z:cs=cs+z:n:cs5023"ERROR IN DATA LINES 9210-9260": $ 'r64069E:5,5;1;1;"POKING IN DATA";7,5;"PLEASE WAIT...":9300T$: ':"music"9998'