(STAK \`(  j"0 n@p@ """"""""̪3̪3 @"""""D"DĀ hC0&0 "U""U"U"UU"Uwwww݀UUUUH0 D9D"AA"A>"t"%2d$LA*@ @ "t"G"q]APPon closeStack global gPortActive, gLastFile, gFolderName, gSlurpeeFileList closeSPort go card 1 put "Data connection is inactive." into cd fld "Information" put "no" into gPortActive put "" into cd fld "Bytes" put "" into cd fld "OverrideSoupName" put "" into gLastFile put "" into gFolderName put "" into gSlurpeeFileList end closeStack on openStack global gPortActive, gPort, gSpeed, gDelayMode, gLastFile, gFolderName, gSlurpeeFileList closeSPort put "PALMEDIA Image Transfer Version 1.3. Data connection is inactive." into cd fld "Information" put "no" into gPortActive put "" into cd fld "Bytes" put "" into cd fld "OverrideSoupName" put "" into gLastFile put "" into gFolderName put "" into gSlurpeeFileList hide background fld "PortVault" of card "SetUpCard" hide background fld "SpeedVault" of card "SetUpCard" hide background fld "DelayModeVault" of card "SetUpCard" put background fld "PortVault" of card "SetUpCard" into savedPort put background fld "SpeedVault" of card "SetUpCard" into savedSpeed put background fld "DelayModeVault" of card "SetUpCard" into savedDelay if savedPort contains "1" then put "printerPort" into gPort if savedPort contains "2" then put "modemPort" into gPort if savedSpeed contains "3" then put "baud2400" into gSpeed if savedSpeed contains "4" then put "baud4800" into gSpeed if savedSpeed contains "5" then put "baud9600" into gSpeed if savedDelay contains "6" then put 15 into gDelayMode if savedDelay contains "7" then put 60 into gDelayMode if savedDelay contains "8" then put 120 into gDelayMode end openStack on ConfigureSettings global gPortActive if gPortActive contains "yes" then put "Connection was terminated - reconnect to make settings take effect." into cd fld "Information" put "no" into gPortActive closeSPort end if go card 3 end ConfigureSettings on SetConnection global gPortActive, gPort, gSpeed, gDelayMode, gSpeedText, gPortText, gDelayModeText TextPortSetup configureSPort gPort,gSpeed,data8,stop10,parityOff,stripOn,StripControlsOff setSPortBufferSize 16384 put gPortText & " configured at " & gSpeedText & " using " & gDelayModeText & ". Data connection is active." & " Launch Slurpee on the Newton, then Transfer Images (Step 4)." into cd fld "Information" put "yes" into gPortActive put "" into cd fld "Bytes" end SetConnection on DisconnectFromNewton global gPortActive closeSPort put "Port Closed. Data connection is inactive." into cd fld "Information" put "no" into gPortActive put "" into cd fld "Bytes" end DisconnectFromNewton on SendSlurpeeFile global gPortActive, gDelayMode, gFilebuffer, gSoupName, gNameLength, gLastFile if gPortActive contains "no" then beep answer "Please connect to the Newton (Step 2) before transferring..." with "OK" exit SendSlurpeeFile end if put "" into Warning if cd fld "OverrideSoupName" is not empty then put "Warning! The new destination soup is: " & cd fld "OverrideSoupName" into Warning answer file "Locate an Image (Slurpee) file to transfer."&return&gLastFile&return&Warning of type text put it into slurpeefile put "" into lastfilename if slurpeefile is empty then exit SendSlurpeeFile open file slurpeefile read from file slurpeefile until empty close file slurpeefile put it into gFilebuffer if char 1 of line 2 of gFilebuffer is not "{" then beep answer "This file is not a Slurpee file." with "Continue" or "Cancel" if it is "Cancel" then exit SendSlurpeeFile end if put length(slurpeefile) into charcounter repeat if character charcounter of slurpeefile is ":" then exit repeat put (character charcounter of slurpeefile) & lastfilename into lastfilename put charcounter-1 into charcounter if charcounter < 1 then exit repeat end repeat put "Last file was: "&lastfilename into gLastFile GetSoupName if cd fld "OverrideSoupName" is not empty then put cd fld OverrideSoupName into gSoupName delete char 1 to gNameLength of gFilebuffer put gSoupName before first character of gFilebuffer end if put "Sending Slurpee file to Newton soup: " & gSoupName & ". Please wait..." into cd fld "Information" put 0 into byteCounter set cursor to watch repeat if gFilebuffer is empty then exit repeat sendSPort char 1 to 80 of gFilebuffer delete char 1 to 80 of gFilebuffer put (byteCounter + 80) into byteCounter put byteCounter into cd fld "Bytes" wait gDelayMode ticks end repeat set cursor to arrow put "" into cd fld "Bytes" put "" into gFilebuffer put "Done. Sent Slurpee file to Newton soup: " & gSoupName & ". Data connection is active." into cd fld "Information" end SendSlurpeeFile on TextPortSetup global gPort, gSpeed, gDelayMode, gPortText, gSpeedText, gDelayModeText if gPort contains "printerPort" then put "Printer Port" into gPortText if gPort contains "modemPort" then put "Modem Port" into gPortText if gSpeed contains "baud2400" then put "2400 baud" into gSpeedText if gSpeed contains "baud4800" then put "4800 baud" into gSpeedText if gSpeed contains "baud9600" then put "9600 baud" into gSpeedText if gDelayMode = 15 then put "Quick Mode" into gDelayModeText if gDelayMode = 60 then put "Medium Mode" into gDelayModeText if gDelayMode = 120 then put "Slow Mode" into gDelayModeText end TextPortSetup on SaveSettings global gPort, gSpeed, gDelayMode put gPort into background fld "PortVault" put gSpeed into background fld "SpeedVault" put gDelayMode into background fld "DelayModeVault" end SaveSettings on GetSoupName global gFilebuffer, gSoupName, gNameLength put 1 into x put "" into gSoupName repeat put char x of line 1 of gFilebuffer into scancharacter if scancharacter is "[" then exit repeat if scancharacter is "!" then exit repeat put gSoupName & scancharacter into gSoupName put (x+1) into x end repeat put (x-1) into gNameLength end GetSoupName on BatchSendSlurpeeFile global gPortActive, gDelayMode, gFilebuffer, gSoupName, gNameLength, gLastFile, gFolderName, gSlurpeeFileList if gPortActive contains "no" then beep answer "Please connect to the Newton (Step 2) before transferring..." with "OK" exit BatchSendSlurpeeFile end if put "" into Warning if cd fld "OverrideSoupName" is not empty then put "Warning! The new destination soup is: " & cd fld "OverrideSoupName" into Warning answer file "Locate an Image (Slurpee) file to transfer."&return&Warning of type text put it into slurpeefile put "" into lastfilename put 0 into NumberFiles if slurpeefile is empty then exit BatchSendSlurpeeFile put length(slurpeefile) into charcounter repeat if character charcounter of slurpeefile is ":" then exit repeat put (character charcounter of slurpeefile) & lastfilename into lastfilename put charcounter-1 into charcounter if charcounter < 1 then exit repeat end repeat put character 1 to charcounter of slurpeefile into gFolderName put FileList(gFolderName, false, text) into gSlurpeeFileList repeat if gSlurpeeFileList is empty then exit repeat put gFolderName&line 1 of gSlurpeeFileList into slurpeefile put line 1 of gSlurpeeFileList into lastfilename put "Last file was: "&lastfilename into gLastFile delete line 1 of gSlurpeeFileList open file slurpeefile read from file slurpeefile until empty close file slurpeefile put it into gFilebuffer if char 1 of line 2 of gFilebuffer is not "{" then beep answer "This file is not a Slurpee file." with "Continue" or "Cancel" if it is "Cancel" then exit BatchSendSlurpeeFile end if GetSoupName if cd fld "OverrideSoupName" is not empty then put cd fld OverrideSoupName into gSoupName delete char 1 to gNameLength of gFilebuffer put gSoupName before first character of gFilebuffer end if put "Sending Slurpee file: "&lastfilename&" to Newton soup: "&gSoupName&". Files sent: "&NumberFiles&return&"Please wait..." into cd fld "Information" put 0 into byteCounter set cursor to watch repeat if gFilebuffer is empty then exit repeat sendSPort char 1 to 80 of gFilebuffer delete char 1 to 80 of gFilebuffer put (byteCounter + 80) into byteCounter put byteCounter into cd fld "Bytes" wait gDelayMode ticks end repeat -- set cursor to arrow put "" into cd fld "Bytes" put "" into gFilebuffer put NumberFiles + 1 into NumberFiles put "Sent Slurpee file: "&lastfilename&" to Newton soup: "&gSoupName&". Files sent: "&NumberFiles&return&"Pausing for next file." into cd fld "Information" if gSlurpeeFileList is empty then exit repeat wait 5 seconds end repeat put "Sent all files in folder: "&gFolderName&" to Newton soup: "&gSoupName&". Files sent: "&NumberFiles&return&"Data connection is active." into cd fld "Information" put "" into slurpeefile put "" into lastfilename put "" into NumberFiles set cursor to arrow end BatchSendSlurpeeFile MAST$PTLIST @PAGE H(a  HBKGD   * PortVault,AR SpeedVault0 DelayModeVault@BMAP`CARD  "T[$m 9Connect Newtonon mouseUp SetConnection end mouseUpV$ 9Transfer Imageon mouseUp SendSlurpeeFile end mouseUp^$ 9Disconnect Newtonon mouseUp DisconnectFromNewton end mouseUp|<$N 9Configure Settingson mouseUp visual effect dissolve very fast ConfigureSettings end mouseUp,B  Information&W Bytesv . GoToInfoCardon mouseUp visual effect dissolve very fast go to next card end mouseUp 2 x OverrideSoupNameR   Batchon mouseUp BatchSendSlurpeeFile end mouseUpData connection is inactive.MainCardection is inactive.MainCard BMAP  0:>DH)̀B@2pp#+80(& "0D @ S @M@7 & 3"8# @#??>Dc}& ' `$$@6`A 6`4 h#0x|!!PI!8"DBI/` B,03$2SP5$a3H4 & &# 4"0S20"`4 @&`R t2 %b@&?@D 2 E(  5@@# F@v#<D  IKu@ b0D&"(& R@("??Ïz  ``5hR``? 5(`5"$x59%}>1#sR0p0m. `f""C `$|җx6 w9F88rA;3H|F1ZG4(!iG 3$64 `60BPppKmmõT^Am[x[Bm-@s\T)@b ( 2`@ " sC9 #$   "C>0 "C60 2h7{g0 2}9o vA$%"H0 "m ón /adzg sp8  A ( A@Arp"0 r>B`@!`f0 r>>Bf`@E` 6rӚGkpsEQma4QF@s0 Ճ 0 6 4D4aCX">>mwm@E"QD2>>6>@2>6@2>@d>111A@3 " @ !#X9', ¥,:(bQ@Œda  1@"A ""0B@ "30R0 H "f`U@z `m3|@q @PDA@A@A@b1!!11108" %"D 30 ‚69lmKUUUUsHID "L1RlMTUP *24p #M15P$315pt32%PLr (AS" @HE"a0 1 11!!2  2?@ xB(R  @H*@B q@PG,tgp"B9c 9UADP""(BDB"DP!P"q "TfTPU@ SO"`@@ Up "P@pUn 0bpa" 0A($ Sm5` 1C 2 @ G D2 :HB "D 2>@ " 2@ 2  "11dA@Q3@!# E8X9',s(bQ@‚aa  !3 qA "1"T0B@ 1 "l0R0 H 1 `"T0R@z }m3|@CE@PDA@A@b1/1 0# !m[ m ͳmm mnm mm gm g3mm ;m l Q""@Q Q0PQ8*Q<Q>*Q?UQ?Q?UQ>Q<UQ8Q0PQ QSQ*QUPQ(QPP/@D3q 2 `bI0 0r0 !<pr`8"@3DRp `㩖`33N1̴L` s < w8y"^{v 8 *` <3@b 3@ 2 prp`4b9 " qh""@M|)xJ $ CARD  zz/ GoToMainCardon mouseUp visual effect dissolve very fast go to previous card end mouseUp InfoCard BMAP   L0:>DH)̀B@2pp#+80(& "0D @ S @M@7 & 3"8# @#??>Dc}& ' `$$@6`A 6`4 h#0x|!!PI!8"DBI/` B,03$2SP5$a3H4 & &# 4"0S20"`4 @&`R t2 %b@&?@D 2 E(  5@@# F@v#<D  IKu@ b0D&"(& R@("??Ïz  ``5hR``? 5(`5"$x59%}>1#sR0p0m. `f""C `$|җx6 w9F88rA;3H|F1ZG4(!iG 3$64 `60BPppKmmõT^Am[x[Bm-@s\T)@b ( 2`@ " sC9 #$   q97 #Y`b8b0p0x<   $ "D"3S!QA%"S 0$R @Tcq4rK 4qq`k4`"X3n@03HŠH (EQ C (h`8%:"@@@`' 2 Ib $@ @@$A@QA"HB r $b@T@ @!@@ ! dr3@@)€E :8HR 2@02' #b R2# `83`#"2 "  @ B@AB@@3@H@)" @)" )"  `m3$01 E0F`(2"  A`"b0#B@ BgHm3Fblqts`,a aH#02 @B(SHT   @ R$A`$R@0c T#2R  $@3Cs P8":20 #`# r " #s!  !@r @( $ (K8$ <@@@ q97 #B <0 @3QA%B 10 0TSq4rK #$l6p9ft88l3bHH (E00 (D@"ID"(E A' 2 I2@@B$@ @$@2A$@QA"H"p00 p28r  p!@@  @ E #2H4@ )"PR 8P"H$ 3p#R##"B@p603`#"2 B@0b A  @2@F#@" H"@D"E)86` )06`` `5`` `5`` qgq86`qo|6`amaf`l6 880$ B3 H02 B`& " qowp|`qgq3N08`TB + $ m8ss1"BEB"$m͛6 "8$T8$1"3e 1("c($# l m}>o1$2E$Ay"C  "  Vbl4p89 p %@  (EDH"aI &Da@ @ A g  8pH@ g@ % 7pHP2 8 Z0&!mlcm}}Ǿm` #"(IDR"@Q""@Q QPQ*QQ*QUQ?QUQQUQQPQQSQ*QUPQ(QPP/@D3q 2 `bI0 0r0 !<pr`8"@3DRp `㩖`33N1̴L` s < w8y"^{v 8 *` <3@b 3@ 2 prp`4b9 " qh""@M|)xJ $ `CARD z Printeron mouseUp global gPort put "printerPort" into gPort put 1 into background fld "PortVault" end mouseUp0z Modemon mouseUp global gPort put "modemPort" into gPort put 2 into background fld "PortVault" end mouseUp:Pz 2400 Baudon mouseUp global gSpeed put "baud2400" into gSpeed put 3 into background fld "SpeedVault" end mouseUpOez 4800 Baudon mouseUp global gSpeed put "baud4800" into gSpeed put 4 into background fld "SpeedVault" end mouseUpdzz 9600 Baudon mouseUp global gSpeed put "baud9600" into gSpeed put 5 into background fld "SpeedVault" end mouseUpz Quick Modeon mouseUp global gDelayMode put 15 into gDelayMode put 6 into background fld "DelayModeVault" end mouseUp Medium Modeon mouseUp global gDelayMode put 60 into gDelayMode put 7 into background fld "DelayModeVault" end mouseUp z Slow Modeon mouseUp global gDelayMode put 120 into gDelayMode put 8 into background fld "DelayModeVault" end mouseUpp 9 GoToMainCard2on mouseUp visual effect dissolve very fast go card 1 end mouseUp156SetUpCard`BMAP=80 ( "` %0` g39mfqXxg9Q2DH$ %J"@B"S@ @ HCH$"2p#)"R " H"%%9)%(÷p}}m8w(30m9=ql3 @30S T:DpXc>Ǿ}>c6m6m6m 4 $ B$C 8C$C8as}ö}>s8px ` @002 R  "`"0  g3;l{m1QrD"""Ͷ`Ͷm l3$p!"s @PP14 ·p};m 30m 4m8 0 @SS@S@DS@SA SC_V0aWG!"`\8W-p,4 ¿ǾRG*« hD * *2 @e8 T @  S8(C"aCEj!"R B!"BDB$(ChS@ S@S@ S$DDDDxD&p STBL @FTBL 9eWorld TightGenevaChicago TAILNu r det slut