' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL` B H@Aﳈ  @A ਦ@A LL$ 鷎귭෍ᷩ췩緈JJJJx i L8ᷭ緍췩 i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&" ʎ L/ ɃL`  !"#$%&'()*+,-./0123456789:;<=>? ( 1 +".*$ (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#01)*#;?;/4>:(+02&<#)#0*Eb ;1h  !"`H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌` ƥ LꢭɛL`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& $`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵLȿõ` F`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-( à@跻~!Wo*9~~ɬƬ~~~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ ŤL~H hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH ؿ E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵL õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` dӠz#@p eD(=& |@@0@B@p@AowsDOcy/ D@0V0`@A 0@%E@(P@pD0@@]@@0@ QL@0@<G<DhS *Uhrx"Px@0@@ DH160@@@0p@"" @0Rp@p@AowsD@ow{@/ D_@0V1>@_o |"xEG         @0Rp@p@AowsD@ow{@/ D_@0V1>@_o |"xEGg 8Q<@0@@Q`D>A(@r|"P@x0@@p eD(=& |@@0@B@0R@@AowsDOcy/ D@0V0`@A 0@%E@(Q0DϠōϠōϠōϠōϠōϠōϠōϠōϠōϠō@x@psDP?8@|P?8@@xQ;8 @rx"@P?8@@P;8 @"@)@P;8 @D@U 4D"A((A  d@, @,s DQ@P @@0 dQ @`@p{mP?8@P @P?8@@P;8 @r|"@P?8@@P;8 @"Bx} J@P;8 @D@[@DA(D Og t@, >@ls{|@P @p@@` }DpP @Aop8Qpp8>@o@x@}P?8@P @P?8@@P;8 @"d"@pP?8@@P;8 @"% @P;8 @<Np }QDAh D`Og \@  >@`z}A@P @@@@yP @A  DQE@ @UP?8@P @P?8@@P;8 @p#d>@Q?8@@"xdqP;8 @"J(`q@P;8 @A  L@  @ 4 EQ@P @@@P @A  @QEA@UP?8@`qP @P?8@@|>@}Q/"g @p#>@Q?8@@r|DQ;8 @DH@P;8 @_opD@ow{@ogyE_@P @(}@P @Og 0U`E@EP?8@@Q @P?8@ps@P;8 @@Q ("A(""@]?8@@p[eDQ;8 @@P;8 @_opDOcyoCxD@P @HQ?8@@P @A  UH@E@xEP?8@@Q @P?8@@P;8 @@Q`D>A(@r|"@xP;8 @@p eD(];8 @@P;8 @B@P @Q?8@AowsDOcy/ D@P @A 0@%E@(@pDP?8@@] @P?8@ T1((1)8):B(16384)128:KK32(K96):K49K50K66K2770000:(3(N1)3)::E;:'_L16368,0:M_P(16336)(16336)(16336):U_:_B(16384)128:BB32(B96):B49B50B80B278100_@7900_:16368,0:K$(B):_ T1((1)8):B(16384)128:KK32(K96):K49K50K66K27700((M$(F))2)::M$(F):18::10:"OVERALL, WE GIVE IT A:"::" <= 1..2..3..4..5..6..7..8..9..10 =>"^" POOR FAIR EXCELLENT";:T11000::20:N1E:7600:(3N)4::N;::T1150::NEĖ(3N)4:N;_D1300:::E(E)İ76y textbook","transformed into a color-animated,","living document.",""a]X "","by John DiPrete"|] "END",1,9.5 ,"DUMMY"e^ :F,E:6:19:"WE:":R((1)4)4:I1R:T1J:9T:20((M$(T))2)::M$(T)::9T:20((M$(T))2):M$(T):::9F:20its the","variety of shapes to contend with. In","addition to a square, I would have liked","to see other figures alter in design,","such as a hexagon, rhomboid, cross, etc.",""F] "'The Factory' may signify a new zenith","in computer technology: the dr has won the","Learning Software Awards evaluation,","judged by such magazines as Classroom","Computer Learning and Curriculum Product","Review. The methods it employs are","imaginative and useful.",""\ "WEAKNESSES:","","Memory size (48k) somewhat lim""Z "STRENGTHS:","","Delightful to watch and listen to (the","sounds bring pleasure), this program","lets you experience, in a fun way, the","left-sided brain functions of spatial","orientation, shape perspective and"[ "visualization. The programched in,","flanked by a tiny square on each side.)",""Z "In the third section, 'Make a Product',","you are shown the square with a","particular design; you must choose a","proper machine sequence (up to eight)","which will reproduce the same design.",rranged on the screen","in any order you wish). The finished","product undergoes a variety of changes."6Y "(For instance, one example might involve","the square intersected by two corner","stripes -- one medium, one thick","-- with a center hole pun, 'Build a Factory',","multiplies the above process into an","assembly-line operation that involves","the same figure going through a sequence"gX, "of eight different machines (consisting","of either puncher, rotater or striper --","however this time ahine of","choice (I.E. puncher, rotater or","striper). The machine 'stamps' the","appropriate commands on the product and","sends out the finished result. The","square re-appears, face outward, with"Wd "your instituted changes.","","The second section5 or 180 degrees;"U "or 3) paint the figure with a thin,","medium or thick stripe. When you choose","your alteration, the on-screen square","shrinks into a line segment","(representing an edge-wise view of the"V "figure) and glides into the macthree skill levels. All","sections have a Touch Window option.",""U8 "In 'Test a Machine' players implement","various changes in a square figure, such","as: 1) punch a hole or square (up to","three) in the figure; 2) rotate the","figure by 45, 90, 13arning tool is designed for grades","four to nine, but adults, too, should","appreciate the concepts involved.",""BT "Three sections exist for one or two","players -- 'Test a Machine', 'Build a","Factory' and 'Make a Product'. 'Make a","Product' has R "END",2,7.5,"DUMMY"{R  "The Factory",,"Sunburst Communications","Software","$49.00","Apple ][ series with 48K"rSp"'The Factory' is a fantastic tutorial","and game about simple figures, geometric","perspectives and pictorial logic. This","let: no jet-propulsion noises --"Q| "just warning beeps and such. You could","hear a pin drop. (The Commodore version","does have sound.)","","'Jet' should satisfy the novice air buff","who's dreaming someday of growing wings.",""RD"by John DiPrete"ion of","the program, there exists a varying","degree of jerky-type movements --"Q "somewhat similar to the feeling you get","from watching silent films. Animation","speed can be revved up by shutting off","certain panel controls. One last","complainfight, target strike or free","flight), skill level (nine exist),","joystick or keyboard function, and much","more.",""QP "WEAKNESSES:","","Don't expect 'Jet' to sweep its","predecessor under the rug -- they're not","that different. In this Apple versel level","indicator, view direction control, radar","display, active weapon system,","altimeter, even an 'eject' button for","parachute jumps! Various options allow","you to set your own pace with easy"wOP"flexibility: you can choose flight mode","(dogigher and faster realms of","aviation.",""M "STRENGTHS:","","The program's high cards are detail and","realism, ranging from sharp, expert","graphics in the 40-page operating","manual, to the many 'built-in' technical"N "features that include fu vast sweeping","views from the heavens, intricate"*M$ "control panel features and more.","A sequel to 'Flight Simulator',","Sublogic's now classic flight simulation","program (first introduced for the IBM","several years ago), 'Jet' whisks you","into hines, angular perspectives and similar","graphic cues designed to portray a","flight illusion, you may wish to keep","some Dramamine handy.",""3L "'Jet' offers you the first-hand thrill","of flying a supersonic aircraft: the","eerie sense of free fall, Corp.","Software","$39.95","Apple ][ series with 64K"J"Human sight alone may create the","familiar reflex-reaction known as","motion sickness; in the case of","up-in-the-air movements, experienced by","your 3-D vision in the form of slanted"K\ "l384)1413800!I<16368,0:400?IA$"END"ĭK$"2"A$"":IL0:23:1::" [ESC] EXITS [RETURN] CONTINUES ";::16366,0IhP(16384):P1274200IP155Ĺ16368,0:400I0P141Ĺ16366,0:42006J16368,0::: "Jet",,"SublogicETAIL:";::" ";R$:::"COMPATIBILITY:";::" ";D$:::L11:(D$)25L12bH A$:A$"END"3700yH A$:A$""ĺ:3500HH (A$)40L17ĺH LL2:L17İ4000H3200Ht4100:7200::24:2:" PRESS [RETURN] TO CONTINUE. ";:I(16I:13:15);:V:13:A$;::H311:2:H2:" ";:42H:" ";:2:H:"[";:40HGT "]";:::G34:G,3::P$,P1$,M$,F$,R$,D$::"PRODUCT:";::" ";P$:P1$""ĺ" ";P1$G ::"MADE BY:";::" ";M$::KH "FORMAT: ";::" ";F$:::"SUGGESTED R:A$(H$,(30(A$)2))A$:A$:A$B$:2000=FA$B$:B$""ĺGF` 1900F R,O::"WE "M$(R)"."::"OVERALL WE GIVE IT A";:(O)8ĺ"N";F( " "O:" "::(4)"PR#0":400F 7700OG J4:I2:C0::::17:"UPTIME":A$"PRODUCT REVIEWS":V24I2I:V05EL:" ":"PRODUCT: "P$:P1$""ĺ" "P1$vE"BY: "B$:"FORMAT: "F$:"RETAIL: "R$:"COMPATIBILITY: "C$:ElA$:A$"END"2500EA$A$" ":B$:B$"END"ĺA$:2500E4(A$)(B$)80A$" "ĺA$:A$B$:2000*F(A$,1)" "A$(A$,(A$)1)868:22:868:500mD34,6::12:" PRINTING REVIEW":34,23:35,24:32,0:33,1:::(4)"PR#"MDN2ćA$:A$"DUMMY"1300DxP$,P1$,B$,F$,R$,C$:L1(C$):(C$,L,1)" "1700DLL1E@(C$,L,1)" "C$(C$,L1)(C$,(C$L):160 C7900:B27ĺ:(4)"RUN TOC"3C :K$"1"2700ZCK$"2"ćA$:A$"DUMMY"900:2700CK$"P"Ģ22:1:868:" PRESS [ESC] TO EXIT.":19:1:868:"Which review would you like to print? ";DL:" ";::L1:7900:N(K$):N1N2Ģ19:1:"LB:::41):T13:40:2)::39)::3:9:" UPTIME PRODUCT REVIEWS"B8:"PRESS: [1] To see the review for "G$:15:" [2] To see the review for "E$:19:" [P] To print a review":::"[ESC] To exit Product Reviews"BX24:1::39):L3S BEFORE PURCHASING":M$(4)"CANNOT RECOMMEND THIS PRODUCT"\AnA$(0)"1":A$(1)"2":A$(2)"P"BA$(3)"ESC":G$" Jet by Sublogic Corp.":E$" The Factory by Sunburst Communications 5@ (C) 1987 UPTIME BY VIKING TECHNOLOGIES, INC.?@::j@ (1101)6ĺ(13)(4)"BRUN LC.CONV":AdM1:H$" ":M$(1)"HIGHLY RECOMMEND THIS PRODUCT":M$(2)"RECOMMEND THIS PRODUCT":M$(3)"SUGGEST YOU TRY THI          $$(--(--($$-&$xHx-$x$(x-x-$$(--(--($$--$$Z$Z$$Z$Z($-$$x-x-(x(-Z--ZZ-Z-$x$(x-x-$$(--(--($$--$$Z$Z$$Z$Z($-$$P(P((PP<<-<-$x$(x-x- "$&(+-0369<HZDP@_o |"xEGg 8E*xI124:I:1:868:32000::1:1:=y STRIPE WIPEm|y:I124:I:1::40):I:1::40):::y SCROLL WIPEDzI124:24::32000::1:1:}J1PAUSE::}J1PAUSE::1:}J1PAUSE::0700,30900,31100,313005uI140:33,I::32000::Mu RIGHT/LEFT WIPEx\vI3901:32,I:33,40I::32000::v CENTER OUT WIPE$wI120:32,20I:33,2I::32000::w UP WIPEwI2411:I:1:868:32000::Px DOWN WIPst at the end!",""aN"If you have a favorite joke, by all","means send it to us, care of Jay."N"You may see it here.","One rule of thumb: decorum counts.","","Till next time, keep smiling.","Jay"Hq0uW1(7(1)1):uW130100,30300,30500,3 look up and","reply, Mr. Robelinski lives next door.'",""N"OK, one more lightbulb joke.","","How many mystery writers does it take","to change a lightbulb?","","Two. One to screw it in almost all the","way, and the other to give it a","surprising twi' The Russian shakes his head","and says, 'Happiness comes at three in","the morning. You hear a knock at your","door. You get out of bed put on your","night coat and answer the door. Two","well-dressed men say Mr. Robelinski,":N"KGB, come with us. You","in the bogs at 6:00 AM with your best","hunting dogs waiting for the ducks to"pN"fly over.' The Frenchman interjects, 'No","friend, happiness is spending the","evening with a beautiful woman dining,","dancing and drinking expensive"zN"champagne.frowns and"`\N"concludes. 'Well, she wouldn't eat the","poison mushrooms!!!'","","Joke #3",""QfN"Three friends, an Englishman, a","Frenchman and a Russian, are discussing","the question: What is happiness? The","Englishman says, 'Happiness is sitting poison mushrooms. 'That's a" RN"shame. What happened to the others?',","remarks Tony. 'Well, my second wife","also died from eating poison mushrooms,","the third died of a broken skull.' Tony","looks up and says, 'A broken skull?","What happened?' Jay to","the airfield and return to the United","States.","","Joke #2",""HN"Jay and Tony were eating lunch when Jay","says, 'I have lost three wives in three","months!' Tony replies, 'What happened?'","'Well', Jay starts, 'My first wife died","from eatingurned-out bulb and"4N"replace it with a new super-high","wattage model of his own design.","Meanwhile, Willie has driven up to the","door in a laundry truck. Just before","Rollin's true identity is revealed, we"F>N"escape to the laundry truck, drivetiny narcotic dart to knock out"*N "the fascist dictator and remove his","body. Rollin, wearing a plastic mask,","masquerades as dictator long enough for","Barney to sneak up to the next floor,","drill a hole down into the light","fixture, remove the b37,21(37)21İ1000$40105216,0:1000=50  N"Joke #1","","How many members of the Mission","Impossible Force does it take to change","a light bulb?","","Five. While Cinnamon creates a","diversion by wearing a skimpy dress,","I use a 53030 A1552500a :13:14:"Printing...":::"Press [SPACE] to pause, [ESC] to abort" 32,0:33,1:34,23:35,24: (4)"PR#"PS:16368,0: (13)(4)"BRUN LC.CONV":::4100A$A$:(A$)40ĺ(37)20A$""Ĺ"$ *A$S$B$:A$"":B$"":C%0:2070K 4216,0:A$""ĺA$" ";:B$""ĺB$c :(4)"PR#0":::i : (4)"PR#0"::34,8: 14:14:"Pausing...":::" [SPACE] to continue, [ESC] to abort " 16368,0:16384,128:A(16384):A160A15:: A$4 (A$,1)" "A$(A$,(A$)1):2071G A$""ĺ:2070O B$c B$""B$(13) (A$,1)"-"A$(A$,(A$)1):C%1 "(16384)155Ĺ16368,0::(4)"PR#0":2500 %(16384)160Ĺ16368,0:3000 'S$" ":C%1(A$,1)" "S$":A$:A$"1"A$"7"ĭA$(13)A$(27)2010I A$(13)A$(27)2500V PS(A$) :13:14:"Printing...":::"Press [SPACE] to pause, [ESC] to abort" 32,0:33,1:34,23:35,24::16368,0 :(4)"PR#"PS::2100 T$:A1(T$):"-";:1:23O 16368,0:16384,128:A(16384):A141A155A208A2401015c A141İ30000:y A208A2402000 :12:12:"One moment please..." :(4)"RUN";RP$  :- :16368,0:14:1:"What slot is your printer in? (1-7) ";:" Press [RETURN] to re-read or [ESC] to quit"y <16368,0:16384,128:A(16384):A141A15560 FA141Ĭ P1030 34,0 23:1::" [RETURN] TO CONTINUE [ESC] TO QUIT ":" [P] TO PRINT ";:5 (C) 1987 UPTIME BY VIKING TECHNOLOGIES, INC.XT$"Humor Time":RP$"PROGRAMS"o (1101)6İ3200:::41):40:2):40:2):40:2):40:2):40:41)::3:13:"UPTIME PRESENTS:":520((T$)2):T$:34,8:(4000A 2:14                 @xPx@psD0@|@P@x1@rx"P`@0@@0@"@)x@0@D"A DD(4B S(A  d@, @,s DQ@01`@@0 d160x@`P@@p{m0@0Vp@0@Pp@0@r|"P<@0@3)(4):D$;"OPEN GOBLET":D$;"DELETE GOBLET":D$;"OPEN GOBLET":D$;"WRITE GOBLET":I110:YYYY10:A$(YY)" NO NAME":A$::D$"CLOSE GOBLET":3440_ PIN,LUTE,LIGHT,SWORD,BULLETS,6,3,2,2,6,6,4,5,4,4P)22:^I17[^Z((1)112):W((1)7):PP(Z(W14)):A%(PP)11A%(PP)233780k^A%(PP)23:^H110:I1N%(H)^PP((1)981):A%(PP)11A%(PP)233810^A%(PP)H3810^A%(PP)H:I,H:1500^(222)6Ā_ YY300:D$(11)7):PP(Z(W14)):A%(PP)11A%(PP)203690?]tA%(PP)20:J]~I17]Z((1)112):W((1)7):PP(Z(W14)):A%(PP)11A%(PP)213720]A%(PP)21:]I17]Z((1)112):W((1)7):PP(Z(W14)):A%(PP)11A%(PP)223750^A%(P17a\8Z((1)112):W((1)7):PP(Z(W14)):C%(3)W2:C%(8)Z13:A%(PP)11A%(PP)173640o\BA%(PP)18\LZ((1)112):W((1)7):PP(Z(W14)):C%(4)W2:C%(9)Z13:A%(PP)11A%(PP)183660\VA%(PP)19\`I15/]jZ((1)112):W((3:A%(PP)11A%(PP)133580+[A%(PP)15[Z((1)112):W((1)7):PP(Z(W14)):C%(1)W2:C%(6)Z13:A%(PP)11A%(PP)153600[A%(PP)16[$Z((1)112):W((1)7):PP(Z(W14)):C%(2)W2:C%(7)Z13:A%(PP)11A%(PP)163620\.A%(PP):3320WZ FL0::11:4:"ONE MOMENT PLEASE...":13:7:"BUILDING THE KINGDOM OF OZID"Z D((1)71):ED14:A%(E)11:P1D1:P227:P3E:C((1)61):CC((1)311):A%(CC(C14))12:150[ Z((1)112):W((1)7):PP(Z(W14)):C%(0)W2:C%(5)Z1Y T$"N"T$"n"3560(Y (T$)27100Y :14:" WHICH SLOT IS YOUR PRINTER CARD IN? _";:(8);:X$:X$"1"X$"7"ĭ(X$)27ĺBL$;:3520Y (X$)27100Y 17::A$" TURN ON THE PRINTER ":110:120::FL0Z PR(X$):PR:XX80::34,23:33,1:24:A$(I)::D$;"CLOSE GOBLET"NXz :35,24:9:A$" H I G H S C O R E S ":110TX ZX X 12:I110:12:A$(I)::35,23:120:T13560X :14:5:" PRINT INSTRUCTIONS? (Y/N) _";:(8);:T$:T$"Y"T$"y"T$"n"T$"N"ĭ(T$)27ĺBL$;:3490S POSSIBLE. THE NUMBER OF OBJECTS YOU FIND AND ARE ABLE TO CARRY WILL ALSO LOWER YOUR SCORE AT THE END OF THE GAME.":600:PRİ120WR PRPR0:0:XX40:33,40:34,7:3560W\ Wf 3840Xp :D$(13)(4):D$;"OPEN GOBLET":D$;"READ GOBLET":I1011I):::PRİ120V4 :VT9:AA$"ENEMIES ARE LISTED BELOW IN THE ORDER OF DIFFICULTY TO DEFEAT:":600::16:I1(Q$):(Q$,I,1)"/"ĺ(Q$,I,1);:V> :16::PRİ120WH :VT10:AA$"YOUR GOAL IS TO FIND AND RETURN THE GOBLET OF JOY IN THE FEWEST MOVEE CAREFUL, HOWEVER, FOR YOU CAN ONLY USE THE RING A FEW TIMES AND IT COULD MOVE YOU INTO WORSE DANGER.":600:PRİ120U :VT8:AA$"AS YOU MOVE THROUGH OZID YOU WILL FIND MAGIC THINGS WHICH WILL HELP YOU. THEY ARE:":600V* I15:13:"THE MAGIC "B$(D QUAGMIRE AND FAIL.":600:PRİ120T :VT8:AA$"THE OBJECT OF THE GAME IS TO LOCATE FRANTIC, GET THE GOBLET OF JOY FROM HIM, AND RETURN IT TO THE FOREST.":600vU VT14:AA$"YOU WILL HAVE A MAGIC RING WHICH CAN REMOVE YOU FROM DANGER BY RUBBING IT. BAN HAS STOLEN THE GOBLET OF JOY FROM THE PEOPLE OF THE FOREST. YOU HAVE BEEN SELECTED TO GET IT BACK AND RETURN IT TO THE FOREST.":600$T VT16:AA$"YOU WILL RIDE A MAGIC RUG DURING THE QUEST. IF YOU GO OUTSIDE THE OZID KINGDOM YOU WILL FALL INTO THE OZIKIE/WITCH/":T13420BR UU((1)51):VV((1)51):VVUU3280eR UU$B$(UU):VV$B$(VV):70:FL1R :12:" WOULD YOU LIKE INSTRUCTIONS? (Y/N) ";:K9$R K9$"N"K9$"n"T11:3420R K9$"Y"K9$"y"ĺ"";:3300S :VT8:AA$"FRANTIC THE ME=MOUNTAIN/S=SWAMP/D=MYST/":P$"$&!#?":E$"T=TELLER/":G$"NSEWYVMU"Q BL$(7):BS$(8)(95)(8):ST((1)200400):UB((1)33):EF((1)76):UR((1)45):XX40:KY16384:KP16368R Q$"KRAKEN/GARGOYLE/MANNESTY/SPIRIT/HAWK/DRAGON/DWARF/ELF/BLOC"n"T$"y"(T$)27ĺBL$;:32006P T$"Y"T$"y"Ĭ?P 100P A$(10),A%(98),B$(5),B%(5),C%(9),D%(5),G$(4),N%(10):I198:A%(I)28::I15:B$(I)::I110:N%(I):BQ C$"..........FT.W.........AMSD.":B$"F=FOREST/A=ABYSS/*=MAGIC RUG/W=FREE SPOT/M(I)A$(J):A$(J)CH$Ob J!Ol IOv D$;"OPEN GOBLET":D$;"DELETE GOBLET":D$;"OPEN GOBLET":D$;"WRITE GOBLET":I110:A$(I)::D$"CLOSE GOBLET"O 22:2:" DO YOU WISH TO PLAY AGAIN? ";::"(Y/N)";:!P " ";:(95);:(8);:T$:T$"Y"T$"N"T$0N X$;:AN$AN$X$N 2970>N& 18:17(AN$):868:KP,0XN0 A$(10)CO$" "AN$N: A$(10),A%(98),B$(5),B%(5),C%(9),D%(5),G$(4),N%(10):I198:A%(I)28::I15:B$(I)::I110:N%(I):ND I19:JI110NN A$(I)A$(J)3170OX CH$A$(I):A$80M (X$)271001M N1(AN$)0X$"-"3080DM X$(8)3050\M AN$""ĺBL$;:2970}M (AN$)1AN$"":BS$;:2970M AN$(AN$,(AN$)1):BS$;:2970M X$(13)(AN$)0ĺBL$;:2960M X$(13)3110M BL$;:2970N (AN$)LĺBL$;:297+Lh FF$(A$(10),3):FF(FF$):FFCO3200KLr CO10CO$"00"(CO):2960kL| CO100CO$"0"(CO):2960yL CO$(CO)L AN$"":18:1:868:"TYPE YOUR NAME: ";:L20:T1L:"_";::T1L:(8);:L X$:X$"A"X$"Z"X$"."3080M X$(32)309:110::GT1Ģ12:A$" YOU HAVE RETURNED THE ":110:14:A$" GOBLET OF JOY ":110:16:A$" TO THE FOREST PEOPLE ":110:K@ MA$""A$MA$:13:110KJ D$(4):GT13200KT PT(PT3):COCOPT:COCOTK:CO0CO0L^ 12:10:"FINAL SCORE = ";::CO:4:2850IJ QR4Ģ21:A$" YOU MADE IT, BUT I DON'T KNOW HOW ":110:2850J QR2Ģ21:MA$" YOU SLIPPED AND FELL INTO THE ABYSS ":2870J A$"":1420J" 120:J, MA$" YOU FELL INTO THE OZID QUAGMIRE "yK6 34,0::70:60::A$" THE GAME IS OVER ":16:AA$"COMMANDS: MOVE DUCK RUB PRAY JUMP":590:IV19:IH23:QR((1)10):250fI T$"RUB"İ770I QR6T$"JUMP"MA$" YOU SLIPPED AND FELL INTO THE ABYSS ":2870J T$"JUMP"Ģ21:A$" GOOD IDEA!! YOU OVER THE ABYSS "::110:IV.01:220:A%(P3)1ASED BY "(QS)" ":110:COCOQS0H CO0CO0@H 190:120:H :10:A$" YOU'RE IN A DEEP ABYSS ":110:VT12:AA$" I HOPE YOU ARE LUCKY! IF YOU MAKE A WRONG SELECTION YOU MIGHT LOSE ONE OF THE MAGIC ITEMS YOU ARE CARRYING. ":590SI A%(P3)24:VTS((1)71)jG A%(P3)27:6:17:"TYPE A NUMBER ";::"(1 - 3)";::" ";:(95);:(8);:T$:I(T$):T$G IQRĢ19:A$" GOOD CHOICE ":110:A$" MOVE LOWERED BY "(QS)" ":110:COCOQS:2750!H 19:A$" BETTER LUCK NEXT TIME ":110:A$" MOVE INCRE:COCO1:190:120:SWSW1:2650)F SW05F :1600 G :10:A$" YOU'RE IN A DIABOLICAL MYST ":110:VT12:AA$" I HOPE YOU ARE LUCKY TODAY! IF YOU ARE YOUR MOVES WILL BE DECREASED BUT IF YOU'RE NOT I WILL ADD ON TO YOUR MOVES. ":590:QR((1)31):Q;:(8);:T$AEd SW3MA$" YOU PERISHED IN DISMAL SWAMP ":2870En T$"W"T$"E"T$"S"T$"N"T$"V"T$"Y"T$"U"T$"M"ĺBL$:COCO1:190:SWSW1:2650 Fx T$G$(1)T$G$(2)T$G$(3)T$G$(4)ğ:19:A$" YOU CAN'T GO IN THAT DIRECTION ":110MAL SWAMP ":110:VT12:AA$" WHAT DID YOU COME HERE FOR? WHAT AN ICKY PLACE TO BE AND YOU COULD BE STUCK HERE FOREVER!!!":590:I14:QR((1)81):G$(I)(G$,QR,1): EZ A%(P3)26:17:1:958:"WHAT DIRECTION? ";::"(N,S,E,W,Y,U,V,M)";::" ";:(95)10:2630C( A%(P3)25:T$"SING"Ģ18:A$" THAT WAS BEAUTIFUL ":110:I((1)5150):A$" YOU'RE "(I)" POINTS STRONGER ":20:110:STSTI:220:2620C2 18:A$" WHY DIDN'T YOU SING FOR ME? ":110C< RRCOCF 120:230:DP :10:A$" YOU'RE IN A DISB 120:230:B :10:A$" YOUR ON A MAGIC MOUNTAIN ":110:VT12:AA$" THE IMP OF THE MOUNTAIN WILL INCREASE YOUR STRENGTH IF YOU SING A BEAUTIFUL SONG. ":590:IV16:IH23:250C R1R11:R11RR15COĢ18::A$" THAT WASN'T A BEAUTIFUL SONG!! ":1THIN"VT17:AA$" WHAT GOOD IS THINKING AT A TIME LIKE THIS? YOU SHOULD ACT MORE WISELY!!":590:2570A VT17:AA$" YOU CAN'T "TT$" THE MAGIC "B$(CT14)". YOU SHOULD KNOW BETTER!":590A BB5ĭRQĢ20:A$" YOU HAVE "(UB)" BULLETS ":110:RQ0"B$(CT14)". USE IT WISELY AND ONLY WHEN NEEDED.":590:D%(BB)0:A%(P3)14:2570@ T$"GRAB"ĭBB5BB4VT17:TKTK1:B%(CT14)1:AA$" YOU HAVE GRABBED THE MAGIC "B$(CT14)". USE BRAVELY AND WITH VALOR.":590:A%(P3)14:D%(BB)0:RQ1:2560fA T$"0? T$"TAKE"ĭBB1BB2VT17:TKTK1:B%(CT14)1:AA$" YOU HAVE TAKEN THE MAGIC "B$(CT14)". BE SURE TO USE IT WISELY AND CAREFULLY.":590:D%(BB)0:A%(P3)14:2570Q@ T$"GET"ĭBB3BB4VT17:TKTK1:B%(CT14)1:AA$" YOU HAVE GOTTEN THE MAGIC FEEFFE0:COCO2:190:14::2:"CONGRADULATIONS:";::18:" MOVES LOWERED BY TWO ":120:14:1:958n> > :A$" YOU FOUND THE MAGIC "B$(CT14):110:AA$"COMMANDS: TAKE GET GRAB THINK ":VT12:590:BBCT14? IV15:IH23:250:WW1WW0:25717:A$"HERE IS THE GOBLET OF JOY":110:A%(P6)14:GT1:2390= FDTT$VV$B%(VV)0:A$"I ACCEPT THE MAGIC "TT$::15:110:17:A$"HERE IS THE GOBLET OF JOY":110:A%(P6)14:GT1:2390= A$"YOU CAN'T USE THE MAGIC "TT$::15:110::2390h> FEFE1:11:1:958:BT10:460aI((1)010g2A$"YOU DON'T HAVE A MAGIC "TT$::760:15:110::A$" SUFFER A STRENGTH LOSS ":110:220:220r2120:2:A$" YOU'RE BACK IN THE FOREST ":11::110:GT12870213:A$" YOU DON'T HAVE THE GOBLET ":110:2120:m3:10:A$" YOU AR1ĭCT1CT2CT6CT9CT10A$" SWORDS ARE DANGEROUS TO MY HEALTH!! "::760:15:110:A%(P3)14::810:190:20102FDB%(II)1A$"MAGIC "TT$" DOESN'T WORK AGAINST ME!"::760:15:110:17:A$" YOUR STRENGTH HAS BEEN LESSENED! ":110::220:220:2CT4CT5CT8CT10A$" I LEAVING! I DON'T LIKE LUTE MUSIC. "::760:15:110:A%(P3)14::810:190:20100FD(II)3B%(3)1ĭCT2CT4CT8CT10A$" BRIGHT LIGHT HURTS MY EYES!! "::760:15:110:A%(P3)14::810:190:2010s1FD(II)4B%(4)::15:110:810:190:A$" BULLETS LEFT "(UB)" ":17:110:A$" STRENGHT LESSENED ":110:220:740:2010/FD(II)1B%(1)1ĭCT1CT5CT7CT8CT10A$" PIN CHASED ME AWAY "::760:15:110:A%(P3)14::810:190:2010k0FD(II)2B%(2)1ĭCT150:220:2010.490:FD(II)5B%(5)1CT8UBUB1:A$" YOU DESTROYED ME WITH THAT BULLET ":760::15:110:810:190:A$" BULLETS LEFT "(UB)" ":17:110:740:A%(P3)14:2010j/FD(II)5B%(5)1CT8UBUB1:A$" YOU WASTED A MAGIC BULLET ":76030,930,930,1040,1150,1480,1210,820,1040:2010-vT$"USE"Ģ11:1:958:BT10:460:21:5::"WHAT";::" WILL YOU ";::"USE";::"? MAGIC ";:IV21:IH30:260:1930 .21:A$TT$" DOESN'T WORK HERE ":110:A$" FRANTIC MOVED - STRENGTH LOWERED ":110:1210,1320,1040:2010Z,NT$"TALK"ĴCT820,930,930,1040,1320,1150,1480,1040,1040,930:2010,XT$"PRAY"ĴCT820,1150,1040,930,1040,1210,930,1210,930,1040:2010,bT$"SMIL"ĴCT1040,1040,930,930,1040,1040,930,930,820,930:2010--lT$"DUCK"ĴCT1210,9T$"RUB"İ770d+0T$"FIGH"STQRA$" YOU BEAT ME "::21:110::A%(P3)14:220:810:190:2010+:T$"FIGH"STQRA$" I DEFEATED YOU! "::21:110:A$" YOU HAVE BEEN TERMINATED ":CO1:120:2870,DT$"MOVE"ĴCT820,930,930,930,1040,1150,1040,1UL!":590:QR((1)300150):IN.06:PI3*CT10A$" AN UGLY OLD WITCH ":110:AA$" IF YOU DON'T HANDLE ME CORRECTLY I WILL ADD ON TO YOUR MOVES.":590:QR((1)1001):IN.02:PI1*250:WW1WW0:21:A$" YOU LOST STRENGTH ":110:220:2010+&C WILL FREE MY SPIRIT. IF YOU CAN'T OVERCOME ME -- BEWARE!!":590:QR((1)200100):IN.06:PI2(*CT9A$" A GARGOYLE IS STALKING YOU ":110:AA$" I AM SO MEAN THAT I MIGHT STEAL SOMETHING, SEND YOU ELSEWHERE, OR BLOCK YOUR WAY. YOU BETTER BE CAREF7A$" ON A NASTY DWARF'S BRIDGE ":110:AA$" YOU'RE ON MY BRIDGE. IF YOU'RE NOT CAREFUL I WILL STEAL YOUR MAGIC RING.":590:QR((1)2001):IN.04:PI1`)CT8A$" A SPIRIT OF ONE OF FRANTIC'S ENEMY ":110:AA$" IF I CAN MOVE YOU ELSEWHERE FRANTIF THE MAGIC ITEMS YOU ARE CARRYING. ":590:QR((1)3001):IN.04:PI1'CT6A$" A LITTLE BLOCKIE IS IN THE WAY! ":110:AA$" I GET IN YOUR WAY SO I CAN WASTE YOUR STRENGHT AND MAKE YOU USE EXTRA MOVES. ":590:QR((1)1001):IN.02:PI1(CTMANNASTY SEES YOU! ":110:AA$" HI! HI! HI! WE ARE SO HUNDGRY AND YOU LOOK LIKE A GOOD MEALS. WHO EATS FIRST???":590:QR((1)300100):IN.12:PI4G'CT5A$" A MAGIC HAWK IS FLYING OVER HEAD! ":110:AA$" IF YOU AREN'T CAREFUL I WILL STEAL ONE O":590:QR((1)2501):IN.04:PI2%CT3A$" A KRAKEN DARKENS YOUR PATH!!!! ":110:AA$" I AM THE MEANIST MONSTER YOU HAVE EVER MEET. LEAVE MY SIGHTS AT ONCE OR I WILL BEHEAD YOU! ":590:QR((1)300200):IN.15:PI5&CT4A$" A THREE HEADED rstatement! fA$(2)"Of course, we will bring another winning Editorial. More Product Reviews, Ask the Apple Wizard and our other regular features. LOOK FOR UPTIME VOLUME 12 NUMBER 6!" h(4);"RUN TOC"? P24:18)"PRESS [RETURN] -->";:678:936: eA$(1)"We give Poker a new twist with a great game called Poker Squares. Also, if you like this month's Puzzle Time wait until you see next month's. To say it is a challenge is an unde5 (C) 1987 UPTIME BY VIKING TECHNOLOGIES, INC.A A$(15)l(1101)6ĺ(13)(4)"BRUN LC.CONV"u101(:::48)"UPTIME COMING ATTRACTIONS"55);:"FOR VOLUME 12 NUMBER 6"47):234,7<:I12:A$(I)::80:I F::(13)   LIKE INTRUDERS!! IF YOU'RE NOT CAREFUL I WILL MOVE FRANTIC TO ANOTHER LOCATION.":590:QR((1)1501):IN.03:PI1#%CT2A$" FIRE-BREATING DRAGON BLOCKS YOUR WAY ":110:AA$" I THINK I WILL BURN YOU AND SAP YOUR STRENGTH!!! YOU BETTER MOVE QUICKLY.z#  ؠ Ġ  ҠŠ àؠ Ҡ ͮŠƠǠ ͮȠϠͮŠŠ " ΧĠ/!ô! Ӡ Ǡ ԠƠ٠YԠ  Ҡ٠ ΠŠǠӠŠԠŠŠŠĮԠŮԠàŮ̠  î֠ ӠˠŠŠĠڮԠӠ" <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""**6""">>8  80"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"(~ < (&20 *, **>> """ " >> ">> """>""""""< >> "L`H hɺ-ɡ4ɗɌLďLޭiɖ` X`\67L67LɠaH)<=H8< <<<&=<&=e<)e?>i>?i?hhL F犨P ,0``---?? --??-- ??,,.>><+c_u2--c~$$$$$$$'??--5,.65.6.6565656565%%$%$%$%$%,$,$%,,--=?776666666666=7??-----M----------%$$$6667???????>???'$$$$,?>??76&$7666????'$$$$?-,- -----??>/66666666.655-.-----,%%%,$$$$$$$$,??????7$'$$$$$=/6666666666.?>?/----mI ---------'---------MII-----??/6666666666.?>?/----m)----=?'?%$$$  UN"X$1216,0:::"UNABLE TO RUN ";::X$::7 "Programs","Ask the Apple Wizard","Product Reviews","Information Please","Coming Attractions","Reader Survey","The Front Side"I60100:3I,X:XX(SS):J15:J:3I,X:I{ :9A:17:" ";:I1(ST$(A)):J110:XX(SS)::(ST$(A),I,1);:I:  I1(ST$(A)):X((ST$(A),I,1)):X$X$(X32(X96)):I 470 1016,0 A3A4ė::2KC,0:::(4)"R((KB)128):A$"1"A$"7"2705 ,7:37:A$:A(A$)R 66:251,46246,51251,57l @150,20:246,510,51 J0:I13:18I,5018I,65:I T240,62:3 ^I1A:J14 hJ16:XI8DAJ:240,X:20,5 r240,X:J:I |XI8DA:240,X6/ 13:"Select by number"v GS1Ģ23:"IIGS users please set Alt Display Mode":"to On from the Desk Accessories." 251,46259,46259,57251,57251,46 49236,0 KC,0:I1(FST$):7:37:(FST$,I,1) J150:J:(KB)128Ă:270 "A$ble of Contents"::70,39188,391 32:240,62a I13:18I,4418I,65:43I,4443I,52:I 10:I17:15::I"-";::" "ST$(I):I GS0 (64435)6(64448)224(64447)0(49175)0GS1 GS1ĺ::40): GS0ĺ::::40):49234,0 Z366080 d232,0:233,140:0:1:3E nI17:ST$(I):[ xKB49152:KC49168{ FST$"!/-\":SS16336:DA60 I13:1I,0:I :27:"P.O.Box 299":27:"Newport, RI":33:"02840" I4244:0,I279,I:I::6:11:"Ta5 (C) 1987 UPTIME BY VIKING TECHNOLOGIES, INC.S 34,0:35,24:32,0:33,40i(4)"MAXFILES 3"t35840((1023)99Ĺ230,64:30862230,32:3086<1023,0F4::(1016)215ĺ(4)"BLOADUPTIME.ML" P49239,0:49232,0:49237,0:     M21:1::120):22:" RETURN = RUN / ESC = MENU / P = PRINT ";::40:A$a(16384)13ıu(16384)27Ĭ(16384)80(16384)112S$" ":T$"":2000:34,0:500:S$(13):T$S$:600700D"Our monthly brain teaser. This month"S$T$X:4:(bJ140:"=";:::5XgA$(I)"ELECTRONIC JUKEBOX"A$(I)"JUKEBOX"lB$"'"(A$(I),18)"'"" PROGRAM DESCRIPTION":C20((B$)2):C:B$qA$(I)"JUKEBOX"A$(I)"ELECTRONIC JUKEBOX"v:wI1000,1100,1200,1300,1400heck your disk drive.":23:1:" PRESS [RETURN] FOR THE MENU ";::16368,0:16384,128:((16384)141)400:::40)::2:11):"UPTIME DISK MONTHLY ";:10):3:"VOLUME "VO;:22):"NUMBER "NU;:NU100ĺ" ";:NU10ĺ" ";390 h' mH(20((A$(I))11)2)P r1::H);A$(I);" IS LOADING.";H):[ w40000o |D$;"RUN";A$(I) 216,0::6:1:" There is a problem with your disk.":::A20(((A$(I))17)2):A:A$(I);:" will not execute."::" Please c90 ,(16384)27Č1370# 6BIx @I$"C"I$"c"ė:D$;"CATALOG":49168,0:::2:"PRESS [RETURN] TO CONTINUE ";: EI$"C"I$"c"ľI1$:I1$(13)325 FI$"C"I$"c"Ĭ J216,0:(IN)(I1)Ė1:290 OS$(13):T$S$ T500:600:700 ^:80): 280 49168,0 (CV08):"THIS MENU IS NAMED 'PROGRAMS'. PRESS [C] TO CATALOG THE DISK. [ESC] RETURNS TO THE TABLE OF CONTENTS. " "49168,0:"SELECT A PROGRAM: [ ]";::(20):I$:I(I$):I1I$"C"I$"c"(16384)27Ė1:2K(K1):N5K.5* ((I))1L2:1702 L1d (16KL)(I2(I2))2:"["I;"] ";(A$,17);o K1ĺ (K1)(N19)ĺ N5CV(37):: K0CV(37) CV21ĂI A$(N) :" ["N"] FEATURE PROGRAM: ";:A$(N): (CV5):1:ORE THAN 36 MENU ITEMS":I0:J12000::210> FSP$" "p PT$" UPTIME " ZU$"VOLUME "(VO)" NUMBER "(NU)(SP$,3((NU)))"FLIP SIDE PROGRAMS" d:T$;::U$ n:80):: I1N1:A$:A$(I)A$ 5 (C) 1987 UPTIME BY VIKING TECHNOLOGIES, INC.C16368,0[:::D$(13)(4)~(1101)6ĺD$"BRUN LC.CONV" VOLUME12:NUMBER550(N188:A$:2216,0::NN1:A$(N):K1:D$;"NOMONI,O,C":, <N36Ģ10:2:"THERE ARE M     gʆhL;ɲ3Ƀ/">LȱL;ȱL;`iL sLIL'" sL\L` ɀ8 `  -----??>/66666666.655-.-----,%%%,$$$$$$$$,??????7$'$$$$$=/6666666666.?>?/----mI ---------'---------MII-----??/6666666666.?>?/----m)----=?'?%$$$0>3>3333300>333>3?633>03333 00000333 >kkcc33333333333>003>063333333 cckk>3 3333>0? ?𘘜833?3333333333333333;33333?333? ?00003333?3?33333337;3333333333337;3333303? 33333333333 33333?333 33333 ?0 ?8p`xx``xx>8888866$$~$~$>> >B%$R! *,88888"6">~~`p83;?73  ?30 ?30038<63?00?0333?3 333333>0 ~~ < <~b00 SB,0! A$(X32(X96))' 8 ,D$"OPEN "F$I 6D$"READ "F$U @R120d B1760R,64l ES0 JIN:A$(R,S)(IN$,1) L(A$(R,S))4(A$(R,S),1)"Q"330 O(A$(R,S),1)"\"SS1:330 QA(R)S:A$(R,S)(A$(R,S),(A$(R,S))1) RR 5 (C) 1987 UPTIME BY VIKING TECHNOLOGIES, INC.?i1000En:KxW1:" "q804,(54):805,(55)54,29:55,31002(9);"80N"X(KB)128MM,64MM1,61MMMM1MM1784Ĺ1783,61:MM1745 X020     "Editorial: Welcome Others Aboard!"Q̜15:5:"News and Views: What's Hot and"lќ17:21:"What's Not!"y֜50000::Ꜣ1:1::40);::10:12:"One moment please...":14:H2:A$(I);" is loading.":PÁL13000:Zñ6:4:"To give you more of what you want,":8:4:"we need your feedback."12:10:"Please":16:14:"Fill out and return":18:15:"THE READER SURVEY"50000::5:5:"Don't forget to check out our":7:5:"regular columns:"$œ11:5::I1000,1100,1200,1300,1400&:p'PUZZLE TIME,GOBLET OF JOY,FEELIN' GOOD,HUMOR TIME,ELECTRONIC JUKEBOXv@:JL222:L::1:" ";:40:" ";:T23:1:40);:2:^L3cI3L2eI5L1hL40060,40110,40160r|:J:34,23:35,24:8X 14:10::"PRINTING DESCRIPTION":32,0:33,1:34,23:35,24::(9):17)"UPTIME DISK MONTHLY --- VOLUME ";VO;" NUMBER ";NU:J180:"=";::B$"'"(A$(I),18)"'"" PROGRAM DESCRIPTION":C40((B$)2):C);B$TURN] TO START";::6):16::9:"[ESC] TO STOP PRINTING";S& (16384)1273110w0 (16384)155ġ:49168,0:IB:: 3140:D$;"PR#1":49168,0:D 14::10:"PRESS [RETURN] TO PAUSE"::9:" BETWEEN DESCRIPTIONS "N 22::40);S 32,0:33,1220)@ Q$"1"İ3160:3150:D$;"PR#1":4000:4500:D$;"PR#0":R Q$"2"İ3140_ 49168,0t D$;"PR#1":4000 I15:(16384)127İ3100 4500 :IB:D$;"PR#0";: 32,0:33,40:34,0:35,24:22;! D$;"PR#0":49168,0::14:12:"[RE:14::"YOU MUST HAVE A PRINTER "::8:"CONNECTED TO SLOT NUMBER"::8:"ONE WITH THE POWER ON. "n 2600 40:22::A$ ( L16:X2X4:26202 X2< 777,X:768:F  (16384)27ı (16384)13İ2540:3000 13::::6:"ENTER SELECTION ";::Q$XHQ$"1"Q$"2"Q$"3"Q$"4"(16384)272110vRQ$"3"(16384)272160\Q$"4"Ĭf2500:3000kp 34,5:::10:X112:40): " [RETURN] TO CONTINUE OR [ESC] TO STOP ";:40)d 8TION"-:6:"4.) RETURN TO PROGRAMS MENU"~ 768,169:769,53:770,133:771,1:772,173:773,48:774,192:775,136:776,208*777,2:778,198:779,1:780,240:781,8:782,202:783,208:784,246:785,1664786,0:787,76:788,4:789,3:790,96 >18:it to you."::56)4"UPTIME";:18)k" PROGRAM DESCRIPTION PRINT ROUTINE ";:40)::::"DO YOU WISH TO:":6:"1.) PRINT THIS DESCRIPTION":6:"2.) PRINT ALL PROGRAM DESCRIPTIONS" :6:"3.) END THE PRINT OP as much fun "T$"reading it as we did putting it"S$T$"together."F x"If you find that you enjoyed this"S$T$"month's Flip Side feature, please let "T$"us know. There is plenty more where"S$T$"this came from and it would be a "T$"pleasure to present miliar with biorhythms."S$T$"This program uses that concept in "T$"reverse. You tell it how you felt over"S$T$"a period of time and it projects your "T$"data to a future period."@"This is where we print your favorite"S$T$"jokes. We hope you have"we present Alphabetic Slider. A true "T$"challenge for all ages..."JL"Someone has stolen the Goblet of Joy."S$T$"It looks like you're the only one who "T$"can help find it. Enjoy this text"S$T$"graphic adventure game."`"Sure you're fa󮠠쬍򠤵󠨳䠵󩬠쬠庠ĠҠˠ堶܍Ѳ܍󠲮󮠠Ӡ堨箠䬠㮩ѱɠ܍䮍     2:819,117:820,253:821,160:822,2:823,138:824,145:825,105:826,200:827,169:828,0:829,145Xu830,105:831,200:832,169:833,2:834,145:835,105:836,76:837,57:838,213bu }80,252:781,208:u782,5:783,169:784,141:785,32:786,240:787,253:788,201:789,224:790,144:791,2:792,41:793,223:794,76:795,240Du796,253:797,201:798,252:799,208:800,2:801,169:802,160:803,76:804,240:805,253`Nu816,162:817,0:818,38RR1:2030HR$\TT16fTA(R)2080?p200NX271085cX80X112İ500rX8RR2|RR1R21203010850u768,162:769,11:770,134:771,54:772,162:773,3:774,134:775,55:776,76:777,234:778,3:779,201:7] to continue":24:"[<-] to go back a frame [P] to print"FR1LYR1R1r RĺT$((R2)(R2))xT0 A$(R,T)%VT(37)*VT16TA(R)121304:"-more-";::" ";::200:>X271085?X80X112İ500AX================="R120-1743R,64H"-------------------"` T$((R2)(R2)):yT0A(R):A$(R,T):"(12),768:1090:34,1:1::"========= ASK THE APPLE WIZARD ========="::>23:"[ESC] to exit [RETURN80X1122000110R"================================================":jZZ$;" ";CO$:"================================================""(c) 1986 by Philip Chien and Viking Technologies""===============================0Ģ22:"Please wait ...":300U22::"=======================================":"[ESC] for the main menu [P] to print":"all questions [RETURN] to continue";35,21:7:200X27ĺ::16370,0:D$"PR#0":D$"RUN TOC"Xestions or give personal answers."Q ~"We will answer several general interest" "questions each month in this column.": "Send your questions to:" " Ask the Apple Wizard c/o UPTIME" " PO BOX 299 Newport, RI 02840"RFr:" D$"NOMON I,O,C"# $30000. )(21)I .(637)223Ĺ793,255R 8768X =:a B900i L11 V"This column will try to help you with" `"your Apple problems. Due to the amount" j"of requests received, we cannot answer"" t"all qu9:15:"by Philip Chien"' 16369,0- 3 :S IN$"*":IN816:MM1745:RF0h A$(20,20),A(20)t D$(4) CO$"Volume 12 Number 5" ZZ$"Ask the Apple Wizard" F$"WIZ.DATA.5" KB16384:SB16368 T$(0)"Question:":T$(1)"Answe TD$"CLOSE" YRF1 ^' 110- E T$((R2)(R2)):^ T0A(R):A$(R,T):d m 768w &RR1} 0 :(21):: 41):40:2):40:2):40:2):40:2):40:41)::3:12:"UPTIME PRESENTS:" 5:20((ZZ$)2):ZZ$:܍ľ嬠箠㬠܍ѱɠ讍ɠ܍܍ѹɠ܍笠䠧맮򠱰󠱱宍܍Ѹɧ܍報嬠俠܍򮠠箠܍ѷɠ宍ɠ讠򮠠嬠ɠɠ܍ҬҬ٠򮠠䬠󮠠ԠٍŠΠ쬠܍Ѷɠ议܍ѵɠ󮠠ɍ蠢󮠠܍ӠӮТ嬠Р宠宠ɠ܍宠嬠宠ŠŠՠРԠƠРӠƠҠӠΠՠԠҍš܍Ѵᠢ뢠ɠ箠嬠䮠箠㮩󮠠쮠젳܍ѳ󠲮܍䠲@0@"% @0@<G@<>_h>@c }QhOg \@  >@`z}A@0q@@@@@y0v0x@A  DQE@ P@U0@0T`@0@P`@0@p#d>P|@1@@"xdq0`@"J(`q@0@A  L@  @ 4 EQ@0Qx@@@0V0@A  @QEAPp@U0@`q0T<@0@P>@|"G@D>'@c gG p#>P@@1@@r|D1<@DH@0@_opD@ow{@ogyE_@0S@@(}@0V0p@Og 0U`EP@E0@@1T`@0@psP`@0@A( $D("  Q(""Px@=@@p[eD1@@@0x@_opDOcyoCxD@pH@@0V0@A  UH@EPp@xE0@@q\<@0@Q<@0@ D(C JY(r|"P@x0@NTHS"BI112:M%(I)::DAYS/MOLBC%(0)0:I112:C%(I)M%(I)C%(I1):gB2520:FILE NOT FOUNDzBD$"UNLOCK FG"B216,0:ONERR OFFBD$"OPEN FG,L4"B680BD$"CLOSE"BSL0290 C8:958::23:1:" ENTER SLOT # [RETURN(1101)6ĺD$"BRUN LC.CONV"(A<620@AFI139:L$L$"=":XAPI140:B$B$" ":|AZ12:12:"One moment please..."AdD$"BLOAD C4,A$300":D$"BLOAD TS,A$1000"An233,16:232,0:SHAPE ADDRESSAxCUR768:CURSOR ADDRESSBI112:M$(I)::MO,5@ (C) 1987 UPTIME BY VIKING TECHNOLOGIES, INC.@ (104)64Ĺ103,1:104,64:16384,0::12:12:"ONE MOMENT PLEASE..."::(4)"RUN FEELIN' GOOD":LOAD ABOVE PAGE 1 GRAPHICS@:::D$(13)(4)@(M$(12),M%(12),C%(12),I(240),B$(13),I$(25)A2             5:4:"include more outstanding music in";LZ 17:4:"our future issues.";fx 21:27:"Thank You!" XX16500::D$"RUN PROGRAMS" 6:1:120);:6:1:120);:F"><";:I - 22:40:">/";:"\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/";"\";l 2 :5:12:"We have lots more!" 3 9:4:"If you liked what you just heard,"; < 11:4:"please let us know via the Reader"; F 13:4:"Survey. We would be happy to";*P 1ish Rondo":9:8:"by Wolfgang Amadeus Mozart":2000> v1400l 24:7::" ANY KEY WILL STOP A SONG ";:v 430,0 31,96 768 ` 2700 :1000 ( 35,24:34,0:::2:"\";:"/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\";"/<":VT321:VT:40:":7:8:"Now playing: Maple Leaf Rag":9:14:"by Scott Joplin":2000 A$"2"ĺD$"BLOAD M.RAGTIME DANCE,A24576":7:8:"Now playing: Ragtime Dance":9:14:"by Scott Joplin":20004 lA$"3"ĺD$"BLOAD M.TURKISH RONDO,A24576":7:8:"Now playing: Turk ";N$(1)! L14:10:"2. ";N$(2): 16:10:"3. ";N$(3)\ 24:13::" [ESC] EXITS ";: x19:9:"Your Choice: ";:16368,0:A$:A$;:OP8130:OP8:19:9:" "; A$(27)2600 @2700F A$"1"ĺD$"BLOAD M.MAPLE LEAF RAG,A24576/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\";"/<":2:40:"><";:3:40:"><";:40:">/";:"\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/";"\" :3:4:"UPTIME PRESENTS: ELECTRONIC JUKEBOX":34,5 F1Ģ8:2:"Songs Files from Walter Marcinko Jr.":F0 12:10:"1.5d (C) 1987 UPTIME BY VIKING TECHNOLOGIES, INC.KF1:D$(13)(4)n,(1101)6ĺD$"BRUN LC.CONV"D$;"NOMON C,I,O"D$;"BLOAD PLAYER,A768"XN$(1)"Maple Leaf Rag":N$(2)"Ragtime Dance":N$(3)"Turkish Rondo"{ :::"\";:"/\/\/\  @0p@"Bx} J@0@D"A( DD("  Q(Og t@, >@ls{|@01<@p@@` }Dp060@Aop8Qpp8>@o@xQx@}0@0T@0@P@0@"d"P@@p0@          ","Product Reviews","Cover","OVERALL ISSUE RATING"8:r23:1::"[RETURN] TO RETURN TO TABLE OF CONTENTS":16368,0:16384,128:(16384)141202023:1:868:81220A141124016368,0)A15511701:{"Fun Time","Crossword V","Convoy","Language Arts II","Graphic CADet""Puzzle Time","Goblets of Joy","Feelin' Good","Humor Time","Electronic Jukebox"2"Apple Wizard","News and Views","Editorial":5:"Newport, RI 02840":G"Along with your name and address.":XA1552000q8::(4);"RUN TOC"21::"PRESS: [RETURN] TO CONTINUE [ESC] TO RETURN TO MENU ": 16368,0:16384,128:A(16384):A155ORT, RI":" 02840"'t(4);"PR#0"E~::10:15:"THANK YOU!"KQ8:"Please select your favorite programs from this issue and tell us which ones you liked best.":"Just jot us a note and mail to:"::5:"UPTIME":5:"Box 299nm card? ____________"P:A$(1):A$(2):A$(3)" "A$(4)" ":"("A$(5)") "A$(6)V.8"--------------------------------------------------------------------------":B"MAIL THIS COMPLETED SURVEY FORM TO:":" UPTIME":" BOX 299":" NEWPEXCELLENT) OR 'NR' FOR NOT RATED.":c" PROGRAM RATING COMMENTS":oX115(1101)6ĺ"*";P$(X);:1050P$(X);23(P$(X))):LN$::X:P$(16);:23(P$(16))):LN$::"Do you have an 80 colung to the Table of Contents":1220- :310D :33,1:34,23:24Y :(4);"PR#";SL LN$"[ ] ___________________________________________" "UPTIME VOL. 12 NO. 5":$"PLEASE RATE THE FOLLOWING PROGRAMS IN THIS ISSUE":"FROM 1-10 (10 = I5A$(5)(A$(5),3):V:20:") ... ....":23:"NUMBER"B I 24:"Is this information correct? Y/N ";:(36)3:X$:X$"y"X$"n"X$"Y"X$"N"X$(13)Ė1:420" X$"y"X$"Y"X$(13)İ1000::34,5::1:1:" ";:::12:"We're returniormation:"g h::"Your Name"::"Street Address"::"City/State"::"ZIP Code"::"Phone Number":13 rV11:I16:H16:VV2:I4H17:I6H22:VV2 |V:H:657:A$(I)"":X512767:(X)141A$(I)A$(I)((X)128):X :A$(I)(A$(I),28);AN$"n"280( "AN$"Y"AN$"y"1170r ,:9:"What slot is your printer in? ";:SL$:SL(SL$):SL7SL1300 613:I14:E21:I3E5 @16:J1E:".";: J:: TI5Ė16:"(...)":16:" AREA"; ^1:9:" Please enter the following inf to know the type of":F "programs you'd like in your magazine!":v "Help us by rating the programs in this": "issue. Send in your selections today!": 1230 9:1:958:"Do you have a printer? ";:AN$::AN$"Y"AN$"N"AN$"y" 5 (C) 1987 UPTIME BY VIKING TECHNOLOGIES, INC.`(1101)6ĺ(13)(4)"BRUN LC.CONV"f ::41):40:02):40:2):40:41);:34,5::3:11:"UPTIME READER SURVEY":dP$(19)X116:P$(X):X ::"UPTIME wants    tions? ";::"(Y/N)";:1D617:35:16368,0:X$ID;X$"Y"X$"y"2620\D@X$(27)2480sDEX$"N"X$"n"330|DG300DJ820DTD^SUBROUTINESDhDr23:1::" [RETURN] TO CONTINUE ";::E|23:1::" [ESC] TO END ] TO SKIP ":,C12:"Printer in Slot # ";HCX$:X$(13)SL0:290nCX$"1"X$"7"ĺ(7):12:19:250CX$:SL(X$):16:958:16:1:"SETUP OK (Y/N) ? ";:X$:X$"Y"X$"y"290C230C"11:958D,380:35,23:17:6:"Do you want direc"'UPTIME' is copyrighted each month with":"the U.S. Government Office of Copyrights":"and is sold 'as is'. 'UPTIME' and its ""parent company, Viking Technologies, as-":"sume no liability for the use of the ">"material contained herenot 100% satisfied with any 'UpTime' product, return it. We'll replace the disk or"" refund your purchase price. Just write Bill Travers or call: 1-800-437-0033":360,:::" WARRANTY WARRANTY WARRANTY ":34,2::: Travers, Editor-In-Chief UPTIME P.O. Box 299 Newport, RI 02840 " "GO TO THE TOP! Bill answers his own mail and calls. ":360:U::384:9)"THE 'UPTIME' GUARANTEE"8):380:" Our guarantee is unconditional. It's that simple. If you are ," "," UPTIME - The Disk Monthly "," P.O. Box 299 " " Newport, Rhode Island 02840 ",""360:C ::384:14)"WRITE TO BILL"13):380:" Any problems, compliments, or ideas? Write to:":" Billey order or charge to","your Visa or MasterCard. Please include","your card no. and the expiration date."," "U "Add $2.00 per issue in all foreign countries except Canada and A.P.O.","or F.P.O. "," "," MAIL TO: "X119:A$(X)::360::" == HOW TO SUBSCRIBE TO UPTIME == "," "," One issue of UPTIME $11.95"," Three issues (3 months) $30.00"m " Six issues (6 months) $48.00"," Twelve issues (1-year) $66.00 ","Send check, mon backup of your disk."360::" Simply put your work on a disk, and send to: Jay Wilbur, Editor UPTIME P.O. Box 299 Newport, RI 02840. Make sure your disk has your name, address and phone number on it."360:::X119:A$(X):X:o $250 for programs used in the magazine. Separately marketed packages are paid for on a royalty basis."" Although the utmost care is taken in handling your programs, we cannot be responsible for lost submissions. To protect yourself, send us aograms. They should be completely debugged, and include a letter describing what the program does.":" All programs should use DOS 3.3, and exit to a program called 'PROGRAMS'."k360::"We are interested in all types of soft- ware. We pay $50 t" "āJ12:S(16336):(:868::MA$"":I140:A$A$"-"::630:Sc:40)::N0:C0:::X1200:"Yes! ";:X:Z11000:Z::384:3)"BECOME A PROFESSIONAL PROGRAMMER!"3):34,2:380" We would like to review your pr0::A$"Editor..............Jay Wilbur":630: A$"Circulation.........Donna Timberlake":630::A$"Sales/Marketing.....Danuta Moryl":630: ::::" Press [RETURN] to continue.";:678: lvI1(A$)::D$;::M$(A$,I,1):M$;:M$X)):B$(A$(X),Y,1):B$"*"B$""0 C$C$B$:? A$(X)C$: N0:C0:X0:::" UPTIME The Disk Monthly":D$"==>":I1(D$):D$D$(8):::::A$"Publisher...........Bill Kelly":630:A$"":630. A$"Editor-In-Chief.....Bill Travers":63URN] TO CONTINUE => ";- mG$:(G$)133655 r: |23::3:"ENTER SELECTION OR [ESC] FOR MENU";:I$:I(I$):(16384)27I1IDFE380 (16384)27ĝ:34,0::12:12:"One moment please...":(4);"RUN TOC" : C$""! Y1(A$( my disk doesn't work?":A$(3)"[4] Who gets suggestions and complaints?" A$(5)"[6] What if I get a friend to subscribe?":A$(6)"[7] Does UPTIME have a toll free phone?":A$(8)"": ":V5:X0N:V:A$(X):VV2:: h49168,0:23:3::"PRESS [RET380:49168,0:I450,700,920,1290,1410,1719,2070:C 360:34,0:P :I0N] A$(I):c i H N8:A$(0)"[1] Who publishes UPTIME?":A$(1)"[2] Would you like to see my programs?":A$(2)"[3] How may I subscribe to UPTIME?":A$(4)"[5] What if5 (C) 1987 UPTIME BY VIKING TECHNOLOGIES, INC.N :(1101)6İ2300A$(19),K$(10),U(4)::D9:X2:::A$"INFORMATION PLEASE ":I39(A$)111:2:I:A$:Z1100:::2 P::::120):2:12:"INFORMATION PLEASE":34,3:::5:190:290:8,0:"To re-enter UPTIME - The Disk Monthly type: RUN TOC ": A155ĉ::10:12:"Please wait..."::" We are returning to the Flip Side." A141ĉ::10:12:"Please wait..."::" We are going to the Front Side." (13)(4)"RUN the Flip Side Table of Contents, just press [ESC]."` " To exit to Applesoft, press [B]." 23:1::" PRESS [RETURN], [ESC], OR [B] ": 16368,0:16384,128:A(16384):A155A141A194A226160F A194A226ĉ::8:1636%5 (C) 1987 UPTIME BY VIKING TECHNOLOGIES, INC.K(1101)6İ220U::(:13)"THE FRONT SIDE";:13)::34,25 :4:"To see the Front Side Table of Contents, remove your UPTIME disk, flip it over, and press [RETURN]. To return toata Entry"::VH&21:1::120):22:" RETURN=RUN ESC=MENU P=PRINT ";::H0DAYS0:I0LINE1:DAYSDAYSM%(I)::DAYSDAYS(I$):D1DAYS::CALCS DAYS INTO YEARFI::7:958:22::" [RETURN] ADVANCES DAY ";::7)"Enter vM%(I)MI:DDAYS:I12::0GDAYSDAYSM%(I):6GG430:410:I112:7I:17:M$(I)::CUR,8,19,15,21:LINE(4)::SELECT MONTHG13:1:868:390:14:"Input Day - ";M$(LINE)" (1-"M%(LINE)") ";:"";I$::GET DAYH:::8:"FEELIN' GOOD - D TO CONTINUE ";::bF:21:1:"<-";::" ";::"->";::" To Select ...[RETURN] To Execute";:qF:B$;::F:::B$:I24:I:1:" ";:40:" ";::B$::FLINE((4)1)2:FCALCULATE MONTHFDAYS366DAYSDAYS366GI112:DAYS [RETURN] TO CONTINUE ";::ZE23:1::" [RETURN] TO RESELECT ";::E23:1::" [ESC] TO END ";::E23:1::" [ESC] FOR MAIN MENU ";::F23:1::" [ESC] FOR MENU [RETURN]ons!!"::"SAVE..SAVE..SAVE!!!!":360:G(13)(4)"BRUN LC.CONV": N" ":" " "a+"," Donate a one-year subscription of "," UPTIME to':::" TOLL FREE "::5:"Don't waste your money on long distance ":"phone calls anymore, use our toll free ":"number: 1-800-437-0033 for your orders ":"and questi" Just send in the 12 month subscription":Z" and ask for your JACKPOT BONUS!":360:4Z13000:Z::" Get a friend to subscribe to +++++"," UPTIME for 12 months... ++++++++"," Give a 12-month subscription of "," UPTIME as a gift... +++++++++++++ ":B$(7):X16:K$:K$(X)K$X::X512:X:E$:X::X611:X:2:F$;:X::X152:8:3:K$(X1);:9:3:K$(X2);+B$B$B$:14:" Bill will extend your subscription"::" for one extra month!":360:20:1:958:X:18:- ":"marks of Apple Computer, Inc. and are ""made available to us through an agree- ":"ment with Apple Computer, Inc. "360:5:::B118:A$(B)::2:14:"UPTIME JACKPOT":F$"+++++++++++++++++++++++++++++++++++++":E$" UPTIME' or its usability, "y"merchantability or its fitness for any ":"particular purpose. We are licensed by ""Apple Computer, Inc. 'UPTIME' is the ":"registered trademark of Viking Technol- "/"ogies. 'Apple' and 'DOS 3.3' are trade\"exclusion or limitation of implied war- ":"ranties, thus the above exclusion may ""not apply to you if you reside in said ":"states. Apple Computer, Inc. makes no ""warranties either expressed or implied ":360::4:"regarding 'in. The programs ":"contained in this magazine are for user ""enjoyment. Viking Technologies assumes ":360::4:"no liability for loss or damage caused ""by the contents of this publication, or ":"their use. Some states do not allow the "     ,141:100:I115:IA%(I,1),A%(I,2):\21:A$" This is the correct order ":20:30:230 73,60,113,60,153,60,193,60,73,85,113,85,153,85,193,85,73,110,113,110,153,110,193,110,73,135,113,135,153,135,193,135ject is to get the letters A-O into alphabetical order.":120b:A$"The arrow keys or letters I,J,K, and M will move the letters around the screen.":120:30l:5:I4014225:60,I220,I:60,I1220,I1:&vI5922040:I,40I,141::140,401408)(95)(8):KY16384:KP16368:1:0:XX40:A%(16,2),LO%(16),NU%(16),B%(15):I116:A%(I,1):A%(I,2)::LO%(16)0:EM16&I1150R((1)151):B%(R)1560:B%(R)1:LO%(I)R:DBLĹ6,32:253,159:2048:90:250N60=X:12:A$"The ob"Y"T$"y"T$"N"T$"n"ĭ(T$)27ĺBL$;:470KT$"Y"T$"y"110[:BL1:540n(104)64530104,64:103,1:16384,0D$"RUN PUZZLE TIME"D$"BLOAD ASCIIMID.SET":D$"BLOAD CLEARBA":D$"BLOAD LARGE.SET"zLO1:BL$(7):BS$(,144:253,47:2048:90:VT150:I115:LO%(I)IĂ:HT32:ST$"CONGRADULATIONS":200:VT162:HT56:ST$" YOU DID IT":200:460VT154:HT85:ST$"GOOD TRY":200:VT164:HT49:ST$"BUT YOU LOSE":200VT178:HT16:ST$"TRY AGAIN (Y/N) _":2002T$:T$5350sMVEM4:LO%(MV)A%(MV,1),A%(MV,2):LO%(EM)LO%(MV):LO%(MV)0:LO%(EM)A%(EM,1),A%(EM,2):EMMV:KP,0:280EM12350MVEM4:LO%(MV)A%(MV,1),A%(MV,2):LO%(EM)LO%(MV):LO%(MV)0:LO%(EM)A%(EM,1),A%(EM,2):EMMV:KP,0:280{KP,0:90:6lrMVEM1:LO%(MV)A%(MV,1),A%(MV,2):LO%(EM)LO%(MV):LO%(MV)0:LO%(EM)A%(EM,1),A%(EM,2):EMMV:KP,0:280|EM4EM8EM12EM16350MVEM1:LO%(MV)A%(MV,1),A%(MV,2):LO%(EM)LO%(MV):LO%(MV)0:LO%(EM)A%(EM,1),A%(EM,2):EMMV:KP,0:280EM)128107ī360$ ,(KY)12827110: 6(KY)12813440j @(KY)1288(KY)12874(KY)128106380 J(KY)12810(KY)12877(KY)128109400 T(KY)12811(KY)12873(KY)128105420 ^BL$;:KP,0:280 hEM1EM5EM9EM13350ST$"M=DOWN":200:VT190:HT7:ST$"{ESC} ENDS {RET} SCORES":200:100x 5:I4014225:60,I220,I:60,I1220,I1: I5922040:I,40I,141::140,40140,141:I115:LO%(I)A%(I,1),A%(I,2): (KY)127280 "(KY)12821(KY)12875(KY20# ((ST$,F,1))TLFHYHT,VT+ : 90:::16302,0:1:1,0279,0279,221,221,0:3,1277,1277,213,213,1:2,2277,2:3,20277,20 VT14:HT12:ST$"UPTIME PUZZLE TIME":200F VT162:HT7:ST$"J=LEFT K=RIGHT I=UP":200:HT89:VT174:moment please...":104,8:103,1:2048,0:(4)"RUN PROGRAMS"C xY0h TE$(A$,XXY):(TE$)(A$)190~ (TE$,1)" "160 YY1:130 (TE$,XX1): T(A$)(TE$):T0190 A$(A$,T):120 A$: F1(ST$):((ST$,F,1))TL020 2} <A$"ALPHABETICAL SLIDER":1::41):40:2):40:2):40:2):40:2):40:41)::3:12:"UPTIME Presents:":5 F20:8:26:" by Larry Sage ":34,8:BZ1 P Z232,250:233,10:TL32:HY12: d232,48:233,17:; n::12:12:"One 5 (C) 1987 UPTIME BY VIKING TECHNOLOGIES, INC.M:::D$(13)(4)p(1101)6ĺD$"BRUN LC.CONV"y 500(42(A$))2:A$:24:2::" [ESC] TO END [RETURN] TO CONTINUE ";::T$:T$(13)ĭ(T$)27ĺBL$;:30 ((T$)2711     TOC"$ (13)(4)"BRUN LC.CONV":h"l$ $ $ $ n N$II Mil[$$$$$l66666MII$$$$$l66666&$$$$$$$ 6666666MIII$$$$$$$6666666"" J$ 6 HI  HT!l $6M66n$ۑ]!n$M3& $$6MR XI II$$$# l62M $$ $$$l6k X[MIII IIII $ 066666&HIII RIn LۛJ[i n nnP L$$ J J$lX#$ X!Ik N6<66n N#X۲   II$$$$$$l 666666& $$$$$ 6666666 X!$$$$$666666lIM 6n6n6n6& $$$$$ Xi 26666$$$$$$l 666666$hI$$$$$$$ 0666666 K H6l JII  $$$$$$ Xi 26666  $$$$$ 066666 HI&J ۖ"$$$$$$$ lnlnlnl$$$$$l 66666&$l66nlnl6Hl $$$$$666666#$$$$$$$ 6666666 $l"l"l"l"$ 6 3n0n0n06 $ $$$$$$$ 6666666 lnlnl&$$$$$$$X1666666nII $$$$$$$ 6666666 [n n$$$$$$$ 6666666MIII$$$$$$$6666666  666666nlnl6H $$$$$t16666&# $$$$$$$ 666666nlnln &  $$$$$$$ 666666&H $$$$$  66666nlnlnll$Pi"HIII$$$$$$$ 6666666MIII$$$$$$$6666666 l 0"8(]!@{`D(Z" $$$$$$$ 6666666  nI~ M"0 $$$$$666666&$$$$$$$ 666666nlnln $$$$$ 626&n $$$$$ Xi  666666n $ ؛$$$$$$$  lL`inLLNLN 8J      !$ h i " $$$II ۛiJN LLI!$$$$$MI 66 3 #$$N 6$ h N6$$l II $vi $$NL  ``i I!$$ k 6vi $I lII6$$J`qq!$$\ LLL $ II LLLLII LL I!$$$ l LL  سjII I!$lII" n  66&H ܖIIN $$$XIMIp! NNpi LI$$$  $L U $$$&JIIL X& $$, N#  L $$$ N6I $di  $$$ 066& $$l  Vi $$$$$II sqq!II $$$$$$ Jrih066&$$$Njj $$$ $di 66$$$  $di 66L $$$ RI pi  L I!$$MI  $$MI 66Iaa!$66666MI $$$2HIIn U  3 L" di &II $$vi HHI  Ik HLLL  XII N`i J&II  $di 6J $$ `qq16&$$$  II  $di $$$ 66 66&H $$$ nJI! XILLۓX2 2N V N XI6I#lh Iaa!, I!$$J` U ۣI $$VJ H I!H L $, 66 L XI!$$M!`i ޟn `i j2 II$$$n M!XII6 6 X /_4>FOgqx 1BHO[j 0:KWer$;MYfrx*0AJWbov/I! $$X1n $ $$$M166&H ߳# KI$$$Nri 8,EH18,E3:580:WV"DAYSBASE240:480:A$M$(M)" "(D):VE8:HC6((A$))2:580qV,A,EA,E3:C,EC,E3V6RD11710V@HA36:V160:A$"PLEASE WAIT - READING DATA":580VJVTGET DATA FROM FILEV^Vh:D$"OPEN FG,L4"VrI1240WD1C,ED2D1vUA$"AVG":H0:VE50:580:VV1:580:A$"LOW":VE15:580:VV1:580:A$"HIGH":VE87:580:VV1:580UDAYSBASE:490:GET MONTH #UA$M$(M)" "(D):VE8:HA22:580VJ8016080:DAYSBASEJ:480:A$M$(M)" "(D):HAJ18:H11TA,BA,EC,EC,BETA$"FEELIN' GOOD - GRAPHICS":V5:H80:580RTV6:580yTJ2005:A$(J):J10A$" "A$TH21:VEJ5:580:TIEE10025:A2,IA,I:TA$"DAYS -->":V150:H130:580 UD232:D136:C,ED2A16,ED2A16,ED2 GOOD -- Graphics plot":410-Sn430:PROMPTzSx10:14:"PLOT POINTS":12:12:"DRAW HISTOGRAM":14:14:"LINE GRAPH"SCUR,10,14,10,28:460SLINE1820S3:0:1:230,32:62450:49239,0:49234,0:49232,0:HIRES PAGE1TA39:B0:C279:E131160R7:1:958:10:" DATA RANGE EXCEEDED"::"YOU MUST EITHER REBLOCK FILES OR CHOOSE":"ANOTHER DATE TO ENTER."R(380:X$:X$(27)2480R2X$(13)820R<(7):1320RFRPGRAPHICS PLOTTINGRZSd::450:3:6:"FEELIN'R NULL ENTRY;Q(IN$)1(IN$)20ĺ(7);:11:958:1180XQDD1:DM%(M)D1:MM1fQM12M1QF1F10:1290:SKIP WRITE FOR NULL ENTRYQRD1I(R)(IN$):FILE IN MEMORY, ADD TO ITQ740:WRITE RECORD,CLEAR READ FLAGQ R2401310R958:570:PROMPT'PRR1:R2401310^P8:3:"THIS ENTRY IS "M$(M)" "D" RECORD # "R" "P19:3:"ENTER ZERO (0) TO TERMINATE ENTRY"P12:5:"RATING FOR DAY = ";:22:868:22:"";IN$PIN$"0"920PIN$""1230 QF11:1240:FLAG FOELECT PROMPTS & MONTHS&O.LINE08201O8:390780,LH430:400yLR10:15:"ENTER DATA":BASE0ĺ:15:"PLOT DATA"::14:"REBLOCK DATA"L\CUR,10,16,12,27Lf460:LINE920,1380,2030Lp2480LzLENTER DATALL19:958:BASE01040M450:3:8:"FEN FG,L4"KD$"READ FG,R0"'KBASE:K:START POINTcK:D$"OPEN FG,L4"::D$"WRITE FG,R0"mKBASE~KD$"CLOSE":KD$"OPEN FG,L4"KD$"WRITE FG,R"RK((IN$))KD$K D$"CLOSE":KK MAIN MENUK*L4450:3:8:"FEELTINUE...":HA1:V160:580:16368,0:X$::CLEAR MESSAGEJl:::41):40:2):40:2):40:2):40:2):40:41)::3:13:"UPTIME PRESENTS:":5:15:"FEELIN' GOOD":34,8Jv9:12:"By Mark R. Craven":JJDISK ROUTINESJ K:D$"OPalues from 1-20 ":"1 = Feeling low 20 = Feeling great!";:35,20:IDI1(A$):((A$,I,1))31H(I6),V:::DRAW SHAPESINI1(A$):((A$,I,1))31H(I6),V:::XDRAW SHAPESIXA$"NO DATA !":H120:V80:580:9JbA$"PRESS TO CON)-159="&*.26:>"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?"(`((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048X$(13)ė:2130]H(7):2100]RB$(11)"It would probably be better to re-block"0^\B$(12)"in 2 to 3 month increments to save":B$(13)(27)820 \ X$(13)ė:20800\(7):2050\ B$(4)"For example:":B$(5)"If you started your data on July 1,":B$(6)"and your data extends for more than":B$(7)"240 days from that point, you will":B$(8)"have to reset your starting point"Q]*B$(9)X$:820["[RE BLOCK DATA ([e[::450:3:5:"FEELIN' GOOD - Re-block file"::34,6:[B$(1)"Re-Blocking data consists of simply":B$(2)"changing the starting position of the":B$(3)"first data point.":I13:B$(I):: \420:X$:X$19:"The graph will be saved on the current"::"drive."yZ10:" SAVE Your Graph (Y/N) ? ";:G$:G$"Y"G$(121)1970Z820Z:10:958:10:1:"ENTER NAME OF GRAPH ";:N$Z2550[:D$"BSAVE "N$",A$2000,L$2000"::D$"CATALOG":X$::370: ?":580:16368,0:X$:X$"Y"X$(121)İ590:A$"CALCULATING...ONE MOMENT..":580:1910fYl::1940YvCOUNT0:TT0:I1240:I(I)0Ă:1930YTTTTI(I):COUNTCOUNT1:YT1(TTCOUNT):A,E5T1C,E5T1:A,E5T11C,E5T11:590:610::8ZI):X11,Y1X21,Y2:X1X2:Y1Y2:+X18701XLXPLOT POINTS/HISTOGRAMRXpX&X0:I1240:I(I)11860X0:X0İ600X:1870XDX1:AI1,E5I(I)AI1,E(LINE1)5I(I):XN610XX590:REMOVE MESSAGEXYbA$"PLOT THE MEAN VALUE (Y/N)|D$"READ FG,R";IWI(I)"W4WD$"CLOSE FG"HWRD1:READ FLAG^W590:LINE31830dWyWPLOT LINE GRAPHWWX0:I1240:I(I)1XIA:X1X:Y1E5I(I):I240W:X0İ600:1870WIXA240:I(I)1Ă:1870!XX2IA:Y2E5I([RETURN] TO CONTINUE ";::T$:T$(13)ĭ(T$)27ĺBL$;:120P (T$)27100V A%(P6)23:F((1)51):G((1)7):P6(F(G14)) A%(P6)11A%(P6)20150 A%(P6)13:P4(P614)2:P5F13: P1:P2:(C$,A%(P3),1):COCO17 6:301):40:2):40:2):40:41)::3:5:"UPTIME Presents: GOBLET OF JOY "x P5:26::" BY LARRY SAGE ";::BZ1:34,6~ Z d::12:12:"One moment please...":(13)(4)"RUN PROGRAMS" n(XX(A$))2:A$:> x35,23:24:2::" [ESC] TO END W5 (C) 1987 UPTIME BY VIKING TECHNOLOGIES, INC.M:::D$(13)(4)p(1101)6ĺD$"BRUN LC.CONV"z(3240224:2::" [ESC] TO END [RETURN] TO CONTINUE ";::35,23:<24:1:39):24:14::" [ESC] TO END ";::35,23:J F:4   !!!!!!!!!""" " " " " """""""""                           the disk...":160e I find something"::"on the disk...":160160 while I find something"::"on the disk...":16012:"A disk error has occurred on the current":"drive."::"The REBLOCK has been cancelled!":RD0:BL0pl6 370l@ 16368,0:X$lJ X$(13)2880lT 216,0:::620:12:"Just a moment while I find something"::"on the disk...":160thing"::"onk 550:X$:X$(27)820-k X$(13)820Ek X$"P"X$"p"2810Uk (7):2770k :34,23:33,1:32,0:::D$"PR#"SL:(9)"80N"k I0212k X$I$(I)I$(I1):X$::k :D$"PR#0":::330k" 450:3:9::"DISK ERROR - DISK ERROR":gl, s described "Ajn I$(21)"under the REBLOCK DATA menu selection."Wjx I07:I$(I)::rj 420:X$:X$(27)820j X$(13)2720j (7):2690j :I814:I$(I)::j 420:X$:X$(27)820j X$(13)2760j 2730k :I1522:I$(I)::nsecutive days, starting with" jd I$(16)"your 'BASE DATE', which will be dis-":I$(17)"played on your screen. When you exceed ":I$(18)"the 240 days you may reblock your data ":I$(19)"to a later date to keep your data ":I$(20)"continuous. REBLOCKING i0)"can plot your bio-data in any one of "iZ I$(11)"3 ways; points, histogram or curve. ":I$(12)"When you enter data, simply follow the ":I$(13)"brief instructions displayed on the ":I$(14)"screen. You will be able to enter data ":I$(15)"for 240 co"based upon your own mental or physical":I$(4)"states. "*hP I$(6)"Before you can plot the data, however ":I$(7)"you will have to enter data. When you ":I$(8)"first run the program, the empty data":I$(9)"file will be created, after which you ":I$(1E! ";zQR7A$" I THOUGHT YOU WERE A COURAGEOUS HERO! "fQR8A$" BOY!!! YOU'RE SURE BRAVE. "QR9A$" WONDERFUL! WHAT A CHOICE! "20:110:A$" I MOVED FRANTIC TO A NEW LAIR. ":COCO1:110:150:QR((1)5):QR11040(QR((>QR((1)91):QR1A$" POOR SELECTION! "dHQR2A$" I THOUGH YOU WERE SMARTER THEN THAT! "RQR3A$" ARE YOU AWAKE?? "\QR4A$" WHOSE IDEA WAS THAT? "fQR5A$" THAT DIDN'T WORK VERY WELL! "pQR6A$" COME VISIT AGAIN SOMETIM RING AGAIN "::110:120:21:1:868:220::182020:A$" YOU WILL BE MOVED ELSEWHERE ":110:A$" RUBS LEFT "(UR):110 180:P2((1)141):P1((1)7):P3(P2(P114)):P1P12:P2P213:120::1680*PTPTPI:4QR((1)5):QR31040.T(AA$)(TE$)T0730-AA$(AA$,T)6610AAA$:TUB0B%(5)0Zm11:1:958:21:UR100A$" THE NASTY DWARF TOOK THE MAGIC RING "::110:A$" YOU HAVE A STRENGTH LOSS ":110:220:3 URUR1:UR0A$" YOU CAN'T USEJ(T$):FD0KK1:J1&FDIIFO:FO5:57080IO:FO:B%(II)0FD0UDfNA$"":TE$""XTE$"":AA$TE$AA$:VT:1bY0lTE$(AA$,XXY)v(TE$)(AA$)730(TE$,1)" "670YY1620(TE$,XX1)FLĺDWYWY1:WY400A$"TOOK TOO LONG":T$" ":WW1:20:110:WY0::JbI15:B%(I)0480BTBT2:BT:10::(P$,I,1);::" MAGIC ";:B$(I):II0:FO15I1(B$(FO))KI:FD1J1(T$) (T$,J,1)(B$(FO),K,1)$)0ĺBL$;:280G TX$(13)ĢIV:IH(T$):868:TT$T$:T$(T$,4)::P ^280q h:X$;:T$T$X$:(T$)8320z r280 |(KY)128X$"":440 X$((KY)128):KP,0:WY0 X$(13)ı X$(8)ı (X$)27100 X$"A"X$"Z"ĺBL$;:70 9 IV:5:958::"WHAT";::" WILL YOU DO? ";^ L18:(95);::L18:(8);:h T$"" 380::X$"A"X$"Z"360 "X$(8)330 ,T$""ĺBL$;:280 6(T$)1T$"":BS$;:280 @T$(T$,(T$)1):BS$;:280 JX$(13)(T$?o 666';'Mm%6 F6?? $,(--$6.6M!$@+66> s- $$$c 366n 8 $6--d066$$$V$$$366&$(u66?$e<8?6.6h$<866%e<876.#$u?Dd-$ e?--% ??J ?*6( $.(',-2?9?,`-2?$