ZXTape! 2Animal, Vegetable, MineralArnold Wheaton Software1983English Educational ROM timingsOriginal release+TZXed by Jos Luis Soler Main program tapeAVM RR{T&7:7:7:1: "" 1,0; "" avm RR[T&7:7:7:1: "" 1,0; "" logo @<B BBxh8B8<888 8fx88BD0TBDDD<DZ0DD ~DT<BxDx<"xBDx <BDTD$@<@D"@BD@ DBD8T< << << <B8D< < 8ÃÿýÁÃÇ}スǻLJ㻇ュýス߻ϻオaׇû߻ﻻケ諒׿ﻇ߻Á۽ýÿ۽ýÿǻǻyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyzzzzWWWWWWWWWWWWWWWWWWWWWWWWzzzzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx|xxxxxxxxxxxxxxxxxxxxx||||||||||||||||||xxxxxxxxxxxxxx||||||||||||||||||||xxxxxxxxxxxx|||||||||||||||||||||xxxxxxxxxxx||||||||||||||||||||||xxxxxxxxxx||||||||||||||||||||||xxxxxxxxxx||||||||||||||||||||||xxxxxxxxxx|||||||||||DDDDDD|||||xxxxxxxxxx|||||||||||D||xxDDDD||xxxxxxxxxx|||||||||x|xxxxx|xx|||xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzzzzzzzzzzzzzzzzz8888888888888888888888888888888888888888888888888888888888888888 AVM sJsJ{uJ!*********************** !* * !*Animal Vegetable Min.* !* * !*E.J.Arnold & Son Ltd* !* * t*********************** INITIALISATION M$(100d,20):K$(103g,85U):C$(100d,4):Y$(100d,20):N$(100d,20):Q$(100d,25):Y(100d):N(100d):RETFLAG=0:TFLAG=0 /F$(20,20):Q(1):QQ=0 @CH=0:CH1=0:CH2=0:CH3=0:CH4=0 236099\,120x 23617A\,-18 MAIN PROGRAM  AN=0 SCR=0:1000 <)X$="1"XX=1:X$="1"400: A,X$="2"XX=2:7200 :6000p d:SCR=1:XX=1Y$(100d,20):N$(100d,20):Q$(100d,25):Y(100d):N(100d):Q(1):400:9000(# n$XX=27200 :9000(# x$XX=37000X:9000(# $XX=48000@:6000p XX=59200# *q=QQ:XX=63000 :9000(# XX=79970&: TSCR=1:1000:1600@:500:600X:CF=1399: #750:2000:6000p  INPUT 1 CH=0:X=6 0,X;X$ SCH=(X$):CH<3CH>16.1}L,10 :.1}L,30:510 0X$(3)=" "1,0:510 &D$=X$:8900":E$=H$: X VERIFY b P$=E$:SCR=1:1000 l8,8;"START A NEW FILE";12 ,6;"Your filename will be";14,16-(CH/2);E$(CH);16,10 ;"O.K. (y/n) ?"; q0:x$= vx$="Y"x$="y"CF=0: x$="N"x$="n"CF=1: 700:625q (.1}L,10 :.1}L,30: SINGULAR F$(1)=E$ SCR=1:1000:8,8;"START A NEW FILE";12 ,4;"Now enter the singular of";15,16-(CH/2);E$(CH)  800   900 Od$=W$:8900":s$=h$:F$(2)=S$:8950":cf=1760:   input 2 * CH1=0 4S$ > CH1=(S$) HKCH1<1CH1>15.1}L,30:.1}L,10 :810* \ VERIFY 2 W$=S$:1240: SCREEN FORMAT. 0:1:1:7::24,139:208,0:0,17:-208,0:0,-17 L3,4;"ANIMAL VEGETABLE MINERAL":9990':SCR=1 9 ,7;"You may now":12 ,7;"1. Start a new file":14,7;"2. Load a file":17,10 ;"Which (1-2)" $=0:X$=:.1}L,30:X$="1"X$="2"10808 .2.1}L,30:.1}L,10 :1060$ 8 NEW ITEM BW$:(W$)<1ű(W$)>20.1}L,10 :1210 (d$=w$:8900":w$=h$:1240: VERIFY 3 W$<3 DW$(2)="A "W$(2)="a "W$=W$(3):AN=0: FW$(3)="AN "W$(3)="an "W$=W$(4):AN=1:  @INSTRUCTIONS J8,8;"Start a new file";10 ,4;"Type in a filename in the";12 ,4;"plural form to describe";14,4;"your subject, e.g.:";16,4;" Dogs, Trees, Cars";20,5;"16 Characters maximum":  FIRST ڢQQ=1:1000:8,8;"START A NEW FILE":B$=S$:2400` :10 ,3;"Please enter ";:AN=0"a ";:A=1:2060  "an ";:A=2  2S$>11 :12 ,3;S$:2070 S$  2500  Y$(QQ)=H$:Y(QQ)=1:I=10 19:I,3;" ":I:10 ,3;"Enter another ";:S$>11 :12 ,3;S$:2085% "S$ %<2600( :N$(QQ)=H$:N(QQ)=1:W$=N$(QQ):A$=Y$(QQ) *?SCR=1:1000:21004:2170z:2260: 4QUESTION >8,4;"Now give me a question"; 10 ,4;"which distinguishes";12 ,4;"between ";:B$=A$:2400` :AN=0" a":2120H C" an" Hm14,4;A$;32 ;:16,4;"and ";:B$=W$:2400` :AN=0" a":2130R M"an" R18,4;W$ p-2300:Q(1)=Q(1)+1: z ANSWER SCR=1:1000:9 ,4;"What is the answer for";:B$=A$:2400` :AN=0" a";:11 ,4;A$:2190 " an":11 ,4;A$ RETFLAG=1 $Y(QQ)=Q(1):N(QQ)=Q(1) I0:X$=:.1}L,30:X$="Y"X$="y"Y$(QQ)=A$:N$(QQ)=W$: 'X$="N"X$="n"N$(QQ)=A$:Y$(QQ)=W$: 2.1}L,10 :.1}L,30:2210 AMOUNT Ԭ1000:ch=e$:10 ,10 ;"I now know";13 ,14;Q(1)+1;32 ;16,(16-(CH)/2)-2;E$:F=1100d:F: INPUT QUESTION $20,9 ;"ENTER QUESTION"  Q$(QQ) "D$=Q$(QQ):8900":Q$(QQ)=H$  CH4=Q$(QQ) $LCH4<1CH4>25.1}L,10 :.1}L,30:2320 )d$=q$(qq):8900" *TP=251-1:H$(PP)="?"H$=H$(P-1):Q$(QQ)=H$:2350. +P . `VOWEL1 jB$(1)="A"B$(1)="E"B$(1)="I"B$(1)="O"B$(1)="U"B$(1)="a"B$(1)="e"B$(1)="i"B$(1)="o"B$(1)="u"AN=1: tAN=0: ENTER 1ST H$ JCH2=(H$):CH2=0.1}L,30:.1}L,10 :2520 Jh$=""h$(1)=" ".1}L,30:.1}L,10 :2520 LCH2<1CH2>20.1}L,10 :.1}L,30:2520 d$=h$:8900" B$=F$(1):2400` : (ENTER 2ND 2CH3=0:H$="" <H$ F CH3=H$ P7CH3<1CH3>201,0:2620< Ud$=h$:8900" Z &e$>12 7800x:3020 /:1000:9980&:10 ,4;"You may now";12 ,4;"1 Edit the questions";14,4;"2 Edit the ";e$;16,4;"3 Return to menu";19,8;"Which (1-3)?":0:X$=:X$<"1"X$>"3".1}L,30:.1}L,10 :3010 ).1}L,30:X=(X$):X=3 1:1000:9980&:X=23500 a=0:8,7;"Edit the questions";10 ,3;"Press no. to edit question";#1;3;"Press ENTER for next page" #X=11 :Y=3:a=0: "cc=0:e=1q(1) #d$=q$(e):9700%:X=X+1 /ss=e-(CC*8):X,Y;ss;".";d$:3080 X,Y;e;".";d$ e=q(1)3250 'X=193200 :cc=CC+1 a=13000 &e X=11 :0:X$=:.1}L,30:X$=13 i=12 19:i,3;" ":i: MX$<480ůX$>579.1}L,30:.1}L,10 :3200 %x$>"0"ưx$25.1}L,30:.1}L,10 :3300 d$=x$:8900":x$=h$ JQQ=x:Q$(QQ)=X$:A$=Y$(QQ):RETFLAG=1:2170z:RETFLAG=0 +0:X$=:X$="Y"X$="y"a=1: bX$="N"X$="n"D$=Y$(QQ):Y$(QQ)=N$(QQ):N$(QQ)=D$:D=Y(QQ):Y(QQ)=N(QQ):N(QQ)=D::a=1: 1,0:3340 jta=11 -(e$)/2:8,ta;"Edit the ";e$:10 ,3;"Sorting- please wait." I=1Q(1)+3:M$(I)="":I:M$(1)=Y$(1):M$(2)=N$(1):T=3:I=2Q(1):P$=Y$(I):7500L:P$=N$(I):7500L:I V10 ,3;" Press number to edit";#1;" Press ENTER for next page"; !x=4:Y=3:a=0 e=1T-1 4E+11 -(a*8),y;e-(a*8);". ";M$(e) %e=T-13600:3000 -E+11 -(A*8)=193590 a=13000 e:3590:3000  a=a+1 vx=4:0:X$=:x$=13 I=11 19:i,3;" ":I:3570 Ax$<"1"x$>"8".1}L,30:.1}L,10 :3591  3622& 5a=a+1::#1;" Press ENTER for Menu" $20:X$=:.1}L,30:x$=13 &Ax$<"1"x$>"8".1}L,30:.1}L,10 :3620$ 'Vx$<"1"Űx$>E-((A-1)*8).1}L,30:.1}L,10 :3620$ (Ka=0x$<"1"Űx$>E.1}L,30:.1}L,10 :3620$ )-x=x$:a>0X=X+((A-1)*8) . I=10 19:I,3;" ":I:10 ,3;"The old answer is";12 ,3;M$(x):o$=M$(x):14,3;"Now enter the new answer":X$:(X$)<1ű(X$)>20.1}L,30:.1}L,10 :3630. 3d$=x$:8900" 4!W$=H$:1240:X$=W$:l$=w$ 8f=1q(1) BY$(f)=o$Y$(f)=X$ LN$(f)=o$N$(f)=X$ Vf:7600:3000 pSECOND MENU r%S$>9 7700:6020 uSCR=1:1000:10 ,3;"Choices are";13 ,3;"1 You think of";:B$=S$:2400` :AN=1" an ";S$:6015 z " a ";S$ K15,3;"2 I think of";:AN=1" an ";S$:6019  " a ";S$ #18,3;"Which (1-2) ?" "0:X$=:.1}L,30 (X$)=62>9000(# AX$<"1"X$>"2".1}L,30:.1}L,10 :6020  X=(X$) #X=18000@:6000p X=29200# W XA$(6):SAVING FILES bSCR=1:1000 l&8,10 ;"Save a file"; n""FILENAME";Z$:Z$=""7022n pD$=Z$:8900":Z$=H$ q F$(1)=E$:F$(2)=S$ v)12 ,3;"Saving ";1;z$ { 7100  z$K$() : Sort data into 1 array Ɔi=2q(1)+1:k$(i)=q$(i-1)+"#"+y$(i-1)+"#"+n$(i-1)+"#"+(y(i-1))+"#"+(n(i-1))+"#":i Qk$(1)=(q(1)):k$(q(1)+2)=e$:k$(q(1)+3)=s$   LOAD *&scr=1:1020:scr=0 479990':8,10 ;"LOAD A FILE" 5""FILENAME";Z$:z$=""72215 6d$=z$:8900":z$=h$ 7h11 ,3;"Please start your tape.";16,3;"Press any key to continue":0 9]scr=1:1020:scr=0:9990':8,10 ;"LOAD A FILE" <*12 ,3;"Loading ";1;z$ =1:0,0; >z$k$():7 ?[I=15:.1}L,I*5:I:12 ,3;" PLEASE STOP YOUR TAPE" C 7300 D-I=201-1:E$(II)=" "I E8E$=E$(I):I=201-1:S$(II)=" "I F S$=S$(I) H Sort into 5 arrays q(1)=(k$(1)) i=2q(1)+1:q$(i-1)=k$(i)(25):y$(i-1)=k$(i)(2746.):n$(i-1)=k$(i)(48067C) (l=69E74J:k$(i)(ll)"#"l Ny(i-1)=(k$(i)(69E(l-1))):o=l85U:k$(i)(oo)"#"o ,n(i-1)=(k$(i)(l+1o+1)) i Le$=k$(q(1)+2)(20):s$=k$(q(1)+3)(20)  LSORT ANSWERS FOR EDIT V!E=1T:P$=M$(E)E=T:E: `E jM$(T)=P$:T=T+1: Alter question option Kp=q(1)1-1:y$(p)(̱l$)=l$k=p:p=1:7606  n$(p)(̱l$)=l$k=p:p=1 p ii=10 19:i,3;" ":i:10 ,3;"The old question was" G12 ,3;q$(k);14,3;"Do you wish to alter it ?" x$=:x$=""7630 ..1}L,30:x$="n"x$="N"3000 ,x$="y"x$="Y"x=k:3310 :3000 2.1}L,30:.1}L,10 :7630 SCR=1:1000:10 ,3;"Choices are";12 ,3;"1 You think of";:B$=S$:2400` :AN=1" an ";13 ,7;S$:7720( " a ";13 ,7;S$ (]15,3;"2 I think of";:AN=1" an ";16,7;S$:77302 -" a ";16,7;S$ 2#18,3;"Which (1-2) ?" < xA:1000:9980&:10 ,4;"You may now";12 ,4;"1 Edit the questions";14,4;"2 Edit the ";15,8;e$;16,4;"3 Return to menu";19,8;"Which (1-3)?":0:X$=:X$<"1"X$>"3".1}L,30:.1}L,10 :7800x  @ THINK JR1000:TA=10 -((S$)/2):8,TA;"Think of a ";S$; Ks$(11)="A"S$(1)="E"S$(1)="I"S$(1)="O"S$(1)="U"8,TA;"Think of an ";S$; O QQ=1 T1I=251-1:Q$(QQ)(II)=" "I V112 ,3;" " Y#12 ,3;Q$(QQ)(I);" ?" ^"0:X$=:.1}L,30 hX$="n"X$="N" rX$="y"X$="Y" |X$="Y"X$="N"8080 2.1}L,30:.1}L,10 :8030^ 2X$="Y"Y(QQ)=QQU$="Y":W$=Y$(QQ):85004!: X$="Y"QQ=Y(QQ):8020T 2X$="N"N(QQ)=QQU$="N":W$=N$(QQ):85004!: QQ=N(QQ):8020T !4 ASK !HX$="Y"A$=Y$(QQ):8540\! !R A$=N$(QQ) !\-I=201-1:A$(II)=" "I !] A$=A$(I) !^12 ,3;" ":10 ,3;"Is it ";:B$=A$:2400` :AN=0"a ";:8546b! !a"an "; !b#a$<17a$;" ?":8550f! !c12 ,3;a$;" ?" !f"0:X$=:.1}L,30 !pX$="Y"X$="y"8800`": !zJX$="N"X$="n"U$="Y"b$=Y$(QQ):N$(Q(1)+1)=b$:8650!: !JX$="N"X$="n"U$="N"b$=N$(QQ):Y$(Q(1)+1)=b$:8650!: !1,0:8550f! ! NEW !Ԁ10 ,3;" ":10 ,4;"I give up !";12 ,3;"What are you thinking of ?" !"U$="Y"Y(QQ)=Q(1)+1 !"U$="N"N(QQ)=Q(1)+1 !aQQ=Q(1)+1:1200:1240:1000:21004:2170z:2250: ! "` KNOW "j10 ,3;" ";12 ,3;" ":10 ,6;"I thought as much !":F=1150:F: "aH$="":I=1̱D$:D$(II)>96`ƯD$(II)<123{V$=(D$(II)-32 ):8920" " V$=D$(II) "H$=H$+V$:I: ":1000:8,8;"START A NEW FILE";12 ,6;"Your item name will be";14,16-((S$)/2);s$;16,11 ;"O.K. (y/n) ?"; "0:x$= #x$="Y"x$="y"CF=0: #x$="N"x$="n"CF=1: # 2.1}L,10 :.1}L,30:8955" #( UTILITIES MENU #2SCR=1:1000:8,3;"1 Start a new file";10 ,3;"2 Load a file";12 ,3;"3 Save a file";14,3;"4 You think of ";:B$=S$:2400` :AN=0"a ";:9025A# #<"an "; #AS$<10 S$:9030F# #B:15,8;S$ #FH16,3;"5 I think of ";:AN=0"a ";:9045U# #P"an "; #US$<10 S$:9050Z# #V17,8;S$ #Zb18,3;"6 Edit the file";20,3;"7 End";#1;"Which (1-7) ?" #dc0:X$=:.1}L,30:X$<"1"X$>"7".1}L,30:.1}L,10 :9060d# #nXX=(X$):100d #x #Guess an item #6:scr=1:1000:ta=11 -(s$)/2 $%8,ta;"What's my ";s$ $q(1)=110 ,4;"I do not know enough";12 ,4;e$;14,4;"to play yet.":1:500:6000p $;PP=(*Q(1))+1:PO=PP:PP=19240$ $"^XJ=2:AA=PP:YN=(*2):YN=1A$=Y$(PP):C$(1)=(PP)+"Y":9260,$ $'"A$=N$(PP):C$(1)=(PP)+"N" $,)d$=a$:9700%:a$=d$:PP=PP-1 $1>Y(PP)=AAC$(XJ)=(PP)+"Y":XJ=XJ+1:AA=PP:9275;$ $62N(PP)=AAC$(XJ)=(PP)+"N":XJ=XJ+1:AA=PP $;PP=19285E$ $@ 9260,$ $Evxj=xj-1:D$=C$(XJ):9700%:B$=D$:WW=b$((b$)-1):11 ,3;" " $JD$=Q$(WW):9700%:Q$(WW)=D$:10 ,3;"If you asked";11 ,3;D$;" ?";13 ,3;"What would your guess be ?";12 ,3;"The answer would be " $T8B$(B$)="Y"12 ,23;"Yes":9310^$ $Y12 ,23;"No " $^]G$:g$=0űg$>239990':.1}L,30:.1}L,10 :9310^$ $`W$=G$:1240:G$=W$ $c/d$=G$:8900":G$=H$:g$>a$9320h$ $d%G$=A$(̱g$)9400$:9335w$ $h$XJ=19450$:9335w$ $m]G$A$15,3;"No it's not ";:B$=G$:2400` :AN=1"an ";:9328p$ $o"a "; $pg$<13 g$:9330r$ $q16,3;g$ $rx200:15,3;" ";16,3;" ":9285E$ $w 6000p $:1000: $%8,ta;"What's my ";s$ $r10 ,3;"WELL DONE !";12 ,3;"It was ";:b$=a$:2400` :an=1"an ":9427$ $"a "; $14,3;a$ $i=1200:i: $3:1000:8,ta;"What's my ";s$ $10 ,3;"SORRY !";12 ,3;"The answer was ";:b$=a$:2400` :an=1"an ";14,3;a$:9465$ $"a ";14,3;a$ $i=1300,:i: % %5H$="":I=D$1-1:D$(II)=32 I % D$=D$(I): &!:10 ,8;"GOODBYE": &(8,9 ;"EDIT THE FILE": 'b16,4:0,116t:226,0:0,-116t:-226,0: 'A$:i=1PO:C$(i):i 2