EXTENDED CPC DSK File Disk-Info CPDRead v3.24(Track-Info  N K!`쇅o0$~#fo*9{3nsx!6&&AIrw}0=!(=! (=! ( =!(!^#V 4!( _N(Y *"9s31)![yS5";{2p!"72u2s2v!)K!`쇅o0$~#fo*9{3ezjo6!!> :> O:1y  !04 5 5 60 >^:@̓:E_ y > ::0 ͜  >#:3:0!/> :~$#d:02/*5N# ^ ^ 8x(:021͡x(#~d:1(!021͔!15 ( :/!005͔80 ̓#wdx p> :/*y(  : !q> 27*5~(~!#8 >2=>#+~w:*O|^#VSi#"L##"N##"P##R*T>ɯ*Nw#w*Pw#w<2m!"*#"*aR0(&:2 ;ͪ:mOͤ2mͤN!~#<|ͯ:=(>![J'Ͳ(*Ͳ(*<<"{"!{N#F*P^#V*N~#foyx0 *ZR+*Z8 yx8#*g"+DM*Ns#r*Ps#rR"-DM[iz(N!!\N:y G>O:x (O! ^#V?_"{|:\*{)= "}:]O:yo"{!:^2x:2w:2y:o O:y2:w2:*<=<:*<=!*F;}!F͓*a#*Ls#r ~! ˾`iͤ"!*R:o$ɯ2[*L{#z6r+s*[eR*R#[V* ( 6w ! &;LͪͯSJKJKR$y<_W888*X ~ ͱ w& N#Fy(*_B#2*go"F"H͠:p!*:p2**H;EK_888*X6# x [c*Xs#r*L6#6/("&>(:) #~$ =27C!Hyw#xw:^/GyO >2n!rq/(S(60D&:rOy($?(x ( ( N͞ # :27!n~0 w(|27j ͯl&6͓ͽPYy( ͱ0*_{z0BKͱ00>2~#+w#w+2722:ͱ& !T:0>#$T TATUNG/XtalDOS 1.31 (C) 1983 198!"hů;  COPYRIGHT (C) 1984, Xtal RESEARCH | > _2<<ͱyNo Fil 7ȷ!+#N8#z(##~ &G!()%A䇇!=:=2a{_͎~˿͖#(\ i!F#x(~pww! ";:=_:>!=(=~͎0͖| =_.:;<> !~Ʌo$&2;ø-!2>[S( /G:(:=p̈́#6S #~?  x. (#* 6?w(#6 IRRAISPOADAVEENSWOOSOCKNLOCKRIVE!N#~( #O~8( Xɯ21y_C y2=͸: 1͊ 2=&!!S~#foXGXl-:> g! ~0 0#Wx0Sx8JG ~ @# x&o'd }>B<0  <=0Öͱ͎*~ ( (͖#|?+-;K͸!6#~  6?#62F###^#VSD!"B!(6? :=_ͺ(͍x͠ ͎*B|k Size,[D|k Free,|k Tota:= =!o ~ ~##( [BSB~ : | ~> (>* >. :FG)æ͖~#͖-!"@ͺ!@4Fͱ͠+\ :A |_A >Y2AFY !\w w ~ ( | Unlock(Y/N)Y \Ϳ\<( | Erase!@+& ' ( S Sü (S [!&ͥ(<͎!?6!?~8 64!~͖=yRead Errom ,2ͺ(Q[T 4O .#"!,1 G!>~(p p,ͱ yFile Exist&%͎+l&ͦ| Block(sͥ(%! R8yMem Ful= m 2=i͸: :>(k=% 6C#6O#6M%ͱ*-!>~2>.~2,2<\!!~(#x2͎ \1i͸ͱ-: !>+Track-Info  N  '# ! #  8 w ~>2kÐ!751 !F6ͱp!w# 2C{!ɯ2kj!~<w( G:^!k(  !4~(!ͱ :l<(Bj( ͐͞Ù j>2o>2l͐!w8 !p2y:7 i(u͢|ç>Ù>>2o2l!͐0i 4?2q( _DMD| >!6Ù"{!:qO s#r:7u:o== 5y== .*RWw#ͪ*}"{s*{:]G# "{ͤs:y!w8w4!˾ :o ͧp!7~ =2y6ç2o!~~#~O~G#n,-. L2!y !x(/.:7<('!q##p͘:7< . (B.:7<(Ù>2}27jN! ~态O>G~G!~G}!ͯ!6#6#6&o_y#x#{8s+p+qͽ! oq#p#w*5$>2v>2s!~=2p0:*2t~2uw:)w~?( :?1ͱͽ*R[J ͯ:2(& ͽ :nÙ*H:*Ù*X*F*T"7:p :)Ù2)*5}/_|/*HW}_*F"H}o|g"F:s(!6:u( w:t2p:v( [5!$*;*7}D\À47;?CIFPMSVYϚϜyϞyϟyϠϡ϶ϷϸϷϹϺϻ1!"Ͽ:!>1#$:E0> H>`Iϛȯ=ɯ!!O:O2!"!"S!"0"1!GOϤj~8w!(^?W Track-Info  N t!+#N͗ &!G#7(w#06*DM~#+R`i ??!9~#N#F#`iz(R B͖0 BBͯBK{*GRüG*I r TQOIWY!'{0_#z0W*T]~####GORs#r^TQ2<:< Q/2;:;/g&Iͪ &͜&s#r#ͪ &!i͘!*yͪ(I_Gx(IìT6 ~ <o<g/[E*GR*|U?n~$ eͩ((&w G^TͶG>26&8 %4~ !=~7X+6 W~$z ͩ>Ͷ*}w&w TOxGP!f6t~$: #* <(*8`Q͜) & (s#rD{8400s)  g+%Q21:1 Q25:5gS3!3~0A x` A`~!.8#Gyy  D207!.V(ˆ8!( !6#6é  {2P*Q"(T!~+~#w T{ *M&* {<(*8 :( ͸ Error*Q|<m:o&:(**+"!6#6*{ *W~ #####*Q3ñ {KR+͸Size:go"202P͊ *M&͸ReadR&!!"Q>]͗&8ͩ(`xG ͩ>8ʸ &0*ARPYSA(!KA ͝"A*++++͠]l [GKA*ER{CGSE*C "C*E[GR*AKG[EB{"G[͇+>~  G"2 U &O 08<8k~ >xc?>(] [ wN#~ [n O#(( y( Hy( # :( M(j‰~(&(# ~(0ډ:8 AډG҉# P #>2?ͪS_(,3ͪ[(͜,(+0ͪ( +S_">N#F#x(T| +:? %&(B%+!.F( N( &ë*+ ++^#V# R&[+( [_͖8P> &~" &#~ȸ#(+#<(%=n8[n 8((~#?[ <_͸>2[+"W!*Q|<( "[*W"]ʈ*w#w#"A*+w"W*I"G"i*A"C"EQ{K!o"mog"]2gs*W"Wͽ *+͢ ͋ ڟ (=)|(*+"(,[M(3+ͩ[+(+DBK"W*O͖8*A[+ ͖ڼ*MC+1}SMKK{`i[K"KR[9"9B"Iͫ ;*Q>3`͆*QR#A>`i+"W[ *W[ "QÄ( (Q~G(͡+K x a,(Oͩ(¹Gy!(!p#pa#s#rͳ͡~Sk:f͜*kN (&͋([nKn~ø͵ɯ͋<s#r ͡(ͳ͑͡~DMW ^^#V͖+~#N#F#N#F+++N ͪ͜¹ :Dq#p͡XBAS OMzBACKUP OM COPY OM( LOGO OM LOGO OMLOGO OM~ !"#$INTRO BS%&DEMO BS'(CLOCK BS)*EINSTEINBSH+,-./MASTMINDBS01OTHELLO BS22345KEYBOARDBS86789HANGMAN BS_:;<=>?SNAKES BS@@ABCPICPEN BS_DEFGHIDICTIONHATJDICTIONEATKSKETCH OG#LMNQUIZ OG!OPQtrev XBSRDOG XBSSDOG2 XBSTF+=+>G>i͆~)|}~,~#¹#~ (:0?<=~˿&#(##~#fo~a{_ͩ?~A[?!0~q20͸ in20Track-Info  N >2gG͹:fij"W[¶~#ͩ+~#͗ <|Ep#wiͦ͵͗͗(SQ`ih*W~, cͩ Ã>2g2 [  ;̈́*Q͆͡r͔̓~p> ͔ͩ̓Q3*k3l "W~:(¹#~#z #^#VSQͩ s(`2 Dҹ[O N#Féͩրڹ[̓~(͡s+Q(ͩڟ ͈[( `>PYҸ SU*]|͋[[SQ:yHG~ȸ#" ~#%'" ͡;>͑&w :1w*U2͜ͳ~ :`:1(: w͕&w :f : #~ͩWG"(:1G+ 2fͩc N +ͩ(G:1 ͪ :g(͸Extra ignoreR&̈́ #~##^#VSSͩ#ͪ( ;(ͩ͜"+ͩR&#$'qo([@(;(`,(*͜:f !*:6:.gI&͸*N~, N22:2W:6/0N G͑+ͩz&[}8#!0[[:.<(͸͉ I&`i͜&ú S[Sa,(`S[,aSa[[*a"[t*!ê[͢ [[>8[a>(`i͖DM*ABSAS[b[[>C[a>(`iw#w*+"]*N#Fx(9#^#V+++["*]AB(9DM[+*[A͖( 6+"*+"͢ È>#[͢ *[[a*^#V+z( 0*+͢0J18ͪ03`0'R͉"]~# yp*]+ͩ8, #*[[^#Vz(+#s#r}͢ È*[[a*DM~#+R`i ??S7#(+s~#"W( :(~#Ⱥ BK*A_W"A{*U "U*Ss#r*͖8 ""SN#FCU###[AÖ!{w#6#s#r+"P#~ (( "̩#y͹{*m">2f͸"mR~[E*GOB͖8"G#ʼ *i>2h[G͖0*I"G!"i*E!o[m͖T B*A[C͖( ###~#ͤ[E͖(H##͗ 0"aN #[a͖(7~##^#V#зDM*GR`i͖`i|+F+N++n& PY+DM*G͠q#p`i+C_+[i͖"i*͉~*ͶUT[}<<!~##N#Fo,- ͉*nPYN*G͖ G "G*m+F+N++͖"mgNW2f~g̓##^#V͒+++F>ͶT*}w͑O~8x##F#fh DM͹oEU~D)I͑=O~GC͑C̓_Fr~c p͆!N~##N#F͹oE:'ͶT!(+N<*KB = [}ñ<~,> N(DG͑Ͷ|ͻ}0:8͘͝h&I͑{2$%7}Ͷ( = ͝x<Ͷbk͇Ã̓ͩ̓͜QD:ͩ̓͜6z ͪ{+ͩ!R8bk)))0_8͜>G:f ͡(+;"Y*YxxԆ~}80Wڹ"aͩz <"a~t _:f={_!xV#z`ĆCJ͇QXN#F#*a!::fz_2fͩc 0It(u(1&(.c "(LG>o*=x8Cָ0L͘Ñ͑Æ}͟*YdÆͳ":f(̩F#~iͩڹO*=OͩyO0'I8͉͘͜*38͘dwK N#fi7͆<ͬ<y8 Ox OxOxAiZ+͆͟<{/Gz/ië`=y>͋!2fQ~##N#FU͗Wzzد< #(?\ ͗ ͗!dx:ʬ0 D͇ͬgj!J0K#4(c.}@G~_#~W#~OVhcGy JTeox 2) x\E(!w0x!4F#~怩Oì 4z< ~_#~W#~O!~/woG}_}W}O8CZQ o-͓^[QD!~5pͦ&!͝!ͦ͋1r!Q.͎PY!!!~#(.gy0 yщO-| CZQO͇ ͬQ.͎44+N+V+^AOW_2exRG:e?02e7y<=#):e2ey !5 _x(B}!Gxƀww+͇&͇ͣwQYͦQ/͔x8 Gͦ!4>!~7w?##wy7Ox(H!ZQy!y"(#x+y+z+{>go))0H 0% z::/j|4V͇!> ͩQx(<y͔2|""܂d͓͇8;:ƀ!ͣ͘d!JQd:8 QY&!! !: ͇͇ͬ$!: ͇͘Iͬ&͇ͣ:8@ͣ!!B ͘d!% ͇͔͇~#ͩ=͗ͦ6z(S!!ͩ(D_!O ͗_!O ͔͘{YOO6+F6_  !!͵[z!!͗5Jʙ9v" GSљ e͘w>hFhiuhV"vE8@.tpO.wnz*|P~ J;xn{/|t1}=Z}~L~ld&X4#]IIͩ 8))))oê&(-(+(+GW_/Oͩ8G.((E 'ͩ! u-t++ͩ88 _ ({ < dWxG0͋{0_0 ? 8?>Track-Info  N  w +¹#6 ɯ  ʹ.: ASCXBSOBJ6$(~ S=++ô+z,,ý5ý5H7Q7s7ó7766ä88/8u55;55> :;9 :g<<5<+ɷG(,  >  88͵"Ϟ+55555Ϛ{K+͢ *###8SJϾ!"8!";"".!+!.,0>(v,͸5F+=#Q88Ç#QG Äͪ(Q(( ¹>>> &>>(> 2'S)"Q x 89,O(QGyOw/GyOy{z_WG/CSɯ>m/<J/Çra/͡r**a/B-2ͪ-ɯw/D!d-o0$    ̓͜QY&͕6SG/CS͇̓͜6S͑/( ̓[K*ͬ6S2 .B-͑/( .͜ .BKBK: .̓Q0 !˾>2 ."V/m/=2:9(Ow/s 29z29Q&o))) ͜͜͜͝.(O͜.( ( !QDã,(WQ;=/͜G/>0! 0E.RM0 $ y0PY,,˺zw/WW{w/_,ͩ>Q; (=/> DOS/P/̓͜:DG/CSa/ͪ(r(͕/( Qͪ͜,(2Q͜͜͝x(00~ # ͩ;{>s > &͸{0&͸: 0& ( (R&{8WX; (@( B(.8 l0 # M> ;RY l0{ +  DM(QDG>L+{zg>Ͷ!͡~͜ϼ͝xD0 DQDD2a4:a4DgQD3w#6#w#6#wI 0ͪI0I!-41Ĝ!>41Ĝ!O412`4!-41!>4>1!O4>1:`4(3:a4G> !-4.2!>4>.2!O4>.2= ͽ58 Ͻp 6ͪ(,( ͜͝ ^VF 2srp ê2c4~(5"͠26 w ~^VGͩ2srp>2`42c4~(Z~(T~ (M4 4 F n f )))~ ())))~2~͗2~F~͗2 ~͗2ݾ 34 >= ɼ͠2p >w w >2b463.(l=(l-(l+(l'(lVʝ3b!4( #!3 ! 463@38|(:c4O}3 |3:d432d43:d432d4N (3>> >>>ë2(R(!X(A?O ~#fo:b4=(<!R> =w>2b4( :30 8~w!#4o0$~=w(*:3083~3#~w#~w#~w#~wî2y ~ :c4G!e4o$:c4<= M 0 aw 0 h a      &BKIͪ &BK͜&{zͪ #&BKÇ#&BKoÍ#̓{5Ð#̓e`.#&~=!Q6-!6 :.o(#"c!6#60!dE!:0  *͖ђ>N"![cOxx 00  z">.(Oxv"+:0 #+~0(~.(#6>"6E#:6+g"6-D#/ 0:p#w(0<  (p>0:0 >8<[7%+:(X#{26I+w$S7"9 8*9w##:( X#w$L+*K6 T]K) !:(G6#:'_> L+:> L+͓$<( wy#N W{ :'_S#z*)W:'_RDM*KG> :(O!~(= T]#w # ͓$<*9:(=*KK) +=(:'OBR:'G> ~L+#͖8!+z#0x=84#6w$$7 G:==x DM͓$ :(O Pw$Qw$+~ ͖ +#RyDMx( ~ # !(:' OB=R0< JP:'_2[K:8!A#N ȹ0>%&[7 (" 8#0#R0:'= ͖#"$W"[:0O (6*+%R&U+[7#͖0#~&I&͓$P"#͖0I&#͓$6#6#0>&R0`iR(BK͝% > L+X# ͝%͖# ""PY+ #yN&͖8W:(:'_"+%U+I&U+!.N654^#V#N#y(N#fiN ( #^#V# %!6%~+ 84 :.> 0~!3R&0#0DGI&& ̂&g&> :6> &:?(:.w> :;(G x :5=!68:<G'>(>?*:.<ʭ$%&w%|+ 8:(~#&!.^(0!w7 !@45''2>:@!' :?!'(*N#_~#foͩ0-c T*!? !!. *Qͳ:f(!r8(^% {(w%W(!? !.ˎ!@6rz('v+ͪ;ʩ'+s+!((wj+!($~g+8(~!~6%< *7@+(^$4${:<͗!f :hȯ2hr#~(#^#V)(#=!()=)!`)^+͋>22@ë*M[Om+&*[Gm+#"A])( =(*!`)a+!?~6W w)++p+*[Ap+)>2^+8g+87+8~#()ùF* !: x(͜>2gͳ͉bk#"c~'>ͽ! q)ͪ+s&r'*!* )^+*c)a+(ͳ͉)'ͪ͜[A*C+͖8=)#~˾+0%~)w# *7+~&ݶ' GN$ >G6#j+d+!"?!.7ɯw#w#w#wQ!%0 y+2-6#ͪ  ͕̓͜O!:- w (8/G :( :-<x w**#6 #~?  y!'+ # # x !-+22x2.  +(#* 6?Track-Info  N ,> N(DG͑)5L.5M>0#$ "#F# S# " C#,,#$L% %%3%B%*%$$ $%% %%%% %%  O!5s5*͢58ʯ7͟52=&{57G:/Gx( ͢5(͜͝x(¹'¹6(/6!L8w!w"w#!!"!ͤ7L8L8L8< F7+3+ 8ͤ7!L8<*73+ͤ7"L8 8 7!L87ȷ7+<*͡7"4!4"4#!^#Vz(r+s!<=()%_:%ݾ7* 0>*͗8>.&~#&͡7N&F'2 0)j u$|ݾ! {ݾ" zݾ#(y8t!s"r#77*888"reakextyntaxeturnatatyvflem Fullranchangeimensionivisiontack Fullypemdtr Ovfltr Complexontn Defnperandad Datand of Textilerive Selectile Typeo Fileile Existsile Lockedisc Lockedisc Seekisc Fullir Fulley Defnhape Defnrite Protect{PC(TEPAB(OHENުODNDRORUTOHAINLEARLOSELSONTREATEATAEFELIMOKERIVELSENDOROSUBOTOOLDFNPUTETISTOADGEOSEWEXTFFNPENUTOKEOPRINTEADEMENUMNPLOTESTOREETURNUNAVELOTTOPWAPERIFYAITMTPPENDIRRAOCKENNLOCKUSICALLOMULLTREPPEEDIDTHONEI$EMPOOICESGBSSCTNHR$OSEEKVALXPEX$NPNTENNOGEEKOINTOSNDCRN$GNINQRTR$ANALEFT$ID$IGHT$RRRLOFNNCHBDUL$OTIIZERAWCOLCOLCOLPRITEAGHAPERIGINLLIPSEOSAD(EG(OLYILLPOKEPEEK(DOKEDEEK(EEPIN$(STEYDC(TN(SW-,,,..h.,-=44|-+.4444u04+/4,L,5+  )a,m) H#*r v .2 W F(+   y)y8 p,R (,e f(mJ6x6@76786E1_')0010kI$1 000` J_-6`l;#v * !+/bk6*+2-+"O"M[)R"K[+R"I͗ +͸TATUNG/Xtal BASIC 4.2 (C) 1983 1984 !\ ~ y> 2]ͭ*=)[|( *.,"0r͏)ILLPOKEPEEK(DOKEDEEK(EEPIN$(STEYDC(TN(SW-,,,..h.,-=44|-+.4444u04+/4,L,5+  )a,m) H#*r v .2 W F(+   y)y8 p,R (,e f(mJ6x6@76786E1_')0010kI$1 1 EINSTEIN DISC BACKUP & FORMAT V1.2 (C) 1984 Xtal 1 Press 'B' for BACKUP or 'F' for FORMAT or 'X' to exit Which (B/F/X)ϜϞ_XB( Fʩ>Ϟ1 BACKUP DISC Sourcͯ02q02Destinatioͯ02r02Source drive 0, Destination drive 0, Z2sPut in SOURC&:sO:q!Ϥ:r Put in DESTINATIO&!ϥ!!Ϥ G# R :s 2s(0/ Disc Backed up -- O͓Yʫ"ë4ë Unformatted -- FORMAT first and then retry BACKUP : Verify ErroUDisc::V=("=(,=(6=( No Driv2Not Read%I/O ErroProtecte No SectoϧϽPress 'X' to restart>1 FORMAT DISC Ensure that disc with desired system tracks is in drive:}0ϞZ!0Ϥ Ok -- Formaͯ02P2r02@Format drive 0 Z2V ;O Already Formatted Continue anyway (Y/N)>Yy(501 0 1 2 3 ϧ4é{>Ϯ,H !bC !g!>Ϯ !N  ! !!&k!&n#!!!N! !!!!!!N,!q!N>>FϞ{(ϧS6':r!0ϥXϤ(# h x V:r!0DϤ>6 C# >VϞy( ϯ Disc Formatted and Verified -- O͓Y"2V> disc and press ENTERϜ 8Ϟϧ@_Xϧ Press ENTER to continue or 'X' to abando> ϧ More (Y/N)>YN Drive (0-3 or X)>0Invalid Drive No. ϯGw>x:P!^o0$~#  0123456780 0}%8z <z :PO!X  ϧS6':r!0ϥXϤ(# h x V:r!0DϤ>6 C# >VϞy( ϯ Disc Formatted and Verified -- O͓Y"2V> disc and press ENTERϜ 8Ϟϧ@_Xϧ Press ENTER to continue or 'X' to abando> ϧ More (Y/N)>YN Drive (0-3 or X)>0Invalid Drive No. ϯGw>x:P!^o0Track-Info  N 6<2g:($ 0 2>2i> :!w:hwO! ~2 *& :w>!:!h 4ɯw!4~!o> 0 & ~i 2^ S2d!6+6 2: 0 2 z :2 !6ɯ2!w#2e!gw#w#w2 (::*   ^ ::p :: (*#~0<2 ^ (  !5!6: >!X [# !6^  !5y2!~6:. !^ (: :*    !5!6: :k<2*6 6:_z 0j&M {>=!4N* :w?!d6!6?: :^ A28: ^ :S(Q :<2^ ( ^ 9^ 02 8!6&^ 02 0*&)DM)) DM*& !s*& :w: >!:2 !6>'د!4 !"$>>#Ͳ 2:t0 [ *R:!62 2:(1! 6 #End of File, Ctrl-Z>ȯ2 !6Y2 2(:>>b"Y2:( :(5YK!(:>Я!~6%!~6*}2}o":*K&":>Ͳ 2 !6* & :w! 4~O:0  844K!wYYo203 : : 8N ! ~> > :* &6$%Error, Press Ctrl-Z to stop l)! 2u Lg>2!""%!"~v8̓:/:>8x82@! 2t*l" :D:T!"p@*nR!0[l*n"n)l&+!js*R< "p.<"l:!l :2ͨ:2"!6#6>!8,n& ~(:((( ((2!4 :0#~   * *n":ͨ:!0:w6:( !4i:! 28(b:0X:8GLocked, Overwrite (Y/N)i Y(**NOT OVERWRITTEN* L!˾uL! k*#|!"~ͼ!4F\D 8H_!22!v:/!0F;: _A >Y2FY ! Copie:( & verifie!>  N} ,:e8)!:k0~=2rɯ!:k0~=2sz : !r:s02:d !w #>2͂ !~T #~O :2͂ :îCOPY V1.3 (C) 1984, CRYSTAL RESEARCH$$$ XEC =.:,<>_[] INPKBDUI1UI2OUTLPTPRNLSTUO1UO2VDUSRLAUXUC1CONNULEOFDisc Read Error$Disc Write Error$Verify Error$Aborted$Invalid Format$Invalid Option$Invalid User No.$Record Too Long$Invalid Digit$Checksum Error$HEX$$$$No Directory Space$No File$COM$Start Not Found$Quit Not Found$Cannot Close Output File$Unrecognised Destination$Cannot Write$Cannot Read$1>!DM:2z2p2k1>ͨ:2go"2!w+w+w!6#w!aw#6: ͬ!6: :k2ǯ!sw!rw!w+wv͂ : %:=2r;(D :d v!# :d; ?2d "!v!8!w 6?#>2d\!v! z : !6v͂ :8:d 2u: "!6:8 :<2͂ !~T #~O :2͂ 2t: :d !6: :8?:!tw:<2:  < 3:!u0>2: >2!~ 6!~ 6iv͂ : :_2:c  y_!c4 05 6~#˿(  _Ϳv ::_ !"$G!()%>  %̓>DO!" ~!6:j8;* [pT( * "[p6:j2 * " !4!" Ã:*)|=2)͖!6:8(* "Ϳ_*"!4 :!"0Tͼ!6:89͌*#" * C #*"!4_!":s2@c:(:(Insert sourc!r3:(#: Insert destinatio>!s\<~2FwO02*r}> =22 disc in 0::rÛ2 8 !a4:(:2K! ^#V  $-)49[n*R:* :w*#";!6%!6 !6 !60!6!6:_:2y2 : :͝,:a2!:82!:w!~(5> ͝: !a6ͣ :( 0O2:=2!~'w+~'w+~'w~͚#~͚#~͚: :I I I>!w:0: :09: (2:!w(~ 6!6:2K! ÿ ! '  ! ! ! ! ! ! !   . 3 [l* R[ *p~2#"  >ɯ!g05+N! ~2!f4{ 2:($ 0!~2f6!h~Track-Info  N ִ!"!"""!ؑoDM|(!""s`iͪ(< >APYڊ(/U͑JDE(-g*Ք*>ԋ(V`i+*͔"͔*>PY͞#"ՔL*_*>`i+lC! 9N#F! 9~# ZCx V́f!9~#(!`im! 9^#V+! 9^#V+`if͘A`im! 9^#V+!ßBJTDMۊ(`i/U*K!@͜L!U͜LKt!DM *͔#"͔`i`i*Քԋ(*͔^! 9^#Vr*͔sf!JDM*JnJ `i*J ! fnJøK*_|(*_E( *_q5*_͑5*_| /Ug*Ք+"Ք!9^#V*͔"͔Lt*Ք|/U*_q5!9N#F`imfDM-`if^!A"͔s*_\E(g*_͂*͔~ /U!A"͔!"Ք!"Ǔ!A"͔!"Ǔ*͔#"͔*͔^Track-Info  N PUPDPXPEͨJ=LN! 9N#F!9^#V`iÊ(`i!9^#V#*MKi !EJͿ€u(!EԁͿBi( ͸K!Eԁ/UͨJFL͛J*_"a*a| V*af͘A͘A\E A;J(A0/U*am"a͎ͮîAEͮTDM!9~#foۊ PY!ڊ(/U`i!ԁ!ԁ}n!9!ԁni J̀nøKi nZmòmi io!9øKi JnøKo0o0n0n;0m)U^#V2Y/pWScC!L͗m;0zm)]^#V2Y͐m*͞#;0lp)c^#V2Yͅp0!LFSSSTSWINDOWWRAPFENCEi pi ÈͧnEͧni *ʑMK͞møKEni <møK͎͘*am"a*"iAq5*U!Aͽ m?*W!Aͽ Ͳm+*Y!Aͽ m*[!Aͽ m/U*imøKi }n!9øKi oJ}n!9øKi Jo}n!9øKi !p!MoFӂ!M!EoFӂ!MԁFͯ͑!Ɓͯ́AZFӂ!Eԁ!Ɓ`(!MԁͿAڂ!MԁK*ӔWSOLͩlKOLDMOL͜løK^KDMOL`isøK*̑MK /U͐mDMFL*͞#́mzmͪ(F͐m`iڊ(͐m+cx͐m*ڊ(]ll͐m`iۊ( `i+͐mcxøKzmͪ]lhm*"*"]l*ȑ| ]lqm3 _m3 *"*"zmͪ(͐m!zmͶ zmzmͪi =p]la *+;0*+;0!L=TDM*+=T*mløKJ́AFͯT*ƑĊ($*Ƒ͖=LFi(=LspøK/U!9^#V!*!*!Q!!9^#V!*!9^#V!*öZCH!%!9^#V!*DM`iͶ`i)))))!A*͔#"͔+^! ͪ *Ք#"Քʋ LA*_ʹEA!9^#V!*DM!9*͞j"oĊ(wW*"q?"!"i*q"g!"m*i*oÊ(!u*o͐#?"*i#"i!9^*g#"g+s*m|(!*i| ?"**o!u͗#͎"i*i|(*g^!ͪ( !"m!*i+"i*g^! ͪ(*g#"g͒"! *g#"g+^͒"*k5s*k#"kÊ(ͶV!*k5s*i(!R"!u*i͐#!uY$:j!"Ք*Ӕ}2@!@"͔LÝiͲL!o(!ͯ(`2lCnJN*_'6ͺføKͲLL%!u%!u3$ -Wv#I!"sN*s|(JA<øKͲLL%!u&ZC!ux$͎#QCQCͳ7!A͝87!A͝8ZC!:!A͝8@#øK͑J͒F *_*3Ͷ(/UcC͛J;)͸KN!ԑo͹CñPI!B*͘A*7Z!)BJA*M"_!"MK*_Z(!"Y"W͸KC!!ԑ̈́fA lA*_*+ͪ( !!ؑ̈́_XRøKK@fA m*!?BpG"W|(U*Wm"W *Wm"W*W|(:*Wf"YK *!"KU*K*_ͪ(͸KC!!ԑ̈́ËXfAA*ͪlA*Yf*Eͪ(GQK*Yf͒F(1*Yfq5*Ք|(͠(*A&"ͪ( 1A"K#*Yf*/ͪ(QKUK QQ*;0lCZC;;(A*ʹEAlC!"sͪ(!(!5"ϔ!!end*͔#"͔*Ք+"Ք!9N#FPY! ۊ(ͺf*cͪ(G*m|(3!uY$!"s*|( A+-*/;!1*! 9^) [] *є&)*Ҕ&|( *Ҕ&)ͪ(!*Ҕ&)!9N#FPY!0Ê( PY!9Ċ !!)(( !"הÄ+*є&"ͪ( !"הÄ+*є&:ͪ( !"הÄ+*є&.ͪ(B*(*ϔ#^j*( !"הÄ+*є&j*( !"הÄ+*є&-ͪ(iB*(d*ϔ#^j* *ϔ#^!.ͪ(*ϔ##^j*(!"ה.*ϔ#^!(ͪ *ϔ#^)(!!"!"ה!"הB(*Ք#"Ք7**є&\ͪ(ͅ+*є&͚fͅ+*є&j*ͅ+ (*cͪ(5*k5+++^! ͪ(#*k5+++!5"ϔ!"k*ϔ"͔!"Ք!"͐**ה,!"Քͅ+*є&*,7*(ͅ+͐+,͐+,*є&-ͪ(ͅ+͵+*є&.ͪ(ͅ+͵+*є&@Eͪ(#ͅ+*є&+ͪ *є&-ͪ(ͅ+͵+!ٔ*͔u7*(Å+͐+ͣ$,+,I,O,,,!}2Ҕ)( ͅ+!"ה!9N#F*הͶ(!*Ք"s*͔"u`i~(7*s+"s#| !`i^@*u#"u+^@Ͷ(!*sê*Ք+|(!!9^͋-!;͋-*הͪ(*͔^!9n&ͪ!!9N#FPY!ڊ(!-f`iZDMPY! ͐"w|(*wͮ-PY! 0f!9N#F`if^!ͪ(!!!9N#F*Ք"{*͔"}`imfDM`imDMx.`if"-"y*y#"y*yڊ(p*}^!\ͪ(*{ۊ(*}#"}*{+"{**y^"| *{ê*{+"{#| !*}#"}+^*Ͷ(!\.>.*{ê<"͘A<"*D<"*ͨD<*ͨD!*ͨD*f"!DM`iPY!ڊ/*Ք| !*s*͔^!Ê(x !*s*͔^!\ͪ(*ՔՋ(͠(*͔#"͔+^*PYs*Ք+"Ք| `iڊ!*PYsB/!hF͘AAhFAA*DA"2/.!AʹE͘A*˔)˓^#VAD*˔)˓s#r!9^#V! ʹE͘A!! 9ԁͯ(*d"|(!*;0*#͘A*;03!"́fi2*#"͟B͟B*| AhF" "AhF* D* m" A*ה|(&͂- !*הͪ(͠(*͔~U1P3ßBZC!3,(ZC`2́fA AÀ3̀3ßBend+*הͪ(͠(*הͶ(H<1ADM}F(͖K(ͪKTP3!"!"i2̀3͟B*| *!/H**!͘GA*͘GA*| 5!O4gͺfA defined!9^#V"mf"|(*-*f#^" *m"*|*f"*-DM`iPY!ڊ(R*PY^}2|! 9~#(,!5*&) *&)(*|(!\f*&fÍ4\[]; !9N#F*e|( }F !!dX4s! 9N#F!9E1! 9!9+g!9N#Fͯ6\E(E55!9N#Fx 6ͯ61<(`i*ͪ( *"*"`if"'63`imDM|(FE(!#6+gq5**/Ͷ("**=Ͷ(`if*1Ͷ(! NgÛ5ï6 . !9N#Fx( E(q5![Ng3ͯ6́f͑5!]Ng!9N#F͒F(!6+g5! Ng'6 "!"7((7(! NgJ7X7727*#ͪ(">7ETDMX7ͺf7( `ik(7( ! NgͺfJ7ͺfX7*| !*ffET*ê27*'ê*fmf*fmm!>7X4*m"!"*ͅ7QC*ͅ7*!ͅ7 AmAA(!9^#VAf/HAZC7QC77*7AA!9N#Fx́f`im7*`if\;ZC*:&[*|( <"ͱU*| M**ԋ((!*"DMͨDKA*#"f!=[i!!ؑ̈́ *DMm"!D*+"`iI need more memory to run LOGOI don't have any LOGO nodes left!9N#F!ͨD*D"*#"!"s?sC*Y@* @*@*@*@* @*U@*M@*=?*=mm@*_Ͷ(*_@*A͔>*ʋ!"!"*#"*ڊ*?*)˓^#VBK`imDMx(`if7A `i*)˓s#rz(9`im"|((*f7A( A*DM *mDAß>**͞"!"*#"**ڊ*))*DM7A(KA=!"*#"*ڊ*)˓^#VBK`imDMx(&`if"mm"|(*?*@!9N#F7AA`imDMf"A*|*fA*A*m"!9N#F`imDMx7ADE(N\E(A͟E(4`im"A*f"A*f"A*fAA?Aͤj(Ͱ@`if@*@f!@g!DM`i))*KA`i*ڊ(!!ؑ̈́Out of LOGO stack during garbage collection !! 9^#Vn&ls!9^#V^!j!! 9^#Vn&js*SdA*ͪ( !?B"U*SB*SB"S!9^#V*D*S*ͨD"S<"*Sm*SDMf"S=ADM*S"f"S*=`i!9^#V*SD!9N#F`i |ZC!9N#F`i |A*SDM!9~#fo+s#r#|( `ifDM`im*SDM!9~#fo+s#r#|( `ifDM! 9^#VD*SfDMm*SͨD*SD`i"S!9N#F! 9~#fo+s#r#|( `ifDM`i!9N#F`imTrack-Info  N          K RoS(NA**[pG"Ɩ| X*U͘A*[͘A*W͘A*Ɩm͘A!B*͘AQ*ƖfO*7Z!?B"W*Y!jB͸K*W|( *Wf"YM*7Z*|(!oS(̀SD5!M+g*_'6ͺf!)BJA"QAQ returns !ԑo͹CxSK(P*W|*Wf"Y*Wm Q*Ym ID*Yfͪ(9*DpG"[|(%*[f *[m(*[m"Wf"YͺiN* |(uDI(kÌS!N+gD'6!N+gA6F!o({ͺf! ͯ(i2 %*3͘A;!ԑo(aZ͹CLNJOMIn , *["_Q͸KͺiK*Yf"[EO*[| !"_QO*[\E(NO*[͒FO*[(N*Ք|(1͠(*A&"ͪ(LQ*A&:ͪ(L*_iQQ*[ G"Ȗ| M*O͘A*Y"OQ*Ȗ##^#Vr*O"QA"O!O~VNBad Symbol!ԑo͹C!9^#VP*|ͺf!9N#Fx *|̀S!P+gD5K(DNT\RoS D@UcĆf`imPA`if͟*|(̀S`if5!P+gA'6AEvaluating is OxS*Y͘A*_"Y͘AͺiK ͫPlCA"Y*Y͘A*_"Y͸KK xSRA"Y*W|*Wm"WK*Ym"Y*U!9~#foͶ*U| !]Q~V*UDMf=*Um"U=Short Alist!9N#F"ʖ| '͒F(*=G"ʖ| /X*ʖf"_*ʖm"_!9N#F`i*[Ͷ(!Q!9^#VrcC! 9^#Vr!9^#Vr! 9^#Vr!%RK!R!%R!ES*5ͰQ\RK!R!\R!b*7ͰQ!R!\R!*9ͰQ͗RK!S!R!$*;ͰQ !S!R!C*?ͰQ RK!S!R!*AͰQ !S!R!*CͰQ OK(!*Yf"[oS!9^#VNT!9N#FR*_DE*_T!9N#FR*_\EJ*_T*_A͐ WS!9~#(**"_*_öoSͪTͺfD͌D!DMD(͌D`i![Ngͮ-!S+g] !S!"YTurtle out of bounds!S!'YPrimitive not implemented!T!YNumber too big!;0!9^#V͘A!?T2Y)Yis a primitive!;0!oT2Y!9^#V͘A)YNot enough inputs to*OfNT!T!%Y) without (!&;0!T2Y*_X)YI don't know what to do with!);0!9^#V͘A!U2Y! 9^#VX!&U2Y!FYdoesn't likeas input*_*OfT!*;0*Q͘A!mU2Y!9^#V͘A!FYdidn't output to!1;0!9^#V2Y!U2Y)Yisn't a parameter!"!U!YI'm out of space!2;0!U2Y*Of͘A!V2Y!FYI can'twhile loading a file!;0!EV2Y*Of͘A!KV2Y!FYCan'tfrom the editor!iV! YCan't divide by zeroͺf!Vg!9^#V+g!w!!! LOGO system bug: !V!-YThe word is too long! ;0!V2YcC)YToo few items in!;0*_X!W2Y)Yis not TRUE or FALSE!;W! YI'm having trouble with the disk!jW! YDisk is full!W!.YMy edit buffer is full!W!ͱXalready exists!W!ͱXnot found!W!/YIf wants [ ]'s around instructions!#;0!X2Y*[͘A)YI don't know how tos!$;0! 9^#V͘A!RX2Y)Yhas no value!;0!tX2YcC)YI can't find catch for!;0!X2YcC)YCan't find label!9^#V;0!X2YcC! 9^#V2Y!FYFile!9N#FDE( < (*-DM͘A!9^#V;0! 9^#V2Y!FY!FY!9^#V͈<͘A:j*Ӕ<^^È^@_È^^\ˆ^Ï^Qcˆ^* #" ͠_È^^È^ͣ^È^:_È^^È^!DM!"Ж|c 4*Ж#"Ж+Ê({!!̈́* #" +^`is!`is͠_È^^\ bÈ^*1|(Ï^! `È^*͞`È^^\ ! `@_È^f`È^!\`È^^\ !!,bÈ^^\ !!͛aÈ^^\ **͞!͛aÈ^^\ **+!,bÈ^!DM `i^``i~(g*Ӕۊ( *Ӕ`{L!!^!R^^#V\!^^]!^]]!^!^]]]]u]`]U]]!^\\!^\\\\\\͝iø\͝ib͈c(f;cQc[c c(͕`ac(pc ͕`b!ͱc*ml!_͇iDM! ``i ۊ!9~#fo+s#r#|(Qc [c ?a**ml@_à_*)|*+|( b!Ng͎c(͈c( !!̈́`^;cbpc(!ͱc*+*+*+mld* "ì_*+||c(Y͈c T;c*+^! ͪ(c=͎c( bd^-* ~( * #" d**+ml! Di!Ngc;cbd!9N#Frbc( `i Ͷ(͕``i*+"sdcͬ_`i ͪ(͕`ac*DM^*)|(͎c(` ;c*+"^`!͞`Qc^**Ê('Qc apc c(!!Di!NgQc a^!9^#V`!9N#F*Track-Info  N          */|(!*Ӕͪ( $*Ӕͪ(- *Ӕͪ(!͝i!*Ӕͪ͝i*ɓ|( | !"ɓ*/|(*"*"͏^*"&O\B\:Ċ(`iöS!9N#F`ij( !PYlDM! 9^#V!j(`iZ`i/pn}2b*###͐"`*###Z͐"^j( *`͞"`*`BG"\o"Lo"N!PDM!PYDMPY!\ԋ({! ^#V">! ^#V"@*^*\#"\^͏q*L`is#r"B*^#*\#"\^͏q*N! s#r"D*b*D*B&w*bs1r*X">*Z"@*L"B*N"D*bs!9ԁaq*6͞":! 9ԁaq*4"8hvqo">o"@*8"B*:"D!! 9ԁ!!9ԁKvsms*s"dtDM*:*8v(a*B">*D"@*d),^#V!> ~#fos#r*8"B*:"D*d),^#V!B ~#fos#r*B"8*D":cs͋p m(*sq!"J"H"h!"F!"f*f#"fڊʣt!DM`iڊ(g`i))$^#V`i)*f))>^#V"jڊ(!*ft"h(`i))&^#V*jۊ(!*ft"ht*F| ?*@*>v 0*D*Bv !!9^#V*D*B*@*>y! 9*h! 9N#F!9^#V"PYڊ( `i*͞!_[c(rb*#"+^BKWaNg*#"+^Wa*#"!9N#F`i Ͷ(c(c*+#"+*)#")`i*#"+s`i ͪc! 9N#Fx(GQc B͇b({8pc !ͱc*+*Ê( `icbpc( `ic*#"Qc(͈c!9~#b]lcPY!ڊ^*͐!,bb! 9~#fo+s#rz( ͈c ;cb]l!9~#(** Ͷ(ͣ^c͇b{!!̈́*1|(!!d*͞DMڊ(!`i**͞ڊ*+|b*)+")*++"+*+"^*+"s*+#"+*)#")*^*#"+s*+*#"+s!"+*#"*ۊ!"*+"*+"^"+*^dpc c !!*^! ê* ^͚f*)d*ͪ(!ͱc*ͪ!*!9~#foĊ(*!**Ê(c!*" **Ê!(" d*"$* ""!d* "$*""!d*"Җ"*"ԖAd*Ԗ*Җml!ܑo*$~(3*$*"ͪ( **ͪ*"~(e{e*$^d#*"~9ff( f*"#""!d*$~(f(*"#""*#"f(*$#"$Jdc(4e("! Di!9~# f(Á<*#"!!Diff(fe(9fe({e͖eDMۊ(&`i*"""`i*$"$*PY*mlc*$#"$+^Sf*"#""ec*$#"$+^Sf*$"֖*""ؖ!DM`i*ؖ#"ؖ+^*֖^ͪ(#*PY*Ê *֖#"֖+^͚f `i*$^͚f*"^͚f*$^! ê*"^! ê**Ê( !!ܑ̈́fec! Sf*"#""**Ê(c( !!ܑ̈́!9^Ng*#"ۊ!"ͺi!9N#F`i ͪ x(!!*ۊf:<úf! Ng!9N#F*Ǔ|()*Ք#"Քʋ(ͶV`i*͔s!*͔#"͔sNga !9^#V+g!9N#F`i^͚f`i^f!9N#F*eͪ(-`i ͪ(́^#V`i)*n))>^#V͞"p|u*p͖!PY͞)*n))>^#V!PY͞)*n͞))>^#V͖͞!9^#V)`i))$^#V"r`i)*n))>^#V͖͞FͯFͯ'q!PY͞)*n))>~#fos#r*r`i)*n))>s#r`i)! 9~#fo"l*Hͪ(!"F*l*Jͪ(!"F*H"J*l"H*l*ͪ(*<| !!*ͪ(! 9^#V! 9^#Vv(ͶS!9ԁ!Ɓu(!9!ԁqԁӂ!9ԁͿ`(!9!ԁqԁڂ!9ԁ!9^#V#N#F**|8B8 *&R8!!"tv  y*t"tv {*t> x ;<2w x >2829>Ϟ!""!w~#w!>~ʥw~w"8 8@ ppLw:>Gw>2>"> x ͜{>!/xVww2K>Ϟ!9;y}x>2/x>+x!/xVw>!x=W>G͇x>Ϟɀ!>!>!9:/xax~!J4>(ax5!9:/xʅx~=W##~Gʅx>҂xG͇x:K!Kr>Ϟ4‘x2K!9:/xʶx~=2J##~=2K!9:/xx~O=2K##~xW&iy< &jy2JϞzx>Ϟ))))) !9;y!R;y"y|4y6y*y>‹y͖y:y=‘y:yʑy2y*y!R};:yW;y怲Ñyy͵y}O}W>W7¨yW²ɷʻy>^#V#^#V*y|}y |y29!9;y!R;y"!R";y"y>|z!9;yPR}Ez2y:y<2y=Šz{Bgz >W"y;;} "y>2y;ʚz [y R* R"*yR[R"6yK[Z{_WPYZ{OGѷRDM!){[RV{ ){B#{ٷB6yz[RV{ )E{RP{ ٷR6y){Rh{=i{Ϟ*!9;y!R |o&! DM! *|,!9~ϟ!9;y}8E|8o!9;y}B| ?=¾| **!"!" !F}~ϟ#(7+0yϟ#(  8>ϟ>@ϟ> ϟ"" AKSS| f!y}[i| ͺif!"ɓPlease turn on the printer!"ɓ!9N#F`i^͚f `i^}! }!9N#F| ͤi`i ͪ(! ,|,|͎*a|(*DM!p|øK!vJ!vƁ́ڂ!Ɓu(ͺi!!p|øK*MKN|WS*MK6|K*#"+)*ɕ^#V"ŕ*#"+)*ɕ^#V"Ǖ*j"s!9"ɕoo6w"ͪm}2̕|n}2˕*ͪ( mͪmͪ( ͗m*ͪ!"Õ"ooR**ÕͶ̓~*Ǖ*ŕ6w*ͪ(:*˕*Ǖ*ŕ&w*Ǖ*ŕ+R*Ǖ*ŕ#R!!!9*ԋ(wWLͲLi /pDM|(pͺ~x!p͜o!9K!9^#VS*ǕR"Kŕ[˕6w: D&w[*6w:( *R 6w:(R[R""~6w: *Õ)[ɕs#r#s#r*Õ##|g"Õ*~!9ԁ͑v!9ԁ͑v!9^#V#~#fox怷# ̀!!}!}!9^#V#~#fox~# !9~#fo0#'}!9^#V#^#V#N#F̀!9^#V#~#fox~k# \s#r#!9s#rgo^#V#^#Vs#r+|*w#@w#6#w¬#w·!*؁!*w#@w#6#w#6؅*~G#~@##~ "؅* V+^+V+^+V+^+V++~@_+~怳_*"*s#{@w#6#r#s#r#s#r#s#r#6***""*~w*#~»ï=ɯ<**ö#™ #ڕ™‚*~w* w#* w#**# /<+"" O _"! "X**+B Ks**w+a>w+ j#~>>w+>*w**+š **#O~̃Ê##Ѓ q#6#6#q q+ ~+ ~+!w#>@2!~w#/O!#Dya!4!5)Ó!5ʓ!~w#nO!#yaS* 6+6+w¤**#~ ~+Ԅ ~+!w#>@2!~w#0!#0$!5*  w+C͝ʻï͝ʯû͝ï͝ʻï͝û͝ʯû|ì|z/W{/_*p#zÅ6#6#sυ6#6#r#s#wυ]* ~+~w7+~w*#~T]#O_#+ * w#6#w#>GK+y>O~# ;DX@]Êy y!T]w+k6K*#6#w#6#*#6?#6>#w—#6*6#6]T#w´*###~*ۆ>#ʆ>~#ۆ*T]w#w#w#w*N#~]],G#o$~+y]*>w# ]y@6#6#6#6ç6#6#6#6çW*F#~dj!]Ҏ#ov$^+Vy]x]|/g}/o#]y™!çx!ç!@@ @GzH? ěT?F]cf>S#>c{Z=ֿzf=y0==%}<6{<_^Y&; oP;4$C;hIj:$_=ά3:VR8! 9^#V"ȗ!9ԁ!"ʗ*~^̀*ȗ6-#"ȗ͈ͿA *#~݈ĈŒ##~'̈݉Ϳ@`š݉*###~ *#~̈##~ ͯú*#~ ӈ*ʗ+)))ƁڂͿA Track-Info  N A9K4ǃ Z80 DR.LOGO, EINSTEIN VERSION 1.20 Logo Editor:^C to accept, to quit_ @CFIPUABhA@ k,ADBA #6AZ@w@,@ e@ۏ@O@`@2@#@( @,t4@0@59@9d@=@BA@F+@J@O@SXo@W@[@_7@d@h@l0@p9@t8@x/I@|{@@ى@@mv@'D@@y@@@$@@|@L$@q@!@@&@9@>@4@}@ @ɻ@s`@@ѳ@;@ֳ@@oP@ݳ@@@@]@@@4@[@ @@ @xp@c@?@F@eL@pQ@g@K@\@$@5@@@@`[@/@@A/u!͊*ʗ#"ʗ`i"̗>2Ηx,y3Sy/:2ΗS*ȗ60#6.#N60#=G"ȗ>O:ʗڈʈ*#~>0r##6*ȗw#x6.#"ȗV*ȗ+~0ʋ:Ηʣ~.ى#ى#6e#6+:͗:̗6-/<#d‰61#d ω ĉ0_>0w#s#6q!͊ï*#4 ^&)DM)) #wz++#w++~!@Ҋ!9~ ʻ ʻ ʻïûï!9~aQ{Q o&!9~Af[f o&|g}o^#V#DM!99`ir|z2З:ЗZ}}ɧR( !T]ɧR(!}T]|ҊRg?ozo&|芯Rgo|o&z2З:ЗZ|| /g}/o#z/W{/_DM!>))*#B9 ="}="}DM!>))R =J}}/o|/g#}|ʻï|g}o{_ʛ||7g}o{_ʛ)–}RBK^#VzË#yʽ###ë#x¸#~#foRg?oRgo{_ʛ|g}o勴|g}o!9ї!|*c-*їDM*ӗo&Ko&*ї*+++*ӗDM*՗~#ng)##~#foů2ח2ؗ2ٗog"ڗ͊!9N#F -›2חà+¡ 0Ќ:Ќq0o&͊ڂ:ٗʠ*ڗ+"ڗà.!ٗ~6à! e/ -2ؗ+ 0:0)T]))_:ؗ'|/g}/o#*ڗ"ڗ*ڗ|u}/`(! 9!9ԁÂ!9!9ԁ!9Ɓͯ! 9!9ԁͿA$cڂ!9ƁͯͿA;dGڂ!9ƁͯͿAV(H-ڂ!9ƁͯͿA)y+Sڂ!9ԁͿk͌=ͯͿ~F2ڂ!9ƁͯͿڂ!9ƁͯͿ S(qڂ!9ƁͯFͯ!9Ɓͯ!9ƁڂPY!ۊ(! 9!9ԁ̀! 9`i)))ܗԁqԁڂ! 9ԁͿ`( ! 9ԁ̀! 9ԁ!9ԁ!Ɓڂ!DM!r! 9ԁ!rԁ!Ɓ~(!r!ԁqԁӂ`i`ij(!r!ԁ!rƁӂ!rԁT"p͖!rƁN(*p))͚Y*p͖!rԁFӂ*p#))͚Fͯ*p#͖!rƁӂ*p))͚FͯFڂ`ij( !rԁ̀!rԁ!9r|!|#}o   ((' ͕Track-Info  N !!a͑!+!d͑!m!g͑!!j͑!:!p͑!y!w͑!!{͑!!͑!!͑!!͑!!͑!!͑!!͑!!͑!!͑!O!͑!!͑!!͑!!ó͑!!dz͑";!!ɳ͑"?!4!˳͑"A! !ͳ͑"C!!ϳ͑"7! !ѳ͑"5!!ӳ͑"9!!ճ͑!D!ݳ͑!ZTrack-Info  N !U}!͑!}!͑!!"͑!c!(͑"3!p!.͑!!4͑!!;͑!!@͑!!C͑"E!!I͑! >!O͑!!W͑!!a͑!!g͑!1!o͑!Y!u͑!!}͑asciibfblcharcountemptypequalpfirstfputitemlastlistlistplputmemberpnumberpsewordpwordpiecewhereuclcmakelocalnamepthinggpropplistglistppspproprempropprtyperqrcrlshowedallederallernerpopoallpotsponspopschangeferasefileedfdirloadsavedefaultdsetdcopyoncopyoffcatcherrorthrowdefinetextgolabelnodesrecycle.contentstracenotracewatchnowatchnoformat!C͈<"!H͈<"!N͈<"!"!"!"!S͈<"!X͈<"!!]͈<"#!b͈<"%!g͈<"'!l͈<"+!u͈<"G!|͈<"I!͈<"-TRUEFALSE.DEF.APV.FMT.SPC.REM.ENLTOPLEVELREDEFPERRACTan empty word!9N#F`i~(r`i"͔!"Ք*Ք#"Ք`i~(`i^! Ͷ(`i͋10!! ʹE*)A͘G! 9^#VA"_ G##s#r`i~(`iÛ*_* ! 9^#VʹE" <"'!l͈<"+!u͈<"G!|͈<"I!͈<"-TRUEFALSE.DEF.APV.FMT.SPC.REM.ENLTOPLEVELREDEFPERRACTan empty word!9N#F`i~(r`i"͔!"Ք*Ք#"Ք`i~(`i^! Ͷ(`i͋10!! ʹE*)A͘G! 9^#VA"_ G# ****************************# * *# * INTRODUCTION V 008 *# * *# **************************** By Nigel Deakin $ INTRO. Version date 14/6/84*8 copyright (c) 1984 Tatung (UK) Ltd.B1L: 4: K~0 r 15:K," ": K: START LINE 1=V Z s : 1000:Z~u1: : 1000: 1270: START LINE 2`j ** PSG SET UP FOR SOUNDFt0,&F8:1,8:2,&F8:3,4:4,&F8:5,2:8,&0F:9,&0F:10,&0F:12,255(~R~0:Y~0:X~0: ordered for max.speed ** DRAW EINSTEIN 141:C~0:7,&7E:2:S~158:B~180:VR~9:HR~9: 1280 ** DRAW EINSTEIN 22C~2:7,&7C:8:S~114:B~140:VR~14:HR~14: 1280 ** DRAW EINSTEIN 30C~4:7,&78:5:S~57:B~80:VR~20:HR~20: 1280 ** DRAW EINSTEIN 44C~0:1,1:0,&F8:15:S~3:B~3:VR~40:HR~26: 1280 1620: ** LOGO ** FINISH A~1 r 600:A' Z s 320: :4:: FINISH LINE ** DRAW EINSTEIN  CHAR~1 r 8T~BtVR:F~StHRF CHAR 1360,1410,1460,1!͑!`!͑!l!͑!Sp!͑!!͑![!͑!a!͑!g!͑!m!͑!m!͑!m!͑!m! ͑!x! ͑!!͑!!͑!!͑!!!͑!:!(͑! !/͑!X!:͑!s!?͑!!D͑!!G͑!6p!O͑!w !V͑!r~![͑!a~!b͑!:!j͑!~!o͑!C!t͑!P!x͑!e!}͑!q!͑!}!͑!- !͑! !͑!!͑!!͑!} !͑! !͑! !͑!|!͑!O}!´͑!!ƴ͑!!ɴ͑!!̴͑!!Ѵ͑coifoppauserepeatrunstopandnotorarctancosintquotientrandomremainderrerandomroundsin+-*/<=>shufflebkcleancsdotfencefdhthomeltpdpepurtsetbgsethsetpcsetpensetpossetscrunchsetxsetysttowardswindowwrappaddlebuttonpkeypwait.in.out.examine.deposittonesfstssetsplitssctcursorsetcursorgdumptfsfdotcfills!"!"Ǔ""/!"" "!}2(}2!}2є!"!"A<: HITD (A$)~13 s 1950#N (A$)&30 { (A$)}&39 s 1840#X (I~3 { I~6) z (A$)}5 s 1840b I~0 z (A$)}2 s 1840&l I~1 z (A$)}4 z (T$)~2 s 18403vT$~T$tA$:@17tI,12;A$;: I~It1: (T$)~6 s 1950 SKIP OVER SEPARATER I~2 { I~5 s I~It1:":";  1840  Z~1 s 280 : (17):: DRAW HOUR MARKERS I~0 r 11wx6 p x6X1%~48w(I):X2%~55w(I)(Y1%~48w1.312w(I):Y2%~55w1.312w(I) X1%,Y1% r X2%,Y2%,0 I I~2 r 38:@I,0;(255):II~2r38:@I,22;(255);:I- I~1r 22:@2,I;(255):@38,I;(255): I L~((T1$,2)) * (Lx2)}Lx2 s 1,1514@28,16;(AL$,2);":";(AL$,3,2);":";(AL$,2)> J~0 r 20:J H15,1R(\ Z s 320: : 4:: FINISH LINE )LE NAME 4 ZI>HR*** CHAIN PROGRAM ***\ f 999 p ZFLM$!z RETURN FROM CALLED PROGRAM8(&14);ZPRGN~u48& ZPRGN~21 { ZPRGN~53 s : 4:" ZPRGN 1 { ZPRGN }9 s 650  470 ZI~1 r ZPRGN ZM$,ZN$  ZI# 7:@ 7,ZSPtZPRGNu1;ZM$;ZN$;1 15,0:@9u(ZM$)x2,23;"NOW CHAINING ";ZM$;" 760: GET-REQUIRED-FILE-NME  840%*** GET-REQUIIRED-FILE-NAME ***   230  ZI~1 r ZPRGN%* ZFLM$: GET REQUIRED FI!!a͑!+!d͑!m!g͑!!j͑!:!p͑!y!w͑!!{͑!!͑!!͑!!͑!!͑!!͑!!͑!!͑!!͑!O!͑!!͑!!͑!!ó͑!!dz͑";!!ɳ͑"?!4!˳͑"A! !ͳ͑"C!!ϳ͑"7! !ѳ͑"5!!ӳ͑"9!!ճ͑!D!ݳ͑!Z% ******************************%* *% * ANALOGUE CLOCK V 009 *% * *% ****************************** By Mark St.J. Bailey $ CLOCK. Version date 18/6/84*8 copyright (c) 1984 Tatung (UK) Ltd.B3L: 4: K~ 0 r 15: K," ": K: START LINE 1=V Z s : 1000:Z~u1: : 1000: 2140: START LINE 2`AL$~"******"jt SET UP SCREEN~1 : 15,0 : 40#IND USER OF OPTIONTrack-Info  N savedefaultdsetdcopyoncopyoffcatcherrorthrowdefinetextgolabelnodesrecycle.contentstracenotracewatchnowatchnoformat!C͈<"!H͈<"!N͈<"!"!"!"!S͈<"!X͈<"!!]͈<"#!b͈<"%!g͈<"'!l͈<"+!u͈<"G!|͈<"I!͈<"-TRUEFALSE.DEF.APV.FMT.SPC.REM.ENLTOPLEVELREDEFPERRACTan empty word!9N#F`i~(r`i"͔!"Ք*Ք#"Ք`i~(`i^! Ͷ(`i͋10!! ʹE*)A͘G! 9^#VA"_ G##s#r`i~(`iÛ*_* ! 9^#VʹE" <"'!l͈<"+!u͈<"G!|͈<"I!͈<"-TRUEFALSE.DEF.APV.FMT.SPC.REM.ENLTOPLEVELREDEFPERRACTan empty word!9N#F`i~(r`i"͔!"Ք*Ք#"Ք`i~(`i^! Ͷ(`i͋10!! ʹE*)A͘G! 9^#VA"_ G# ****************************# * *# * EINSTEIN V010 *# * *# **************************** By Julian Rangeley$ EINSTEIN. Version date 19/6/84*8 copyright (c) 1984 Tatung (UK) Ltd.B-L: K~0 r 15:K," ": K: START LINE 1=V Z s : 1000:Z~u1: : 1020: 3950: START LINE 2`1j I%~1r281 t D%~ (13)t2,0:(D%);I%z 255,255,255,255,32,255,255,255,32,255,255,32,32,255,32,255,255,255,255,32,255,255,255,255,255,32,255,255,255,255,32&255,255,255,32,255,255,32,32,255:{255,32,32,32,32,32,255,32,32,255,255,32,32,255,32,255,32,32,32,32,32,32,255,32,32,32,255,32,32,32,32,32,255,32,32,255255,32,32,255:{255,32,32,32,32,32,255,32,32,255,32,255,32,255,32,255,32,32,32,32,32,32,255,32,32,32,255,32,32,32,32,32,255,32,32,25532,255,32,255:v255,255,255,32,32,32,255,32,32,255,32,255,32,255,32,32,255,255,32,32,32,32,255,32,32,32,255,255,255,32,32,32,25532,32,255,,32,255,32,255| 255,32,32,32,32,32,255,32,32,255,32,255,32,255,32,32,32,32,255,32,32,32,255,32,32,32,255,32,32,32,32,32,255,32,32,255 32,255,32,255:{255,32,32,32,32,32,255,32,32,255,32,32,255,255,32,32,32,32,255,32,32,32,255,32,32,32,255,32,32,32,32,32,255,32,32,255(32,32,255,2552:y<255,255,255,255,32,255,255,255,32,255,32,32,255,255,32,255,255,255,255,32,32,32,255,32,32,32,255,255,255,255,32,255"F255,255,32,255,32,32,255,255[P11:@0,10;"Hello I am EINSTEIN the brilliant new Home Computer from TATUNG."o14):GZ@0,14;"I will now demonstrate some of my amazing features:"ld11,6:@0,22;" Press SHIFT and BREAK at any time to end the program ";:15,0Kn@0,18;"Do you want the demonstration to run automatically(Y/N) ";%xA~ z &DF: A}89 z A}78 s 1400 A~89 s A%~u1: A%~0:  TEXT:@16,0;" EINSTEIN "::/"Here is a list of some of my features":M"1. 64K PROGRAM MEMORY,16K READ ONLY MEMORY,16K VIDEO MEMORY.":Q"2. 16 COLOURS DISPLAY,40X24 & 32X24 TEXT,256X192 PIXEL GRAPHICS.":'"3. POWERFUL SPRITE CAPABILITY":&"4. 3 CHANNEL SOUND GENERATOR"::"5. INTEGRAL 500K,3 INCH FLOPPY DISC DRIVE":%"6. MULTIPLE I/O FOR EXPANSION" A~1 r 2000: A 3860:":,:6****************@ MEMORY GRAPHICSJ****************T: ^1: h2,07r 40,40 r 80,40 r 80,191 r 40,191 r 40,40:50,41 |7,0g100,40 r 140,40 r 140,80 r 100,80 r 100,40: 100,80 r 100,120,2 r 140,120,2 r 140,80,2:110,41 13,0; 160,40 r 200,40 r 200,80 r 160,80 r 160,40:180,41&@8,20;"RAM ROM VRAM"@17,7;"REMEMBER EINSTEIN"/@35,19;"0":@35,13;"16383":@15,0;"65535" 3860:************************* COLOUR,TEXT AND GRAPHICS*************************: 1:  J~0r3 o4)* I~0r15:I,0: (255)" ";:I::J:!& I%~&20 r &7D:(I%);:::0&FB4F,32!: I%~&20 r &7D:(I%);::: D7,1*N I%~128 r 255: (13)t2,0:(I%);:X&FB4F,40!b@14,20;"GRAPHICAL EINSTEIN" l3860v:::****************** SPRITE GRAPHICS******************: 12: 15,0: 15,14:~"000000" 10,8 A% s 2030*@8,23;"Press SPACE BAR to continue"; 15,1 @12,6;"SPRIGHTLY EINSTEIN") 0,100 r 255,100: 0,70 r 255,70  0,80,14: ROAD 0,85 r 255,85,2  15,0** 0,"000000000000030404081F3F7F7C18"*4 2,"000000000000C0A0A090FCFEFE7830",> 4,"00007F020F102E4A4E211E010F000000",H 6,"0000F8000080423E0CF8C020F0000000" R 2\ I~255r127 pu1f 4,I,160,9,4pz I~u20 r 330 p 1 0,I,102,4,0 2,Iu20,102,8,0 1,240uI,87,12,0 3,300uI,87,1,0' ~32 { ( A% z ~"000008")s 2250  2170  :********************** SOUND EFFECTS********************** COLONEL BOGEYTrack-Info  N  60,53,15,1.3,0,0,0 A$~("010",66)* M$(0)~"64K":M$(1)~"128K":M$(2)~"192K" @25,20;"0K"' @3,12;"3 INCH DISC";@5,13;"DRIVE"j @0,1;"EINSTEIN'S internal";@0,3;"disc drive can fill";@0,5;"its memory over";@0,7;"3 times from one" @0,9;"side of a disc." K%~0r2! CL%~3t2wK%: CL%,1: CL%,1 Y%~1 r 53 D$~(A$,54uY%,8) @11,17;D$ J%~1 r 10:)& 152,30tY%tK%w53 r 192,30tY%tK%w53 0 Y%: (3t2wK%),1D @25,14u7wK%;M$(K%)N K%X &FB4F,40 b 3860l :v ******************** PERIPHERAL GRAPHICS ******************** : COMPUTER 1:15,1:40:4,0( 80,60r170,60r170,140r80,140r80,60 r90,40r160,40r170,60 JOYSTICKS 2,0, 195,95r205,95r205,105r195,105r195,95" 195,95r198,85r202,85r205,95+ 225,95r235,95r235,105r225,105r225,95" 225,95r228,85r232,85r235,95 MONITOR 8,0. 195,155r225,155r225,185r195,185r195,155. 190,150r230,150r230,190r190,190r190,150* PRINTER 4 13,0.> 140,160r180,160r180,180r140,180r140,160&H 180,175r135,175r135,170r140,170R DISC DRIVES \ 10,0+f 75,160r125,160r125,180r75,180r75,160)p 85,168r95,168r95,172r85,172r85,168.z 105,168r115,168r115,172r105,172r105,168 @12,0;"EXT.DISCS PRINTER" @32,6;"MONITOR" @31,15;"JOYSTICKS"; @17,20;"EINSTEIN":@8,21;"E X P A N D A B I L I T Y"; 7,4 @0,2;"TATUNG PIPE" 15,1 @1,4;"MEMORY" @1,5;"EXPANSION" @1,6;"PERIPHERALS"# 7,4:@0,8;"USER PORT":15,1 @1,10;"CONTROLLER" @1,11;"PROGRAMMER"@1,12;"PLOTTER"!7,4:@0,14;"RS232";:15,1@1,16;"PRINTER"$@1,17;"MODEM".: 815,0B 177,120 r 200,110LP%~&70:3800V 177,120 r 230,110`P%~&64:3800j165,145 r 183,155tP%~&7E:3800~ 150,145 r 160,155P%~&FC:3800120,145 r 100,155P%~&A8:3800:G~"000000":11,6:@3,23;"Do you want to repeat the program?";:A~ A~:A~A z &DF: A~78 s 3970# }"000014" s :A%~u1: 1450 A~89 s 1100: 3770 BEEPS,PITCH SET BY P%0,P%:1,08,&10:&C,&107,&7E:&D,0 I~1r1000:  A% s 3920 11,61(@8,23;" Press SPACE BAR to continue";:AAA~2 }32 3890 <15,1FP~"000000"Z }"000005" s 3930dn ERROR ROUTINE,x }0 s :4:$" error at line";:' Z s 320: :4:: FINISH LINEJjX FINISH LINEB z1( @2,3;"I can play a tune" 4:0,0,15,0,45,08$ "V0 G3 E5 R5 E3 F3 G3 +E3 R3 +E3 R3 +C7 R","R","R". WOLF WHISTLE8 @2,5;"Or make you swoon" B 6,1:7,110:9,9:1,0:8,15L I~64r32pu.35:0,I:V I~0r150:` I~64r48pu.17:0,I:j I~48r104p.5:0,I:t 8,0:9,0~ GUNSHOT! @2,7;"I can shoot you down" J~1 r 4 6,15: 7,71 8,16: 9,16: 10,16 12,16 13,0 T~(2000): I~1 r T: I  FRERE JACQUES @2,9;"Or play a round" 2:0,0,15,0,50,0( A$~"V0C4DECC4DEC":B$~"V0E4FG6E4FG6"0 C$~"V0G2AGFE4CG2AGFE4C":D$~"V0C4-GC6C4-GC6" A$,"R","R":,B$:,,C$:D$ ,"R":,,"R":"R" @2,11;"Or for a lark"$( @2,13;"We could try some Bach"2 0,0,15,0,100,0< 1,0,13,3,100,0F 2,0,8,3,100,0P 3(Z @8,15;"JESU JOY OF MAN'S DESIRING"-d @5,16;"THE CHORALE FROM CANTATA NO.147""n @15,17;"BY J.S. BACH": 2730#x I~1 r 63: 126 FOR LONG TUNE A$,B$,C$ A$,B$,C$ I" "V0G9R1","V1=-B9R1","V2G9R1"o V0R3,V1=G3,V2.G3,G3,=G3,.G3,A3,=G3,.G3,B3,D3,-G3,+D3,D3,-G3,+C3,#F3,-G3,+C3,E3,-E3,+E3,E3,-E3,+D3,A3,-E3f +D3,G3,=B3,+G3,G3,=B3,+#F3,A3,=B3,+G3,B3,-E3,+D3,B3,-E3,B3,G3,-E3,G3,E3,=E3,A3,E3,=E3,B3,D3,=E3f +C3,E3,=A3,+D3,E3,=A3,+E3,E3,=A3,+D3,D3,=B3,+C3,D3,=B3,B3,D3,=B3,A3,C3,=C3,B3,C3,=C3,G3,-B3,=C3_ #F3,C3,-D3,G3,C3,-D3,A3,D3,-D3,D3,-A3,-#F3,#F3,-A3,-#F3,A3,G3,-#F3,+C3,#F3,-D3,B3,,,A3,,g B3,D3,-G3,G3,D3,-G3,A3,#F3,-G3,B3,G3,-G3,+D3,G3,-G3,+C3,#F3,-G3,+C3,E3,-C3,+E3,E3,-C3,+D3,A3,-C3N +D3,G3,=B3,+G3,,,+#F3,A3,,+G3,B3,-E3,+D3,,,B3,G3,,G3,E3,-D3,A3,,,B3,G3,L E3,C3,-C3,+D3,,,+C3,#F3,,B3,E3,-#C3,A3,,,G3,,,D3,-A3,-D3,G3,,,#F3,C3,W ,G3,-B3,=G3,B3,-B3,,+D3,G3,,+G3,B3,R3,+D3,,,B3,D3,-G3,G3,-B3,-D3,B3,,,+D3,G3,=B3O V1+G6,V0-B6,V1=G6,G6,-B6,-#F6,G6,C6,-E6,+D6,D6,-#F6,-B6,D6,-E6,D6,D6,-B6u +C6,C6,-E6,+C6,C6,-A6,B6,-B6,-G6,#F3,-A3,D3,A3,-A3,V0D3,,,E3,#F3,-A3,D3,A3,,,G3,V1-A3,-D3,A3,#F3,,+C3,,,B3,G3,O +C3,#F3,.D3,A3,,,#F3,,,D3,R3,R3,#F3,,,A3,D3,-D3,+C3,-A3,,B3,,,A3,#F3,-D3D B3,D3,V0-B3,G3,,,A3,,,B3,-B3,G3,D3,,,+C3,,,,C3,E3,+E3,,,+D3,,P" +D3,D3,G3,+G3,,,+#F3,,A3,+G3,V1G3,=B3,+D3,,,B3,,#F3,G3,-B3,E3,A3,,,B3,G3,], E3,-A3,-C3,+D3,-A3,-C3,+C3,-C3,-C3,B3,-B3,D3,A3,,,G3,,,D3,-A3,-D3,G3,,,#F3,,,G9,D9,-B96 "R","R","R" @ 3860J :T **************^ DISC GRAPHICSh **************r :| 13:3,1:323 152,30 r 192,30 r 192,189 r 152,189 r 152,30+ 152,83 r 192,83: 152,136 r 192,136, 35,28 r 85,28 r 85,78 r 35,78 r 35,28 Track-Info  N :90,100  4 1970  15 0,0,55,1.312,0,0,0 0,0,48,1.312,0,0,0d@28,6;"TIME" : @28,14;"ALARM":@23,19;"S STOPS ALARM":@6,23;"Press SPACE to return to menu";7 : T1$~ : 1600 11,11 A~&20 s 1130 15,1 T0$~T1$~ : @28,8;:11,11 15,10@28,8;(T1$,2);":";(T1$,3,2);":";(T1$,2)1@28,16;(AL$,2);":";(AL$,3,2);":";(AL$,2):" RING s (T1$,4)~(AL$,4)s 2070: A~&53 s RING~0#,A~: A~&20 s 1130: A~A z &DF"6 (T0$,3,2)~(T1$,3,2)s 1530@ 0,0 r XM%,YM%,1 JALPHA~6w((T1$,3,2))u90)2TXM%~(40w(uALPHA)):YM%~(40w1.312w(uALPHA))^ 0,0 r XM%,YM%,0h 0,0 r XH%,YH%,1-rBETA~30w((T1$,2))u90)t(ALPHAtx2)x12,|XH%~(35w(uBETA)) : YH%~(35w(uBETA)) 0,0 r XH%,YH%,0  1500 SET CLOCK TIME%MES$~"ENTER CORRECT TIME": 1790~(T$t"000000",6) GO BACK TO MENU  1130 SET ALARM TIME$MES$~" ENTER ALARM TIME": 1790/AL$~(T$t"000000",6):RING~u1: RESET ALARM# ****************************# * *# * MASTERMIND V 008 *# * *# **************************** By Nigel Deakin$ MASTMIND. Version date 14/6/84*8 copyright (c) 1984 Tatung (UK) Ltd.B0L:4: K~0 r 15:K," ": K: START LINE 1=V Z s : 1000:Z~u1: : 1000: 1210: START LINE 2`1:15,6:15,6.jC~4:C$~"4":N~6:N$~"6": GAME START VALUESt 1660: ** INSTRUCTIONS#~ VAR s 1830: ** VARIATIONS 1220: ** PLAY GAME 1580: ** GAME RESULT ** GAME END4 OPT~86 s 1830: 1160: VARIATIONS THEN PLAY( OPT~89 s 1160: PLAY GAME AGAIN% Z s 320: :4:: EXIT LINE ** PLAY GAME 1930: * SCREEN SET UP+@5,10;" I have thought of a code. "; A~1 r 1500:A-@2,10;" ";l@31,2;"GOES LEFT";@34,3;NtC;@31,6;C$;" COLUMNS",@31,8;N$;" NUMBERS";@31,11;"'O'=HIT";@31,13;"'X'=MISS"+@31,17;"Press DEL";@31,18;"for retry" *HIDDEN CODE.I$~"": A~1 r C:B~(N)t1:I$~I$t(Bt48):A @7,21;" Enter your guess."( GO~1 r NtC: 2H$~I$<@4,GOt2;GO,F * GUESS CODEPG$~"": A~1 r CWZA$~$:A$}"0" z A$~N$ s 1380: A$~(25)s @9,GOt2;o20):@10,GOt2,: 1360: 1370dA$;:G$~G$tA$:An*HITS CHECKxH~0: A~1 r CW (H$,A,1)~(G$,A,1)s G$~(G$,Au1)t"A"t(G$,CuA):H~Ht1:H$~(H$,Au1)t"B"t(H$,CuA)A*MISS CHECKM~0: A~1 r C B~1 r CB (H$,A,1)~(G$,B,1)s G$~(G$,Bu1)t"C"t(G$,CuB):M~Mt1:1480 BA *RESULT,& H~0 s 1530:: A~1 r H:"O";:A H~C s RESULT~u1:& M~0 s 1540:: A~1 r M:"X";:A@34,3;NtCuGO  GO RESULT~0", ** GAME RESULT66 RESULT s @5,21,"HARD LUCK THE CODE WAS ";I$;-@ RESULT s @8,21;" *** WELL DONE ***";J A~1 r 2000:A1T@3,22;" Do you want another game ? (Y/N)";6^@3,23;" Press 'V' for game variations.";@37,22;h 0,0 r 250,0CrOPT~:OPT~OPT z &DF: OPT}86 z OPT }89 z OPT }78 s 1650: | ** INSTRUCTIONS 1930: * SCREEN SET UP-@2,6;"* The computer generates a code."-@2,7;"* This code is a 4 digit number."2@2,8;"* Each number is in the range 1 to 6."-@2,9;"* The aim is to guess this code."3@2,10;""3@2,11;"* After each go you will get results."K@2,12;" Each'O'means a correct number";@6,13;"in the right column."K@2,14;" Each'X'means a correct number";@6,15;"in the wrong column."6 PRINT@2,16;"* Pressing 'DEL' removes digits."@2,17;"* GOOD LUCK."3@2,18;""*@2,19;"* Press any key to continue."/@2,20;"* Press 'V' for game variations.";6I~:I~I z &DF: I~86 s VAR~u1: SELECT VARIATIONS& ** VARIATIONS0 1930: * SCREEN SET UP:@13,5;"Game Variations"D@13,6;""1N@4,9;"Input number of columns (2 to 9) ";1XC$~$: C$"2" { C$}"9" s 1880: C~(C$):C$2b@4,11;"Input range of numbers (2 to 9) ";1lN$~$: N$"2" { N$}"9" s 1900: N~(N$):N$v A~1 r 600:A * SCREEN SET UP40+ 0,0 r 255,0 r 255,191 r 0,191 r 0,0@15,1,"MASTERMIND"@15,2,""8Wo VAR~u1: SELECT VARIATIONS& ** VARIATIONS0 1930: * SCREEN SET UP:@13,5;"Game Variations"D@13,6;""1N@4,9;"Input number of columns (2 to 9) ";1XC$~$: C$"2" { C$}"9" s 1880: C~(C$):C$2b@4,11;"Input10;"Hello I am EINSTEIN the brilliant new Home Computer from TATUNG."o14):GZ@0,14;"I will now demonstrate some of my amazing features:"ld11,6:@0,22;" Press SHIFT and BREAK at any time to end the program ";:15,0Kn@0,18;"Do you want the demonstration to run automatically(Y/N) ";%xA~ z &DF: A}89 z A}78 s 1400 A~89 s A%~u1: A%~0:  TEXT:@16,0;" EINSTEIN "::/"Here is a list of some of my features":M"1. 64K Track-Info  N PLAY GAME$ G~89 s 1820: YOUR MOVE FIRST@4,19,"I am thinking." 1860: * COMPUTER MOVE H1~0 { N1~64 s  2280: * YOUR MOVE& H1~0 { N1~64 s 0 1800: * COMPUTER MOVEDB1~u1:L3~0:K3~0:T1~C:T2~HN L~1 r 8: K~1 r 8X C(L,K) s 2010bU~u1: 2020l S1~0 s 2010v L~1 { L~8 s S1~S1tS2 K~1 { K~8 s S1~S1tS2 L~2 { L~7 s S1~S1uS5 K~2 { K~7 s S1~S1uS5 L~3 { L~6 s S1~S1tS4 K~3 { K~6 s S1~S1tS4 S1B1 s 2010 S1}B1 s 2000 (1)}.5 s 2010B1~S1:L3~L:K3~K K,L:2150  COUNT%S1~0: Q~1 r 8:L5~L4(Q):K5~K4(Q)L6~LtL5:K6~KtK5:S3~0 C(L6,K6)}T2 s 2130 S3~S3t1:L6~L6tL5:K6~K6tK5 C(L6,K6)~0 s 2130  C(L6,K6)}T1 s 2060*S1~S1tS3: U}1 s 21304L6~L:K6~K> Q1~0 r S3:C(L6,K6)~T1HL6~L6tL5:K6~K6tK5:R\f B1}0 2200p S5 s S5~0: 18608z 3160: @ 4,19;"I have to forfeit my move.": 3190 V1~1 s : 2260V1~1: 22608V1~0: 3160: @ 4,19; "I will move to ";(K3t64);L3 S1 s S5~1!L~L3:K~K3:U~1: 2020: COUNT C1~C1tS1t1:H1~H1uS1:N1~N1t1; @ 4,20;"That gives me ";S1;" of your pieces.": 3190 3020: UPDATE * YOUR MOVET1~H:T2~C= 3160: @ 4,19;(7);"Your move : ";: 2720: GET MOVE L}0 2390! G~0:U~u1: L~1 r 8: K~1 r 89 C(L,K)~0 s 2670: F1 s 2020: S1 s G~1:L~8:K~8 :9$ G s 3160: @ 4,19;"You can move.": 3190: 22900. @ 4,20;"Are you forfeiting your turn ? ";88 I~:I~I z &DF: @4,21; (I): I}89 z I}78 s 2360B I}89 2290L V1 2500: V1~1: 1860CV C(L,K) s @4,20;"Square occupied, try again.": 3190: 2290O` 2670: F1~0 s @4,20;"It doesn,t flank a row ,try again.": 3190: 2290j U~u1: 2020: COUNTIt S1~0 s @ 4,20;"That is not a valid move,try again.": 3190:22908~ V1~0: @ 4,20;"That gives you ";S1;" of my pieces."+ @4,21;"It is my turn,I am thinking !" U~1: 2020: COUNT 3020: COUNTER SET H1~H1tS1t1:C1~C1uS1:N1~N1t1  ** GAME END> 3160: @ 4,19;"You have ";H1;" & I have ";C1;" pieces."" H1~C1 s @ 4,20;"A tie ! "& H1}C1 s @ 4,20;"You've won !"$ H1C1 s @ 4,20;"I've won !" J~(H1uC1)w64xN1:" ";* Ju30s "you need practice.":2610- Ju10s "you're not very good.":2610, J10s "that was a close one.":2610- J30 s "that was a good game.":2610- J50 s "that was a great game.":2610$( "that was an excellant game."2 < ** PL# ****************************# * *# * OTHELLO V011 *# * *# ****************************$ OTHELLO. Version date 14/6/84*8 copyright (c) 1984 Tatung (UK) Ltd.B1L: 4: K~0 r 15:K," ": K: START LINE 1=V Z s : 1000:Z~u1: : 1000: 2660: START LINE 2`:j *** MAIN CONTROL LOOPt:~ 1250: ** GAME SET UP& G~89 s 1360: ** INSTRUCTIONS 1600: ** OPTIONS 2790: ** SCREEN SET UP 1770: ** PLAY GAME 2490: ** GAME END" 2630: ** PLAY AGAIN OPTION: ** GAME SET UP% variales ordered for max.speed_K~0:L~0:L6~0:K6~0:L5~0:K5~0:S1~0:Q~0:T2~0:U~0:S3~0:B1~0:T1~0:Q1~0:S2~0:S5~0:S4~0:L3~0:K3~0&1:5,0: suppress leading space  1280+0,1,-1,1,-1,0,-1,-1,0,-1,1,-1,1,0,1,1  C(9,89),L4(9),K4(9) Q~1 r 8: L4(Q),K4(Q):QQ@15,0;" OTHELLO ",,," ";@5,6;"Do you want instructions? (Y/N)";(G~:G~G z &DF2 G}78 z G}89 s 1320<F ** INSTRUCTIONS0P CLS:PRINT@12,0;" OTHELLO ",,," "6Z@0,2;"* The game is played on an 8 by 8 board.";,d"* You and the computer take turns to",n" place your counters on this board."/x"* Each time you place a counter,it must"," trap some of the computers pieces "+" between the one you place and any"," other of your pieces on the board,"," in either a vertical,horizontal or"" diagonal direction."+"* Any trapped pieces turn into your"" pieces.)"* To place your counter enter the"0" co-ordinates.Row 1 to 8,Column A to H."+"* The game ends when all places are"" occupied."1"* The player with the most counters wins";,"* If you cannot capture at least one"-" piece you must forfeit your turn by"" entering 0A."+"* The best way to learn is to play."/""* Press any key to continue.Good Luck."; ,G~:6 ** OPTIONS+@:@15,0;" OTHELLO ",,," "2J@0,6;"What skill level ? (1 or 2) ";TG~"^ G~50 { G~49 s (G): 1620-h G~50 s S2~3:S4~2:S5~1: S2~0:S4~0:S5~0 rB~u1:W~1%| L~0 r 9: K~0 r 9:C(L,K)~0::(C(4,4)~W:C(5,5)~W:C(4,5)~B:C(5,4)~BC1~2:H1~2:N1~4:V1~22@0,9;"Do you want black or white ? (B/W) ";G~:G~G z &DF" G~66 { G~87 s (G): 1690 G~66 s C~B:H~W: C~W:H~B3@0,12;"Do you want first go ? (Y/N) ";G~:G~G z &DF" G~89 { G~78 s (G): 1740 ** Track-Info  N AY AGAIN OPTIONF @4,22;"Play again?(Y/N)"; P J~:J~J z &DF: J~78 s 2660Z J~89 s 1100: 2640'd Z s 320: :4:: FINISH LINE n VALID!x F1~0: L1~u1 r 1: K1~u1 r 1 C(LtL1,KtK1)~T2 s F1~1 :  GETMOVE L~u1:K~u1 G~:G}58 sG~G z &DF1 G}47 z G57 z L~u1 s L~Gu48: q17,3);(G);1 G}64 z G73 z K~u1 s K~Gu64: q15,3);(G); K~u1 { L~u1 s 2740! K}u1 z L}u1 s : 2730 ** SCREEN SET UP :0,12:(12) 15,12 HP~6: I~1 r 8:15,12 @ HP,0;I  HP~HPt4" I, V~26 I~ 72 r 65 p u1@ @ 4,V;(I):@ 38,V;(I) J V~Vt2T I^ X~31 r 223 p 24h X,52 r X,180r X| Y~52 r 180 p 16 31,Y r 223,Y YC 15,0:@0,19;o199);:0,0: 245,0 r 245,39: 250,0 r 250,39 160,"78FFFFFFFFFFFF78" 3020  SET COUNTERS L~1 r 8: K~ 1 r 8 C(L,K)~0 s 3060& C(L,K)~1 s 1,12: 3080: 3060" C(L,K)~u1 s 15,12: 3080 K,L  DRAW COUNTER L~1 s X~7: 3110 X~(Lu1)w4t7& K~1 s Y~16: 31300 Y~16u(Ku1)w2: @X,Y;(160);@0,23; D 15,0:N BLANK OUT 4 ROWSX @ 0,19;o160);b l PAUSEv A~1 r 1000: A 8Xo|@#: 245,0 r 245,39: 250,0 r 250,39 160,"78FFFFFFFFFFFF78" 3020  SET COUNTERS L~1 r 8: K~ 1 r 8 C(L,K)~0 s 3060& C(L,K)~1 s 1,12: 3080: 3060" C(L,K)~u1 s 15,12: 3080 K,L  DRAW COUNTE :A%~u1: 1450 A~89 s 1100: 3770 BEEPS,PITCH SET BY P%0,P%:1,08,&10:&C,&107,&7E:&D,0 I~1r1000:  A% s 3920 11,61(@8,23;" Press SPACE BAR to continue";:AAA~2 }32 3890 <15,1FP~"000000"Z }"000005" s 3930dn ERROR ROUTINE,x }0 s :4:$" error at line";:' Z s 320: :4:: FINISH LINEJjX FINISH LINEB z1(# ****************************# * *# * KEYBOARD TRAINER V010 *# * *# **************************** By Nigel Deakin$ KEYBOARD. Version date 21/10/84*8 copyright (c) 1984 Tatung (UK) Ltd.B3L: 4: K~ 0 r 15: K," ": K: START LINE 1=V Z s : 1000:Z~u1: : 1000: 2710: START LINE 2` 2720: UPPER CASE jR~0: 4t 0,0,15,0,255,0:6~ ** DATA FOR TESTS 1 TO 5< 1,"COMPUTER","66666666"," Type the following words."m 2,"elephant","11111111"," This test uses lower case letters. (Selected with the ALPHA LOCK key)"; 3,"Big Dog","6113611"," This test uses mixed text."R 4,"2*(4+5)","3223232"," You will need the SHIFT key for some of these."i 5,"","4545"," This test uses the graphics characters. (you will need the GRAPH key and H key)"& ** REPEAT DATA FOR TESTS 1 TO 5: 1,"EINSTEIN","66666666"," Alright then,here goes."E 2,"cabbage patch","1111111311111"," Where do cabbages grow ?"Q 3,"How Now Brown Cow","61136113611113611"," Here's the mixed text again."M 4,"125.89^17/(4-68)","3333333333232332"," Type the following number."i 5,"","4545"," This test uses the graphics characters. (you will need the GRAPH key and P key)" ***** INTRODUCTION-@2,3;"Welcome to the EINSTEIN keyboard" @2,4;"trainer."A~1200: 2810@2,7;"What is your name "-(:" (type your name then press ENTER)"2@20,7: A$:A$~(A$,14)<:@6,4;"OK. ";A$2F:" Now we will learn to use the keyboard."PA~1100: 2810.Z@2,10;"You have already made a start by"d " typing in your name."nA~1300: 2810x *** TESTS 1 TO 8 1520: TEST 1 1520: TEST 2 1520: TEST 3 1520: TEST 4 1520: TEST 5( 1730: REPEAT TESTS 1 TO 5 OPTION5 R~1 z REP~1 s 1220:4:REP~0: 1400: 1000 1880: TEST 6 2130: TEST 7 2400: TEST 8 2610: END OF TESTS *** TETrack-Info  N ;A$:" Now for the next test."L A~1200: 2810: 3080V ` * TEST 8j 15:13t 128,"0000040810A04000":~ 8," This test uses the CTRL (ConTRoL) key.","EASY" 2430: TN,M$,C$:T~7 A~2000: 3100! @4,4;"Type the following:-" D~1 r 4 B$~(C$,D,1):E~(B$) @6,4tDw2;"'ctrl' ";B$;" "; @15,4tDw2;:G~ G}Eu64 s 2570 (128) D A~700: F~0 s 3120 @2,21;"Easy isn't it." A~1000: 2810: 2610 F~Ft1:A~100: ERROR  2850' 2750: 2780: 3080: 3080: 2500( 2 *** END OF TESTS< %F @2,5;"The tests are completed."P A~1100: 2810+Z @2,10;"Press 'R' to repeat the tests.)d @2,12;"Press any other to finish.";n G~:G~G z &DF)x G~82 s 1000:R~0:REP~0:4: 1400$ :@10,25u(A$)x2;"Goodbye ";A$ A~1000: 2810 Z s 320: : 4: * SET TO UPPER CASE/ V~(&FB3E): V128 s (&FB3E),Vt128:&22,0  * ERROR NOISE "V0=C5.GR","R","R"  * TRY AGAIN PROMPTF 15,9:@3,22;" try again ";:15,0:" Press ENTER to Continue."; ~13 s : 2800 * PAUSE LOOP- Q~: B~1 r A p 0.6 : }0 s : B: * DELETE CHAR. ON ERROR @12tV,8;" ";(8);: " * HELP , @0,18;-6 T 2890,2950,2970,2990,3020,2920,3060@ J G$"A"{ G$}"Z" s 2910aT A~1100:" You are using upper case letters.": (&FB3E)}127 s" Press the ALPHA LOCk key."^ h G$"a"{G$}"z"s mr " You should be using upper case letters.Press the ALPHA LOCK key. (or use the SHIFT) "| @ u((&20)z &80)s " You need to hold down the SHIFT key." : u((&20)z &80)s " You dont need the SHIFT now." f ((&20)z &A0)}&80 s " Hold down the GRAPH key to access the left hand graphics characters.": " (Use also the ";: R~0 s "H key)";: "P key)";  ((&20)z &A0)~0 s 3040e " Hold down the GRAPH and SHIFT keys to access the right hand graphics characters.": " (Use also the ";: R~0 s "H key)";: "P key)"; D ((&20) z &40)~&40 s " You need to hold down the CTRL key."  * BLANK LAST 5 ROWS @0,18;o40w5);: * PRINT TEST NO &MESSAGEC& :F~0:@16,1;"TEST";TN;@16,2;"";@0,18;M$: 2810: 3080:0 * WELL DONE PROMPTS: @0,18;:A~1300+D TN~1 { TN~7 { TN~8 s " Well done."$N TN~2 { TN~4 s " Very good."-X TN~3 s " No problems with that one."2b TN~5 s " Not bad at all,not one mistake.".l TN~6 s :" Very good cursor control."v STS 1,2,3,4 AND 5 TN,C$,T$,M$A~1200: 3100@6,3;"type this:-" LC~(C$)"@13,6;C$ ,@13,8;6 V~1 r LC@G$~$: (G$)}31 s G$;,J (C$,V,1)}G$ s 1680: 1600: ERRORTV^A~700: F~0 s 3120/h TN~5 s @2,21;"Now lets move on.": 1660$r@2,21;"Now for the next test."| 2810: 3080  ERRORF~Ft1:A~100!T~((T$,V,1)): 2850: HELP  2750: 2780: 3080: 2830 * REPEAT TESTS OPTION/:12:@2,3;"Thats 5 tests completed ";A$A~400: 28101@2,6;"Now you can use upper and lower case"+@2,7;"letters,shifted characters and"@2,8;"graphics."A~1800: 2810 R~1 s 1870R~12@2,12;"Press 'R' if you want to repeat the "&&" 5 tests (with new words)."-0" Press 'C' if you want to continue.";@:J~:J~J z &DF: J~82 s REP~1: 1870: J~67 s REP~0: 1870 D 1850NX * TEST 6vb 6," This test uses the cursor control keys,they're the two keys above ENTER. The SHIFT is also needed."kl" "," "," "," "," "," "Fv" "," X"," "," ":11:1 1890: TN,M$A~2000: 3100! A~0 r 9: S$:@12,8tA;S$:N@0,20;" Using the cursor control keys,move the cursor onto the X."1:X~16:Y~10 @X,Y;G~ G~8 sX~Xu1 G~4 sX~Xt1 G~11sY~Yu1 G~10sY~Yt1 V$~(Y) (V$,Xt1,1)~"X" s 2090 (V$,Xt1,1)}" " s 2080  19803 F~Ft1: 2750: 2780:@0,22;o39): 1970: ERROR* 3080: F2 s 3120$4@2,21;"Now for the next test.">A~1500: 2810HR * TEST 7h\ 7," This test uses the DELete/INSert key.","THE KEY TO SUCCESS"," pTHEaKmEYTqOSUryCCEfSSqhaw "f 2140: TN,M$,C$,G$ p8:1zA~1500: 31001@2,13;"Change the second sentence into the"U" first by using just the SHIFT,DEL/INS":" key and the cursor control keys."-" (ie. remove the lower case letters)"@3,6;C$:C$~(6):X~3 @0,8;G$ @X,8; C$~(8) s 2360G~! G~4 z X39 s X~Xt1: (G);  G~8 z X}1 s X~Xu1: (G); G~25 z X}1 s 2310( G~26 z ((8),38,1)~" " s (G);  2240 O$~((8),X,1)1 O$(65) { O$}(90) s X~Xu1: (G);: 2240  ERRORI$ @2,18;"'DEL' deletes the character to the left of the cursor."I. F~Ft1: 2750:15:@5,21;"You need the ";O$: 2780:1: 3080: 2230&8 @0,17;o40): 3080: F2 s 31206B @2,20;"Thats it "Track-Info  N s 2000 (1)}.5 s 2010B1~S1:L3~L:K3~K K,L:2150  COUNT%S1~0: Q~1 r 8:L5~L4(Q):K5~K4(Q)L6~LtL5:K6~KtK5:S3~0 C(L6,K6)}T2 s 2130 S3~S3t1:L6~L6tL5:K6~K6tK5 C(L6,K6)~0 s 2130  C(L6,K6)}T1 s 2060*S1~S1tS3: U}1 s 21304L6~L:K6~K> Q1~0 r S3:C(L6,K6)~T1HL6~L6tL5:K6~K6tK5:R\f B1}0 2200p S5 s S5~0: 18608z 3160: @ 4,19;"I have to forfeit my move.": 3190 V1~1 s : 2260V1~1: 22608V1~0: 3160: @ 4,19; "I will move to ";(K3t64);L3 S1 s S5~1!L~L3:K~K3:U~1: 2020: COUNT C1~C1tS1t1:H1~H1uS1:N1~N1t1; @ 4,20;"That gives me ";S1;" of your pieces.": 3190 3020: UPDATE * YOUR MOVET1~H:T2~C= 3160: @ 4,19;(7);"Your move : ";: 2720: GET MOVE L}0 2390! G~0:U~u1: L~1 r 8: K~1 r 89 C(L,K)~0 s 2670: F1 s 2020: S1 s G~1:L~8:K~8 :9$ G s 3160: @ 4,19;"You can move.": 3190: 22900. @ 4,20;"Are you forfeiting your turn ? ";#*****************************#* *#* HANGMAN V 009 *#* *#***************************** By David Wess$ HANGMAN. Version date 28/1/85*8 copyright (c) 1984 Tatung (UK) Ltd.B**** MAIN-CONTROL ****L2V: 4: K~0 r 15: K," ": K: START LINE 1=` Z s : 1000:Z~u1: : 1000: 1190: START LINE 2j 1200: SET-UP"t 1450: CHARACTER-DEFINITION'~ 2670: INTRODUCTION/INSTRUCTIONS) 2990: UNTIL COMND="F"(FOR FINISH)" PLAY THE GAME END, Z s 320: : 4: 4:: FINISH LINE*** SET-UP ***I u6,0: "R1","R1","R1":,0:,0:40: :2: 0: 0,0,10,0,255,0,GAMECOL~0: GAME BACKGROUND TRANSPARENT5INSTRCOL~0: INSTRUCTIONS BACKGROUND TRANSPARENT MESCOL~7: MESSAGES IN CYAN"LRCOL~13: LETTERS IN MAGENTA Z~1 s 1260#  M$(19): WE HAVE 17 MESSAGESM$(0)~(" ",40)3M$(1)~" Press I for Instructions, press F to"(M$(2)~" Finish playing."42M$(3)~" Press H or E for a Hard or Easy word."5<M$(4)~" I will free you if you can guess the"*FM$(5)~" word that I am thinking of."PM$(7)~" It has"(ZM$(8)~" letters so I will give you"dM$(9)~" tries."+nM$(10)~" Choose a letter." xM$(11)~" You have"M$(12)~" tries left."M$(13)~" try left."2M$(14)~" I suppose I'll have to FREE you."0M$(16)~" You HAVE tried that letter."** MAN LEG BACK **** YELLOW BITS ** &90,"03050F0703000000" &91,"0010000001010100" &92,"80C0C0C080000000" &93,"0000000080400000"** BLUE BITS **" &94,"0002000000030707", &95,"0F07070700000007"6 &96,"0000000000808080"@ &97,"8080808000002040"JT** MAN LEG FORWARDS **^h** YELLOW BITS **r| &98,"03050F0703000000" &99,"0000000003050100" &9A,"80C0C0C080000000" &9B,"0020000000000000"** BLUE BITS ** &9C,"0002000000030707" &9D,"0707070700100807" &9E,"0000000000808080" &9F,"C080808000000000"** MAN LEGS OUT **** YELLOW BITS ** &A0,"03050F0703000000"& &A1,"2000000002040000"0 &A2,"80C0C0C080000000": &A3,"1000000080400000"DN** BLUE BITS **Xb &A4,"000200000003071F"l &A5,"1707070700100800"v &A6,"00000000008080E0" &A7,"A080808000002040"** MAN LEGS DOWN **** YELLOW BITS ** &A8,"03050F0703000000" &A9,"0000010001010100" &AA,"80C0C0C080000000" &AB,"0000000000000000"** BLUE BITS ** &AC,"0002000000030707"  &AD,"0707060700000003" &AE,"0000000000808080"  &AF,"8080808000000000"*4** MAN LEG UP STEP **>H** YELLOW BITS **R\ &B8,"03050F0703000000"f &B9,"000001000F010100"p &BA,"80C0C0C080000000"z &BB,"0000000000000000"** BLUE BITS ** &BC,"0002000000030707" &BD,"0707060700180007" &BE,"0000000000808080" &BF,"8080808000000000"** PORTCULLIS **N &B0,"070C14247F4444447F4444447F444444C0605040FC444444FC444444FC444444"N &B4,"070F1F3F7F7F7F7F7F7F7F7F7F7F7F7FC0E0F0F8FCFCFCFCFCFCFCFCFCFCFCFC" ** MAN FACING **  ** YELLOW BITS **$ N. &C0,"03050707030000000000040002020200C0A0E0E0C00000000000200040404000"8 B ** BLUE BITS **L NV &C4,"000200000107070707070303000000060040000080E0E0E0E0E0C0C000000060"` j ** MAN FACING HANDS UP **t ~ ** YELLOW BITS ** N &D0,"03450707030000000000000002020202C0A2E0E0C00000000000000040404000"  ** BLUE BITS ** N &D4,"000220100807030303030303000000060040040810E0C0C0C0C0C0C000000060" ! ** SET UP WALK VARIABLES ** # Y~44:XSTART~190:YD~44:X~XSTART XHALT(4)~158 XHALT(3)~138 XHALT(2)~110 XHALT(1)~98 YELBIT(0)Track-Info  N R$~( z &DF): LTTER$  "@" { LTTER$ } "Z" s 3460? TRYSLFT~2 z (WRDLuLTF)}3 s LTTER$~"@" s 5510: 3460 4390: CLEAR MESSAGE* TRIED~0: SET LETTER TRIED FLAG FALSE8 I~ 1 r (TRY$): THE LETTERS THAT HAVE BEEN TRIED/ LTTER$~(TRY$,I,1) s LINE1~16: 4390: 5e LTTER$~(TRY$,I,1) s "V0=C1=D1=C1=D1=C1R2","R","R": 4390:LINE1~19: 4390:I~(TRY$):TRIED~u1 I* TRIED s 3460: TRY ANOTHER LETTER TRY$~TRY$tLTTER$) LTTERBAD~u1: SET FLAG TO BAD LETTER W0RDLTTER~1 r WRDL! CRNLTR$~(W0RD$,W0RDLTTER,1)  LRCOL@ LTTER$~CRNLTR$ s @(PRNSTu2t(2wW0RDLTTER)),23;LTTER$;: 5D LTTER$~CRNLTR$ s "V0C3+C1C3R1","R","R":LTF~LTFt1:LTTERBAD~0$ W0RDLTTER8. LTTERBAD s 5300: 4480: ADVANCE-MAN-TO-GALLOWS%8 LTTERBAD s TRYSLFT~TRYSLFTt1NB WRDL~LTF s LINE2~14 : 4390: 5360: 5: "V0C5-G3-G3-#G5-G7-B5C7R6R6R6"?L WRDL~LTF s "R","R","R":TRYSLFT~0: THE WORD IS GUESSEDV TRYSLFT ` 3030jt~*** DRAW-START-SCREEN ***** CASTLE **  11,0: GAMECOL: 3,0:@17,0;"HANGMAN"J 152,28 r 152,112 r 159,112 r 159,105 r 168,105 r 168,112 r 175,112i r 175,105 r 182,105 r 182,112 r 189,112 r 189,105 r 198,105 r 198,112 r 206,112 r 206,28 r 152,28** BOX **  15,01 55,16 r 55,145 r 208,145 r 208,16 r 55,16 ** STEPS **  11,0L( 143,28 r 141,28 r 141,30 r 139,30 r139,32 r 137,32 r 137,34 r 135,34F2 r 135,36 r 133,36 r 133,38 r 131,38 r 131,40 r 129,40 r 129,42F< r 127,42 r 127,44 r 125,44 r 125,44 r 125,46 r 123,46 r 123,48;F r 121,48 r 121,50 r 119,50 r 80,50 r 80,28 r 143,28PZ** GALLOWS **d n 6,07x 88,50 r 88,97 r 110,97 r 110,94 r 91,94 r 91,50& 91,89 r 96,94 r 100,94 r 91,85** ROPE **  10,0 105,65 r 105,93** SKY LINE **  7,0C 55,80 r 65,80 r 96,110 r 110,99 r 122,111 r 138,95 r 151,95 207,95 r 207,95  2,0 ** CASTLE WINDOWS **; 160,60 r 160,80 r 161,83 r 162,80 r 162,60 r 160,60;" 177,60 r 177,80 r 178,83 r 179,80 r 179,60 r 177,60;, 194,60 r 194,80 r 195,83 r 196,80 r 196,60 r 194,606@** FILLS **JT 90,61,6:95,90,6^ 56,144 ,7hr$|*** SPRITE START POSITIONS ***** PORTCULLIS **$ 1,190,46,3,&B0: GREEN GRILL% 2,190,46,1,&B4: BLACK BEHIND*14,190,46,6,&B4: RED INSIDE CASTLE(PCULLISDOWN~u1: PORTCULLIS IS DOWN"*~&A8 YELBIT(1)~&98( YELBIT(2)~&A02 YELBIT(3)~&90< BLUEBIT(0)~&ACF BLUEBIT(1)~&9CP BLUEBIT(2)~&A4Z BLUEBIT(3)~&94d n (x ** DISPLAY-INTO/INSTRUCTION-PAGE** @ &C8,"0808182444442418":11,0:(&14): INSTRCOL::  TITL1$~((&C8),11)% TITL2$~(&C8)t" "t(&C8) @14,0;TITL1$ @14,1;TITL2$% @14,2;(&C8);" HANGMAN ";(&C8) @14,3;TITL2$ @14,4;TITL1$ : 7,0/ " You have been sentenced to death by"* " hanging for cruel and dastardly "+ " crimes against Queen and country."/ " At present you are awaiting execution" " in the castle dungeon.. " I am the jailer and I have decided"." " to give you a chance to live. If you"/, " can guess all the letters of the word")6 " that I am thinking of then you "@ " can go FREE."J :/T : 9:" Of course if you can't...": 7%^ " <>";h } &20 s 2920 r 9,0| @27,19;"then YOU DIE" (" ",40)- 5: "V0-E5R1-E5R1-E5R1-C9R1","R1","R1" W~0 r 600: W: PAUSE   ** THE-GAME **  3700: DRAW-START-SCREEN$ 4210: SPRITE START POSITIONS# 2510: SET-UP WALK VARIABLES @0,23;(" ",39);# 4390:LINE1~1:LINE2~2:LINE3~3 4390: MESSAGE-SCREEN COMND$~( z &DF)8 COMND$~"I" s 2670: 3020: DISPLAY INSTRUCTIONS( COMND$~"F" s 3690: FINISH GAME:& COMND$~"E" s DICNAME$~"DICTIONE.DAT":DCSZ~97: 3150:0 COMND$~"H" s DICNAME$~"DICTIONH.DAT":DCSZ~80: 3150 : 3080D 4390: CLEARS MESSAGE6N LINE1~4:LINE2~5: 4390: IF YOU CAN THINK OF WORDX DICNAME$,FD$b REC0RD ~ 1 r (DCSZ)l #FD$;W0RD$ v REC0RD FD$( WE NOW HAVE THE WORD TO BE GUESED WRDL~(W0RD$) PRNST~22uWRDLu1L WRDL  5 s TRYSLF ~2w WRDL: TRYSLFT~WRDLt4: TRYSLFT}13 s TRYSLFT~136 TRYSLFTu4}4 s MOVESTART~4: MOVESTART~TRYSLFTu4 M$(17)~M$(7)t(WRDL)tM$(8) M$(18)~(TRYSLFT)tM$(9) 4390: CLEAR MESSAGE LINE1~17 LINE2~18 LINE3~10 4390: MESSAGE @PRNST,23;""; LRCOL" I~1 r WRDL: PUT OUT DASHES "_ ";* I 4 LTF~0)> MANNM~0:T0GGLE~0: WALK START SHAPES9H FSTLTTER~u1:TRY$~"": FIRST LETTER TO BE GUESSED YET!R TRYSLFT~TRYSLFTu1 r 0 p u1X\ TRYSLFT~0 s M$(19)~M$(11)t(TRYSLFTt1)tM$(13): M$(19)~M$(11)t(TRYSLFTt1)tM$(12),f FSTLTTER s LINE1~19:LINE2~10: 4390p FSTLTTER~0^z TRYSLFT~2 z (WRDLuLTF)}3 s 3:@11,4;"Press @ for a hint.": 4:"V0+C3G5R1","R1","R1"= LTTETrack-Info  N * START POSITION FOR MAN ** 10,190,46,11,&C0 11,190,46,5 ,&C4** NOOSE **7 11: 104,64: 104,63: 105,62: 106,63: 106,64&0** MESSAGE-OUT**:D MESCOL,0N@0,2;M$(LINE1)X@0,3;M$(LINE2)b@0,4;M$(LINE3)7lLINE1~0:LINE2~0:LINE3~0: ALL MESAGES SPACES AGAINv"*** ADVANCE MAN TO GALLOWS**** VARIABLES PASSED6 TRYSLFT-THE NUMBER OF TRYS LEFTT BEFORE HANGINGO MOVESTART-THE TRYSLFT UPON WHICH THE MAN STARTS ADVANCING TO THE GALLOWSA TRYSLFTMOVESTARTt1 s PCULLISDOWN s PCULLISDOWN~0: 4880) TRYSLFT~0 s 5010: 4580: HANG!!D TRYSLFT  MOVESTARTt1 s 4590: ADVANCE MAN TO CURRENT XHALT** MOVE MAN **)  XD~XSTART r XHALT(TRYSLFT) p u1 XD  114 s 47704  XD  137 z XD } 113 s YD~YDt1 : 4690:MANNM~1* XD } 136 s 4770 4 XD>XSTART~XHALT(TRYSLFT)u1HR\** UPTHE STEPS **fRp T0GGLE s YELB~&B8:BLUB~&BC:T0GGLE~0: YELB~&A8:BLUB~&AC:T0GGLE~u1:X~XD:Y~YDz 10,X,Y,11,YELB 11,X,Y, 5,BLUB W~0 r 180: W** WALKING ** MANNM~2 { MANNM~3 s X~XDYELB~YELBIT(MANNM)BLUB~BLUEBIT(MANNM) 10,X,Y,11,YELB 11,X,Y, 5,BLUB W~0 r 90: W&MANNM~MANNMt1: MANNM~4 s MANNM~0** LIFT PORTCULLIS **$.1,&0F: CH A LOW NOTE8 6,&1F: NOISE PERIODB 8,&09: CH A AMPLITUDEL YC~46 r 62V 1,190,YC,3,&B0` 2,190,YC,1,&B48j 7,&76: W~YC r 100 : W:7,&7F: PORTCULLIS SOUNDt W~(YCu46)w6 r 110: W ~ YC** HANG **  0,&7F  2,&7F  4,&7F  6,&0A  8,&10  9,&10 &A,&10 &C,&0B  7,&47 &D,&05 10,98,67,11,&C0 11,98,67,5 ,&C4( W~0 r 400 : W2 Y~67 r 71< 10,98, Y,11,&C0F 11,98, Y, 5,&C4P Y Z&D,0d I~0 r 10 n 7,&7Fx I~ 24 r 9 p u1%I: @11,2;"HANGED...HA HA HA!" IGA$~"V0-C7R1-C6R1-C5R1-C7-#D6R1-D5R1-D7R1-C5R1-C7R1=#A5R1-C7R6R6R6" 5: A$,"R","R"** BADLETTER-MUSIC ** 7U"V0-C1-#C1-D1-#D1-E1-#D1-D1-#C1-C3R1","V0-C1=B1=#A1=A1=#G1=A1=#A1=B1-C3R1","R1"** MAN YIPPIE ** PCULLISDOWN s 5500 JUMP~4" I~0 r 15, 10,X,Y,11,&D06 11,X,Y, 5,&D4@ I~0 s W~1 r 200: WJ W~0 r 50: WTY~YtJUMP:JUMP~uJUMP^ Ih 10,X,Y,11,&C0r 11,X,Y, 5,&C4|** HINT ** I~1 r WRDLHNT$~(W0RD$,I,1) J~1 r (TRY$)+ HNT$~(TRY$,J,1) s HNT$~"":J~(TRY$) J  LRCOLN HNT$}"" s @(PRNSTu2t(2wI)),23;HNT$;: 5:"+E5-E2+E5R1","R","R":I~WRDL I6LTF~LTFt1: 4480:TRY$~TRY$tHNT$:TRYSLFT~TRYSLFTu1XM$(19)~M$(11)t(TRYSLFTt1)tM$(12):LINE1~19:LINE2~10: 4390: TRYSLFT~0 s @25,2:" "I0cI~@ EZ``HXP0Y~YtJUMP:JUMP~uJUMP^ Ih 10,X,Y,11,&C0r 11,X,Y, 5,&C4|** HINT ** I~1 r WRDLHNT# ****************************# * *# * SNAKES V011 *# * *# **************************** By Nigel Deakin $ SNAKES. Version date 14/6/84*8 copyright (c) 1984 Tatung (UK) Ltd.B2L: 4: K~0 r 14: K," ": K: START LINE 1=V Z s : 1000:Z~u1: : 1000: 1180: START LINE 2` 2870: ** INITIALIZATIONj 2080: ** INTRODUCTIONt 1780: ** INSTRUCTIONS!~ KCH s 1930: CHANGE KEYS 2630: ** GAME STUCTURE AGAIN s 2880:1160' Z s 320: :4:: FINISH LINE ** PLAY GAME?7:K~:3,4: GOES}1 s @10,23;: A~2 r GOES:(128);:A911,6:@1,23;" LEVEL";LEVEL;@17,23;" SCORE:";:1,1H0,0:1,2:2,0:3,1:4,0:5,3:8,16:9,15:10,15:7,&76:11,0:12,1 ** PLAYER MOVE:6,0:D~UD:K~: K~KR s D~0:13,4: K~KD s D~1:13,4, K~KL s D~2:13,4: K~KU s D~3:13,4UD~(Dt2)y4sD~UDHUX1~(UXtXD(D))y32:UY1~(UYtYD(D))y23:HIT~(&3C00t32wUY1tUX1)127)t1VS%~S%t1:11:@UX,UY;(CHR(UD,D));@UX1,UY1;(128tD);@25,23;S%;:UX~UX1:UY~UY1:UD~D% OK~0:D~CD:DT~D:** COMPUTER MOVEnCX1~(CXtXD(D))y32:CY1~(CYtYD(D))y23:&3C00t32wCY1tCX1)}127sCX2~CX1:CY2~CY1:1330: CX3~CX1:CY3~CY1:OK~1KCX2~(CX1tXD(D))y32:CY2~(CY1tYD(D))y23: &3C00t32wCY2tCX2)}127 s 13302( (1).05 s D~(Dt((1)u.5))y4: 1300: 1360h26,31:13,4:D~(Dt((1)u.5))y4:CX1~(CXtXD(D))y32:CY1~(CYtYD(D))y23: &3C00t32wCY1tCX1)127 s 1360S<D~(Dt2)y4:CX1~(CXtXD(D))y32:CY1~(CYtYD(D))y23: &3C00t32wCY1tCX1)127 s 1360<FCX1~CX3:CY1~CY3:D~DT: OK~0 s HIT~HITt2:CX1~CX2:CY1~CY2RP8:@CX,CY;(CHR(CD,D));@CX1,CY1;(Dt128);:CX~CX1:CY~CY1:CD~D: HIT~0 s 1240TZ FOOD%(UX1,UY1)~u1s 7,&7D:FOOD~FOODu1:FOOD%(UX1,UY1)~0:7,&77:S%~S%t20: 1240Kd FOOD%(CX1,CY1)~u1s 7,&7B:FOOD~FOODu1:FOOD%(CX1,CY1)~0:7,&77: 1240nx** HIT ROUTINE15,4:@1,23;S HIT~3 {(CX1~UX1 z CY1~UY1) s " WE'VE BOTH CRASHED ! ";: 1720: 1490 HIT}2 s 1480," I'VTrack-Info  N fM1$~"V1 R6 +C6R6 +C6R6 +C6R6 +C6R6 +C6B6 B6 +C9R1 "8pM2$~"V1 R6 G6 R6 G6 R6 G6 R6 G6 R6 G6 G6 G6 G9 R1 "z A~1 r 72 p 3X0$~(M0$,A,3)X1$~(M1$,A,3)X2$~(M2$,A,3) X0$,X1$,X2$ 5:@Ax3t2,2;(132);(128)"3:@26uAx3,21;(130);(132)A A~1 r 800:A ** SNAKES PRINTOUTHR~38:VR~100:S~0:B~45 T~BtVR L~1 r 6  F~StHR( L 2570,2530,2370,2480,2430,2570 S~StHRw1.1$ L. 8 LETTER'A'&B A1~.3wVRtB:A2~.5wVRtB:A3~.75wVRtB%L A4~.3wHRtS:A5~.5wHRtS:A6~.7wHRtSJV S,B r A4,B r A4,A1 r A6,A1 r A6,B r F,B r F,A2 r A5,T r S,A2 r S,B%` A4,A2 r A6,A2 r A5,A3 r A4,A2j t *LETTER 'E'0~ E1~.2wVRtB:E2~.4wVRtB:E3~.6wVRtB:E4~.8wVRtB E5~.2wHRtS:E6~.6wHRtS` S,B r F,B r F,E1 r E5,E1 r E5,E2 r E6,E2 r E6,E3 r E5,E3 r E5,E4 r F,E4 r F,T rS,T r S,B  LETTER'K'% K1~.3wVRtB:K2~.5wVRtB:K3~.7wVRtB( K4~.25wHRtS:K5~.35wHRtS:K6~.65wHRtSW S,B r K4,B r K4,K1 r K6,B r F,B r K5,K2 r F,T r K6,T r K4,K3 r K4,T r S,T r S,B  *LETTER 'N' N1~.4wVRtB:N2~.6wVRtB N3~.2wHRtS:N4~.8wHRtSO S,B r N3,B r N3,N2 r N4,B r F,B r F,T r N4,T r N4,N1 r N3,T r S,T r S,B  *LETTER 'S' S7~.2wHRtS:S8~.8wHRtSH S1~.2wVRtB:S2~.25wVRtB:S3~.4wVRtB:S4~.6wVRtB:S5~.75wVRtB:S6~.8wVRtBF( S,B r F,B r F,S4 r S7,S4 r S7,S6 r S8,S6 r S8,S5 r F,S5 r F,TE2 F,T r S,T r S,S3 r S8,S3 r S8,S1 r S7,S1 r S7,S2 r S,S2 r S,B< F ** GAME STRUCTUREP GOES~4:S%~0:LEVEL~1: 2660 Z 1400Cd V~(&FB3E): V128 s (&FB3E),Vt128:&22,0: SET TO UPPER CASE,n 2,1:32: LEVEL 2690,2700,2710,2740x 1400: HIT ROUTINEK LIMIT~100:UX~8:CX~20: 250: 1200: 255: 2650: * LEVEL 1-SLOW NORMAL8 LIMIT~200:UX~20:CX~8: 1200: 2650: * LEVEL 2-FAST * LEVEL 3-FAST +OBSTACLES 2770: RANDOM OBSTACLESH TREE~TREEt5:CX~31:UX~31:CY~5:UY~15:CD~2:UD~2:LIMIT~300:1200: 2650% * LEVEL 4-FAST +OBSTACLES+FOOD8 TREE~TREEt5: 2770: 2810: 2840: * OBSTACLES+FOOD3 CX~31:UX~31:CY~5:UY~15:CD~2:UD~2: 1200: 2650 ** RANDOM OBSTACLES' S~1 r TREE:S1~(27)t2:S2~(19)t2b S3~(6): S4~0 r S3:@S1,uS2w(S2}15);(140);:A~(4):S1~(S1tXD(A))y32:S2~(S2tYD(A))y23:S4:S 2 CX1~1 r 32: D~1 r 23:FOOD%(CX1,D)~0:D,CX1 FOOD CANCEL  ** FOODZ" FOOD}0 s 13: S~1 r FOOD:S1~(27)t2:S2~(19)t2:@S1,S2;(150);:FOOD%(S1,S2)~u1:S, 6 ** INITIALIZATIONC@ V~(&FB3E): V128 s (&FB3E),Vt128:&22,0: SET TO UPPER CASE8J define most commonly used first for maximE CRASHED - YOU WIN ";: 1720R LEVEL}4 z S%}LIMIT s LEVEL~LEVELt1:@1,23;" NOW YOU MOVE UP A LEVEL ";] LEVEL~4 z FOOD~0 s LEVEL~LEVELt1:@1,23;" THATS IT,YOU HAVE WON ";:5,1: 1590 A~1 r 400:AP HIT~1 s " YOU CRASHED - I WIN ";:GOES~GOESu1: 1660: SAD MUSICU S%}EXMAN s GOES~GOESt1:EXMAN~EXMANt500:@1,23;" YOU HAVE AN EXTRA SNAKE "; A~1 r 700:A GOES}0 s  ** GAME OVER,@1,23;" NO MORE GOES LEFT "; game over music4:0,0,10,3,36,3"M0$~"V0+C5+D#5+C5G5A#5D5C7R5""M1$~"V0-C8-G8-G7R5", M0$,M1$,"R"6 A~1 r 1000:A*@1:15,0:32:@9,6;"YOU SCORED ";S%J 2110: MUSIC+T8:@4,13;"PRESS SPACE TO PLAY AGAIN",^@1,18;"PRESS ANY OTHER KEY TO FINISH";(h1:I~: I~32 s AGAIN~u1: AGAIN~00r A~1 r 300:A::: RETURN TO MAIN CONTROL| ** LOSE MUSIC0,0,10,3,36,3*7:M0$~"V0R6F6R6D#6R6C6-A#6-G#6-F9R1"*M1$~"V0-F6R6-D#6R6=C6R6=A#6=G#6=F9R14 M0$,M1$,"R" ** WIN MUSIC0,0,10,3,36,3)7:M0$~"V0R6F6R6D#6R6C6C6D#6G#6F9R1"-M1$~"V0-F6R6-D#6R6=C6-C6-E6-F#6-B6-A9R1" M0$,M1$,"R" ** INSTRUCTIONS40:15,0:1"," SNAKES",,," "Y11:@0,4;" Direct your snake (the yellow one) to avoid hitting any obstacles."G@0,7;" The computer also has a snake so watch out!"5&9:@0,10;" Use these keys to move your snake."0@11,12;"LEFT -Z":@11,14;"RIGHT -X"D@11,16;"UP -:"N@11,18;"DOWN -/"8X15:@2,20;" If you don't like these keys press K"%b@6,22;" Press SPACE to play ";(lI~: I}32 z I}75 z I}107 s 1900"vKCH~0: I~75 { I~107 s KCH~u1 ** KEY SELECTION&40:," SNAKES",,," "+@0,4;"Press the keys you would like."+@3,6;"(Note:some keys arn't allowed)".@10,8;"LEFT ";(KL);(8);: 2030:KL~KA@10,10;"RIGHT ";(KR);(8);: 2030: K~KL s 1980: KR~KH@10,12;"UP ";(KU);(8);: 2030: K~KL { K~KR s 1990: KU~KO@10,14;"DOWN ";(KD);(8);: 2030: K~KL { K~KR { K~KU s 2000: KD~K$@6,20;"Press SPACE to play ";I~: I~32 s : 2020 GET KEYK~: K32 { K}127 s 20402 K&7B z K}&60 s K~K z &DF: LOWER CASE MASK  (K)  ** INTRODUCTION*15,1:1:8,0:324 2270: SNAKE PRINTOUT>0,0,13,3,36,3H1,0,10,3,36,3R 7\M0$~"V0 -C6R6 =G6R6 -C6R6 =G6R6 -C6R6 =G6R6 -C9R1 " 8Track-Info  N um speedwT D~0:CX1~0:CY1~0:HIT~0:UX1~0:UY1~0:CY~16:UX~8:UY~8:UD~0:CX~20:CY~16:K~0:S%~0:OK~2:CD~2:CX2~0:CY2~0:CX3~0:CY3~0:DT~0,^ AGAIN s 2810:TREE~20:FOOD~20: 3090Eh KR~88:KD~47:KL~90:KU~58:EXMAN~500: FOOD%(32,23):FOOD~20:TREE~20/r 5,0: SUPRESS TRAILING SPACE ON PRINT VAR*| 128,"001C7EF3FF7E1800": HEAD RIGHT* 129,"1C3C3C7E76363C18": HEAD DOWN.* 130,"00187EFFCF7F3800": HEAD LEFT.' 131,"183C6C6E7E3C3C38": HEAD UP+ 132,"000070FFFF0E0000": BODY HORIZ.* 133,"181C1C1C38383838": BODY VERT.- 134,"183878F0E0000000": CURVE UP-LEFT. 135,"181C1E0F07000000": CURVE UP-RIGHT0 136,"000000070F1E1C18": CURVE DOWN-RIGHT/ 137,"000000E0F0783818": CURVE DOWN-LEFT$ 150,"001808183C3C1800": FOOD* 1,0,0,1,-1,0,0,-1:REM FOR DIRECTION A~0 r 3: XD(A),YD(A):M 132,137,0,134,135,133,134,0,0,136,132,135,136,0,137,133:REM FOR SHAPES) A~0 r 3: B~0 r 3: CHR(A,B):B:A B  8B *)# ****************************# * *# * PICTURE PEN V 013 *# * *# **************************** By David Wess $ PICPEN. Version date 20/6/84*8 copyright (c) 1984 Tatung (UK) Ltd.BL*** MAIN-CONROL ***V2`: 4: K~0 r 15: K," ": K: START LINE 1Gj Z s &DFFF: 1000:Z~u1: &DFFF: 1000: 1230: START LINE 2t 3800: SET-UP ~ 1240: INTRODUCTION-PAGE) 1530: MENU-PAGE RETURNS COMMAND- COMND~1 s 1690: DIPLAY-INSTRUCTIONS) COMND~2 s 2640: PAINT-A-PICTURE, COMND~3 s 4320: SET-DIRECTION-KEYS0 COMND~4 s 4570: SELECT JOYSTICK ON/OFF COMND~5 s 1230  1160* Z s 320: :: 4:: FINISH LINE  *** INTRODUCTION PAGE ***- 4,0:1,0:14: 32:@0,0;"": SET UP I~1 r 61 C~(13): C~0 s 1290  C,0:"*PICTURE*PEN";: I 12,0 :(&14);( @12,5;""2 @12,6;" "< @12,7;" "F @13,8;" "P @11,9;" "Z @10,10;" "d @10,11;" "n @10,12;" "x @10,13;" " @10,14;" " @10,15;" " @10,16;" " @10,17;" " @10,18;"" 6: 128, 48  15,6@13,12;"PICTURE"@15,14;"PEN". 15,4:@ 8,23;" PRESS SPACE ";(8); } &20 s 1510*** MENU-PAGE ***$ RETURNS COMND TO MAIN-CONTROL$"(&14): 15,0: 12: 40: ,@13,0;"PICTURE PEN MENU".6@ 4,6;"SELECT AN OPTION BY PRESSING THE" @@ 4,8;"CORRESPONDING KEY:"'J@9,12;"SEE THE INSTRUCTIONS 1"'T@9,14;"DRAW A PICTURE 2"'^@9,16;"SELECT PEN CONTROL KEYS 3"'h@9,18;"JOYSTICK SELECTION 4"'r@9,20;"END DRAWING SESSION 5"|COMND~u48 COMND1 { COMND}5 s 1660"*** DISPLAY-INSTRUCTIONS ***,6: 40: 6@0,0;"";: CURSOR HOME)" PICTURE PEN INSTRUCTIONS"** PAGE 1 ** ::." Picture pen is a graphics doodling"-" tool for aspiring computer artists."/" You can draw any shapes that you wish"." to, using the keyboard and/or a joy-"+&" -stick to guide the pen,in any of"/0" the colours provided in the ink wells",:" (you'll see the ink wells when you"/D" start to draw). Shapes you have drawn",N" can be coloured in so that you can"*X" create complex coloured pictures".b" in minutes. No Sexton Blakes PLEASE!"l::::.v" Press SPACE to continue." } &20 s 1920 ** PAGE 2 **  40:@0,0;"";: CURSOR HOM(" PICTURE PEN INSTRUCTIONS":*" You can control Picture Pen by"+" pushing the following single keys"/" whilst you are producing your master-"" piece:"" KEY EFFECT" " C Change ink colour*" D Draw a line to the pen nib") " from the last point drawn""*" S Start the ink flow"!4" O Stop the ink flow",>" U Rub out at the pen nib until"!H" S or O is pressed"/R" F Fill in a shape surrounding the"*\" nib in any colour required"*f" T Take away the pen (pressed"%p" again brings it back)".z:" Press SPACE to continue" } &20 s 2180** PAGE-3 **! 40:@0,0;"";: CURSOR HOME(" PICTURE PEN INSTRUCTIONS":" More controls:"" KEY EFFECT":'" B Change background colour"" R Draw a circle"*" E Clear the screen and return"* " to the menu. Watch this one"+ " it will DESTROY your work of" " art!"$ (. " ";(LT);" Move the pen LEFT")8 " ";(RT);" Move the pen RIGHT"-B " ";(DN);" Move the pen DOWNWARDS"+L " ";(UP);" Move the pen UPWARDS"V -` " 1-4 Controls the speed of the pen."-j " Track-Info  N  % HMESS$(14)~" "t(LT)t" pen left"& HMESS$(15)~" "t(RT)t" pen right"#* HMESS$(16)~" "t(UP)t" pen up"%4 HMESS$(17)~" "t(DN)t" pen down"> HP~1 r 17 H "V0=C1-C1C1+C1R1","R","R",R MES$~HMESS$(HP): 3550: W~0 r 1200: W$\ SPACE~u1: 3550: CLEAR MESSAGE f HP*p SPACE~u1: 3550: FINISH WITH A SPACEz   **UPDATE-PEN-POSITION **  PEN 3530 8,X,Yt16,INKCOL,144 9,Xt8,Yt24,INKCOL,148 10,Xt16,Yt32,INKCOL,152   ** MESSAGE-ROUTINE *** 4,14 SPACES s MES$ ~(" ",31)@ 0,23;MES$;:SPACE~0@0,23;"";$.** PREPARE-THE-SCREEN **8B(&14): CURSOR OFF*L32:0:X~0:Y~17: 2:E~0:DR~0:PEN~u16V 0,14:@0,23;" Press H if you need help ";,`14,14: 254,0r 254,15: 5,0: 15,0j @ 0,22;"";: CURSOR 0,22 t ** COLOURED PAINT POTS **(~ POTS~1 r 15: EXCLUDE TRANSPARENT 14,14:" ";& POTS~1 s 15,POTS: 1,POTS (156);  POTS 14,0: 0,16 r 255,165 14,14:" ";:INKCOL~4: INKCOL,0 : @0,23;"";' X,Y r X,Y,1: PEN START CO-ORDS*** SET-UP ***f : 0,0:DIS~0:INKCOL~0:X~0:Y~0:XJ~0:YJ~0:CR~0:R~0:DR~0:JS~0:LT~&5A:RT~&58:DN~&2F:UP~&3A:PEN~0( 0,10,15, 00,120,0: TYPE OF SOUND!  5: THE SPEED OF THE NOTES(FMESS$~" Fill colour selection"(FMES1$~" Fill only on backgroud"-(RMESS$~"Move pen to a circle edge point",2RMES1$~" Press ENTER when in position"*<RMES2$~" Position your pen higher"F 156,"E7E7C381818181FF"-PCMESS$~" SPACE bar to select then ENTER"*ZBMESS$~" Background colour selection"-dUMESS$~" Rubber: S or O stops rubber"5nJMESS$~" Plug a proportional-type joystick into"5xJMES1$~" the socket marked ANALOGUE 1. Then you"4JMES2$~" may use the joystick and the keyboard"&JMES3$~" to control Picture Pen."$ HMESS$(17): HELP MESSAGE SET1HMESS$ (1)~"Don't panic here comes the help"/HMESS$ (2)~"The following functions exist"-HMESS$ (3)~" B change background colour"$HMESS$ (4)~" D draw to pen nib"&HMESS$ (5)~" S start ink flowing"'HMESS$ (6)~" O turns off ink flow"/HMESS$ (7)~" U rubout until S or O is hit"1HMESS$ (8)~" F fill a shape surrounding nib"&HMESS$ (9)~" C change ink colour"2HMESS$ (10)~" T turn pen on /off alternately"1HMESS$ (11)~" E clear screen...back to menu"#HMESS$ (12)~" R draw a circle"1HMESS$ (13)~" 1,2,3 and 4 pen speed control"$" &E000,&CF,&B5,&32,&10,&E0,& 1 the slowest to 4 the fastest"t -~ " Press SPACE to continue" } &20 s 2440  ** PAGE-4 ** 40:@0,0;"": CURSOR HOME( " PICTURE PEN INSTRUCTIONS" ::( " The best way to get to know "# " Picture Pen is to try it."- " Anytime that you get stuck type H"- " for HELP and you'll be reminded of "( " the commands at your disposal,"- " without your creation disappearing."   /( " Press SPACE to return to the menu."2 } &20 s 2610< F P *** PAINT-A-PICTURE ***Z d 3620:DIS~1: SETUP SCREENn JS s 2710x XJ~0):YJ~1), XJ30 s X~XuDIS: XJ} 224 s X~XtDIS+ YJ30 s Y~YuDIS: YJ}224 s Y~YtDIST (&FB3E)128 s (&FB3E),(&FB3E)t128: &22,0: IF LOWER CASE THEN UPPER CASE$ &E000:CR~(&E010): SCAN KEYS CR~LT s X~XuDIS: 2800 CR~RT s X~XtDIS: 2800 CR~DN s Y~YuDIS: 2800 CR~UP s Y~YtDIS: 2800 R s 2800 Y17 s Y~17# CR}0 s 4910: KEY CONTOLS' Y17 s Y~17: NOT BELOW THE POTS PEN s 2830O 8,X,Yt16,INKCOL,144: 9,Xt8,Yt24,INKCOL,148: 10,Xt16,Yt32,INKCOL,152 DR~u1 s r X,Y: 2670: DR~2 s DIS~2: X,Y: Xu1,Y: Xt1,Y:Xu1,Yt1: X,Yt1S" DR~2 s Xt1,Yt1: Y18 s 2870: DR~2 s X,Yu1: Xt1,Yu1: Xu1,Yu1: 2870 , R s 6 2670@ J T ** KEY-SCAN **^ 8h &E000:CR~(&E010): CR}&60 z CR&7B s CR~CR z &DFr |  **CHANGE-COLOUR **  XS~X:YS~Y:PENS~PEN:PEN~u1& Y~16: ALONG THE TOP OF INK WELLS( MES$~CMESS$: 3550: OUTPUT MESSAGE X~(INKCOLw16)u4! 3460: UPDATE PEN POSITION CR~&20 s W~0 r 50: W 2890: SCAN KEYBOARD6 CR~&0D s INKCOL,0:PEN~PENS: : 3070:EXIT7 CR~&20 s INKCOL~INKCOLt1 : INKCOL}15 s INKCOL~1 3000. SPACE~u1: 3550: REMOVE THE INSTRUCTIONS/ X~XS:Y~YS:: RETURN WITH X AND Y RESTORED $ ** CHANGE-BACKGROUND-COLOUR **& $0 SPACE~u1: 3550: CLEAR MESSAGE': MES$~BMESS$: 3550: W~0 r 400: WD INKS~INKCOL: SAVE INKCOLN 2940: GET COLOURX INKCOL+b INKCOL~INKS: INKCOL: RESTORE INKCOLl : WITH NEW BACKGROUNDv  **FILL-ROUTINE** ) SPACE~u1: 3550: CLEAR MESSAGE LINE 4690; MES$~FMESS$: 3550: W~0 r 300: W:DR~0: FILL MESSAGE INKS~INKCOL 2940: SELECT COLOUR INKCOL,0: X,Y X,Y INKCOL~INKS: X,Y: INKCOL! Z s 320: 1230   ** HELP-ROUTINE **Track-Info  N C9,6* DEFINE PEN *@J 144,"0000000000010307"T 145,"0F3F3F1F3E76E0C0"^ 146,"0F1F3F77EEDCF8B0"h 147,"E0C0800000000000"r 148,"0000000000010307"| 149,"0000000000000000" 150,"0F173B7DFEFCF8F0" 151,"E0C0800000000000" 152,"000000000103070F" 153,"0000000000000000" 154,"003C7EFEFEFEFCF8" 155,"F0E0C08000000000"** SET-DIRECTION-KEYS **' 1,0: 11: 40:(&11):LTRS$~""&@ 10,0;"DIRECTION KEY SELECTION"/@ 5,3;"Enter your new direction control:"N@ 16, 7;"Left ";(LT);(8);:KY~: 4420: OK s 4360: LT~KY:(KY)N@ 16,11;"Right ";(RT);(8);:KY~: 4420: OK s 4370: RT~KY:(RT)N@ 16,15;"Up ";(UP);(8);:KY~: 4420: OK s 4380: UP~KY:(KY)N&@ 16,19;"Down ";(DN);(8);:KY~: 4420: OK s 4390: DN~KY:(KY)0 W~0 r 500: W:D#N* CHECK-FOR-OK-CONTROL-CHAR *X b 4560 lOK~u1v I~1 r 15# BDLTR: KY~BDLTR s OK~0:I~15 I  KY } 127 { KY  32 s OK~02 KY&7B z KY}&60 s 4830:KY~KY z &DF: 4450< J~1 r (LTRS$): (KY)~(LTRS$,J,1) s OK~0:J~(LTRS$) J OK s LTRS$~LTRS$t(KY)B &42,&43,&4F,&53,&44,&45,&46,&54,&55,&48,&31,&32,&33,&34,&52"** SELECT-JOYSTICK-ON/OFF **(&11): 1,0: 7: 40 @12,0;"JOYSTICK SELECTION"2 @2,4;"Do you want to use a joystick (Y/N)?";CM$~( z &DF)C  CM$~"Y" s JS~u1:@0,10;JMESS$:JMES1$:JMES2$:JMES3$: 4670;* CM$~"N" s JS~ 0:@12,10;"Joystick not in use": 4670 4 4630M>(&14);: @4,22;"Press SPACE to return to the menu.": $}" " s 4670HR\** FILL-ERROR-TRAP **fpz** CIRCLE-ROUTINE **BR~u1:DRS~DR:DR~0:SPACE~u1: 3550:MES$~RMESS$: 3550: MESSAGE@XS~X:YS~Y: W~0 r 500: W:SPACE~u1: 3550:MES$~RMES1$:3550% 2670: 2890: CR}&0D s 4780XR~XuXS:YR~(YuYS)x1.333bRD~((XRwXRtYRwYR)):YSu(RDw1.333)16 s X~XS:Y~YS:MES$~RMES2$:3550::W~0r300:3470: 47608 XS,YS,RD,,0,0,0:R~0:SPACE~u1: 3550:DR~DRS: X,Y** SET-ALPHA-LOCK-ON **R (&FB3E)128 s &FB3E,(&FB3E)t128: &22,0: IF LOWER CASE THEN UPPER CASE** KEY-CONTROLS **$. CR~&31 s :DIS~18 CR~&32 s :DIS~2B CR~&33 s :DIS~4 L CR~&34 s :DIS~8: SPEED4V CR~&42 s : 3090: CHANGE BACKGROUND COLOUR)` CR~&43 s : 2940: CHANGE COLOUR7j CR~&4F s :DR~0:SPACE~u1: 3550: TURN OFF DRAW"t CR~&52 s : 4730: CIRCLEI~ CR~&53 s :DR~u1 : X,Y r X,Y:DR~u1:SPACE~u1: 3550: START DRAW9 CR~&44 s : r X,Y:SPACE~u1: 3550: DRAW TO PEN' CR~&45 s ::: END OF PICTURE  CR~&46 s : 3190: FILLC CR~&54 s : :PEN~ PEN: : W~0 r 100: W: TOGGLE PEN: CR~&55 s :DR~2:DIS~2:MES$~UMESS$: 3550: RUB OUT CR~&48 s 3320: HELPPLOUR)` CR~&43 s : 2940: CHANGE COLOUR7j CR~&4F s :DR~0:SPACE~u1: 3550: TURN OFF DRAW"t CR~&52 s : 4730: IMPROVISE IMMATURE IDEOLOGY ICE HUE HERMETIC HAUNT HARPSICHORD ZEST GADGET FANFARE FALLOW FALCON DUNGEON CAMERA CARTOON CRUSADE BLIZZARD STATIC SPECTRUM SAXOPHONE SALVATION ANECDOTE ALBUMEN AGGRAVATE AQUALUNG ASTRONAUT BUTANE COMPUTER CONQUER CONCUR CONKER DELICATESSEN DEMARKATION TURBINE DIESEL QUAIL MONITOR GRADUATE TRANSISTOR JARGON BANQUET MASTIC BELFRY RHYTHM YACHT BAZAAR PIZZA VERANDA SPAGHETTI VAGUE ROULETTE KNIT JUVENILE JUNTA JOIST REJOICE JOVIAL QUAINT DESPOT DEPOT QUARRY PIGEON FORLORN PICTURESQUE BANAL PERPLEX ORTHODOX ORNATE OVATION OOZE OMEGA NERVE MORTGAGE VACCINATE MARSHALL MAGENTA LAX AXE LAUREL MPUTER CONQUER CONCUR CONKER DELICATESSEN DEMARKATION TURBINE DIESEL QUAIL MONITOR GRADUATE TRANSISTOR JARGON BANQUET MASTIC BELFRY RHYTHM YACHT BAZAAR PIZZA VERANDA SPAGHETTI VAGUE ROULETTE KNIT JUVENILE JUNTA JOIST REJOICE JOTrack-Info  N          ides] end to bar :number fd :number bk :number rt 90 fd 90 lt 90 end to chart :values if emptyp :values [stop] fd first :values rt 90 fd 10 rt 90 fd first :values rt 180 chart bf :values end to histogram :values cs ht pu seth 0 lt 90 fd 120 lt 90 fd 60 rt 180 pd chart :values end to beepmess :mess tones [70 2] if emptyp :mess [stop] make "mbuff se :mbuff first :mess if :shaketurtle = [yes] [rt 45] setcursor [0 20] pr :mbuff beepmess bf :mess end to tpat :tsize :tcol ht if :tsize > 400 [stop] pu setpc :tcol make "t1 :tsize * (12 / 20) bk :t1 / 4.5 pd rt 120 fd :t1 lt 150 fd :tsize lt 120 fd :tsize lt 150 fd :t1 lt 150 fd :tsize / 22 rt 90 pu fd :t1 / 4.5 zap tpat :tsize + 45 :tcol + 1 end to zap tones [500 1] tones [502 1] tones [504 1] tones [550 1] tones [576 1] tones [600 1] tones [626 1] tones [650 1] tones [676 1] end to messprep make "mbuff " setcursor [0 24] pr " setcursor [0 20] end to facesmile cs st setpc 11 pu fd 20 lt 90 fd 60 rt 125 pd eye 0 pu seth 90 fd 40 pd eye 0 pu seth 270 fd 73 lt 90 fd 30 lt 45 pd mouth pu seth 270 fd 22 rt 90 fd 20 end to eye :move if :move = 12 [stop] fd 3 rt 5 eye :move + 1 end to mouth setpc 9 repeat 10 [lt 8 fd 5] end to pie setpc 11 repeat 60 [fd 2 rt 6] rt 90 fd 19 lt 40 fd 19 bk 19 rt 60 fd 19 end to engine cs setbg 12 setpc 1 messprep beepmess [.....You can doodle with Dr. Logo.....] pu rt 90 fd 20 lt 90 pd ;start point fd 20 lt 90 fd 5 rt 90 fd 5 rt 90 fd 50 rt 90 fd 50 rt 90 fd 15 lt 90 ;cabin repeat 9 [fd 5 rt 20] fd 5 ;wheel lt 90 fd 40 lt 90 repeat 9 [fd 5 rt 20] fd 5 ;wheel lt 90 fd 30 rt 120 fd 20 lt 30 fd 8 rt 90 fd 8 ;front lt 90 fd 15 lt 45 fd 18 rt 135 fd 40 rt 135 fd 18 lt 45 fd 15 ;funnel lt 90 fd 30 lt 90 repeat 9 [fd 1 rt 20] fd 1 lt 90 fd 28 ;top pu fd 10 pd repeat 2 [fd 20 lt 90 fd 10 lt 90] pu bk 90 lt 90 fd 30 pd setpc 15 arc 6 lt 90 arc 4 lt 90 arc 7 rt 30 arc 4 lt 60 arc 3 end to cir :n :c ;where n is the number of cycles and c ;is the color setscrunch 0.8 ht home clean make "a 0.5 setpc :c ht rt 270 label "loop repeat 10 [fd :a rt 36] rt 15 make "a :a + 0.5 make "b (2 * :a) - 1 if :n < :b [go "loopo] go "loop label "loopo zap wait 2 setscrunch 1.312 ;? end to sine :a :i1 :n :c ;a is the amplitude, i1 is the incrmnt. ;n is the nuber of cycles required ;c is the color (0 to 15) pu home setx -130 sety 10 make "x -120 clean pd make "n2 :n * 360 make "i 2 label "again make "deg 0 setpc :c label "loop make "x1 (sin :degSUGAR MOON SALT CAKE TEA BISCUIT BOTTLE SAUCEPAN FRYINGPAN COOKER SPOON FORK COOK LUNCH DINNER PUDDING SWEET FLOUR MEAT BEEF PORK BUTTER MILK MOON PEPPER SINK DISH POT CUP PLATE GLASS TABLE CHAIR JAR MOP COFFEE EGG MUSTARD CUSTARD COCOA DOG CAT MOUSE BUDGIE BIRD SNAKE RAT RABBIT HORSE COW HEN CHICKEN SHEEP GOAT DONKEY MULE SCHOOL CAP PEN INK PENCIL RULER RUBBER TEACHER PUPIL LESSON BLACKBOARD DESK CLASS FORM MARKS FOOTBALL CRICKET HOCKEY RUGBY SAILING RUNNING SWIMMING RECORD RADIO DISCO MUSIC VIOLIN DANCING FILM BICYCLE PARTY GAMES HOLIDAY BEACH HOTEL SEA SUN BOAT BALL BAT ARD CUSTARD COCOA DOG CAT MOUSE BUDGIE BIRD SNAKE RAT RABBIT HORSE COW HEN CHICKEN SHEEP GOAT DONKEY MULE SCHOOL CAP PEN INK PENCIL RULER RUBBER TEACHER PUPIL LESSON BLACKBOARD DESK CLASS FORM MARKS FOOTBALL CRICKET HOCKto sketch ;SKETCH by David Wess ;V 001 15/10/84 ;Copyright (c) Tatung (UK) Ltd. 1984 setscrunch 1.312 setbg 0 ht cs st ct draw end to absine :a :i1 :n pu home clean setx 0 sety 70 clean rt 90 make "c 2 make "i 0 pd label "col make "c 2 label "loop make "x1 (sin :i) * :a fd :x1 bk :x1 bk :x1 fd :x1 rt 90 fd 2 lt 90 make "i :i + :i1 if :i > 540 [stop] if :i > (360 * :n) [stop] setpc :c make "c :c + 1 if :c > 15 [go "col] go "loop end to pattern :sides :quant repeat 5 [fd :quant box :sTrack-Info ! N!!!!!!!!!! ) * :a fd :x1 bk :x1 rt 90 pu fd :i lt 90 pd make "deg :deg + :i1 if :deg > :n2 [stop] go "loop end to draw messprep make "intmess [......Meet the Dr. Logo TURTLE ! .....] setpc 9 make "shaketurtle [yes] messprep beepmess :intmess rt 45 tpat 12 5 make "shaketurtle [no] messprep beepmess [........Dr. Logo can talk to you......] tones [2 200] messprep beepmess [....What is your name ?] setcursor [25 20] make "name rl facesmile messprep pr [.........Hello] tones [676 15] zap setcursor [15 20] pr se :name [!] zap cs messprep beepmess [........Dr. Logo for statistics .....] setbg 6 setpc 1 histogram [10 30 40 60 70 120 125 30 34 55 60 62 63 80 10 10 4] pu seth 90 fd 10 lt 90 fd 100 seth 0 pd pie wait 12 engine wait 12 cs setbg 0 messprep beepmess [...Dr. Logo can draw spiral patterns..] zap cir 56 9 zap wait 2 pu home cs pd messprep beepmess [........Dr. Logo can draw graphs......] zap ;sinewave :amplitude, sample interval, number of cycles and colour of pen sine 50 10 3 2 zap wait 2 pu home pd clean ;absine :amplitude, sample interval and number of cycles. absine 95 10 1.5 wait 5 cs ct pr (se [\ \ \ \ \ \ \ \ \ \ \ \ \ Bye] :name) tones [300 5] zap wait 15 cs ct st end to arc :ang repeat :ang [fd 5 rt 20] end pprop "dog "bread "alsation pprop "house "colour "green s [........Dr. Logo can talk to you......] tones [2 200] messprep beepmess [....Whan draw graphs......] zap ;sinewave :amplitude, sample interval, number of cycles and colour of pen sine 50 10 3 2 zap wait 2to quiz ;QUIZ by David Wess ;V 001 15/10/84 ;Copyright (c) Tatung (UK) Ltd.1984 cs setbg 0 setpc 7 ss setscrunch 1.312 messprep beepmess1 [.......Quiz\-time with Dr. Logo......] qmark messprep beepmess1 [........Set ALPHA LOCK off now........] wait 8 jingle runquiz ct cs end to beepmess1 :mess tones [100 1] if emptyp :mess [stop] make "mbuff se :mbuff first :mess setcursor [0 20] pr :mbuff beepmess1 bf :mess end to messprep make "mbuff " ct end to jingle tones [400 20] tones [785 20] tones [660 20] tones [520 20] tones [438 20] tones [745 20] tones [880 5] tones [785 25] end to runquiz recycle messprep beepmess1 [...Press 1 or 2 to select a quiz \ \ \ \ \ \ ...Press e to end] setcursor [19 21] make "command (list rc) if :command = [1] [quiz1] if :command = [2] [quiz2] if :command = [e] [stop] runquiz end to quiz1 zeroscore qout [1 Give the name of the nut used to make \ marzipan?] [almond] qout [2 Which European country has the Zloty \ \ as its unit of currency?] [Poland] qout [3 What is the scientific name for marsh \ gas?] [methane] qout [4 Name the wood traditionally used to \ \ \ make black piano keys?] [ebony] qout [5 In what year was the great fire of \ \ \ \ London] [1666] qout [6 How many players are there in a Rugby \ league team?] [13] qout [7 Damascus is the capital of....?] [Syria] qout [8 How many farthings are there in one \ \ \ pound sterling] [960] qout [9 In what year was Mount Everest first \ \ successfully climbed?] [1953] qout [10 Who wrote the book titled "The Road \ \ \ to Wigan Pier" (surname) ?] [Orwell] messprep beepmess1 (se [..End of Quiz 1 ..you scored] :score [points.]) if :score = 10 [pr [....Well done!..]] tones [100 5] tones [95 5] tones [90 5] tones [85 5] jingle end to zeroscore make "score "0 end to cheer make "score :score + 1 ct pr [...Correct answer.] rt 180 tones [120 2] tones [400 2] tones [800 1] tones [900 2] tones [920 1] tones [930 3] tones [1 30] rt 180 wait 2 ct make "mbuff " beepmess1 (se [...Your score iTrack-Info " N""""" """"" X~1r10  Xv2 X0'}@* @*U@*M@*=?*=mm@*_Ͷ(*_@*A͔trev XBSs now] :score) wait 5 end to retry ct pr [...No your answer is incorrect.] lt 10 repeat 2 [tones [50 10] rt 20 tones [45 10] lt 20] rt 10 tones [40 15] pr [...Do you want to try again (y\/n)] setcursor [36 21] make "reply (list rc) if :reply = [n] [messprep beepmess1 se [....The answer was] :answer wait 5] end to qout :question :answer ct pr :question if rl = :answer [cheer stop] retry if :reply = [y] [qout :question :answer] end to quiz2 zeroscore qout [1 What does a 'palaeontologist' study?] [fossils] qout [2 What kind of creatures live in a \ \ \ \ \ \ 'formicary'] [ants] qout [3 'Cats Tail' and 'Cocks Foot' are \ \ \ \ \ \ species of what?] [grass] qout [4 What metal can be described as \ \ \ \ \ \ \ \ argentine?] [silver] qout [5 What is the name of the chief muscle \ \ used in breathing which separates the \ chest from the abdomen] [diaphragm] qout [6 What is the more common name for the \ \ 'patella'?] [kneecap] qout [7 What is the name of Londons famous \ \ \ \ meat market?] [Smithfield] qout [8 Which orange coloured dye is obtained \ from the autumn crocus?] [saffron] qout [9 What planet in our solar system is \ \ \ \ closest to the Sun?] [Mercury] qout [10 What is the name of the main Soviet \ \ \ news agency?] [Tass] messprep beepmess1 (se [..End of Quiz 2 ..you scored] :score [points.]) if :score = 10 [pr [....Well done!..]] tones [100 5] tones [95 5] tones [90 5] tones [85 5] jingle end to zero :x :y pu setx :x sety :y pd ht label "loop repeat 4 [fd 10 rt 90] end to qmark ;draws a "?" on the screen for the quiz program. setpc 9 setscrunch 1 make "z1 [-30 -30 -30 -25 -20 -10 0 10 20 25 30 30 30 30 20 10 0 -10 -10 -10 -10 -10] make "y1 [60 65 70 75 80 80 80 80 80 75 70 60 50 40 30 20 15 10 0 -10 -20] make "a 0 make "b 50 make "c 10 ht pu home sety 60 setx -30 pd clean label "loop3 make "x first :z1 make "y first :y1 label "loop2 make "z1 bf :z1 make "y1 bf :y1 zero :x :y if emptyp :z1 [go "tur] if emptyp :y1 [go "tur] go "loop3 label "tur st pu bk 20 rt 90 fd 5 rt 270 pd end pprop "dog "bread "alsation pprop "house "colour "green on] qout [9 What planet in our solar sy0 30 30 30 20 10 0 -10 -10 -10 -10 -10] make "y1 [60 65 70 75 80 80 80 80 80 75 70 60 50 40 30 20 15 10 0 -10 -20] make "a 0 make "b 50 make "c 10 ht pu home sety 60 setx -30 pd clean label "loop3 make "x first :z1 make "y first :y1 label "loop2 make "z1 bf :z1 make "y1 bf :y1 zero :x :y if emptyp :z1 [go "tur] if emptyp :y1 [go "tur] go "loop3 label "tur st pu bk 2Track-Info # N##########  "DOG"trev XBSRDOG XBS "DOG"trev XBSRDOG XBSSDOG2 XBSTrack-Info $ N$$$$$ $$$$$Track-Info % N%%%%%%%%%% Track-Info & N&&&&& &&&&&Track-Info ' N'''''''''' MARK BAILEY ROY CLARKE NIGEL DEAKIN JULIAN RANGELEY DAVID WESS