HPAD0 jJ|R[[t \mq[[RiJiʏfLii$uRiJiʏfLiitSRiHiȐfKiiHsBe~ezaFBeeD' oXu, (up6 u @eB@e}@eh~a4~B@e@e2~*Blg}lgh~4~Dlglg2~Home*Results^/8@X 2~xJ.UserssȐf7=CZCZAy1Modules`H@i2~r8Credits`>@x4i2~5C:BigClockH@Pi2~2EGrammar`8/Aea2~QOldTnsTble]/d(fe D'0']WSpokenzh`8/,0Aea2~dSounds^^?L<&h2~|jaeiouw^E1 Z2~shnVocabtV~`./4L7ea2~ zMistakes~IrreglistT2`}2~XAuxtableC1 Z2~YΪStoreGHblank~wV~`,/0$5ea2~MCustomyV~`+/4ea2~߸Identity>g2~{vCustom2^C0T Ys2~zTsPadstu)Work>V~`+/$(4ea2~ RSWork2h$fKhhX0vS( work3ʇ`C1x ZSWSYJ0TitleScreenad"$K%$%$.FadeScreeneV~E7/a2~3}ckhandler idle; begin global stopseconds; get the seconds; convert it to dateitems; put item 4 of it & ":" & item 5 of it && "(" & item 3 of it & "." & item 2 of it & ")" {& item 1 of it} into ttime; put ttime{() && date()} into field "time"; if stopseconds > 0 then begin if the seconds >= stopseconds then begin beep; beep; answer "The alarm has gone off!" with "OK"; put 0 into stopseconds; end; end; pass; end; {handler idle; begin put time() into field "Time"; end;} handler resume; begin set homepad to "Tscreens"; delete menus; getglobals "globals.dat"; hide pg fld "Speaker" of pg id 3; hide pg fld "spktest" of pg id 122; end; handler openpad; begin set homepad to "Tscreens"; delete menus; end; Handler keypress(k); Begin global pozx,pozy, ntbk, wdfl; case key(k) of "F1" : begin get the name of this pad; vo; case it of ntbk : go to page "Notebook" of pad "tshelp"; wdfl : go to page "Wordfile" of pad "tshelp"; "TSresult" : go to page "Testresult" of pad "tshelp"; "TSTEST1" : go to page "Tests" of pad "tshelp"; "TSTEST2" : go to page "Tests" of pad "tshelp"; "TSTEST3" : go to page "Tests" of pad "tshelp"; "TSTEST4" : go to page "Tests" of pad "tshelp"; "TSPHVBS1" : go to page "Modules" of pad "tshelp"; "TSGNIDS1" : go to page "Modules" of pad "tshelp"; "TSGNIDS2" : go to page "Modules" of pad "tshelp"; "TSBZIDS1" : go to page "Modules" of pad "tshelp"; "TSIRREG" : go to page "Modules" of pad "tshelp"; "TSCONJ" : go to page "Modules" of pad "tshelp"; "TSTENSE1" : go to page "Modules" of pad "tshelp"; "TSMETOO" : go to page "Modules" of pad "tshelp"; "TSTAGS" : go to page "Modules" of pad "tshelp"; "TSPHONET" : go to page "Modules" of pad "tshelp"; "TSSPVOC" : go to page "SpVoc" of pad "tshelp"; "TSText" : go to page "TutorText" of pad "tshelp"; "TSDialog" : go to page "Dialogues" of pad "tshelp"; "TSif" : go to page "Tutorials" of pad "tshelp"; "TSactive" : go to page "Tutorials" of pad "tshelp"; "TSing" : go to page "Tutorials" of pad "tshelp"; "TSrspch" : go to page "Tutorials" of pad "tshelp"; "TSresult" : go to page "Testresult" of pad "tshelp"; "Tstlplay" : go to page "Play" of pad "tshelp"; otherwise : go to page "Home" of pad "tshelp"; end; end; "PgUp": beep; "PgDn": beep; "ALT+F5": ; "CTRL+Q": ; "ALT+SPACE": ; "F2" :set focus to page button 1; "F10" :go to page "overview" of pad "tstutor"; -- "ALT+Z" :go to page "work2"; otherwise: pass; end; End; {handler bn; begin for i=1 to the number of page buttons do begin set the hiliteiffocus of page button i to true; set the hilitecolor of page button i to blue on grey; end; end; handler fdl; begin for i=1 to the number of page fields do set the locktext of page field i to true; end; handler fdu; begin for i=1 to the number of page fields do set the locktext of page field i to false; end; handler newbutton; begin set the withedge of the target to false; { set the color of the target to yellow on dark grey;} set the color of the target to white on blue; set the hiliteiffocus of the target to true; set the hilitecolor of the target to blue on grey; end; handler newfield; begin set the fillcolor of the target to light cyan on blue; set the bordercolor of the target to light red on blue; {set the align of the target to centered;} end;} handler vi; begin visual effect box in with delay 50; end; handler vo; begin visual effect box out with delay 50; end; {handler been; begin if the random of 20 >5 then begin answer "Try and think what you will see next...then press " with "OK" end; end;} & G b7XX)X.X(X:X,,-,,,,Xtime&X Xstopseconds3d stopseconds4K  OKThe alarm has gone off! Ustopseconds/*7X Tscreens Pglobals.datgetglobalsSpeaker%  *S Pzspktest%  *S P*7#$X Tscreens P%*87*+,W$$F1+O.  Xc/vo0$$(ntbk+1Notebooktshelp$wdfl+2Wordfiletshelp$TSresult+3Testresulttshelp$TSTEST1+4Teststshelp$_TSTEST2+5Teststshelp$9TSTEST3+6Teststshelp$TSTEST4+7Teststshelp$TSPHVBS1+8Modulestshelp$TSGNIDS1+9Modulestshelp$TSGNIDS2+:Modulestshelp$rTSBZIDS1+;Modulestshelp$ITSIRREG+<Modulestshelp$!TSCONJ+=Modulestshelp$TSTENSE1+>Modulestshelp$TSMETOO+?Modulestshelp$TSTAGS+@Modulestshelp$TSPHONET+AModulestshelp$YTSSPVOC+CSpVoctshelp$3TSText+DTutorTexttshelp$ TSDialog+EDialoguestshelp$TSif+FTutorialstshelp$TSactive+GTutorialstshelp$TSing+HTutorialstshelp$eTSrspch+ITutorialstshelp$;TSresult+JTestresulttshelp$Tstlplay+LPlaytshelp$MHometshelp$PgUp+ P$PgDn+ Q$yALT+F5+R$fCTRL+Q+S$SALT+SPACE+T$=F2+UXL h$%F10+Voverviewtstutor$X/*$vi72  a*$vo72 a*HMZH 5(??u=/;~u!(%()(+(/(3(6(J(\(d(v(U WVF ~} ^_]˃~u^ &&*F^&&WFV+ɋv~&*;u&%GAG&=u~FN u P X j UzWV~t ^_]ː^&&F<0r<9wFFVFFF^*㋇FV^~&FF*~F*t &Gn~F& FF~ |^&FP RP N xs: T  غ !L!VWؾ#_^VWؾ _^ ;s Et2..ːː8ll88x~| 0`|<| HR\fgetDigitFFFFFFFFThis program requires HyperPAD. $2&MZ2 ~;;DD|m[; ';+;/;1;5;9;<;P;b;j;|;UWV~} ^_]ː;FV^&ğ&&WFV;^&*P&P^&w&7 ug~u";vv ;7+FV FP ;F Ft4;;Vr*w;Fv#) u^&_;/~tך) t̐PUVWvD>` uF [F \3.&>u&>t3 t3۴ t.[㋇.rw>\u .` s2m $<t]>u">u>u]^_]3uuq9uj9ud9u^>]uU>[u]G^_ t_ t)_ u_ : u : u_r ] y0>] rf>]u 6 >W_--G?33 F F F2ԈGr 3_^]ˀ>]t⸠>]sÀ>]t >]t>]t!>]t/>]tF>]t?.&Ë.&s 霋.&Н3s s@R.&ZVP ],y$..>\tX^..>[ w!>[r>]t>] rX^ ]2<rC<t< rs .6)<u >_u<u<u @>[ut>]uM6 2BFJ󰊁>t W@&I32_2>]s22Ҵ >] u2À>]r`>]t)>[r>[t>[r >[ w>]t4163۹(;}RQuBYZ+uX>_t3*>_r.^_t2 _ Ê^>[r>[w u 2t u2 À>]t>_uú^ 2S[_s2ۀ>_r Se[ǀ>_sdzSN[ǀ>_rdz6 À>] t">  .t!Dں.u >[tÀu1WRSP3&>&} t2&X[Z_WRQSPQS2&C[Y3Ҏ&>&} t V^X[YZ_À>]t>] rRSPغs, u>] t(>] t! >] t>] t  uB[Su>] t>] t BX[ZRPDں.u>[t >[uutXZÞS]2a.[ tR.&...2Z.>]u>u .P.>] r>]t...WG_PWG_ǠW>]t>uQ2Y..te^>] sH>]v7>]r:u@u@1`s %` r u.>WZ_>] sH>]v7>]r:u@u@1`s %` r u.>W tMQ..Y..u.2n.&b._.>W t _.>Q....Y..u5.2 .&.&.&._.>.j .l .m .p .o .>l u;.j N.j u.l .k .j .l .j t .k .j t.k  G.l D.>p t.>p tV.6p .r .p ^RQSr .r ?![YZ.r .p á r t2&ȉaVWRS>3=!s[Z_^Ë.r ?!r>Gu>Xu>2t͋v` v` ?!X@tGH3;s7S:u Cr[ ;v [`tQv?!Y+w ?! $0<t<uȍ ?!Z_^3.>> u66.r ?!>u Ë?.F t.6p >t.r FGVX.p 뛍.r ?!A>]sDaW>a@_6Ju.>GW>a_6JuW>_6Ju' t.:t..>Wa>c33ۋaЧcs QYFuC_.r >!.> t3.> t33.> t3WV3m3 t2. &. &u Lt u 3^_VW.> t%m3&u &&M&} u_^˰ '*~-y.tDL;f;DXD ;Dغ6 !L!VWDؾ#_^ DVWDؾ _^ D;s Et2..!ːːLoadGX2DFFFFFFFFThis program requires HyperPAD. $@P@@P@P@Ph\Z^P`m@(@P>^P`m^P`mP@@ ,l5-.[WW89:;<=>?GX2MZ 8#  !$8JRd‹&*t 4N $  غ. !L!VW ؾPP#_^ VW ؾPP _^ ;s Et2.. ːːKeep FFFFFFFFThis program requires HyperPAD. $f MZf2 *c7FccccccccccccccccrO4b%&]O>0)#F'F+F-F1F5F8FLF^FfFxF\VVːUFAFTFFNP@PPpV L]U9Pvv]U:Pvv]U^5tF, F,AFA@PPVL]U;Pvv]F u^&:u&P]+]UAVFFFTFJF NNP@PPpV L]U~tPFRP F]UFFV~t]˃F^&G&WFVRPFRPPҐUFFV~t]˃F^&G&WFVRPFRPPWҐUFFV~t]˃F^&G&WFVRPFRPPҐUFFV~t]˃F^&G&WFVAPRvFRPP̐UFFV~t]˃F^&G&WFV^&&*PPU FFV~t]˃F^&G&WFVF^&G&WFV^&w&7^&w&7P벐U$WV+FFFFFF܌Vރ~t ^_]˃F^&G&WFVF^&G&WFV渠PFFV u +P^&w&7RF }^&w&7UF }0~P^&w&7v O ~V^&w&7WQ ɉvFWFFFFPFPVFWFFFFPFPVHPFRP F~~ vT~~ vTvvF ~ytcHFbFc2cFcغ !L!VWcؾ66#_^OVWcؾ66 _^O;s Et2..ːːU?^VN !s]U@^VN !s]U=F V!s]U>^!s]U<3V!s]UVW~]MUu} !W~ ]MUuE r3~ u _^]UVW~]MUuu ~]_!W~E~ ]MUuE r3~ u _^]ERROROKNOT ENOUGH MEMORYCANNOT OPEN SOURCECANNOT OPEN DESTINATIONOKCopyFileRenameFileChangeDiskDeleteFileChangeDirRenameFileRemoveDirMakeDirKcTc_cBjcucccpc,FFFFFFFFThis program requires HyperPAD. $ ((((( H MZ Z=/#%)-0DV^pUWVF~|~~ ^_]^&&WFV^ &&WFV~u ^&&,FvFVFVN~&8tG&=u~F&* t&'vvvvF t ^F&~uvvRP F t FF{FՐ x s@ZTغ2 !L!VWؾVV#_^VWؾVV _^;s Et2..ːːUv ^ t-&'C:t,A<ɀ A,A<ɀ A:t]whichItemFFFFFFFFThis program requires HyperPAD. $MZ0 C.>B:B2B.B&B"Bs[D/! o`Q#vbD(/.3.7.9.=.A.D.X.j.r..U WV~t ^_]ː+P^&w&7 ;F=tٸPFPv8~4tPFPv8vF@P.FVv^&w&7V8^&~&PFPV8F@P.FVv^&w&7V8^&~&vvvv.vv .PFPV8~tQv=UWV~t ^_]ː^&w&7>F |ݚ".FV2P.FVvv.FVF4PFPv:^&&WFV~^v &=,t &GF&=uv^^~F^&^&w&7?FPFPv:v^&w&7v:vv.FV^&w&7?FPFPv:v^&w&7v:vv .^&?tFFPFPv:v=vv .vv .kU".RP.]˰ ~ y>t BT.n.BzB(.BغX !L!VWBؾ||#_^8VWBؾ|| _^8;s Et2..)ːːU?^VN !s]U@^VN !s]U=F V!s]U>^!s]U<3V!s]U~3I]GetGlobalsPutGlobalsGlobalsB B,BFFFFFFFFThis program requires HyperPAD. $dCSORTPG"NUMBER(VIEWGX2,KEEPXRDOSUWITEM6`GLOBALSpNdW/7{handler idle; begin put time() into me; end;}                P`BPLRkTimeA1pNdNa}ihandler select; begin vi; go to page "home" of pad "TSHELP.PAD"; end; handler mouseEnter; begin put "Press to go to a screen of related help." into background field 3; set the style of background field 3 to opaque; end; handler mouseleave; begin put "" into background field 3; set the style of background field 3 to transparent; end; }7vihomeTSHELP.PAD*7Press to go to a screen of related help.X&X XX&  > P*7X&X XX&  > P*H TkF1=Help 1|handler select; begin vi; go to page id 3 of pad "Tscreens"; set focus to page button id 24; end; handler mouseEnter; begin put "Press to return to the Control Screen and prepare to quit. Shortcut is ALT+Q." into background field 3; set the style of background field 3 to opaque; end; handler mouseleave; begin put "" into background field 3; set the style of background field 3 to transparent; end; V7viTscreensXN h*7Press to return to the Control Screen and prepare to quit. Shortcut is ALT+Q.X&X XX&  > P*7X&X XX&  > P*H\YnQuit Quit 1Q[wchandler select; begin vi; domenu "Back"; end; handler mouseEnter; begin put "Press to return to the previous screen. Shortcut is ALT+P." into background field 3; set the style of background field 3 to opaque; end; handler mouseleave; begin put "" into background field 3; set the style of background field 3 to transparent; end; w7viBack*7Press to return to the previous screen. Shortcut is ALT+P.X&X XX&  > P*7X&X XX&  > P*H d!qPreviousScreene 1Pdhandler select; begin domenu "New Field"; put the rectangle of the currentobject into r; set the showname of the currentobject to false; answer "With or without edges?" with "With","Out"; if it= "With" then begin set the rectangle of the currentobject to item 1 of r-20, item 2 of r, item 1 of r+50, item 2 of r+2; set withedge of the currentobject to true end else begin set withedge of the currentobject to false; set the rectangle of the currentobject to item 1 of r-19, item 2 of r, item 1 of r+49, item 2 of r+1; end; answer "Left, Right or Centre Justification?" with "Left", "Right", "Centre"; if it = "Left" then set the align of the currentobject to left else if it= "Right" then set the align of the currentobject to right; if it="Centre" then set the align of the currentobject to centered; end; 7New Fieldij )cij = POutWithWith or without edges? UWith+Tij )X2XXX Pij  P$Qij Pij )X1XXX PCentreRightLeftLeft, Right or Centre Justification? ULeft+ij  P$Right+ij  PCentre+ij  P*H#>ElsBoxes!ton)3  File 1B0handler select; begin global pozx,pozy; domenu "New Button"; get the selectedtext; put len(it)-1 into l; put repeatChar(l+1,".") into dots; set the name of the currentobject to dots; set the script of the currentobject to page field "dots" of page "work3"; set the rectangle of the currentobject to pozx-l,pozy,pozx,pozy; set the script of this page to page field "showall" of page "work3"; domenu "Browse"; end; 7New ButtonX c  .Zij X Pij Zwork3dots%## Pij )pozypozxpozypozx P`  Zwork3showall%## PBrowse*H-3X/yF2+Dotsonut page field "more" of1g"~handler select; begin domenu "New Button"; set the name of the currentobject to "r > r"; set the acceleratorkey of the currentobject to "r"; set the script of the currentobject to page field "right" of page "work"; set the rectangle of the currentobject to 69,23,72,24; set the shadow of the currentobject to true; set the color of the currentobject to yellow on red; set the hiliteiffocus of the currentobject to true; go to next page; domenu "New Button"; set the name of the currentobject to "l < l"; set the acceleratorkey of the currentobject to "l"; set the script of the currentobject to page field "left" of page "work"; set the rectangle of the currentobject to 63,23,66,24; set the shadow of the currentobject to true; set the color of the currentobject to yellow on red; set the hiliteiffocus of the currentobject to true; domenu "Browse"; end; 7New Buttonij Xr > r Pij r Pij Zworkright%## Pij )HE Pij  P ij IN P ij  P < New Button ij Xl < l Pij l Pij Zworkleft%## Pij )B? Pij  Pij IN Pij  PBrowse*H( |NewArrows      1qO_oghandler select; begin global pozx,pozy; put page field "more" of page "work" into page field "sedit" of page "work3"; put "Type comment for ^"" & the selectedtext & "^"..." into asq; ask asq; put " ^"" & it & "^"" into comm; put comm after word 1 of line 3 of page field "sedit" of page "work3"; ask "Type page..."; put " ^"" & it & "^"" into dest; put dest after word 3 of line 7 of page field "sedit" of page "work3"; ask "...of pad..."; put " ^"" & it & "^"" into dest; put dest after word 6 of line 7 of page field "sedit" of page "work3"; put substitute(page field "sedit" of page "work3","zz"," ") into page field "sedit" of page "work3"; put substitute(page field "sedit" of page "work3","#","^r") into page field "sedit" of page "work3"; domenu "New Button"; get the selectedtext; put len(it)-1 into l; set the name of the currentobject to it; set the hiliteiffocus of the currentobject to true; set the script of the currentobject to page field "sedit" of page "work3"; set the rectangle of the currentobject to pozx-l,pozy,pozx,pozy; domenu "Browse"; end; o7workmore%##work3sedit%X X"...X cType comment for ",,XT" ",,work3sedit%X   Type page...XT " ",, work3sedit%X   ...of pad...XT" ",,work3sedit%X  work3sedit%##zz Pwork3sedit%X Xwork3sedit%### Pwork3sedit%X XNew ButtonX c  ij X Pij  Pij Zwork3sedit%## Pij )pozypozxpozypozx PBrowse*H)tJ2-part Morere      1q2y handler select; begin global pozx,pozy; put page field "remind" of page "work" into page field "sedit" of page "work3"; put "Type comment for ^"" & the selectedtext & "^"..." into asq; ask asq; put " ^"" & it & "^"" into comm; put comm after word 1 of line three of page field "sedit" of page "work3"; put substitute(page field "sedit" of page "work3","#","^r") into page field "sedit" of page "work3"; domenu "New Button"; get the selectedtext; put len(it)-1 into l; set the name of the currentobject to it; set the hiliteiffocus of the currentobject to true; set the script of the currentobject to page field "sedit" of page "work3"; set the rectangle of the currentobject to pozx-l,pozy,pozx,pozy; domenu "Browse"; end;  7workremind%##work3sedit%X X"...X cType comment for ",,XT" ",, work3sedit%X3   work3sedit%### Pwork3sedit%X X New Button X c  ij X Pij  Pij Zwork3sedit%## Pij )pozypozxpozypozx PBrowse*H*)|1+Note only      1q1xP@PE!p\p`|hhandler select; begin vi; go to page "Home"; end; handler mouseEnter; begin put "Press to go to the Local Control screen. Shortcut is ALT+C." into background field 3; set the style of background field 3 to opaque; end; handler mouseleave; begin put "" into background field 3; set the style of background field 3 to transparent; end; |7viHome*7Press to go to the Local Control screen. Shortcut is ALT+C.X&X XX&  > P*7X&X XX&  > P*H4@ÍLocal Controlge 1C.P@Pstatus      A!pp&handler select; begin global ntbk; set lockscreen to true; push this page; get the longid of this page; put substitute(it,"^"","") into source; go to pad ntbk; go to page 1; ask "Enter note to be added to Notebook..."; put upper(leftstring(it,1)) & rightstring(it,len(it)-1) into it; put return & it after field "notes" ; put return & source & return after field "notes" ; pop page; end; handler mouseEnter; begin put "Add note to Notebook..." into background field 3; set the style of background field 3 to opaque; end; handler mouseleave; begin put "" into background field 3; set the style of background field 3 to transparent; end; 7X " P`]`  c"P ntbk  Enter note to be added to Notebook...XT   0/2, ,Xnotes&X    ,,Xnotes&X  ^*7Add note to Notebook...X&X XX&  > P*7X&X XX&  > P*H (vNotesle ĈĈĈĈĈĈĈĈĈ1N1handler select; begin global wdfl; set lockscreen to true; push this page; go to pad wdfl; ask "Enter word..."; put upper(leftstring(it,1)) & rightstring(it,len(it)-1) into it; put it after last line of field "File"; ask "Enter explanation or translation..."; put upper(leftstring(it,1)) & rightstring(it,len(it)-1) into it; put it after last line of field "File2"; pop page; end; handler mouseEnter; begin put "Enter English in the first box, then explanation in the second box..." into background field 3; set the style of background field 3 to opaque; end; handler mouseleave; begin put "" into background field 3; set the style of background field 3 to transparent; end;pk7X " P`]wdfl Enter word...XT  0/2, XFile&XlA   Enter explanation or translation...XT   0/2, XFile2&XlA   ^*7Enter English in the first box, then explanation in the second box...X&X XX&  > P*7X&X XX&  > P*H(2Wordfile ĈĈĈĈĈĈĈĈĈ1WH                Ps                     ؈ҎߎΎ ΎΎΎΎώЈIHΙؙ+knp5sx{8'qڏ$HAH\$-Timeutton1NpNW/7{handler idle; begin put time() into me; end;}                P IPd$time!pNpNPP!ppP P      B!pȚpk{shandler select; begin visual effect box in with delay 50; go to page id 3 of pad "TSCREENS.PAD"; end; {750  aTSCREENS.PAD3*H6B$МControl Pageage 1pC.'handler select; begin {domenu "Quit"} visual effect box in with delay 50; go to page id 3 of pad "TSCREENS.PAD"; set focus to page button id 24; end; handler mouseEnter; begin put "" into background field 3; set the style of background field 3 to opaque; end; handler mouseleave; begin put "" into background field 3; set the style of background field 3 to transparent; end; 750  aTSCREENS.PAD3X24N h*7X3&X XX3&  > P*7X3&X XX3&  > P*H$Quitlpon 1phandler select; begin vi; domenu "Back"; end; handler mouseEnter; begin set the hilite of me to true; put "Press to return to previous screen. Shortcut is ALT+P" into background field 3; set the style of background field 3 to opaque; end; handler mouseleave; begin set the hilite of me to false; put "" into background field 3; set the style of background field 3 to transparent; end; handler openbutton; begin mouseEnter; end; handler closebutton; begin mouseleave; end; /7viBack*7fg ; PPress to return to previous screen. Shortcut is ALT+PX&X XX&  > P*7fg ; PX&X XX&  > P*7*7*H!`.PreviousScreene 1pP:E ESC to Quit F1=Help F2=Search F3=NotePadF5=Pr                                    + Point and Click with a mouse, or TAB to but on or highlighted word and Enter~Ŏ ΎΎΎΎώЈ-@Xb7ڛ,~qc?OGhandler select; begin go to page 1 of pad "tscreens"; end; O7tscreens*H5@Control Pageage 1pHAHdťTimeutton1NpNW/7{handler idle; begin put time() into me; end;}                P IPltime!pN@pNPP A!pPpP P !pxƚp"handler select; begin set the printer to on; print return; print return; print the name of this pad; print return; print return; print fld "pnames"; set the printer to off; end; 7X  P } }  Xc} } }Xpnames&##}X  P*H%7nhPrint namesmm1p3SEhandler select; begin global pagenme; get line (the currentline of me) of field "pnames"; if it is empty then exit; put it into pagenme; end; handler closefield; begin global pagenme; get line (the currentline of me) of field "pnames"; if it is empty then exit; put it into pagenme; end; nd; nd; S7Xpnames&##Xfg c+*pagenme*7 Xpnames&##Xfg c+*pagenme*P֨pnamespTp(                                    ̎-@#{ϥrĦǪPIPtime!pN,pNH@GTimeutton1NpNyTd\handler select; begin push this page; visual effect box in with delay 50; go to page 1; end; {handler mouseEnter; begin put "" into background field 3; set the style of background field 3 to opaque; end; handler mouseleave; begin put "" into background field 3; set the style of background field 3 to transparent; end;} ?d7`]2  a*H4? !?ԬControl Pageage 1pC.                                    ߎ@.OHAHTimeutton1NpNW/7{handler idle; begin put time() into me; end;}                P IPtime!pNLpNPPE!p,pv~handler select; begin push this page; visual effect box in with delay 50; go to page 1 of pad "tscreens"; end; 7`]2  atscreens*H6A(Control Pageage 1pC.P Pstatus      A!pphandler select; begin domenu "New Button"; set the name of the currentobject to ""; set the script of the currentobject to page field "right" of page "work"; set the rectangle of the currentobject to 69,23,72,24; set the shadow of the currentobject to true; set the color of the currentobject to yellow on red; domenu "New Button"; set the name of the currentobject to ""; set the script of the currentobject to page field "left" of page "work"; set the rectangle of the currentobject to 63,23,66,24; set the shadow of the currentobject to true; set the color of the currentobject to yellow on red; domenu "Browse"; end; 7New Buttonij X Pij Zworkright%## Pij )HE Pij  Pij IN P New Button ij X P ij Zworkleft%## P ij )B? P ij  Pij IN PBrowse*H  'Arrowston      1pU2B:handler select; begin domenu "Selector"; end; B7Selector*HCP4 *Selectorn          1pYiahandler select; begin global pozx,pozy; put page field "remind" of page "work" into page field "sedit" of page "work3"; put "Type comment for ^"" & the selectedtext & "^"..." into asq; ask asq; put " ^"" & it & "^"" into comm; put comm after word 1 of line three of page field "sedit" of page "work3"; domenu "New Button"; get the selectedtext; put len(it)-1 into l; set the name of the currentobject to it; set the script of the currentobject to page field "sedit" of page "work3"; set the rectangle of the currentobject to pozx-l,pozy,pozx,pozy; domenu "Browse"; end; i7workremind%##work3sedit%X X"...X cType comment for ",,XT" ",, work3sedit%X3   New Button X c   ij X Pij Zwork3sedit%## Pij )pozypozxpozypozx PBrowse*H ˶F2+Note only      1phandler select; begin global pozx,pozy; put page field "more" of page "work" into page field "sedit" of page "work3"; put "Type comment for ^"" & the selectedtext & "^"..." into asq; ask asq; put " ^"" & it & "^"" into comm; put comm after word 1 of line 3 of page field "sedit" of page "work3"; ask "Type link, nb syntax: phvbs^" of pad ^"abc"; put " ^"" & it & "^"" into dest; put dest after word 3 of line 7 of page field "sedit" of page "work3"; domenu "New Button"; get the selectedtext; put len(it)-1 into l; set the name of the currentobject to it; set the script of the currentobject to page field "sedit" of page "work3"; set the rectangle of the currentobject to pozx-l,pozy,pozx,pozy; domenu "Browse"; end; 7workmore%##work3sedit%X X"...X cType comment for ",,XT" ",,work3sedit%X   Type link, nb syntax: phvbs" of pad "abcXT " ",, work3sedit%X   New Button X c  ij X Pij Zwork3sedit%## Pij )pozypozxpozypozx PBrowse*H | ͺF2+Moreon      1phandler select; begin global pozx,pozy; domenu "New Button"; get the selectedtext; put len(it)-1 into l; put repeatChar(l+1,".") into dots; set the name of the currentobject to dots; set the script of the currentobject to page field "dots" of page "work3"; set the rectangle of the currentobject to pozx-l,pozy,pozx,pozy; set the script of this page to page field "showall" of page "work3"; domenu "Browse"; end; 7New ButtonX c  .Zij X Pij Zwork3dots%## Pij )pozypozxpozypozx P`  Zwork3showall%## PBrowse*H%.t տF2+Dotsonut page field "more" of1gp"G                                     ~Ҏ ΎΎΎΎώЈ9@  ?ձ_P IPTimeIA!P p='7/handler cancel; begin go home; end; 77*@G ='7/handler cancel; begin go home; end; 77*L$$ͱ@W/7{handler idle; begin put time() into me; end;}                P`@P=TimeA!pNPN'O/handler select; begin visual effect box in with delay 50; go to page "home" of pad "TSHELP.PAD"; end; handler mouseEnter; begin set the hilite of me to true; put "Press to go to a screen of related help..." into background fld id 18; set the style of background fld id 18 to opaque; end; handler mouseleave; begin set the hilite of me to false; put "" into background fld id 18; set the style of background fld id 18 to transparent; end; handler openbutton; begin mouseEnter; end; handler closebutton; begin mouseleave; end; Or 72  ahomeTSHELP.PAD*7fg ; PPress to go to a screen of related help...X(X XX(  > P*7fg ; PX(X XX(  > P*7*7*H F1=Help 1$L,handler select; begin vi; go to page id 3; set focus to page button id 24; end; handler mouseEnter; begin set the hilite of me to true; put "Press to return to the Control Screen and Quit TutorScreens" into background fld id 18; set the style of background fld id 18 to opaque; end; handler mouseleave; begin set the hilite of me to false; put "" into background fld id 18; set the style of background fld id 18 to transparent; end; handler openbutton; begin mouseEnter; end; handler closebutton; begin mouseleave; end; Ld7viXN h*7fg ; PPress to return to the Control Screen and Quit TutorScreensX(X XX(  > P*7fg ; PX(X XX(  > P*7*7*HJQuit Quit 1tQP@PE!pXp/W7handler select; begin push this page; visual effect box in with delay 50; go to page 1; end; handler mouseEnter; begin set the hilite of me to true; put "Press to return to the Control Screen. Shortcut is ALT+C." into background fld id 18; set the style of background fld id 18 to opaque; end; handler mouseleave; begin set the hilite of me to false; put "" into background fld id 18; set the style of background fld id 18 to transparent; end; handler openbutton; begin mouseEnter; end; handler closebutton; begin mouseleave; end; Wl 7`]2  a*7fg ; PPress to return to the Control Screen. Shortcut is ALT+C.X(X XX(  > P*7fg ; PX(X XX(  > P*7*7*H4?ControlPageage 1C."handler select; begin vi; domenu "Back"; end; handler mouseEnter; begin set the hilite of me to true; put "Press to return to previous screen. Shortcut is ALT+P" into background fld id 18; set the style of background fld id 18 to opaque; end; handler mouseleave; begin set the hilite of me to false; put "" into background fld id 18; set the style of background fld id 18 to transparent; end; handler openbutton; begin mouseEnter; end; handler closebutton; begin mouseleave; end; "77viBack*7fg ; PPress to return to previous screen. Shortcut is ALT+PX(X XX(  > P*7fg ; PX(X XX(  > P*7*7*H"!lPreviousScreene 1P 3handler select; begin global ntbk; vo; go pad ntbk; end; handler mouseEnter; begin set the hilite of me to true; put "Press to read and edit the Notebook. Shortcut is ALT+N" into background fld id 18; set the style of background fld id 18 to opaque; end; handler mouseleave; begin set the hilite of me to false; put "" into background fld id 18; set the style of background fld id 18 to transparent; end; handler openbutton; begin mouseEnter; end; handler closebutton; begin mouseleave; end; 3D7vontbk *7fg ; PPress to read and edit the Notebook. Shortcut is ALT+NX(X XX(  > P*7fg ; PX(X XX(  > P*7*7*H#"(xNotesosd 1tN1))Q1handler select; begin global wdfl; vo; go to page "front" of pad WDFL; end; handler mouseEnter; begin set the hilite of me to true; put "Press to go to your own list of words and phrases. Shortcut is ALT+W" into background fld id 18; set the style of background fld id 18 to opaque; end; handler mouseleave; begin set the hilite of me to false; put "" into background fld id 18; set the style of background fld id 18 to transparent; end; handler openbutton; begin mouseEnter; end; handler closebutton; begin mouseleave; end; Qk 7vofrontwdfl*7fg ; PPress to go to your own list of words and phrases. Shortcut is ALT+WX(X XX(  > P*7fg ; PX(X XX(  > P*7*7*H$)3Wordfile      1tWP%@Plicence      @)pLpP@Pstatus      B!ppzhandler none; begin answer "Sorry. This file is not available with this version."with "OK"; exit to hyperpad; end;7OKSorry. This file is not available with this version. U0**B                Ps                     ؈Ҏ ΎΎΎΎώЈ9@ &e"T S h 14:32 (2.5)H\ This is the Control Screen of English TutorScreens. What would you like to do? Press F10 for Introduction and Tutorial. ,9H$%HLicensed to EFEHhandler select; begin {answer "More about TutorScreens...";} vo; go to page id 53; end; handler mouseEnter; begin put "Press for information about TutorScreens..." into background fld id 18; set the style of background fld id 18 to opaque; end; handler mouseleave; begin put "" into background fld id 18; set the style of background fld id 18 to transparent; end; handler openbutton; begin mouseEnter; end; handler closebutton; begin mouseleave; end;  ^7vo5*7Press for information about TutorScreens...X(X XX(  > P*7X(X XX(  > P*7*7*H<87T u t o r S c r e e n s Tenses5MNOThandler select; begin go to page "Titlescreen"; end; handler mouseEnter; begin put "Go to the start screen..." into background fld id 18; set the style of background fld id 18 to opaque; end; handler mouseleave; begin put "" into background fld id 18; set the style of background fld id 18 to transparent; end; handler openbutton; begin mouseEnter; end; handler closebutton; begin mouseleave; end; BK7Titlescreen*7Go to the start screen...X(X XX(  > P*7X(X XX(  > P*7*7*HDL!w Button      1fF&handler select; begin global qflag; put 1 into qflag; get the history; get substitute(it,",",return); put it into page field "History" of page "Work3"; {jf;} {answer "Are you sure you want to Quit?"; if it is "OK" then begin} set the lockscreen to true; go to page id 37; domenu "Quit"; { end;} end; handler mouseEnter; begin set the hilite of me to true; put "Press to save your place and quit TutorScreens... Shortcut is ALT+Q" into background fld id 18; set the style of background fld id 18 to opaque; end; handler mouseleave; begin set the hilite of me to false; put "" into background fld id 18; set the style of background fld id 18 to transparent; end; handler openbutton; begin mouseEnter; end; handler closebutton; begin mouseleave; end; F T]7qflage, PWork3History%X XX " P%Quit*7fg ; PPress to save your place and quit TutorScreens... Shortcut is ALT+QX(X XX(  > P*7fg ; PX(X XX(  > P*7*7*H QuitTutorScreens1GOQnvhandler select; begin vo; go to page "overview" of pad "tstutor"; end; handler mouseEnter; begin put "Click left mouse button for TutorScreens tutorial...Shortcut is ALT+I" into background fld id 18; set the style of background fld id 18 to opaque; end; handler mouseleave; begin put "" into background fld id 18; set the style of background fld id 18 to transparent; end; handler openbutton; begin put "Press Return or F10 for TutorScreens tutorial...Shortcut is ALT+I" into background fld id 18; set the style of background fld id 18 to opaque; end; handler closebutton; begin mouseleave; end; !G7vooverviewtstutor*7Click left mouse button for TutorScreens tutorial...Shortcut is ALT+IX(X XX(  > P*7X(X XX(  > P*7Press Return or F10 for TutorScreens tutorial...Shortcut is ALT+IX(X XX(  > P*7*H 0 J kIntroduction and Tutorial'(2I7handler select; begin vo; go to page "Vocab"; end; handler mouseEnter; begin set the hilite of me to true; put "Phrasal verbs, Idioms, Favourite mistakes, Numbers, Phrases... ALT+V" into background fld id 18; set the style of background fld id 18 to opaque; end; handler mouseleave; begin set the hilite of me to false; put "" into background fld id 18; set the style of background fld id 18 to transparent; end; handler openbutton; begin mouseEnter; end; handler closebutton; begin mouseleave; end; 7J7voVocab*7fg ; PPhrasal verbs, Idioms, Favourite mistakes, Numbers, Phrases... ALT+VX(X XX(  > P*7fg ; PX(X XX(  > P*7*7*H!,HnVocabularyulary '(1pqV/7handler select; begin vo; go to page id 20; end; handler mouseEnter; begin set the hilite of me to true; put "Press to enter the world of TutorScreens grammar... Shortcut is ALT+G" into background fld id 18; set the style of background fld id 18 to opaque; end; handler mouseleave; begin set the hilite of me to false; put "" into background fld id 18; set the style of background fld id 18 to transparent; end; handler openbutton; begin mouseEnter; end; handler closebutton; begin mouseleave; end; 7F7vo*7fg ; PPress to enter the world of TutorScreens grammar... Shortcut is ALT+GX(X XX(  > P*7fg ; PX(X XX(  > P*7*7*H"$|Grammarammarmmar '(1pqG"bX`handler select; begin {if fileexists("Tshints.pad")=false then none;} vo; go to page "home" of pad "tshints"; end; handler mouseEnter; begin set the hilite of me to true; put "How to get the most from TutorScreens and from your other study materials..." into background fld id 18; set the style of background fld id 18 to opaque; end; handler mouseleave; begin set the hilite of me to false; put "" into background fld id 18; set the style of background fld id 18 to transparent; end; handler openbutton; begin mouseEnter; end; handler closebutton; begin mouseleave; end; PY7vohometshints*7fg ; PHow to get the most from TutorScreens and from your other study materials...X(X XX(  > P*7fg ; PX(X XX(  > P*7*7*H#,HlHow to learn Englishills'(1qH#MuUhandler select; begin answer "Continue from last session or start at random?" with "Continue", "Random", "Cancel"; if it = "Continue" then begin get the number of lines of page field "History" of page "Work3"; get line it-1 of page field "History" of page "Work3"; vo; go to page id (word 3 of it) of pad (word 6 of it); end; if it="Random" then begin set lockscreen to true; go to page "Tspads"; domenu "Back"; set lockscreen to false; get any line of page field "List" of page "TSPads"; if it = "Tstnsles.pad" then go to page "tenseless1" of pad "tstnsles" else go to page "Home" of pad(item 1 of it); end; end; handler mouseEnter; begin set the hilite of me to true; put "Press to select start method..." into background fld id 18; set the style of background fld id 18 to opaque; end; handler mouseleave; begin set the hilite of me to false; put "" into background fld id 18; set the style of background fld id 18 to transparent; end; handler openbutton; begin mouseEnter; end; handler closebutton; begin mouseleave; end; u9mv7CancelRandomContinueContinue from last session or start at random? UContinue+bWork3History%##AWork3History%##X voX X Random+X " PTspadsBackX " PTSPadsList%##XlAmTstnsles.pad+tenseless1tstnsles$HomeX*7fg ; PPress to select start method...X(X XX(  > P*7fg ; PX(X XX(  > P*7*7*H$,HContinuefrom last session'(1qC. 7handler select; begin vo; go to page "Custom2"; end; handler mouseEnter; begin set the hilite of me to true; put "Press for speaker setup, to set the alarm, to run other programs..." into background fld id 18; set the style of background fld id 18 to opaque; end; handler mouseleave; begin set the hilite of me to false; put "" into background fld id 18; set the style of background fld id 18 to transparent; end; handler openbutton; begin mouseEnter; end; handler closebutton; begin mouseleave; end; 7L7voCustom2*7fg ; PPress for speaker setup, to set the alarm, to run other programs...X(X XX(  > P*7fg ; PX(X XX(  > P*7*7*H%$Extra featuresamsens '(1qX-9DlLhandler select; begin {if fileexists("Tsdialog.pad")=false then none;} vo; go to page "Home" of pad "Tsdialog"; end; handler mouseEnter; begin set the hilite of me to true; put "Dialogues in different situations... Shortcut is ALT+D" into background fld id 18; set the style of background fld id 18 to opaque; end; handler mouseleave; begin set the hilite of me to false; put "" into background fld id 18; set the style of background fld id 18 to transparent; end; handler openbutton; begin mouseEnter; end; handler closebutton; begin mouseleave; end; l'07voHomeTsdialog*7fg ; PDialogues in different situations... Shortcut is ALT+DX(X XX(  > P*7fg ; PX(X XX(  > P*7*7*H($XDialoguesGrammar '(1pqD "handler select; begin vo; go to page "Spoken"; end; handler mouseEnter; begin set the hilite of me to true; put "Elements of spoken English... Shortcut is ALT+S" into background fld id 18; set the style of background fld id 18 to opaque; end; handler mouseleave; begin set the hilite of me to false; put "" into background fld id 18; set the style of background fld id 18 to transparent; end; handler openbutton; begin mouseEnter; end; handler closebutton; begin mouseleave; end; "67voSpoken*7fg ; PElements of spoken English... Shortcut is ALT+SX(X XX(  > P*7fg ; PX(X XX(  > P*7*7*H)$TfSpoken Englishmar '(1pqS9CkKhandler select; begin {if fileexists("Tstext.pad")=false then none;} vo; go to page "home" of pad "tstext.PAD"; end; handler mouseEnter; begin set the hilite of me to true; put "Press to read annotated articles... Shortcut is ALT+T" into background fld id 18; set the style of background fld id 18 to opaque; end; handler mouseleave; begin set the hilite of me to false; put "" into background fld id 18; set the style of background fld id 18 to transparent; end; handler openbutton; begin mouseEnter; end; handler closebutton; begin mouseleave; end; k'07vohometstext.PAD*7fg ; PPress to read annotated articles... Shortcut is ALT+TX(X XX(  > P*7fg ; PX(X XX(  > P*7*7*H,,HLAudioTexte      1pqT=M.HM0)((Press F10 for Introduction and Tutorial.P.H# K intro      !p@pHG4@4AControlPage - z q*<dDhandler select; begin {if fileexists("Tswrite.pad")=false then none;} vo; go to page "home" of pad "Tswrite"; end; handler mouseEnter; begin set the hilite of me to true; put "Elements of written English... Shortcut is ALT+R" into background fld id 18; set the style of background fld id 18 to opaque; end; handler mouseleave; begin set the hilite of me to false; put "" into background fld id 18; set the style of background fld id 18 to transparent; end; handler openbutton; begin mouseEnter; end; handler closebutton; begin mouseleave; end; d!7vohomeTswrite*7fg ; PElements of written English... Shortcut is ALT+RX(X XX(  > P*7fg ; PX(X XX(  > P*7*7*H;,HT Written Englishar '(1pqR*=eEhandler select; begin {if fileexists("TsResult.pad")=false then none;} vo; go to page "Home" of pad "TsResult"; end; handler mouseEnter; begin set the hilite of me to true; put "Test your level of English...Shortcut is ALT+L" into background fld id 18; set the style of background fld id 18 to opaque; end; handler mouseleave; begin set the hilite of me to false; put "" into background fld id 18; set the style of background fld id 18 to transparent; end; handler openbutton; begin mouseEnter; end; handler closebutton; begin mouseleave; end; e!7voHomeTsResult*7fg ; PTest your level of English...Shortcut is ALT+LX(X XX(  > P*7fg ; PX(X XX(  > P*7*7*H= 7 gWhat is your level? '(1pq L&b<LDhandler select; begin vo; go to page "BigClock"; end; L7voBigClock*H$>BHhNew ButtonALT+F12+`|$/*%""t?hlH www.efe.co.ukP?`:school$+transparA!Npp4@H 9372088 5403324 1234567 2355645P@HOfigswdfl+Wordfiletshelp!prp*R2handler select; begin {if fileexists("Tsbiz.pad")=false then none;} vo; go to page "Home" of pad "Tsbiz"; end; handler mouseEnter; begin set the hilite of me to true; put "Business areas.. Shortcut is ALT+B" into background fld id 18; set the style of background fld id 18 to opaque; end; handler mouseleave; begin set the hilite of me to false; put "" into background fld id 18; set the style of background fld id 18 to transparent; end; handler openbutton; begin mouseEnter; end; handler closebutton; begin mouseleave; end; Rl7voHomeTsbiz*7fg ; PBusiness areas.. Shortcut is ALT+BX(X XX(  > P*7fg ; PX(X XX(  > P*7*7*HA$|BusinessGrammar '(1pqB0XBH(d4 Testing the speaker... If you can hear little or nothing, turn up the volume on your computer, or contact Mackay Language Software for a headphone connector. To test and change your speaker setup, press the Extra Features  button below. PBH)speakerfl+WordfileE!p$pb6F>handler select; begin loadgx2 "tscht95.gx2"; end; F7tscht95.gx2loadgx2*HC - @ 8English TutorScreensN NtN NoN NrN2NNYO _ W handler openpage; begin global wdfl, regflag; if wdfl="" then send "Select" to pg btn id 18; set the hilite of page button "Quit" to false; set the mouseattr to black on grey; set focus to page button id 32; put "" into background field id 18; set the style of background field id 18 to transparent; if regflag=0 then begin if fileexists("c:\tsc.ovl")=true or fileexists("c:\tscreens\zinstall.com")=true then { put the open of "c:\tsc.ovl" into fh; if the result is empty then} begin { close fh;} {answer "All is as it should be!" with "OK";} put 1 into regflag; exit to hyperpad; end else begin ask password "Enter your registration number." with "0000000"; if it <>line 3 of pg fld "Figs" then begin answer "It is possible that you have not a complete or up-to-date copy of English TutorScreens." with "More"; answer "There are regular additions to the content of TutorScreens, and new TutorText and Audio files." with "More"; answer "To receive details of low-cost upgrades to the latest version of TutorScreens, contact:^r^r Mackay Language Software.^r41 Kensington High Street, London W8 5ED^rTel:-44-171-937-2077 Fax:-44-171-376-2368" with "OK"; end else begin put create("c:\tsc.ovl") into fh; write(it) to fh; close fh; end; end; end; put 1 into regflag; end; {Handler keypress(k); Begin global bmark; case key(k) of { "F2" :begin if bmark=0 then begin push this page; put 1 into bmark; end; if bmark=1 then begin visual effect vsplit with delay 50; pop page; put 0 into bmark; end; end; "PgUp": beep; "PgDn": beep; "ALT+F5": ; "CTRL+Q": ; "ALT+SPACE": ;} otherwise: pass; end; End;} {handler jf; begin global ppp; if the random of 100>99 then begin if ppp=4 then begin get the number of lines of page field "phvbs" of page "store"; put it into x; get line random(x) of page field "phvbs" of page "store"; delete line random(x) of page field "phvbs" of page "store"; put it into rand; put it into msg; set the lockscreen to true; set the lockmessages to true; push this page; go to page rand of pad "tsphvbs1.pad"; get field id 5; put it into wrd; put " = " after wrd; get field id 3; put it after wrd; pop page; put wrd into it; set the lockscreen to false; answer it with "OK?"; end; {when removing brackets, take semi-colon off end of last line!!! else begin get the number of lines of page field "reminders" of page "reminders"; get line random(it) of page field "reminders" of page "reminders" end;} { answer it with "OK?";} end; push recent; pop page into jumpfr; if chartonum(rightstring(leftstring(jumpfr,10),1))<>32 then put rightstring(leftstring(jumpfr,10),2) into jumpfr else put rightstring(leftstring(jumpfr,9),1) into jumpfr; put return after page field "track" of page "work"; put jumpfr after page field "track" of page "work"; visual box out; end;}_ 7wdfl+SelectXN XQuitL  ; PX Ip PX N hX(X XX(  > Pregflag+oc:\tscreens\zinstall.com;+c:\tsc.ovl;+2regflag0*$!0000000Enter your registration number. TXFigs%##X.MoreIt is possible that you have not a complete or up-to-date copy of English TutorScreens. UMoreThere are regular additions to the content of TutorScreens, and new TutorText and Audio files. UOKTo receive details of low-cost upgrades to the latest version of TutorScreens, contact: Mackay Language Software. 41 Kensington High Street, London W8 5ED Tel:-44-171-937-2077 Fax:-44-171-376-2368 U$$c:\tsc.ovlU{regflag*^)1S  A* D5!o!$xwBG  U  A7Nh  4:31:13 PM$H8R E S U L T S H%HHzPm@OResults2 a"OverviewTSTDppHXPhandler select; begin global usernme; ask "Name of new Notebook file?" with usernme; put it & ".pad" into newntbk; if Fileexists(newntbk) then begin answer "Ok to overwrite" && newntbk & "?" with "Yes", "No"; if it is "No" then exit to hyperpad; end; get copyfile ("tsnotes.pad", newntbk); end; X7usernmeName of new Notebook file? T.pad,;6NoYes?Ok to overwrite-, UNo+0*tsnotes.padcopyfile*Hm" /,Copy NtBk a"OverviewTST1rq-,+M+s++++.NhO 4:31:14 PMHA U S E R SH%HHzPm@OUserss2 a"OverviewTSTDppHXPhandler select; begin global usernme; ask "Name of new Notebook file?" with usernme; put it & ".pad" into newntbk; if Fileexists(newntbk) then begin answer "Ok to overwrite" && newntbk & "?" with "Yes", "No"; if it is "No" then exit to hyperpad; end; get copyfile ("tsnotes.pad", newntbk); end; X7usernmeName of new Notebook file? T.pad,;6NoYes?Ok to overwrite-, UNo+0*tsnotes.padcopyfile*Hm" /N/Copy NtBk a"OverviewTST1rq-y......G1hq 4:31:16 PM"AHɚ M O D U L E SHHp%Hp`;KChandler select; begin vo; go to pad "Tsphvbs1"; end; K7voTsphvbs1 *Hm  12Phrasal Verbs a.OverviewTST1rq`;KChandler select; begin vo; go to pad "TsGnids1"; end; K7voTsGnids1 *Hm 82Idioms 1erbs a.OverviewTST1rq`;KChandler select; begin vo; go to pad "TsGnids2"; end; K7voTsGnids2 *Hm 3Idioms 2erbs a.OverviewTST1rq`;KChandler select; begin vo; go to pad "TsBzids1"; end; K7voTsBzids1 *Hm 54Business Idiomsa.OverviewTST1rq\9IAhandler select; begin vo; go to pad "TsConj"; end; I7voTsConj *Hm#504Conjugations a.OverviewTST1rq^:JBhandler select; begin vo; go to pad "TsIrreg"; end; J7voTsIrreg *Hm#5t5Irregular Verbsa.OverviewTST1rq`;KChandler select; begin vo; go to pad "Tstense1"; end; K7voTstense1 *Hm# 5 p36Tenses Verbs a.OverviewTST1rq\9IAhandler select; begin vo; go to pad "TsTags"; end; I7voTsTags *Hm9K(6So do IVerbs a.OverviewTST1rq^:JBhandler select; begin vo; go to pad "TsMetoo"; end; J7voTsMetoo *Hm 9 K d7Me too Verbs a.OverviewTST1rqN *E18 11222?334?556=77 ih. 14:31 (2.5)oHp%HpHHտH.\ T u t o r S c r e e n s Mackay Language Software 41 Kensington High Street London W8 5ED Great Britain Tel: (0171) 937-2077 Fax: (0171) 376-2368 CompuServe ID: 100517,2253PH@B a?TSTutor $<+E!ppr)889939h16:46He%HtHHX 16:46:03P @ I+;50 a<TsNotes $!pp0hP@!.lasttimej UX$/XE!ppioh4[Z P@ digit1ap4p#HD P@digit2ap0phP@appoh@[Z P@ &digit3ap$p#Hd P@(.digit4apphP@12appo h[Z P@5;digit5app$ HP @=Cdigit6app3I;-- Get Digit -- This routine returns an enlarged number. -- -- To call this function from HyperPAD: -- -- put getDigit("9") into page field 1; handler putTime(t); begin set the lockScreen to true; put t into page field "lasttime"; if length(t) < 11 then begin put space before t; put empty into page field "digit1"; end else put getDigit(char 1 of t) into page field "digit1"; put getDigit(char 2 of t) into page field "digit2"; put getDigit(char 4 of t) into page field "digit3"; put getDigit(char 5 of t) into page field "digit4"; put getDigit(char 7 of t) into page field "digit5"; put getDigit(char 8 of t) into page field "digit6"; end; handler idle; begin get longTime(); if it is page field "lasttime" then exit; puttime it; put time() into field "time"; end;  I$ puttime87X " PXlasttime%X X  5'XX Xdigit1%X X$*XgetdigitXdigit1%X XXgetdigitXdigit2%X XXgetdigitXdigit3%X XXgetdigitXdigit4%X XXgetdigitXdigit5%X XXgetdigitXdigit6%X X*7Xlasttime%##+*puttimeXtime&X X*q@ n::::::=;S;;<h<<<<G== >/>>>>Z??? h 14:32 (2.5)Hʚxww G R A M M A R From this screen you can select an area of grammar to study. Simply press one of the buttons below. %H HHwJZRhandler select; begin vo; go to page "home" of pad "tstense1"; end; Z7vohometstense1*H # PvFTense Moduleammar '(1q UQ}handler select; begin {if fileexists("Tsvocab.pad")=false then none;} vo; go to page "modals" of pad "tsvocab"; end; 7vomodalstsvocab*H89GModal verbsrammar '(1qM2handler select; begin {if fileexists("Tsrspch.pad")=false then none;} vo; go to page "Rspeech0" of pad "TSRSPCH"; end; 7voRspeech0TSRSPCH*H#0HReported Speechar '(1qEwhandler select; begin {if fileexists("Tsing.pad")=false then none;} vo; go to page "Home" of pad "Tsing"; end; 7voHomeTsing*H-I+IDo-ING or TO DO?r '(1qD yhandler select; begin {if fileexists("Tsif.pad")=false then none;} vo; go to page "iftenses" of pad "TSIF"; end; 7voiftensesTSIF*H#J"If..." sentences '(1qF!A}handler select; begin {if fileexists("Tsactive.pad")=false then none;} vo; go to page "home" of pad "Tsactive"; end; 7vohomeTsactive*H#  KActive : Passiver '(1qA{handler select; begin {if fileexists("Tsirreg.pad")=false then none;} vo; go to page "home" of pad "tsirreg"; end; 7vohometsirreg*H - I LIrregular Verbs Module '(1qIyhandler select; begin {if fileexists("Tsconj.pad")=false then none;} vo; go to page "home" of pad "tsconj"; end; 7vohometsconj*H  # LConjugations Module '(1qOwJZRhandler select; begin vo; go to page "Home" of pad "tstenses"; end; Z7voHometstenses*H - I MTensesoduleammar '(1qThandler select; begin {if fileexists("Tstnsles.pad")=false then none;} vo; go to page "Tenseless1" of pad "tstnsles"; end; 7voTenseless1tstnsles*H 7,NTense Comparisons '(1qSwhandler select; begin {if fileexists("Tsif1.pad")=false then none;} vo; go to page "home" of pad "TSIF1"; end; 7vohomeTSIF1*H-I(O"If..." modulees '(1qI}handler select; begin {if fileexists("Tsrspch1.pad")=false then none;} vo; go to page "home" of pad "TSRSPCH1"; end; 7vohomeTSRSPCH1*H-IPReported Speech module '(1qH#H $UQEE4FJF`FFGHIJKLM\N^OKPAQ hT 10:28:29 AMH HyH0d{zNAME FORM CODE GROUP Present Simple I work PS 1 Present Continuous I am working PC 1 Present Perfect I have worked PP 2 Present Perfect Continuous I have been working PPC 3 Past Simple I worked PAS 2 Past Continuous I was working PAC 3 Past Perfect I had worked PAP 4 Past Perfect Continuous I had been working PPC 4 Future Simple I shall work FS 3 Future Continuous I shall be working FC 4 Future Perfect I shall have worked FP 4 Future Perfect Continuous I shall have been working FPC 4 "Used to" Past I used to work USED 3 "Going to" Future I am going to work GNG 3 "Going to" Past I was going to work GNG 4 Fixed / Plan Future I am meeting FIX 3 Timetable Future The train leaves TMT 3 P@PwoulNew FieldS",<d!p@p%,RNRdRzR W!h\ 20:20 (25.4)H S P O K E N E N G L I S H You can see the words and expressions we use when we speak in the Dialogues and, in more detail, in the Phrases used in the Dialogues. Some of the other skills that can make your English sound better are explained below. s%H HH~handler select; begin {if fileexists("Tsphrase.pad")=false then none;} vo; go to page "metoo" of pad "Tsphrase"; end; 7vometooTsphrase*H$ X"Me too!" in English '(1qM2}handler select; begin {if fileexists("Tsphrase.pad")=false then none;} vo; go to page "Tags" of pad "Tsphrase"; end; 7voTagsTsphrase*H,HYQuestion Tagsmmar '(1qU~handler select; begin {if fileexists("Tsvocab.pad")=false then none;} vo; go to page "Fillers" of pad "Tsvocab"; end; 7voFillersTsvocab*H$ZSentence fillersr '(1qS}handler select; begin {if fileexists("Tsphrase.pad")=false then none;} vo; go to page "home" of pad "Tsphrase"; end; 7vohomeTsphrase*H ,H [Phrases used in Dialogues'(1qH#9DlLhandler select; begin {if fileexists("Tsdialog.pad")=false then none;} vo; go to page "Home" of pad "Tsdialog"; end; handler mouseEnter; begin set the hilite of me to true; put "Dialogues in different situations... Shortcut is ALT+D" into background fld id 18; set the style of background fld id 18 to opaque; end; handler mouseleave; begin set the hilite of me to false; put "" into background fld id 18; set the style of background fld id 18 to transparent; end; handler openbutton; begin mouseEnter; end; handler closebutton; begin mouseleave; end; l'07voHomeTsdialog*7fg ; PDialogues in different situations... Shortcut is ALT+DX(X XX(  > P*7fg ; PX(X XX(  > P*7*7*H $ \DialoguesGrammar '(1qD handler select; begin {if fileexists("Tsphrase.pad")=false then none;} vo; go to page "Interrupting" of pad "Tsphrase"; end; 7voInterruptingTsphrase*H $a`Interruptingin Dialogues'(1qI|handler select; begin {if fileexists("Tsvocab.pad")=false then none;} vo; go to page "Links" of pad "TsVocab"; end; 7voLinksTsVocab*H ,HgaLinking signalsar '(1qK%handler select; begin {if fileexists("Tsphrase.pad")=false then none;} vo; go to page "Clarification" of pad "Tsphrase"; end; 7voClarificationTsphrase*H,H\bClarificationmmar '(1qA^:JBhandler select; begin vo; go to page "Sounds"; end; J7voSounds*H$ddcSounds of English '(1qOu}handler select; begin {if fileexists("Tsuk.pad")=false then none;} vo; go to page "Home" of pad "tsuk"; end; 7voHometsuk*H,HdBritish Englishh '(1qOM WWXXXYZ[\`abccd!h 17:42 7/4/95HxwS O U N D S O F E N G L I S H This version of TutorScreens can give only a little help with the sound of English. Press "A E I O U !" to hear the pronunciation of the vowel sounds. There are five important elements of spoken English to remember: If you want to be able to learn as much as possible on your own, it is a good idea to take the time to learn the Phonetic Alphabet. Many good dictionaries have transcriptions of words into this alphabet, and even without a teacher you can get a good idea of how to pronounce words you have never heard. Press the button below to learn or test yourself on this alphabet.t%HeHH\9IAhandler select; begin vo; go to page "aeiou"; end; I7voaeiou*H7 :hA E I O U !rammar '(1q}handler select; begin {if fileexists("Tsphonet.pad")=false then none;} vo; go to page "Home" of pad "Tsphonet"; end; 7voHomeTsphonet*H7 hPhonetic Alphabet '(1qhandler select; begin {if fileexists("Tsuk.pad")=false then none;} vo; go to page "spoken english" of pad "Tsuk"; end; 7vospoken englishTsuk*H 7 iElements of English '(1q1Gejegh$hhijh 12:06 AMH  ߱ ߱ ߱ ܱ (This version of TutorScreens will forget your previous screens when you play the sounds)%HHP`Xhandler select; begin keep; putglobals "globals.dat"; run "aeiou"; end; `7keepglobals.datputglobalsaeiouXH*H5BmPlay vowels... 1q H $%n k(km,mm hd 10:42 (2.5)HpV O C A B U L A R Y Groups of difficult verbs and common expressions to learn and practise: You can also study general vocabulary, numbers, favourite mistakes, and move directly to the phrase reference charts: %HpHppHphandler select; begin {if fileexists("Tsgnids2.pad")=false then none;} vo; go to page "Home" of pad "TSGNIDS2.PAD"; end; 7voHomeTSGNIDS2.PAD*H* E oGeneral Idioms 2 '(1qG"handler select; begin {if fileexists("Tsbzids1.pad")=false then none;} vo; go to page "Home" of pad "TSBZIDS1.PAD"; { answer "Sorry. Not available on this version." with "OK";} end;7voHomeTSBZIDS1.PAD*H $ pBusiness Idioms '(1qB0handler select; begin {if fileexists("Tsgnids1.pad")=false then none;} vo; go to page "Home" of pad "TSGNIDS1.PAD"; end; 7voHomeTSGNIDS1.PAD*H*E `rGeneral Idioms 1 '(1qE}L\Thandler select; begin vo; go to page "Home" of pad "TSPHVBS1.PAD"; end;\7voHomeTSPHVBS1.PAD*H  $ 1sPhrasal Verbsry '(1qH#handler select; begin {if fileexists("Tsspvoc.pad")=false then none;} vo; go to pad "tsspvoc"; { answer "Sorry. Not available on this version." with "OK";} end; 7votsspvoc *HH5sSpecial Vocabularyr $<+!1qxSwJZRhandler select; begin vo; go to page "Vocab" of pad "TShints"; end; Z7voVocabTShints*HHKN8tSw ButtonOverviewTSTutor1q~handler select; begin {if fileexists("Tsvocab.pad")=false then none;} vo; go to page "Home" of pad "TSVocab.PAD"; end; 7voHomeTSVocab.PAD*H $uVocabularyoms 2 '(1qV/}handler select; begin {if fileexists("Tsnumber.pad")=false then none;} vo; go to page "Home" of pad "TSnumber"; end; 7voHomeTSnumber*Hm $vNumberson a"OverviewTST1rqUhandler select; begin {if fileexists("Tsphrase.pad")=false then none;} vo; go to page "Home" of pad "TSPhrase.PAD"; end; 7voHomeTSPhrase.PAD*H*EwPhrasesryoms 2 '(1qAmhandler select; begin {if fileexists("Tsvocab.pad")=false then begin vo; go to next page; end else begin} vo; go to page "mistakes" of pad "tsvocab"; { end;} end; 7vomistakestsvocab*H*ExFavourite mistakes! '(1qF!handler select; begin {if fileexists("Tspolyph.pad")=false then none;} vo; go to page "Home" of pad "TSpolyph.PAD"; end; 7voHomeTSpolyph.PAD*H 5 yPhrasebookoms 2 '(1q K%Qnnooopqrstxurvhwexyzhd 10:56 AM2HOHt;:Press to return to the previous screen. Shortcut is ALT+P.HH I N T E R E S T I N G S E N T E N C E S There is something wrong with all these sentences! 1. I'm sorry for the late. 2. I want that she comes. 3. I had problems to find the school. 4. There are many good books in that library. 5. Before to come to London... 6. I'll have or tea or coffee. 7. I always do the same mistakes. 8. I like very much music. P@Pnd things that!phptYa{handler select; begin visual effect wipe left with delay 10; go to next page; end;}                HEH}r > rttonlp$TSrspch+1tNqR&handler select; begin answer "I'm sorry I'm late.^r^rFor more on Apologies..." with "OK", "More"; {if it is "More" then begin vo; go to page "apologies" of pad "tsphrase" ; end;} end; 7MoreOKI'm sorry I'm late. For more on Apologies... U*H ~1. Button$TSif@ɚ1qe)!handler select; begin answer "I want her to come.^r^rWe use the Infinitive in this construction. For other examples..." with "OK", "More"; {if it is "More" then begin vo; go to page "offers" of pad "tsphrase" ; set focus to pg btn id 4; end;} end; )7MoreOKI want her to come. We use the Infinitive in this construction. For other examples... U*H   @!2. Button. For other examples..1wq"/'handler select; begin answer "I had difficulty finding the school.^r^rWe do not use the word ^"problem^" here.^rNote ^"difficultY^" and ^"findING^".For details..." with "OK", "More"; {if it is "More" then begin vo; go to page "ing2" of pad "tsing" ; end;} end; /7MoreOKI had difficulty finding the school. We do not use the word "problem" here. Note "difficultY" and "findING".For details... U*H  3. Buttonhelp$TDɚ1q?OGhandler select; begin answer "There are a lot of good books in that bookshop.^r^rWe use ^"many^" in questions and negatives.^r^rRemember that a bookshop is where you buy books, a library where you borrow them!" with "OK", "Many"; {if it is "Many" then begin vo; go to page "Some2"; end;} end; O7ManyOKThere are a lot of good books in that bookshop. We use "many" in questions and negatives. Remember that a bookshop is where you buy books, a library where you borrow them! U*Ht  4. Button" except in questions a1nqs>rhandler select; begin answer "Before coming to London.^r^rAfter a preposition we use the ^"-ing^" form. (BUT Compare...)^r^rFor more examples of ^"-ing^"..." with "OK", "Compare", "-ing"; {if it is "Compare" then begin vo; go to page "mistakes5"; set focus to pg btn id 4; end; if it is "-ing" then begin vo; go to page "ing2" of pad "tsing"; end;} end; 7-ingCompareOKBefore coming to London. After a preposition we use the "-ing" form. (BUT Compare...) For more examples of "-ing"... U*Hp5. Button Perfect Continuous1qhandler select; begin answer "I'll have either tea or coffee.^rI'll have tea or coffee.^r^reither...or^rneither...nor" with "OK"; end; 7OKI'll have either tea or coffee. I'll have tea or coffee. either...or neither...nor U*H (6. Button *1q:handler select; begin answer "I always make the same mistakes.^r^r^"make^" or ^"do^"?" with "OK", "More"; {if it is "More" then begin vo; go to page "make"; set focus to pg btn id 3; end;} end; 7MoreOKI always make the same mistakes. "make" or "do"? U*H E7. Button  #1qhandler select; begin answer "I like music very much. or^rI very much like music.^r^rFor other ways of expressing Likes..." with "OK", "More"; {if it is "More" then begin vo; go to page "I like..." of pad "tsphrase" ; end;} end; 7MoreOKI like music very much. or I very much like music. For other ways of expressing Likes... U*Hr  ˋ8. Button ways of expressing Lik1.q N *IG{f{|{{}e~ǃ&Nih.9:59 PMGoHd322I R R E G U L A R V E R B S : R e f e r e n c e HH%H{ Hg f u` Abide abode abidden Arise arose arisen Awake awoke awoken Bear bore born Beat beat beaten Become became become Begin began begun Bend bent bent Bind bound bound Bite bit bitten Bleed bled bled Blow blew blown Break broke broken Bring brought brought Build built built Burn burnt burnt Buy bought bought Catch caught caught Choose chose chosen Come came come Creep crept crept Cut cut cut Dig dug dug Do did done Draw drew drawn Dream dreamt dreamt Drink drank drunk Drive drove driven Eat ate eaten Fall fell fallen Feel felt felt Fight fought fought Find found found Fly flew flown Forbid forbade forbidden Freeze froze frozen Get got got Give gave given Go went gone /been Grind ground ground Grow grew grown Hang hung hung Have had had Hear heard heard Hide hid hidden Hit hit hit Hold held held Hurt hurt hurt Keep kept kept Know knew known Lead led led Leave left left Lend lent lent Let let let Light lit lit Lose lost lost Make made made Mean meant meant Meet met met Pay paid paid Put put put Read read read Ride rode ridden Ring rang rung Rise rose risen Run ran run Say said said See saw seen Seek sought sought Sell sold sold Send sent sent Set set set Shake shook shaken Shoot shot shot Show showed shown Shut shut shut Sing sang sung Sit sat sat Sleep slept slept Speak spoke spoken Spend spent spent Stand stood stood Steal stole stolen Stick stuck stuck Strike struck struck Take took taken Teach taught taught Tell told told Think thought thought Wake woke woken Wear wore worn Win won won Write wrote written Po-Oirregcapd that text. U$pp H dBe was been Begin began begun Come came come Do did done Get got got Go went gone / been Have had had Make made made Mean meant meant Meet met met Pay paid paid Run ran run Say said said See saw seen Speak spoke spoken Tell told told Think thought thought Understand understood understood Write wrote written Become became become Bring brought brought Buy bought bought Catch caught caught Choose chose chosen Drink drank drunk Drive drove driven Eat ate eaten Find found found Give gave given Hear heard heard Know knew known Leave left left Lose lost lost Put put put Read read read Shut shut shut Sit sat sat Sleep slept slept Stand stood stood Steal stole stolen Take took taken Teach taught taught Wake woke woken Spend spent spent Break broke broken Cut cut cut Draw drew drawn Fall fell fallen Feel felt felt Fly flew flown Freeze froze frozen Grow grew grown Hang hung hung Hide hid hidden Hit hit hit Hold held held Hurt hurt hurt Keep kept kept Lead led led Lend lent lent Let let let Light lit lit Ride rode ridden Ring rang rung Rise rose risen Sell sold sold Send sent sent Set set set Shake shook shaken Shoot shot shot Show showed shown Sing sang sung Stick stuck stuck Wear wore worn Win won won Abide abode abidden Arise arose arisen Awake awoke awoken Bear bore born Beat beat beaten Bend bent bent Bind bound bound Bite bit bitten Bleed bled bled Blow blew blown Build built built Burn burnt burnt Creep crept crept Dig dug dug Dream dreamt dreamt Fight fought fought Forbid forbade forbidden Grind ground ground Seek sought sought Strike struck struck Po+irregcapsd that text. U$pp4H Grouped according to importanceP2@-rnter wd you would A!pi$p!H AlphabeticalP2@3Krnter wd you would A!pi,pA 3QƎCWߢ1T!ih., 14:14 (25.4)?oH+**A U X I L I A R Y V E R B S %HHHHTh"I am Am I? I'm not Aren't I? He is Is he? He isn't Isn't he? We are Are we? We aren't Aren't we? You are Are you? You aren't Aren't you? They are Are they? They aren't Aren't they?Pe@8 +Objects;+7 !pH\pHTI have Have I? I haven't Haven't I? He has Has he? He hasn't Hasn't he? We have Have we? We haven't Haven't we? You have Have you? You haven't Haven't you? They have Have they? They haven't Haven't they?Pe@ 8+Objects;+7 !pHdpHTĚI do Do I? I don't Don't I? He does Does he? He doesn't Doesn't he? We do Do we? We don't Don't we? You do Do you? You don't Don't you? They do Do they? They don't Don't they?Pe@8+Objects;+7 !pHlprHT^] to be to have to do do; quest and neg be +-ing or -ed contin or passive hav; perf vb formsPe@ N+Objects;+7 E!pHtp0iH.\Ěto be I was I have been PH@3O a?TSTutor $<+!p|priH.PH@C L a?TSTutor $<+!ppriH.PH@A L a?TSTutor $<+!pprX(,e̋Yt McyqåZΨ R " h 10:24:17 AMF!7/Handler Select; Begin jb; End; nd; 77X jb;:*HEMKBack...1MMqkH4WV13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41P@phvbs ppMH981 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22P@(genids1 ppHx494 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145P@,<genids2 ppbHNM1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29P@?Obizids ppZ4"fld id 2fld id 39% )ݫJ=oӮ h 10:24:16 AMAHpHp%H9Hhandler select; begin global ntbk; set lockscreen to true; push this page; get the longid of this page; put substitute(it,"^"","") into source; go to pad ntbk; go to page 1; ask "Enter note to be added to Notebook..."; put upper(leftstring(it,1)) & rightstring(it,len(it)-1) into it; put return & it after field "notes" ; put return & source & return after field "notes" ; pop page; end; handler mouseEnter; begin put "Add note to Notebook..." into background field 3; set the style of background field 3 to opaque; end; handler mouseleave; begin put "" into background field 3; set the style of background field 3 to transparent; end; P@NWdfl(<BepField Inp4pHhandler select; begin global wdfl; set lockscreen to true; push this page; go to pad wdfl; ask "Enter word..."; put upper(leftstring(it,1)) & rightstring(it,len(it)-1) into it; put it after last line of field "File"; ask "Enter explanation or translation..."; put upper(leftstring(it,1)) & rightstring(it,len(it)-1) into it; put it after last line of field "File2"; pop page; end; handler mouseEnter; begin put "Enter English, and then explanation in the two boxes..." into background field 3; set the style of background field 3 to opaque; end; handler mouseleave; begin put "" into background field 3; set the style of background field 3 to transparent; end;P>@PNtbkt 9sc.rp,p1ޯ  ڲ,h1:59 PMDH|0/-C U S T O M I Z E A N D U T I L I T I E S pHp%H"eHs4  Anthony JohnPt@ nametuser; put it into lastuserp Xpe e Hsx  ntbk ntbkkPt @. =ntbktuser; put it into lastuserp `pe e Hs  wdfl wdfllPt @? Nwdfltuser; put it into lastuserp hpee Hs  box booPt @ ,pswdtuser; put it into lastuserp ppeA 4n!@h 14:15 (25.4)9H%HIH$HAnthonyPT@&First nameOverviewTSTutor1p!$HPWithersPT@&Family nameOverviewTSTutor1p!$HLondonPT@&Towny nameOverviewTSTutor1p!$HqEnglandPT@&CountryameOverviewTSTutor1p!$H42PT@ & AgetryameOverviewTSTutor1p!$H\EFEPT@ & CompanyameOverviewTSTutor1p!$HT17PT@ & Time with companyiewTSTutor1p!handler select; begin put page field "First name" && page field "Family Name" & "." into nme; put page field "Town" && "- why do you ask?" into town; put page field "Country" & "." into country; go to page "Identity" of pad "Tsdialog"; put nme into page field "Name"; put country into page field "country"; put substitute(country,".","?") into page field "country?"; put town into page field "Town"; end; 7.XFamily Name%##XFirst name%##-,- why do you ask?XTown%##-.XCountry%##,IdentityTsdialogXName%X XXcountry%X X.?PXcountry?%X XXTown%X X*H!1Transfer data    1q] "E[qgֺF_˻6,!haP 19:17 (12.1)gHy<on U T I L I T I E S From this screen you can set up and test your speakers, change the keys for the Collins Dictionary, go to DOS, set an alarm, or run programs outside TutorScreens. Press the buttons, or use the mouse or TAB key to hilite the field below, type a command, then press Enter, OK, or double-click. Or you can select previous commands from the box...e%HtpH,eHandler Select; Begin ask password "Password for exit to DOS?"; if it<>"tefl" then exit to hyperpad; get environment("comspec"); putglobals "globals.dat"; if it is empty then get FindFile("COMMAND.COM"); if it is empty then get ("C:\command.com"); if not FileExists(it) then answer "Unable to locate COMMAND.COM. The location of this file must be included in your path." else run it; End;7Password for exit to DOS? Ttefl.0*comspec&globals.datputglobals+COMMAND.COM]+C:\command.com;y`Unable to locate COMMAND.COM. The location of this file must be included in your path.XU$XH*Hd*;DOS Promptt for useit 1qtD handler select; begin ask password "Password for Menu Restore?"; if it<>"box" then exit to hyperpad; restore menus; end; 7Password for Menu Restore? Tbox.0**H Restore MenusHme FALSE2qR!handler select; begin global ntbk, wdfl; ask password "Password for Globals?"; if it<>"box" then exit to hyperpad; put ntbk && wdfl into msg; wait 2000; put "" into msg; put "Tsnotes" into ntbk; put "tswordfl" into wdfl; put ntbk && wdfl into msg; end; !7Password for Globals? Tbox.0*wdflntbk-)X X)X XTsnotesntbktswordflwdflwdflntbk-)X X*H>(GlobalsonHHHH2qG")handler select; begin global stopseconds; ask "What time would you like the alarm?" with the time; if it is empty then exit; convert it to seconds; put it into stopseconds; end; 7What time would you like the alarm? T+*XXstopseconds*H* ;$Alarmtton           1qA h4C>P0 `  driveB!p,p H2%5-handler keypress(k); begin get key(k); if it is "enter" then begin get the value of me; if it is not in page field "Previous Commands" then put it after the last line of page field "Previous Commands"; if the number of lines of page field "Previous Commands" > 20 then delete line 1 of page field "Previous Cmmands"; get environment("COMSPEC") && "/c" && it; if the check of page button id 11 then run it with programdirectory,pause else run it with programdirectory end; pass; end;587Wenter+fg cXPrevious Commands%##x0XPrevious Commands%XlA  XPrevious Commands%##3A!XPrevious Cmmands%X W/cCOMSPEC&--X N  c  H$ H/*P  2 <Command LineXO6dp4pH "Wait for key after runnings%q Hahandler select; begin answer "Printer setup or Page setup?" with "Printer", "Page", "Cancel"; if it is "printer" then domenu "Printer setup..."; if it is "Page" then domenu "Page setup..."; end; 7CancelPagePrinterPrinter setup or Page setup? Uprinter+Printer setup...Page+Page setup...*H>'TPrinteronHHHH1qDhandler select; begin get line (the currentline of me) of page field "Previous Commands"; put it into page field "Command Line"; send "keypress" 7181 to page field "Command Line"; end;7XPrevious Commands%##Xfg cXXXXXXCommand Line%X X7181keypressXCommand Line% *P  (\NPrevious Commands   WO6pDRbZHandler Select; Begin send "keypress" 7181 to page field "Command Line"; End; b77181keypressXCommand Line% *H 4 8 dOkkupton1qOySK[Shandler select; begin vo; go to page "Custom3" of pad "tsdate"; end; [7voCustom3tsdate*H= NlChange timeand date$ H1qfTLe`phHandler Select; Begin global spkflag; answer "Select Internal speaker, External connection to LPT1, or SoundBlaster" with "Internal", "External", "SoundBlaster"; if it is "Internal" then put "" into spkflag; if it is "External" then put " 1" into spkflag; if it is "SoundBlaster" then put " S" into spkflag; set focus to pg btn id 18; End;p7SoundBlasterExternalInternalSelect Internal speaker, External connection to LPT1, or SoundBlaster UInternal+ spkflagExternal+ 1spkflagSoundBlaster+ SspkflagXN h*Hd=NtSpeaker setup for useit 1qtSTeHandler Select; Begin global spkflag; show pg fld "spktest"; putglobals "globals.dat"; put "Spktest2" into spktest; put spktest & spkflag into spktest; keep; run spktest; set focus to btn id 17; End;7Xspktest%  *R Pglobals.datputglobalsSpktest2spkflag,keepXHXO h*Hd=NxSpeaker test for useit 1qtSHsr;English TutorScreens gives you intelligible spoken English on any IBM compatible computer. The quality is sufficient to help you a lot with the main elements of spoken English. You can also take part in Dialogues, learn the Phonetic Alphabet or listen to AudioTexts. You will get best results with an inexpensive headphone connector to your printer port. Contact us!PHOspktestAp$7e>NFhandler select; begin answer "Select ^"OK^" if you want to change the trigger keys for the Collins On-Line v2.20 bi-lingual dictionaries. Install the dictionary BEFORE using this option." with "OK", "Cancel"; if it is "OK" then begin putglobals "globals.dat"; -- keep; run "collins.bat"; end; end; N7CancelOKSelect "OK" if you want to change the trigger keys for the Collins On-Line v2.20 bi-lingual dictionaries. Install the dictionary BEFORE using this option. UOK+*globals.datputglobalscollins.batXH*HE *;,Collins Dict.EST4+Teststsh1quhandler openPage; begin put the drive & ">" into page field "drive"; set focus to pg btn id 17; --page field id 10; end; handler fixup(p); begin answer "Unable to locate" && p && ". Would you like to edit the path of your DOS programs?" with "Yes","No"; if it is "Yes" then go to page "Options"; exit to hyperpad; end; function getprogram(p); begin put p into t; get page field "where" of page "options"; if it is not empty then begin if the last char of it is not "\" then put "\" after it; put it before p; get p & ".COM"; if not FileExists(it) then begin get p & ".EXE"; if not FileExists(it) then fixup t; end; return it; exit; end; get findfile(p & ".COM"); if it is empty then begin get findfile(p & ".EXE"); if it is empty then fixup t; end; return it; end; function AskForDisk; begin put the drives into dlist; get the popup of 2,1,dlist; if it is 0 then exit to hyperpad; return item it of dlist; end; function AskForNRDisk; -- non-removable disk begin put the drives into dlist; put the number of items of dlist into n; put empty into list; for i = 1 to n do if not issubst(item i of dlist) then put item i of dlist after the last item of list; get popup(10,10,substitute(list,",",return)); if it is 0 then exit to hyperpad; return item it of list; end; ho7>!,Xdrive%X XXN h*$fixup87NoYes. Would you like to edit the path of your DOS programs?Unable to locate-- UYes+ Options0**$ getprogram87optionswhere%##.{\Xl>.\XX XX .COM,;y&.EXE,;y fixup9*.COM,]+).EXE,]+ fixup9*$ askfordisk7YO+0*X9*$askfornrdisk7Y@6MXissubsty%XXl@  $ , PO+0*X9*J &my}k~{:SAu:rEh@6:55 PMHhH6handler keypress(k); begin case key(k) of "Enter" : send "Select" to bkgnd button "Display"; otherwise : Pass; end; end;87X   W:$$)Enter+SelectXDisplayM $/*P`KȚFile name͎͎͎͎͎͎͎͎͎͎͎͎tpȚ H C:\tscreensP@KFiles inr0o0g0r0a0m0 04p)hP{)TSACTIVE.PAD TSBIZ.PAD TSBZIDS1.PAD TSCONJ.PAD TSCREENS.PAD TSDATE.PAD TSDIALOG.PAD TSGNIDS1.PAD TSGNIDS2.PAD TSHELP.PAD TSHINTS.PAD TSIF.PAD TSIF1.PAD TSING.PAD TSIRREG.PAD TSMETOO.PAD TSNOTES.PAD TSNUMBER.PAD TSPHONET.PAD TSPHRASE.PAD TSPHVBS1.PAD TSPOLYPH.PAD TSRESULT.PAD TSRSPCH.PAD TSRSPCH1.PAD TSSPVOC.PAD TSTAGS.PAD TSTENSE1.PAD TSTENSES.PAD TSTEST1.PAD TSTEST2.PAD TSTEST3.PAD TSTEST4.PAD TSTEXT.PAD TSTLPLAY.PAD TSTNSLES.PAD TSTUTOR.PAD TSUK.PAD TSVOCAB.PAD TSWORDFL.PAD TSWRITE.PAD <RDhandler select; begin get line (the currentline of me) of page field "list"; if it is empty then exit; put page field "Files in" into ddir; if the last char of ddir is not "\" then put "\" after ddir; put ddir & it into page field "file Name"; send "select" to page button "Go to this pad"; end; handler closefield; begin get line (the currentline of me) of page field "list"; if it is empty then exit; put page field "Files in" into ddir; if the last char of ddir is not "\" then put "\" after ddir; put ddir & it into page field "file Name"; end;R 7Xlist%##Xfg cXXXXX+*XFiles in%## XXX\ Xl>.\ XX X ,Xfile Name%X XselectXGo to this padL *7 Xlist%##Xfg cXXXXX+*XFiles in%## XXX\ Xl>.\ XX X ,Xfile Name%X X*P@@rList0 0P0r0o0g0r0a0m0 0p@p,HT{[.. ] A: C: D:handler select; begin get line (the currentline of me) of page field "dirs"; if char 1 of it = "[" then begin put page field "Files in" into ddir; if the last char of ddir is not "\" then put "\" after ddir; delete char 1 of it; delete the last char of it; get trim(it); get fullname(ddir & it); end else get the directory of it; put it into page field "Files in"; reread; end;7Xdirs%##Xfg cXXXX[XX1+XFiles in%## XXX\ Xl>.\ XX XX1 WXXl> WX   6:XXXXX ,   a:XXXX$X   #:XXXXXXFiles in%X XX reread;:*P@ -xDirs0 0P0r0o0g0r0a0m0 0ppHandler Select; Begin set the check of me to true; {show field "message";} set the check of page button "Animation" to false; send "reread" to this page; End; 7fg  PXAnimationL  Preread` *H5 C pTutorTextrestions0000000#0q0PHandler Select; Begin set the check of me to true; {hide field "message";} set the check of page button "tutortext" to false; send "reread" to this page; End; 7fg  PXtutortextL  Preread` *H5 C h"Animation padions0000000"0q0AHP @2Amessage X!plp 0(handler select; begin get page field "file name"; if it is empty then begin answer "You must first highlight a file, then select Display." with "Ok"; exit; end; {if the check of button "pictures" then loadgx2 it else fxshow it; fxshow it;} go to pad it; end; 07Xfile name%##XXXXX+BOkYou must first highlight a file, then select Display. XU*X *H8JXGo to this padions000000010q0Oh%G-handler reread; begin get page field "Files in"; put the dirs of it into page field "dirs"; put substitute(drives(),",",return) after the last line of page field "dirs"; if the last character of it is not "\" then put "\" after it; if the check of page button "tutortext" is true then put the files of (it & "TS*.PAD") into page field "list" else put the files of (it & "TS*.PAD") into page field "list"; set the startline of page field "list" to 1; set the startline of page field "dirs" to 1; end; handler openpage; begin put empty into page field "file Name"; if page field "files in" is empty then put the directory into page field "files in"; set the focus to page field "file Name"; reread; end; function _getfile(fname); begin get fname; if ":" is not in it then begin put page field "Files In" into dname; if "\" is not in it then begin if the last char of dname is not "\" then put "\" after dname; if FileExists(dname & it) then get dname & it else get FindFile(it); end else put char 1 to 2 of dname before it; end; put fullname(it) into fname; if not FileExists(fname) then return empty else return fname; end; handler mark; begin end; G&`$reread7XFiles in%##XXXXX   E:Xdirs%X XX  Y:,   P:Xdirs%XlA  \XXl>.\XXX XtutortextL  c+-TS*.PADX,   ":Xlist%X X$* TS*.PADX,   ":Xlist%X X Xlist%  1 P Xdirs%  1 P*7Xfile Name%X XXfiles in%##+ X  #:Xfiles in%X XXfile Name% hX reread;:*$ _getfile87X XXX :xXFiles In%## XXX \x\ Xl>.\ XX   ,   ;:  , XXX$!    ]: XXX$$ X21 XX &    a:XXXX'X   ;:y '9$(X9*7,*Q LjG?$nuh\3:04 PMHHoHpHx\[Bhandler select; begin visual effect wipe right with delay 20; go to previous page; end;P@,left)))p\pkHxWV/handler select; begin visual effect wipe left with delay 20; go to next page; end;P@Fright)))pLpH handler select; begin answer with "OK", "More"; if it is "More" then begin vo; go to page ; end; end; P@ 7mored7/0X  |p@pEH10handler select; begin answer with "OK"; end; P@- Premind7/0X  |pDphandler select; begin ask "Destination pad for ^"Work^"..."; put it into dest; go to page "work" of pad "Tscreens"; domenu "Copy Page"; go to pad dest; domenu "Paste Page"; go to page "work2" of pad "Tscreens"; domenu "Copy Page"; go to pad dest; domenu "Paste Page"; go to page "work3" of pad "Tscreens"; domenu "Copy Page"; go to pad dest; domenu "Paste Page"; end; 7Destination pad for "Work"...XTworkTscreensCopy Page Paste Pagework2TscreensCopy Page Paste Pagework3TscreensCopy Page Paste Page*HH ;P0Work page moverstor $<+!5 qxE |N _M h 16:1 (21.4)HhoHHome Results Users Modules Credits BigClock Grammar OldTnsTble Spoken Sounds aeiou Vocab Irreglist Auxtable Store blank Custom Identity Custom2 TsPads Work Work2 Work3 Titlescreen FadescreenQ handler select; begin put "" into field "pnames" of page "work2"; for i = 1 to the number of pages do begin go to page i; put the name of this page & return after field "pnames" of page "work2"; end; go to page "work2"; end; d; d; 7work2pnames&X XB6; `  Xc,work2pnames&X  $work2*H %7pKPage-name reader       1qdEUMhandler select; begin global pagenme; go to page pagenme; end; U7pagenme*Hw %7xGo to page...al pgname; get lin1tqeO_Whandler select; begin go to page id 14 of pad "C:\HPAD22\ATRANS.PAD"; end; _7C:\HPAD22\ATRANS.PAD*H % 5 ATranston1q!Ue]handler select; begin set lockmessages to true; go to page "Titlescreen"; end; e7X  PTitlescreen*H ; HNew Button+Wordfiletshelp1qstRbZhandler select; begin global pagenme; edit the script of page pagenme; end; b7pagenme b*Hw:Lh Edit script of pageame; get lin1tqe5 (J`vO  QhL9:57 PM=HHHH4 handler select; begin answer "Sometimes you get a note, and an opportunity to see more ..." with "OK", "More"; if it is "More" then begin vo; go to page "home" ; end; end; P@Osedit5:18 PM6<BH?Z`!ppqH f]\5handler select; begin global peek; put 1 into peek; set the visible of me to false; end;P@;dotsTEN1se1ppHPf handler closepage; begin global peek; if peek<>0 then begin for i = 1 to the number of page buttons do begin set the visible of page button i to true; end; end; put 0 into peek; end;P@ Nshowallm2 1p:p4HjHVU'page id 122 of pad C:\ESCREENS\TSCREENS.PAD page id 3 of pad C:\ESCREENS\TSCREENS.PAD tha 14:32 (2.5)P@OHistoryd1pp handler select; begin get the selectedtext; go to page id (word 3 of it) of pad (word 6 of it); { show the msg; {visual effect box out with delay 50;} {go to it;} put "go to " && it into the msg; put "Press RETURN to go to the source of the note. F4 then hides the box..." into background field 3; set the focus to msg;} end; {handler closepage; begin set the visible of msg to false; {hide the msg;} end; handler mouseEnter; begin put "First click and drag from start to end of note source, then press this button" into background field 3; set the style of background field 3 to opaque; end; handler mouseleave; begin put "" into background field 3; set the style of background field 3 to transparent; end;} 7X cX X *HSource of note(0NO_`1qE _ }      f     H 14:23 (2.5)H  P K pDpHP K!pLp H cP  K !pTp HP  G!p\pRhandler openpage; begin global qflag,sttime; put ticks() into sttime; --if cpu()>80186 then put 100 into pse --set the cursor to off; --set the mouseattr to black on black; if qflag=1 then begin put 0 into qflag; domenu "quit"; end; --wait 1000; --if graphicscard()="VGA" or graphicscard()="SVGA" or graphicscard()="EGA" and fileexists("Fxshow.exe")=true then --begin if qflag=1 then begin put 0 into qflag; domenu "quit"; end; -- fxshow "flagg"; -- end --else --begin if cpu()>80286 then put 75 into pse; set the cursor to off; set the mouseattr to black on black; if qflag=1 then begin put 0 into qflag; domenu "quit"; end; wait 1000; put 9 into brx; while brx<70 do begin wait pse; set the loc of page field 3 to brx,4; set the rect of page field 3 to brx,4,70,8; add 4 to brx; end; put 65 into tlx; while tlx>10 do begin wait pse; set the loc of page field 2 to 9,10; set the rect of page field 2 to 9,10,tlx,14; subtract 4 from tlx; end; put 10 into brx; while brx<72 do begin wait pse; set the loc of page field 1 to brx,16; set the rect of page field 1 to brx,16,72,20; add 4 to brx; end; wait 1000; set the visible of page field id 11 to false; wait 2000; --end; {get time(); get leftstring(it,2); if rightstring(it,1)=":" then get leftstring(time(),1); put it into hour; if rightstring(time(),1)="M" then if rightstring(time(),2)="AM" then put "am" into greet else if hour <6 then put "pm" into greet else put "eve" into greet else if hour <12 then put "am" into greet else if hour <18 then put "pm" into greet else put "eve" into greet; if rightstring(time(),2)="PM" and hour=12 then put "pm" into greet; keep; run greet;} -- end; --handler resume; -- begin set the cursor to off; set the mouseattr to black on black; set the homepad to "Tscreens"; delete menus; visual effect fade; go to next page; end; handler closepage; begin global ntbk, wdfl; put "Tsnotes" into ntbk; put "Tswordfl" into wdfl; end; {handler closepage; Enable this handler for Corporate or Multi-user versions begin global lastuser, usernme, ntbk, wdfl; ask "Please enter your name..." with lastuser; put upper(leftstring(it,1)) & rightstring(it,len(it)-1) into it; put it into lastuser; put whichitem(page field "Name" of page "Custom",it,"^r") into w; if w=0 then begin put return & it after page field "name" of page "Custom"; ask password "What password will you be using?"; put return & it after page field "pswd" of page "Custom"; newn; end; ask password "Please enter password," && it; if it <> line w of page field "pswd" of page "Custom" then begin answer "You have either forgotten your password, or you are entering a name identical to one already on file.^r^rPlease check your password or change the name slightly..." with "OK"; send "Closepage" to this page; end; put line w of page field "Ntbk" of page "Custom" into ntbk; put line w of page field "Wdfl" of page "Custom" into wdfl; exit to hyperpad; end; handler newn; begin global ntbk; ask "Name for your Notebook?"; put whichitem(page field "Ntbk" of page "Custom",it,"^r") into w; if w=0 then begin put return & it after page field "ntbk" of page "Custom"; put it into ntbk; put it & ".pad" into newntbk; put "Creating new Notebook..." into msg; show msg; get copyfile ("tsnotes.pad", newntbk); hide msg; end else begin answer "You have selected a duplicate name for the Notebook.^r^rPlease select a slightly different name..." with "OK"; newn; end; neww; end; handler neww; begin global wdfl, pse; ask "Name for your Wordfile?"; put whichitem(page field "Wdfl" of page "Custom",it,"^r") into w; if w=0 then begin put return & it after page field "Wdfl" of page "Custom"; put it into wdfl; put it & ".pad" into newwdfl; put "Creating new Wordfile..." into msg; show msg; get copyfile ("tswordfl.pad", newwdfl); hide msg; end else begin answer "You have selected a duplicate name for the Wordfile.^r^rPlease select a slightly different name..." with "OK"; neww; end; exit to hyperpad; end;} handler break; begin set the mouseattr to black on grey; set the cursor to fat; set the mouseattr to grey on black; edit the script of me; end; (7bsttimeqflag+qflagquitqflag+qflagquit@$3KX  PX I Pqflag+qflagquit F5GX%  ( PX%  )F PXXXV$A 3IX%  ( PX%  ) PXX V$ H5GX%  ( PX%  )H PXXXV$X '  * PX  PX I PX Tscreens PX a<*7TsnotesntbkTswordflwdfl*7X Ip PX  PX I Pfgb*g߂߃߄߃߅߃߃߄ߛ߅߂߃߇߅߂߆߄ߛ߃߂߂߂߅߄߃ߛ߅߂߃߃߂߅߆߂߄ߛ߂߂߄߃߂߃߃߄߂߃߂߂߃߬߄߃߄߃߃߂߂߫߄߃߄߃߃߂߃ߦ߄߃߄߃߃߂߂߫߅߅߄߃߃߄߃߄߂߂߃߃ߚ߆߃߂߂߃߅߅߂߂ߟ߂߇߄߃߃߄ߞ߂߃߂߂߃߅߅߂߆ߚ߄߃߃߂߂߂߂߃ߗ Author: Anthony Withers %Copyright: Mackay Language Software 201  London, UK. Telephone: 4 -207-937-207Fax: 4 -207-376-2368                                                                                         5g(  ,Buhandler openpage; begin global greet, pse, spkflag; if cpu()>80186 then put 100 into pse; { set the lockscreen to true;} set the cursor to off; set the rect of page field 1 of page id 37 to 10,16,75,22; set the rect of page field 2 of page id 37 to 10,10,75,16; set the rect of page field 3 of page id 37 to 10,4,75,10; set the visible of page field id 11 of page id 37 to true; visual effect fade; {visual effect box out with delay 100;} set the cursor to fat; -- put "" into spkflag; go to next page; {get time(); get leftstring(it,2); if rightstring(it,1)=":" then get leftstring(time(),1); put it into hour; if rightstring(time(),1)="M" then if rightstring(time(),2)="AM" then put "am" into greet else if hour <6 then put "pm" into greet else put "eve" into greet else if hour <12 then put "am" into greet else if hour <18 then put "pm" into greet else put "eve" into greet; if rightstring(time(),2)="PM" and hour=12 then put "pm" into greet; putglobals "globals.dat"; show pg fld "Speaker"; put greet & spkflag into greet; keep; run greet;} end; handler break; begin edit the script of me; end; f7@$3 dpseX  P%%  )K P%%  )K P %%  ) K P % '  * P X a X  P<*7%&fgb*[.iH. T u t o r S c r e e n s Mackay Language Software 41 Kensington High Street London W8 5ED Great Britain Tel: (0207) 937-2077 Fax: (0207) 376-2368 www.efe.co.uk info@efe.co.ukH0'page id 14 of pad C:\HPAD22\HOME.PAD page id 37 of pad C:\ESCREENS\TSCREENS.PAD page id 14 of pad C:\HPAD22\HOME.PAD page id 37 of pad C:\ESCREENS\TSCREENS.PAD page id 24 of pad C:\ESCREENS\TSCREENS.PAD page id 3 of pad C:\ESCREENS\TSCREENS.PAD page id 120 of pad C:\ESCREENS\TSCREENS.PAD page id 121 of pad C:\ESCREENS\TSCREENS.PAD page id 114 of pad C:\ESCREENS\TSCREENS.PAD page iQH=<' page id 14 of pad C:\HPAD22\HOME.PAD page id 3 of pad C:\HPAD22\STRIP\TSCREENS.PAD page id 122 of pad C:\HPAD22\STRIP\TSCREENS.PAD page id 3 of pad C:\HPAD22\STRIP\TSCREENS.PAD page id 37 of pad C:\HPAD22\STRIP\TSCREENS.PAD page id 24 of pad C:\HPAD22\STRIP\TSCREENS.PAD page id 3 of pad C:\HPAD22\STRIP\TSCREENS.PAD