ZXTape! 2 Go Micro - Side ALongman Software P. K. McBride1984EnglishFullNoneOriginal Release'TZXed by Andrew Barker For David Batty Keyboard Of La#C+Qf "KEYBOARD" E   1984   MERCURIAN PULP PRODUCTS  (1:6:0:57000  5000 ( 7000X 2$KO=2GS=0:1000 <KO=32000 F 200 Z 90Z _""95_ dL23658j\,PX:l,c;0;C$:a$=:a$=""l,c;1;C$:100d f.05|L,0 ifk(f,1),k(f,2);5;k(f,3);" ";20,1;" ";20,25;" ";20,28;" ":f=0 nAl,c;6;a$:a$=w$(x)x=x+1:C=C+1:190 x3w$(x)"a"w$(x)"z"f=w$(x)-86V:180 }`W$(X)=" "F=1:20,28;1;5;" ":.5,10 :100d ]w$(x)"A"w$(x)"Z"f=w$(x)-546:20,1;1;5;" ":180 3w$(x)"0"w$(x)"9"f=w$(x)-47/:180 9t=112 :w$(x)=s(t,1)f=s(t,2) =t:f=0l,c;" ":c=c-1:x=x-1:100d +20,25;1;5;" " ^k(f,1),k(f,2);1;5;k(f,3);" ":.5,10 :100d x=e+1 95_ 2,1;" A  ALPHABET SPEED TEST  A ";3,3;" B  FIND THE LETTER  B ";4,5;" C  COPY-TYPING  C ";5,7;" D  GRAPHICS  D " [#1;1,0;1;"PLEASE PRESS  A   B   C  OR  D  " '23658j\,8:.5,0 A$=:A$=""220 4A$="A"W$="ABCDEFGHIJKLMNOPQRSTUVWXYZ":300, A$="C"7400:300, A$="B"FG=0:500 A$="D"FG=1:500 1,-10 :220 ,7Z=57012:C=16-w$/2:2,C;w$ 1*23672x\,0:23673y\,0 3<PX=0:C$="L":W$(3)="ABC"PX=8:C$="C" 63f=0:x=1:L=4:e=w$:100d @w$(3)"ABC"350^ E6TI=((23672x\+256*23673y\)/502) J$M=(TI/60<):TI=TI-M*60< O#1;0,0;6;1;Z$;0,0;0;"THAT TOOK ";M;" MINS. ";TI;" SECS.";1,0;" ANOTHER GO ? PRESS  Y  OR  N  " T7310:YN300, Y 40( ^'7300:yn7400:300, h 40( FG7500L 3F1=0:F2=0:F=0:Z=57012 tfg#1;0,0;" GRAPHICS ON KEYS 1  TO 8  USE  CAPS  FOR REVERSED BLOCKS." FG700:550& I23658j\,8:C$="L":x=(*26)+11 :x$=(x+546) 1,7;" FIND THIS LETTER ";3,14;K$(X,3);4,14;K$(X,46);5,14;K$(X,7) _105i,158:37%,0:0,-37%:-37%,0:0,37% !_108l,155:31,0:0,-31:-31,0:0,31 #*23672x\,0:23673y\,0 &A$=:A$=""550& +tfk(f,1),k(f,2);5;k(f,3);" ";20,1;" ";20,25;" ":f=0 03(fg=0A$=X$)(fg=1Ưa$=f1)590N :JFGF=F2+1:F>8f=f-8:20,1;" " ?FG=0F=X D^k(f,1),k(f,2);1;5;k(f,3);" ":.5,10 :550& NFG7300:610b S5TI=((23672x\+256*23673y\)/5) XTI=TI/10 ]#1;0,0;6;1;Z$;0,0;0;" THAT TOOK YOU ";TI;" SEC"+("S"ti>1);".";1,0;" ANOTHER GO ? PRESS  Y  OR  N  " _ 7310 b""610b gYN507 l 40( 4C$="G":x=(*15)+1:x$=(x+128) "F1=G(X,1):f2=g(x,2) .1,7;" FIND THIS GRAPHIC " _119w,152:17,0:0,-17:-17,0:0,17 _116t,155:23,0:0,-23:-23,0:0,23 53,15;" ";4,15;" " 1X84,15;"":X=X-8 1X44,16;"":X=X-4 1X23,15;"":X=X-2 &X=13,16;""   Z=57012 &GS7300:YN=040( 1,1;"A NEW B BORDER C PAPER E REM";2,1;"F FOR G GOTO H CIRCLE I INPUT" 3,1;"K LIST L LET N NEXT P PRINT";4,1;"T RND U IF V CLS X INK Z BEEP" 16,6;" SELECT A KEYWORD K " l#1;0,0;"CHANGE TO E FOR RED/GREEN WORDS WITH SYMBOL SHIFT FOR RED WORDS" =X=0:E=0:.5,7:23658j\,8 $A$=:A$=""1060$ .aA$=14E=0E=1:6,24;"E":.5,12 :1060$ 3YA$=14EE=0:6,24;"K":.5,12 :1060$ 8.A$="T"A$<"A"A$>"Z"1500:1100L B 1600@ L$X=01050+(10 E) V#gs=0:K(X+10 ,5) `;:GS=1:1000  E=0 A$="T"X=20: A$="?"X=3: A$="^"X=8: A$="`"X=24: A$=":"X=26:  @X=A$-64@ JJ$(X)=" "X=0: T,K(X+10 ,4)>1X=0: ^ z=57012 ڟ1,1;1;7;" ";2,1;" ";3,1;" ";4,1;" ";5,1;" PRINT" B1,10 ;" KEYWORD MODE ";3,12 ;"K" s#1;0,0;1;" WHEN THE CURSOR IS K,KEYS GIVE THE WHITE KEYWORDS. TRY  P  NOW." (23658j\,8:.5,12 A$=:A$=""2040 JA$"P"16,29;"P ":1,-10 :2040  +7:3,12 ;" PRINT C" D1,10 ;" CAPITAL MODE ";16,29;"P " ""2075  }#1;0,0;1;" THE K CHANGES TO C - CAPITAL OR L - letter MODE. TRY P  NOW." *A$=:A$=""2090* 4JA$"P"16,29;"P ":1,-10 :2090* >%7:3,19;"PC" @16,29;"P " Hx#1;0,0;" USE CAPS SHIFT &  2  TO CHANGE C INTO L ,THEN TRY  P  AGAIN. " J""2122J M.5,7 RA$=:A$=""2130R \mA$614,4;"2 ";20,1;" ":1,-10 :2130R a=14,4;"2 ";20,1;" " f3,20;"L" k(1,10 ;" Letter MODE " p(23658j\,0:.5,10 zA$=:A$=""2170z JA$"p"16,29;"P ":1,-10 :2170z 3,20;"pL" !16,29;"P " G1,10 ;" RED WORDS & SYMBOLS ";2,7;"""" o#1;0,0;" USE SYMBOL SHIFT TO GET RED SYMBOLS & WORDS.TRY P ("") NOW. " .5,0 A$=:A$=""2220 hA$34"16,29;"P ";20,25;" ":1,-10 :2220 916,29;"P ";20,25;" " 3,21;"""L" r#1;0,0;" PRESS  R  TO RUN THIS AGAIN OR  G  TO GO TO EXTENDED MODE. " '23658j\,8:.5,4 A$=:A$=""2310 A$="R"2000 $'A$"G"1,-10 :2310 .Z=57012:1,1;1;7;" ";2,1;" ";3,1;" ";4,1;" ";5,1;" " 8u1,10 ;" EXTENDED MODE ";0,2;"TAB";6,2;"";3,12 ;"L" Bp#1;0,0;" TO CHANGE TO E (Extended Mode) PRESS CAPS SHIFT & SYMBOL SHIFT " L.5,10 VA$=:A$=""2390V `gA$1420,1;" ";20,25;" ":1,-10 :2390V jP20,1;" ";20,25;" ";3,12 ;"E" th#1;0,0;" NOW JUST PRESS THE KEY TO GET THE GREEN WORD. TRY P  (TAB). " y'23658j\,8:.5,0 ~A$=:A$=""2430~ JA$"P"16,29;"P ":1,-10 :2430~ >16,29;"P ";3,12 ;" TAB L" p#1;0,0;" THE CURSOR GOES BACK TO L OR C. MAKE IT E AGAIN. " .5,7 A$=:A$=""2480 gA$1420,1;" ";20,25;" ":1,-10 :2480 P20,1;" ";20,25;" ";3,17;"E" x#1;0,0;" USE SYMBOL SHIFT TO GET THE RED WORDS & SYMBOLS.TRY P  () NOW." .5,7 A$=:A$=""2580 hA$34"16,29;"P ";20,25;" ":1,-10 :2580 (R16,29;"P ";20,25;" ";3,17;"L" 2l#1;0,0;" PRESS  R  TO RUN THIS AGAIN OR  G  TO GO BACK TO OPTION PAGE. " <(.5,12 :23658j\,8 FA$=:A$=""2630F PA$="R"2350. Z"A$="G"Z=57012:40( d1,-10 :2630F 7700 ?x=9 7,3;" INPUT collects answers. " Bx=167,3;" PRINT displays on screen. " [10 ,1;"10 ";7-(x=16);"PRINT";7;" ""Type number [ENTER]""" Y12 ,1;"20 ";7-(x=9 );"INPUT";7;" ""Number please:"";num" X14,1;"30 ";7-(x=16);"PRINT";7;" ""You entered "";num" 7600:YR=1 ,;:18,0;"Type number [ENTER]" <c=14:w$="":19,0;"Number please:L" &.02{# =,0 0a$=:a$=""31200 :""3130: Da$=13 3200 NHa$=12 c>14c=c-1:19,c;"L ":3110& Xa$"."(a$<"0"a$>"9")#1;0,0;" You will crash the program if you try to enter letters! ":1,-10 :31200 lM19,c;a$;"L":c=c+(c<31):w$=w$+(a$c<30):3110& (19,0;Z$;"You entered ";w$ 7600:YR 6Z$(32 ):18,0;Z$;Z$;Z$:3090 7700 rX=57,2;" REM does nothing.It is just";8,2;" a REMark to REMind you. " sX=11 7,2;" LIST is a direct command. ";8,2;" It lists the program lines." 010 ,2;7-(x=11 );"LIST" Np=7-(x=5):12 ,2;"10 ";p;"REM";7;" keyboard" ?13 ,2;"20 ";p;"REM";7;" Longman GO MICRO" ?14,2;"30 ";p;"REM   1984 Mercurian " =15,2;"40 ";p;"REM  Pulp Products " B16,2;"50 ";p;"REM";7;" Program starts here" l17,2;"60 ";p;"REM";7;" or at least it would";18,9 ;"do if there was one." j#1;0,0;" RUN this, and nothing happens. Press G  to GO back TO Keyboard." (.5,10 :23658j\,8 *a$=:a$"G"3370* > H 3400H 7700 g7,2;" NEW wipes out the program, ";8,2;" to make way for a new one. " 250 0:7:0: n=1502:n 7: :#1;1,0;" 1982 Sinclair Research Ltd" /502:1,0:1:1:  7700 tx=28,1;" BORDER,followed by a number,";9 ,1;" colours the screen border. " rx=38,2;" PAPER,followed by a number,";9 ,2;" colours the screen centre. " ox=248,3;" INK,followed by a number,";9 ,3;" colours the characters. " ?x=227,4;" CLS clears the screen. " m12 ,10 ;"10 ";7-(x=2);"BORDER";7;" 3":x=212 ,20;"?" l14,10 ;"20 ";7-(x=3);"PAPER";7;" 4":x=314,19;"?" l16,10 ;"30 ";7-(x=24);"INK";7;" 0":x=2416,17;"?" 618,10 ;"40 ";7-(x=22);"CLS" 9B=3:P=4:I=0:x=223900<  :q$="BORDER":x>2q$="PAPER":x=24q$="INK" #1;0,0;" Press a number from 0 to 7 for the colour of the ";1,19;8;q$;"." .5,4 !a$=:a$<"0"a$>"7"3870 ()x=212 ,20;a$:B=a$ -)x=314,19;a$:P=a$ 2*x=2416,17;a$:I=a$ <""3900< AM;:#1;1,0;" Press V  for the new colours. " F(23658j\,8:.5,10 Pa$=:a$"V"3920P Z>B:P:I::10 ,2;"DO YOU LIKE MY COLOUR SCHEME?" d8n=1100d:n:gs=1:1:1:  7700 sx=217,2;" IF ..... THEN tests to see ";8,2;" if the program should jump." jx=77,4;" GOTO sends the program ";8,4;" to a given line number." gx=12 7,0;" LET gives a value to a VARIABLE - a labelled memory store. " E10 ,2;"10 ";7-(x=12 );"LET";7;" x=1" ҏ12 ,2;"20 ";7-(x=21);"IF";7;" x=20 ";7-(x=21);"THEN";7-(x=7);" GOTO";7;" 50" Q14,2;"30 ";7-(x=12 );"LET";7;" x=x+1:BEEP .1,x" D16,2;"40 ";7-(x=7);"GOTO";7;" 20" 18,2;"50 STOP" 7600:yr /X=120:.1}L,X:X:4100  7700 vX=68,1;" FOR ... TO ... starts a loop.";9 ,1;" The action is then repeated. " wx=148,1;" NEXT repeats an action until ";9 ,1;" the last number is reached. " ox=268,2;" BEEP produces a note for ";9 ,2;" a given time and pitch. " q12 ,2;"10 ";7-(x=6);"FOR";7;" p=-30 ";7-(x=6);"TO";7;" +30" H14,2;"20 ";7-(x=26);"BEEP";7;" .01,p" D16,2;"30 ";7-(x=14);"NEXT";7;" p" 7600:yr 2p=-3030:.01z# =,p:p:4320  7700 MX=200,8;" RND is a random number.":r$="RND" HX=80,8;" CIRCLE draws a circle. ":r$="RND" -2,10 ;"10 LET x= ";r$;"*200+25" ,3,10 ;"20 LET y= ";r$;"*50+50" +4,10 ;"30 LET r= ";r$;"*20+2" I5,10 ;"40 ";7-(x=8);"CIRCLE";7;" x,y,r"  6,10 ;"50 GOTO 10" w20,1;" Press  R  to RUN the program;";21,1;"and  A  when you want to STOP." '23658j\,8:.5,0 a$=:a$"R"4600 Ex=*200+25:y=*502+502:r=*20+2  x,y,r a$=:a$="A"  4610 B11 ,8;" STOP THE TAPE ":X=132:Y=24 63?,95_:N=120:X,0:0,-Y:-(X+3),0:0,Y+3:X=X+6:Y=Y+6:N +11 ,8;" PLEASE WAIT " |=t=255:5500|:N=047/:B:"A"+N,B:N t,254,252,248,240,224,192,128,1,3,7,15,31,63?,127,t xt,t,t,240,t,t,t,0,t,t,t,0,t,t,t,15,t,t,t,0,t,t,t,240,t,t,t,15,t,t,t,15 TK(36$,5):N=110 :K(N,1),K(N,2),K(N,3):N fN=11 36$:K(N,1),K(N,2),K(N,4),K(N,5):K(N,3)=N+546:N  14,28,480,14,1,491,14,4,502,14,7,513,14,10 ,524,14,13 ,535,14,16,546,14,19,557,14,22,568,14,25,579 18,3,1,3500 ,20,16,1,3750,20,10 ,4,3750,18,9 ,0,0,16,8,1,3250 ,18,12 ,1,4250 18,15,1,4000,18,18,4,4500,16,23,1,3000 ,18,21,0,0,18,24,1,3250 18,27,1,4000,20,22,0,0,20,19,1,4250,16,26,0,0,16,29,1,3000 ,16,2,0,0,16,11 ,0,0 18,6,0,0,16,14,8,4500,16,20,1,4000,20,13 ,1,3750,16,5,0,0,20,7,4,3750,16,17,0,0,20,4,4,4250 4K$(36$,9 ):N=136$:K$(N):N x" ",""," "," ","",""," ","","","" k" ",""," "," ","","",""," "," " _" "," "," "," "," "," ","","" k" ",""," "," "," "," "," "," "," " 4j$(26,7):n=126:j$(n):n P"NEW","BORDER","PAPER","","REM","FOR","GO TO","CIRCLE","INPUT","","LIST","LET" &C"","NEXT","","PRINT","","","","RND","IF","CLS","","INK","","BEEP" DGs(12 ,2):n=112 :s(n,1),s(n,2):n N44,,24,33!,2,36$,5,39',8,42*,12 ,43+,21,45-,20,46.,23,47/,32 ,63?,13 ,96`,34",61=,22 Gg(15,2):n=115:g(n,1),g(n,2):n 491,1,502,2,513,3,524,4,535,5,546,6,557,7,11 ,15,10 ,14,8,13 ,5,12 ,4,11 ,6,10 ,7,9 ,9 ,16  &N=5700057023:B:N,B:N m33!,0,64@,17,0,228,1,0,27,237,176,201  m33!,0,228,17,0,64@,1,0,27,237,176,201 *X=132:Y=24:1:63?,95_:N=120:X,0:0,-Y:-(X+3),0:0,Y+3:X=X+6:Y=Y+6:N 4 0 > u(10 ) p+1:z$(32 ):1:1: z.n=07:n,0;6;z$:n /n=821:n,0;0;z$:n G8:7,0;0;"________________________________" p7:8,3;" ";9 ,1;"";10 ,1;" " 612 ,0;"________________________________" !11 ,1;"ZX Spectrum" (21,27;"" '20,28;"" &19,29;"" %18,30;"" $17,31;"" Wn=136$:5:0:k(n,1),k(n,2);k(n,3);" ":n j18,29;1;"";20,1;"";20,25;"";20,28;"" Z=57000 n8:1,1;" KEYBOARD explores the keys - ";2,1;"letters,graphics and Keywords." i3,1;" If you have not used E MODE -";4,1;"(the red & green words)- then " e5,1;"look at MODES (option 2)before";6,1;"KEYWORD DISPLAYS (option 3). " [#1;1,0;" PRESS  ENTER  FOR OPTION PAGE ":1,5 A$=:A$=""6140 A$13 6130 ;:Z=57012: X2,4;" 1  KEYBOARD EXERCISES ";3,4;" 2  MODES - K L C E ";4,4;" 3  KEYWORD DISPLAYS ";5,4;" 4  END OF PROGRAM " b[#1;1,0;1;"PLEASE PRESS  1   2   3  OR  4  " l.5,10 vA$=:A$=""7030v  A$="1"KO=1:7090  A$="3"KO=2:7090  A$="2"KO=3:7090 ( A$="4";:Z=57012:8000@ 1,-10 :7030v Z=57012:;: ^"This is the Spectrum keyboard.","The ZX Spectrum has 40 keys.","CAPS SHIFT gives CAPITALS." {"Use SYMBOL SHIFT to get +-*/=.","Don't press CAPS and BREAK!","CAPS and 0 gives DELETE.","This is the KEYBOARD program." Z"DATA is computer information.","Is $10 more than `10 ?","'Hello!'he said, and came in."  G7:0:;:q=16:q,1;Z$(30):q: x#1;0,0;" WOULD YOU LIKE ANOTHER ? PLEASE PRESS  Y  OR  N  ":7310 (23658j\,0:.5,12 a$=:a$=""7320 &a$="y"yn=1:Z=57012: &a$="n"yn=0:Z=57012:  .5,-10 :7320  7100 5us=(*10 )+1:u(us)>07410 u(us)=9 N=1us:W$:N ,n=110 :u(n)=u(n)-1:n: L}F=0:#1;0,0;" YOU MUST BE IN GRAPHICS MODE. PRESS CAPS SHIFT AND  9  >> C <<" V.5,12 [OFK(9 ,1),K(9 ,2);"9 ";20,1;" " `A$=:A$=""7520` jSA$=15#1;1,28;"G":.5,24:502: tNK(9 ,1),K(9 ,2);"9 ";20,1;" " ~*1,-10 :F=1:7520` p#1;0,0;" Press  R  to RUN this program or  G  to GO back TO Keyboard. " '23658j\,8:.5,0 a$=:a$=""7620 ""7630 a$="G"YR=1: 'a$"R"1,-10 :7620 YR=0:  7: &i$=k$(x+10 ):1:7: (1,1;" ";2,1;" ";i$(3);" ";3,1;" ";i$(46);" ";4,1;" ";i$(7);" ":k(x+10 ,4)=15,1;" ";j$(x,5) -4J$(X)="BORDER "5,3;"BORDER" 2ek(x+10 ,4)=45,1;" ";6,1;7;2;j$(x) ""W$=W$(̱W$-1):#1;L,C;"?":C=C-1:7810 .A$>"0"A$>"9"1,-10 :7810 PW$=W$+A$:#1;L,C;A$;"?":C=C+1:.02{# =,0:7810 @9N=15:N,1;5;Z$(30):N J8:0:2,2;" ";3,2;" ";4,2;" " T xy$tb$0123 4 56789A B C DE  FGHI JK LMNOP Q RSTU VWXYZI$  Music */ <,~(,/ "MUSIC" E  1984   MERCURIAN PULP PRODUCTS  %57000:RP=0:7000X U;:#1;0,0;" COMPOSER :SET FRAMEWORK ":2000 q0:BL=0:8:CX=6:R=1:23658j\,8:P(500):T(500):X=1 n#1;0,0;" COMPOSER: KEYS NOW 'ORGAN'IZED  PRESS  ENTER  TO END SESSION "  T=.03{u\ A$=:A$=""1020 JB$=A$:Z=A$-47/:Z=-34"E=0:1400x:E7200  Z=-15Z=2 "Z<1Z>43+1016 JR(Z,1)30Y=0:1100L:X=X+1:CX=CX+1  3CX>29E=0:1400x:E7200   1016 L:T,R(Z,1):Y=Y+T:Y=.03{u\Ž(SQ-Y)"3"2070 4B=5-A$ 9)7,3;B;8,3;"4" >#1;1,0;" ":0,0;" NOW SELECT SPEED  ";1,0;" " HR25:1,0;" 1  FAST":L=.3:2540 -10 *B RV25:1,10 ;" 2  MEDIUM":L=.48u[:2540 -10 *B \T25:1,22;" 3  SLOW":L=.64# =:2540 -10 *B fx502:.5,7:#1;1,0;"  PRESS  1   2  OR  3  " pA$=:A$=""2160p zA$<"1"A$>"3"2150f /A$="1"Q=.3:2,0;"Vivace" 2A$="2"Q=.48u[:2,0;"Moderato" /A$="3"Q=.64# =:2,0;"Lento" C=Q*2:SQ=Q/2 #1;1,0;"  ":.5,10 :0,0;" WHICH KEY?  ";1,0;"  A   C   D   E   G  " ^#1;1,0;" PRESS  A   C   D   E  OR  G  " 23658j\,8 A$=:A$=""2220 )A$<"A"A$>"G"A$="B"A$="F"2210 K=A$-64@ 6500d+10 *K d0,0;" ";1,0;" "  1010 YN=13:l,4:T=13:l*.6,2:20*l:T:N: YN=13:l,0:T=12:l*.6,7:20*l:T:N: CN=13:l,0:l*.6,5:20*l:N: RP=1:6000p:4,10 ;2;Z$(12 );5,10 ;Z$(12 );6,10 ;Z$(12 );5,12 ;" PLAYER ":4000 .R=1:T=.03{u\:23658j\,8: A$=:A$=""3020 0B$=A$:Z=A$-47/:Z=-34"3200 "Z<1Z>43+3020 3Z=A$-47/:R(Z,1)303100 3020 T,R(Z,1) &=B$3100 0 ""3200 7200  g1,-20:#1;1,0;"DO YOU WANT A SCALE?  Y  OR  N  " 23658j\,8 A$=:A$=""4020 A$="N"4090 A$"Y"4000 u1,-10 :#1;1,0;" WHICH?  A   C   D   E  OR  G  " A$=:A$=""4060 "A$<"A"A$>"G"A$="B"4050 K=A$-64@ 6505i+10 *K o;:#1;0,0;" PLAYER: KEYS NOW 'ORGAN'IZED  PRESS  ENTER  TO END SESSION ": 91;4,24;" ";5,16;" ";6,8;" ";7,8;" ";8,15;" ";9 ,7;" ";10 ,7;" ";11 ,14;" ";12 ,14;" " :K312 ,10 ;"";13 ,10 ;""   5000 &N=5700057023:B:N,B:N 33!,0,64@,17,0,228,1,0,27,237,176,201,33!,0,228,17,0,64@,1,9 ,27,237,176,201 %N=0167:B:"A"+N,B:N 524,76L,132,132,132,76L,480,0,524,124|,252,252,252,124|,480,0 4,4,4,4,524,76L,132,132,132,76L,480,0,0,0,0,0 4,4,4,4,524,124|,252,252,252,124|,480,0,0,0,0,0 4,4,4,4,4,4,4,4,4,6,6,5,5,4,4,4 524,124|,252,252,248,121y,513,1,32 ,16,8,12 ,28,28,568,568,24,12 ,60<,114r,96`,32 ,16,0 Ɋ0,33!,115s,117u,579,2,2,2,4,4,8,8,8,16,16,16 Ά248,121y,513,1,0,0,0,0,0,0,6,6,5,5,4,4 Ӄ8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,255 I28,20,20,85U,119w,546,28,8 36$,39',60<,228,39',60<,228,36$,0,0,0,36$,39',60<,228,36$,39',60<,228,36$,0,0,0,0 RN$(3,4,3):N=13:I=14:N$(N,I):I:N "","","","" "","","","" " "," "," "," " 2Tr(43+,3):n=143+:r(n,1),r(n,2),r(n,3):n <20,3,1,-502,7,3,6,7,1,8,7,2,10 ,6,2,30,0,0,13 ,5,1,15,5,2,30,0,0,18,4,2,30,0,0,30,0,0,30,0,0,30,0,0,30,0,0,30,0,0,30,0,0 F)-6,11 ,2,2,8,1,-1,9 ,1,-2,9 ,1,9 ,6,1,30,0,0,1,9 ,2,3,8,1,17,4,2,30,0,0,6,7,1,30,0,0 P]5,7,1,4,8,2,19,3,1,21,3,2,5,7,1,11 ,6,2,-4,10 ,1,12 ,5,1,16,4,1,0,9 ,2,7,7,2,-3,10 ,2,14,5,2,-5,10 ,1 ZZ$(32 ) d p/1:0:2:5:0: zC7:16,0;" K " T"A S D G H 2 3 4 6 7 9 0 " ("  " $" Q " $"ZXCVBNMWERTYUIOP" $"________________" RP62008 O0:N=313 :N,0;" ":N EN=59 :N,0;"________________________________":N 8,104h:4,8,-3:-5,-16,-3:-6,14,-1.8ffff:10 ,12 :4,14,.2~L:-5,0,4:0,-524:-4,0,-4 QJ=02553:J,136:J,88X:J,80P:J,72H:J 57000  8 n 6610 sZ14,0;" GA B CD E FGA B CD E FGA ": Z15,0;" G A B C D E F G A B C D E F G A ":  6620 Z15,0;" G A B CD E FG A B CD E FG A ":  6600 Z14,0;" GA B CDE FGA B CDE FGA ":  6630 Z15,0;" G A B C D E FG A B C D E FG A ": +6,5;"";7,5;"" +8,4;"";9 ,4;"" 7,4;"" -5,4;"";6,4;"":  6600 F#1;0,0;" STOP THE TAPE - PLEASE WAIT " 1,10 :5000  6000p ڇ.5,12 :#1;0,0;" MUSIC IS READY FOR YOU.  1  FOR PLAYER  2  FOR COMPOSER " A$=:A$=""7140 A$="2"1000 A$="1"3000  7130  v#1;0,0;" ANOTHER OPTION? PLEASE PRESS  Y  OR  N  " *(.5,10 :23658j\,8 >A$=:A$=""7230> H"A$="Y"57012:7130 RA$="N"7270f \ 7210* fRP=1:6000p:4,6;2;Z$(20);5,6;Z$(20);6,6;Z$(20);5,8;" END OF PROGRAM " p)1,0:W=1200:W z +2b+ +  W Files :(1: "FILES" B  1984   Mercurian Pulp Products  (fc=0:z$(32 ):T$(10 )  8000@  6000p ( 5000 2?23658j\,8:8:0: q$=Z$(QC):m=0 34.002xn,10 :l,c;1;1;(l,c) 4""524 5A$=:A$=""535 6IA$" "A$""C>QSCQS+QCq$(c-qs)=a$:l,c;a$:c=c+1:513 7+a=a$:a=13 l,c;1;(L,C): 8ha8a11 p(l,c),568:c=c+(a=9 )*(c<31)-(a=8)*(c>0):513 9 524 a$=:a$=""62> ?LA$" "A$""C9 l=l+2*(a=10 )*(l5):c=0:ln=(l-2)/2:c1=s(ln+1)-s(ln) ^Da<10 c=c+(a=9 )*(c+2c1)-(a=8)*(c>0) _a=:a<8a>11 a=l,c;6;1;(l,c):.002xn,0:91[ d7:0: n"  CHECKLIST " x"'"1)Have you labelled the Tape?" "'"2)Is it rewound to the start?" $'"3)Are the MIC leads plugged in?" %'"4)Have you removed the EAR lead?" '"5)Ready to record?" :''" Press Record/PLay on the tape, then press  S ." %'" Press again to start to record." >'" Wait for the OK message."''" It will take a few minutes." '23658j\,0:1,10 a$=:a$=""200 a$="s"t$25:230 195 (:''''"  OK - STOP THE TAPE. " 8''" The ";t$;" file is now safely on cassette." [''" When you want ";t$;'" file again,use this tape, instead of the GO MICRO tape." #''" Rewind and LOAD as usual." n=1100d:n 9100#: , ;1::"SEARCH MODE  FILENAME " (7:0:0,22;T$ *" PLEASE TYPE KNOWN DATA HERE. " EN=1HN:N*2+1,0;4;0;H$(N):n Hn=1hn:N*2+2,0;W$(S(N)S(N+1)-1) !N &#1;0,0;"CAPS  MOVE 5 6 7 8 : SEARCH 0 SHIFT NEW OPTION 9  " 0Uj=0:l=4:Ln=1:c=0:T$="GO MICRO "L=6:LN=2 :4c1=s(ln+1)-s(ln):7:0:70F Dj740 N w$(fc): .5,0:570: \.5,30:21,0;" STARTING TO SEARCH FILE. ":l,c;(l,c) +D(10 ):F(R):PK=1:NF=1 DN=1FC:W$(N)" "D(PK)=N:PK=PK+1:PK=11 N=FC N  TN=1R:T=1PK-1:f=0:F$(N,D(T))W$(D(T))T=PK:790  F=1 T:FF(NF)=N:NF=NF+1  N:nf=nf-1 "Snf=021,0;" SORRY, NOTHING HERE LIKE THAT. ":870f %?21,0;1;" " *?1,0;" PAGES FOUND  : THIS PAGE " 4T=1NF >{1,14+(NF<10 )-(NF>99c);7;0;NF;1,30+(F(T)<10 )-(F(T)>99c);F(T) HMn=1hn:N*2+2,0;F$(F(T),S(N)S(N+1)-1) RN \ZT"9"1130j RO=A$:RO>HN1130j f#1;0,0;" THIS MAY TAKE A FEW MOMENTS PLEASE WAIT " 5w$(fc):T=1R-1:s$="zzzzz":z=t:N=TR Of$(n,s(ro)s(ro+1)-1)=w$(s(ro)s(ro+1)-1)1210 Qf$(n,s(ro)s(ro+1)-1)99c);R 21,29+(TP<10 )-(TP>99c);TP EN=1HN:N*2+1,0;4;0;H$(N):n "Kn=1hn:N*2+2,0;F$(TP,S(N)S(N+1)-1) ,N 6:l=4:Ln=1:c1=s(ln+1)-s(ln):c=0 @8j=0:60<:j=21620T:1570" Ej=31570" J T f$(tp)=w$:p(l,c),160: _.5,30:21,0;"You want to wipe this page?(Y/N)":1755 O.5,20:21,0;"Do you really want to end? (Y/N)"  j=0:23658j\,0 a$=:a$=""1760 Ua$="n"21,0;1;" ":7000X: fa$="y"21,0;1;" ":j=1:p(l,c),568:  1755 V7:0:n=1hn:N*2+2,0;W$(S(N+1)-S(n)):n &a=7tp>1tp=tp-1:1,28+(tp<10 )-(tp>99c);"";tp;" ";4,0;f$(tp,s(2)-1):1850: 0a=6tp99c);"";tp;" ";4,0;f$(tp,s(2)-1) :a$=:a$="" Da=a$:a<4a>7 N 1810 6:"CREATE MODE FILENAME   " >21,1;" TYPE FILENAME THEN  ENTER . " t#1;0,0;" MOVE CURSOR & RETYPE TO CORRECT - USE CAPS SHIFT + 5 OR + 8 . " ;QC=10 :QS=20:L=0:C=21:502 T$=Q$ ?1,0;"PAGES   "  @21,0;"TYPE NUMBER OF PAGES THEN ENTER " 8QC=3:QS=5:L=1:C=6:502  5N$=Q$:6500d:J1,-10 :2070 *R=N$ /HMAX=(24000]/R):1,10 ;"SPACES AVAILABLE " 1)1,28;7;0;MAX 4QN=19 :N*2+1,0;"";N;"  ":N >>21,0;"  HOW MANY HEADINGS? (MAX.9)  " H.5,10 RA$=:A$=""2130R \A$<"1"A$>"9"2120H f<HN=A$:H$(HN,10 ):S(HN+1):S(1)=1 pYHN<9 N=HN+19 :N*2+1,0;1;" ":N zRN=1HN:21,0;" TYPE HEADING ";N;" THEN  ENTER  " CL=N*2+1:QS=1:QC=10 :C=2:502  H$(N)=Q$ Gn*2+2,0;" HOW MANY SPACES HERE? MAX.32" S.5,10 :21,0;" PLEASE TYPE NUMBER THEN ENTER " CL=N*2+2:QS=-1:QC=2:C=0:502 21,0;1;Z$ "n$=q$:6500d:j2210 "N$>32 ŰN$>MAX2210 s(n+1)=s(n)+n$  MAX=MAX-N$ 31,28;7;0;MAX;" " Kt=0̰n$-1:n*2+2,t;"":.05|L,0:t 6T=N$31:N*2+2,T;1;" ":T N $FC=S(HN+1):w$(fc):F$(R,FC)  PN=0 ^;:#1;1,0;" FILE NOW READY. ENTER TO GO ON ":1,0 BA$=:=""2370B La$13 2300 V  223658j\,8:1:1:7: 2;z$;Z$;Z$ )1,9 ;" FILE OPTIONS " :6,3;" Create a File   1 " <8,3;" Data Entry   2 " =10 ,3;" Re-order File   3 " ?12 ,3;" Search File   4 " ?14,3;" Save on Tape   5 " =16,3;" Quit Program   Q " ɐ7:8,30:240,0:0,107k:-240,0:0,-107k:168,30:0,106j 20,0;2;z$ J21,0;"  Press  1  -  5  to use modes, " g#1;0,0;1;"  or  Q  to end this session.  ";2;z$ 1,0 A$=:A$""5095 a$=:a$=""5100 dfc=0a$"1"1;6,3;" Create a file   1 ":5095 fa$="Q"20,0;" GO MICRO: FILES. END OF PROGRAM USE 'GOTO 25' TO RESTART' ": Ha$"1"a$"5"2500 -500*a$+(100da$="5"):5150  5100 ""5150 ( 5000 C=C+1:5505  o 9100# p"INITIALIZATION" 06050:N=031:B:"A"+N,B:N 248,124|,62>,31,62>,124|,248,0,65A,99c,119w,127,127,62>,28,8,31,62>,124|,248,124|,62>,31,0 E255,1,1,1,1,1,1,255 -P(L,C)=22528X+32 *L+C r$(32 ) -f(l ,c)=s((l-2)/2)+c  dJ=0:N$=""J=1: n.N$(N$)=" "N$=N$(̱N$-1):6500d x:J=0:I=1̱N$:N$(I)<"0"N$(I)>"9"J=1 I  X""7000X b @1:1:5: J&"  " T&"  " ^*"    " h*"    " r*"    " |*"    " 0"       " 0"    FILE:  ";T$;"    " 0"       " 0"       " 0"   " ." " ." " -" " -" " ("  " &"  " *"    " ,"    FILES  " *"    " &"  " &"  " &J#1;1,0;" STOP THE TAPE  ENTER  TO START " +1,0 0A$=:A$=""82400 :.A$13 .5,-10 :82400 D #x#1;1;0,0;7;z$;1,4;" Press  ENTER  to go on ":1,10 #a$=:a$=""9110# #a$=13 # 9110# b l cmz8xa jaBH- NAME/TITLEBOOK/TAPESIDE/PAGETOPIC;4N32;y;KEYBOARD TAPEA KEYWORDS - KEYFINDER MUSIC TAPEA WRITING & PLAYING MUSIC FILES TAPEA THIS IS FILES! QUIZMASTER TAPEB QUIZ CREATION PROGRAM SCREENS TAPEB TITLE PAGE DESIGNER GETTING STARTED BOOK4 SETTING UP & LOADING WHAT IS A PROGRAM? BOOK6 EXPLANATION & EXAMPLE THE HOME TUTOR BOOK8 EDUCATIONAL SOFTWARE THE ENTERTAINER BOOK10GAMES & PASTIMES THE HOME OFFICE BOOK12FILES,ACCOUNTS,ETC SOFTWARE AT WORK BOOK14SPREADSHEETS,ETC WORD PROCESSING BOOK16EXPLANATION & EXAMPLE NETWORKS & TERMINALSBOOK18VIEWDATA,COMMUNICATIOS,ETC COMPUTER LANGUAGES BOOK20BASIC,ASSEMBLER,PASCAL,et al. STORING PROGRAMS BOOK22TAPE,MICRODRIVE,DISKS KEYBOARD TO SCREEN BOOK24HOW INSTRUCTIONS ARE PROCESSED INSIDE THE SPECTRUM BOOK26CHIPS AND OTHER COMPONENTS SPECTRUM SOUNDS BOOK28INTRODUCING THE SPECTRUMORGAN! SPECTRUM COLOUR BOOK30BORDER,PAPER,INK COLOURS HI-RES. GRAPHICS BOOK32DRAWING ON SCREEN;RANDOM NUMBERSBLOCK GRAPHICS BOOK34MAKING PICTURES WITH BLOCKS EXTENDING THE SYSTEMBOOK36PERIPHERALS & SOFTWARE THE KEYBOARD BOOK38KEYWORDS,KEYS & THE KEYBOARD BE A QUIZMASTER BOOK39ADVICE ON MAKING & SAVING THE MUSIC PROGRAM BOOK40WHAT IT DOES:HOW TO USE IT. USING FILES BOOK42ADVICE ON USING AND SAVING ESIGNING SCREENS BOOK44HOW TO USE THE SCREENS PROGRAM GO MICRO PACK INTRO. FOR FIRST-TIME USERS. fX >;  GO MICRO # S P;KEYBOARD TAPEA KEYWORDS - KEYFINDER Q # 5 >; A