' +JJJJ ?\>m0M='+l> +l   d@LҦ{|LFBBbL_E` /LX X  ` 鷎귭෍ᷩ췩緈JJJJx 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,&"  !"#$%&'()*+,-./0123456789:;<=>?354+,,,(((((((((((((((((((((((354+-,,,((((((((((((((((((((((80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED f $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`  cpq` [` Y Y LCӜu`y".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ 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 yz a`` L̦̀_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n{ y `@-eff z L }f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\yzL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NСyz `A@` LL`  \ ޿0 \  ȟ Q ^\lZl^?cqH şch`f}h~j@OAP`u@`@g&`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-( ՠ@yy`\ m ͭ \6\ 8 ЊL5`H h L~̮ `{|Jmmjnnnۭ}m~mm`"L 8H (Y`F d̠֠Ơz#??? ӮӮMi;SIiIIiI;.mM)M m;?W)mM -mI;??IiIMM)->?*---MI)-??;??7MIMI?;SI -M)mI???JI-----M??????S---------ߛIiIIIMJMIII M?JIMII MߛI MiI MߛI -MIIMJIiIIM???SI MI MߛIiIMMMJiI m MJiIii M;?;??S MIMMiSIM M<(5MIMI?;JI-M)mI;?;J -----M;?????---------S MII MiIIIIM?IiIIIMSIMiI MSI-MIIMSIiIIMI???JIMI MI;S M MMM۟ MI)MiI۟ MIMMi;?;??JMIMMiJ Mii MߛIIMImm;","ETX"D$;"RUN MENU": SCROLL:4N:oPà BANANA,APPLE,PEAR,ORANGE,CHERRY,PEACH,GRAPE,MANGO,PLUM,QUINCE,POMEGRANET,FRUITFLY,ETX8ǃ "9999","$99,999.99","$**,**9.99","$$,$$9.99","ZZZ9","9BB9BB9.99","---.9","+++.99999","+99.99-","99V999","9999.999CR","9999.99DB","Z9/99/99`x wx wx`ɫɭ ,u``  Fd ; `^x`fx Sxfx axfx`ɫɭ ,|u``  Fd ; `0 Lxɹ ȝެww%00! Lxɹ Bv )Dv8&Cv xɪBvɪɫɭʽ xCvȮBv0 Lqwɹ ȝެCvBv%00! Lwɹ 00 x 0,AvBvʝ`wɮȄ` jj`')I) Qdii L\dLcڪ wnAv0 wBvʽɮCvDvʽ0!Dv,u0 wDv wEv xEv xȄ7EvȹE ɹ u Jv(L.x }iLiLc v0+ɨ!Ȅ0 v0 șLc0͆ Qd g \d vɭʎupfȹɭnuȄ v80 Hɮh,uʩ0%hș0詰0hșii jrr`ȱyisi`0 jt8 ]tu ]tv ]t`Hh*$` Qdi >HH \dȥP tQ th th`HH8*hhʊ0 jt iiHHvHuHH @tL "i ;d,i , rr Fdnrrr rrrɖ ,nrrr,r0,r ksr 8rr`js is.js tHH8isjsisisjs tisqLchhii Ӡȱisɭrr dmnmmn iȹ iȱ` Fd r MjLc8lm0 r,i0` Fd r jmn rmn,i0` Qd "i \d iM!iLc`2HH [ ܿ , ursh_he r Qrm`sma`YLzSxLcSx p q 2dLciipipqȱqȱq eqipp`pp6qȱqȱq iiHiHqȭqȭqhh`¤`nHhhhhhhh 鷩뷭ª ` LҦn)nA ) ȱ8HeHiHȄhinp8nHnh dmnnnʆ` "i ;d Mj`Lc p,ipp 2d Bjnn Fd "i!i?n in8nn  ,n dn䭟n )n`LcLcn jLno MjLc 2d diiopnn(`ȱ,nȱ `oȱȱ0 Ȅi$t~/ @H$ @x! >HH P _ $$ ` $$@Pz`  u, :T*\@x?<@<|8  tHH8x&Hd@\`@;i d(B B|` ?  H,i0` Q`@0Cx@@C xɐ  _g @@g{`pqȱ@yav@n~¤!@@ @@@|@?|>HeH$$$$@$@@ `@@$F@b pnnd@@& C`@`@Ci@GH b@;@~\|? @| x?~p? `@ ?@oo}`_x?~O?w|x?~? @٥st ȑ @gL2 S s ĐL; R ͑LL ץgh` Ƀ ɲ F` : &؄"" &L`H &hVkȱHȱkhk > k > $itjsmg ȱLɏ ȱPȱQ kPȱkQP Q ȱ Hha z  kPȱkQ ȄȹFJJJJ) 0 ߥ,М L` @L` ghPQLߌȱPPȱQQȱp`| @~xqG @0 ;" ";A$(I)::# n"WHICH ? : ";> xX$:X$"0"X$"4"120T X$:X(X$)::| XĺD$;"RUN ";A$(X):D$;"RUN HELLO" ::D$;"BLOAD U.F.O." SCROLL:1:1:"GOODBYE" 16384,128:16368,0 :: CHAR$ I1255:(I)3@00,00,28,00,00,00,44,44;@00,00,29,00,00,00,45,45X@29,00,39,00,00,00,46,47u@40,00,00,38,00,00,28,28@00,39,00,29,00,00,10,10@$00,00,00,27,42,00,41,41@.00,00,00,28,00,41,42,42@8@XP(16384):P@b7000:A$:A$""ī1190!A$"Y"7603A$"N"1180;7015:"DO YOU WANT TO CREATE THE BINARY FILE ?";:A$:A$""ī1230A$"Y"İ70:15:"FIRST I WILL HAVE TO SAVE IT TO A TEXT FILE.":I110003:I:1190A$"N"ī1231,00,00,00,34,34 2?00,29,42,36,00,00,34,34 S?28,38,40,37,00,00,34,34 p?00,00,00,26,00,00,35,35?00,00,26,00,00,00,36,36?00,00,25,00,00,00,37,38?00,00,00,25,00,00,40,40?00,27,00,00,00,00,39,39@00,28,00,00,24,00,43,400,00,24,24(>H18,00,20,00,00,00,25,25E>R00,00,00,19,21,00,26,26b>\00,00,00,00,00,20,27,27>f00,00,13,00,00,23,29,30>p24,00,00,00,22,00,31,31>z25,23,00,00,00,00,32,33>27,26,33,32,24,00,34,34>25,00,30,31,00,00,34,34?34,25,4@ /=ow8Q@@ ``@`` 0"E@"E@ z<x<^0"@ D <A` Hq>15,19,00,00,CHAR$ĺ"CHARACTER #";I:200" j ' "GRAFPAK DEMO","SHAPE MAKER","CHARACTER SET","FUNCTION PLOTTER"D` PRTW`aaaa` 0#Ɉ/ɕ7ɠJɛ?L`;05+%'( ,Q` L,`AI<07,04,02,15,00,00,01,01:<09,03,14,01,00,00,02,03X<02,05,14,04,00,00,04,04 u<01,05,03,00,00,00,05,05<04,00,03,06,00,00,06,06<00,00,05,00,00,00,07,07<08,01,09,11,00,00,08,08<00,07,10,00,00,00,09,09=10,02,14,07,00,00SUBSURFACE AREA.":;:"IN THE ELEVATOR AND SURFACE AREA."b;D"IN THE MOON BASE CONTROL CENTRE.";N"IN THE TRANSPORTER ROOM.";X"IN THE MOON BASE LABORATORY.";b"IN THE HANGER AREA.THE LAUNCH AREA";l"IS JUST SOUTH OF HERE.";v:;:<: :"IN A MOON BASE INFIRMARY."K:"IN THE RECREATION ROOM AND LIBRARY."x:"IN THE MESS HALL.ABANDONED FOOD TRAYS":"ARE STILL ON THE TABLES.":"IN THE STORAGE ROOM AND SUPPLY AREA.":&"IN THE SLEEPING QUARTERS.";0"IN THE ELEVATOR AND CHAMBER."39"INSIDE A VENTILATOR SHED.A LADDER"]9"LEADS DOWN TO A LARGE METAL SHAFT."~9"IN A VENTILLATOR PASSAGE."9"AT A VENTILLATOR OPENING.THROUGH THE"9"OPENING A LIT PASSAGEWAY CAN BE SEEN."9"IN A LIGHTED MOON BASE CORRIDOR."E PEGASUS'S ENTRANCE IS BEFORE YOU."B8|"AT CENTRE OF POTEMKIN."l8"IN THE AIRLOCK CHAMBER OF PEGASUS."8"AT THE AFT CARGO AND FUEL STORAGE ROOM."8"IN THE ENGINE ROOM OF THE PEGASUS."8"IN THE PEGASUS'S CONTROL ROOM." 9"IN AN AIR LOCK IN DEGREES :":10006START:START360START0920`23:A$"END POINT IN DEGREES :":1000FINISH:FINISH360FINISH0940ZSTARTFINISH3H(Z)(CX(Z1803.1415)R)V(Z)(CY(Z1803.1415)R)H(Z),V(Z):Z23:1:OYNY:720R720&\:CXNX:CYNYf21:A$" LOCATE THE RADIUS OF THE CIRCLE USING THE DOT AND PRESS THE <> ."::720pNXCXRNXCX:920zNXCXRCXNX:920NYCYRNYCY:920CYNYRCYNY:21:A$"START POINT"AT THE BASE OF PLATONIUM CRATER.A"C76"SHINY OBJECT IS SEEN W."a7@"BEFORE A METTAL SHED.A"7J"SIGN READS 'VENTILATION OUTPOST # 7G49C'" 7T"E. SIDE OF SEA OF MELINUM."7^"THERE IS TOTAL DARKNESS ."7h"AT CRASH SITE OF PEGASUS."$8r"THASS." 6 "AT CRATER MANICLE.";6 "AT SEA OF VAPOURS."T6"AT MT. EXTRUTION."m6"INSIDE ARISTERON."6"IN CHANGING AREA."6"AT LAKE SOMINGE."6"AT LAKE LAMBADA."6"THE SURFACE IS VERY SOFT HERE."6""AT E. SIDE OF POTEMKIN."$7,F@ @@f,@ $x$4@g$%"# !@ @@X8`?  |`Bjɇ@ @@~"(F 0 bD~xpx @d @@&!@  q`dpmJi0pH0  0"p?|AD Fd "i j@BB(x@(Y@!@`Ɉ5  x0`@x~ ȩ ppLXL2@x@@8~@p @I$@$xp xp(*g ,T BD@A#Bl~~7i @p BBp ɓ @@ `~@@ @@xi@0 Μfg !vII@ !o`@@@,"f0Sgxwg_@@X{go~@` VfLN @ pryp@)((|?0)!@ ` H (`?|gX PJx p`S}m@' @ PdxX5& dqnA @ Pw~@ """( h@0@  @`?"@h&@Hd`0 """""`@h &@ @dXpx*@ ($ @$DGpc# ` @@ ( `p~           0(M$"."):.5M$" "āJ12:S(16336):<5:868:b5A$"":I140:A$A$"-"::5055:h5xn5:t5:z5:5 "AT SEA OF MELINUM."5 "ON RIM OF PARSEC."5 "TOTAL DARKNESS TO E." 5 "TRAC DOWEN & PLINIUM."6 "AT HIXON'S PL'YOUR MISSION:DISABLE A NUCLEAR BOMB, REFUEL SHIP & ESCAPE.ALL BEFORE THE BOMBEXPLODES & YOUR OXYGEN RUNS OUT.COMMANDS:N S E W U D USE DROP.HAVE FUN":50554:5058:255:22: 5Z1(A$)2::CURSR$;::M$(A$,Z,2):M$;:M$" "M$"."āJ12515.3tA$"YOU DON'T HAVE "(B$,(B$)J):5055:83~4930^3A$"YOUR ATTEMPT FAILS !":5055:n3:P4P:6503:23:1:A$:6503CURSR$">=-":2553I1(CURSR$):CURSR$CURSR$(8):3:7:50584A$"WELCOME TO THE HI-RES VERSION,'SURVIVAI102C$"POW"I11*2C$"MIR"I12=2C$"IDE"I13P2C$"PAC"I14V2\2:b2:h2:2:A$"WHAT SHOULD I DO ? ":5055:B$2$C$(B$,3)2.C$"TRY"495028C$"USE"49502BI12L2V4590:I2`I150002jO(I)99ıE"I11>C$"KEY"I1*1HC$"SEA"I2<1RC$"OXY"I3N1\C$"MOD"I3`1fC$"ILL"I4r1pC$"DRO"I51zC$"DEA"I61C$"MEG"I71C$"BOM"I71C$"TRA"I81C$"TIT"I91C$"CRY"I91C$"COM"I102C$"MES"10ĪB$"A COMPUTER MESSAGE"80I11ĪB$"A POWER UNIT"Q0I12ĪB$"A MIRROR"x0I13ĪB$"AN IDENTIFICATION CARD"0I14ĪB$"A POWER PACK"00J1(B$)0(B$,J,1)" "46400J0 I100 C$(B$,J1,3)0*I014C$"ELI2ĪB$"SEALANT"3/NI3ĪB$"AN OXYGEN MODULE"S/XI4ĪB$"AN ILLUMINATOR "r/bI5ĪB$"A DRONE GUARD !"/lI6ĪB$"A DEACTIVATOR"/vI7ĪB$"MEGATON BLAST BOMB !"/I8ĪB$"A TRANSPORTER UNIT !"/I9ĪB$"TITANIUM CRYSTALS"0I4360.V14350N.A$"LOCAL FUEL SOURCE : TITANIUM CRYSTALS.":5055:X.4360.A$"TITANIUM FOUND IN SOFT SURFACES.":5055:.F71A$"PEGASUS'S REPAIRS COMPLETED !":5055:.1040.:.&:.0:.:I1ĪB$"AN ELECTRONIC KEY"/D:5055:-^2990=-hA$"THE PEGASUS HAS NO FUEL !":5055:G-r1040M-|:S-:Y-:i-P353980s-4590-I103960-V04320-A$"BOMB DEACTIVATOR LOCATED SOMEWHERE EAST":5055:-A$"OF MOON BASE, ON MOON'S SURFACE.":5055:.:,P213980%,O(9)9942004,"F714160\,,A$"REPAIRS NOT COMPLETE !":5055:f,61040,@A$"CONGRATULATIONS ! YOU HAVE JUST LAUNCHED":5055:,JA$"AND ARE ON YOUR WAY TO OMITRON..":5055:-TA$"YOUR ESCAPE TIME :"(T1)" MINUTES."0+xA$"THERE IS NOTHING TO DO IT TO !":5055::+1040g+A$"YOU CAN'T DO IT FROM HERE !":5055:q+1040w+:}+:+:+P193980+O(9)993940+O(9)98+A$"REFUELING PROCESS COMPLETE ! YAY !":5055:+1040+:+:,ààààƠĠǠƠº ;"WRITE ";NAME$;".PICDATA"+"LTH=";LTH8I0LTHN"X(";I;")=";X(I)d"Y(";I;")=";Y(I)k&I0D$;"CLOSE ";NAME$;".PICDATA":20:11:A$"QUIT OR CONTINUE ?":1000DANS$:ANS$""570NANS$"C"150XANS$"Q"570b:hlM(14,4)2*F51*760#*:)*:/*:>*F702920G* 760M*:S*:Y*(:l*2O(6)993940*<O(7)993980*FF71*PA$"MEGATON BOMB IS NOW DEACTIVATED.":5055:*Z1040*dA$"YOU HAVE NOTHING TO DO IT WITH !":5055:+n1040 :)R29850 )F91850))F91b)$A$"YOU HAVE JUST BLOWN SEAL IN MOON BASE !":5055:h).:q)8850w)B:})L:)V:)`P222870)jF912870)t730)~:):):)F51760)O(6)14)M(2,8)M(2,7))M(14,8)M(14,7) *ē139,90X(S),Y(S)1:130= dS270ē139,90X(S),Y(S)1:140] n0:139,90X(S),Y(S)1:150} x0:139,90X(S),Y(S)1:150 0:139,90X(S),Y(S)1:150 0:139,90X(S),Y(S)1:150 3:X(S),Y(S):S 60( F311230G( A$"THERE IS A LASER BEAM HERE . VENTILATION":5055:( A$"SHAFT PASSSAGE NOT POSSIBLE WITH BEAM PRESENT !":5055:( 4890( I122952( A$"BEAM IS NOW DEFLECTED !":5055:( F31( I12000:I( 1230( :( :)= B Z ] Aa h , M \ a f k w } U Z ` i iqx"%2DIQZbiy 6 9 < A D K N Q Y \ z  $  5 #(3N$9BORY\dlory&-;T[y&5JQrINTERLEAVED OLINTOO LONdž L A#/14!#%')+-CNXA),6FILOASbnqtyK, I MIGHT HURT MYSELF !":5055:.' 4890=' I42940' A$"THE VENTILATION SHUTE IS NOW ILLUMINATED !":5055:'* F41'/ I12000:I'4 1230'> :'H :'R :'\ O(4)992940'f 1230'p :'z :' :' M(P,I)371230 LOCKED !":5055:& 4890*& I13260Y& A$"YOU ARE IN THE SHED AIR LOCK.":5055:b& F11s& I12000:I}& 1230& A$"YOUR ATTEMPT FAILS.":5055:& 1040& :& :& :& M(P,I)231230& F411230$' A$"I'M AFRAID OF THE DAR, YOUR":5055:@% A$"LIFE-SUPPORT SYSTEM HAS A LEAK.":5055:J% 4890Y%& I22980%0 A$"YOUR LIFE-SUPPORT SYSTEM IS NOW SEALED":5055:%: F21%? I12000:I%D 1230%N :%X :%b :%l M(P,I)221230%v F111230& A$"THE SHED IS "BY A LARGE ASTEROID.":5055:M$ A$" YOU HAVE FAILED TO SURVIVE.":5055:$ A$" DO YOU WISH TO TRY AGAIN ?":5055:D$:D$""2990$ :$ D$"Y"320$ 6200$ :$ :$ :$ M(P,I)131230$ F211230% A$"THERE IS A METEOR SHOWER ON HAS JUST OCCURED.":5055:'#r 2980`#| :I039:"=";:I:"YOU HAVE FALLEN TO YOUR DEATH."j# 2980# :I039:"=";:I:"YOU HAVE BEEN SHOT BY THE LASER."# 2980# :I039:"=";:I:A$"THE MOON BASE HAS JUST BEEN DESTROYED":5055:$ A$@  WER PACK":5055:W"@ I039:A$A$"=":I:5055:A$"YOU HAVE FROZEN TO DEATH.":5055:a"J 2980"T A$""::I039:A$A$"="::5055:A$"OXYGEN REQUIRED HERE,NONE AVAILABLE.":5055:"^ 2980#h A$""::I039:A$A$"="::5055:A$"A NUCLEUR DETONATI! P222870! P382870+! F9128705! 2350;! :A! :G! :S! I114]! 4410p! O(I)992820! A$"YOU HAVE "B$".":5055:! I:! 1040! :!" :!, :!6 A$""::I039:A$A$"=":I:5055:"7 A$"YOU HAVE NO POWER OR PONERATOR UNIT":5055: 1040% :+ :1 :;  4590I  I02620W ( I02240a 2 2220t < O(I)992690~ F CC1 P O(I)P Z I3F00 d I112710 n I142710 x 2350 A$"YOU DON'T HAVE "(B$,(B$)J)" !":5055: 1040 5055:t 1040@~ A$"YOU CAN'T GET THE MESSAGE,IT'S":5055:i A$"ON THE TERMINAL SCREEN.":5055:s 1040 O(14)992520 O(11)99 2320 O(11)992520 O(14)99 2320 A$"YOU CAN'T HAVE MORE THAN ONE":5055: A$"GEI112460 I142490( CC14 O(I)99C$ I3ĪF01Y. A$"O.K.":5055:c8 1040B PA$"THERE IS NO "(B$,(B$)J)" HERE !":5055:L 1040V A$"YOU CAN'T CARRY ANY MORE !":5055:` 1040j A$"YOU CAN'T CARRY A DROID !":IRES A CUTRONIC BEAM AT YOU !"*\5055:6f:2980@4590NI02260\I02240A$"I DON'T RECOGNIZE "(B$,(B$)J)" !":5055:1040A$"WHAT ITEM ?":50551040O(I)P2370C42390I52410I1024300 70515:15:"CONTINUE ?";:A$:A$""ī1270KA$"Y "İ70:480U 70::A$:A$""ī1190!A$"Y"7603A$"N"1180;7015:"DO YOU WANT TO CREATE THE BINARY FILE ?";:A$:A$""ī1230A$"Y"İ70:15:"FIRST I WILL HAVE TO SAVE IT TO A TEXT FILE.":I110003:I:1190A$"N"ī123-151"$I0LTH.ALL$(I)%85B(3)(13)AL"CONT"QVD$;"CLOSE"i`D$;"EXEC COMMANDS"ojtD$;"BSAVE ";NA$;",A";STRT;",L";LTH~7010:13::"...FINISHED..!":7015:"DO YOU WANT TO SAVE YOUR PROGRAMME ?";D$;"CLOSE"70G10:4:"SHALL I CREATE THE BINARY FILE ?";:A$XA$"N"1150iA$"Y"960q7010:11:"...PLEASE WAIT..."D$;"OPEN COMMANDS"D$;"DELETE COMMANDS"D$;"OPEN COMMANDS"D$;"WRITE COMMANDS""CALL1:10:"...END OF CATALOG...":,423:770H>D$;"OPEN ";NA$;".TEXT"eHD$;"DELETE ";NA$;".TEXTRD$;"OPEN ";NA$;".TEXT"\D$;"WRITE ";NA$;".TEXT"fLTHpSTRT$zLINE$I0LTH:24A$ALL$(I):A$""ĂIALL$(I)I 480A$(13)P1ī650.A$(27)ī760_P0ALL$(LTH)ALL$(LTH)A$:P1:HTHT1:650P1ALL$(LTH)ALL$(LTH)A$" ":P0:HTHT2:GPGP1:65070:10"NAME OF FILE TO SAVE :";:NA$ NA$""790830 D$;"CATALOG"*:2_L""k@`( ))) lI vLINE$H$:HT6:9 24:ALL$(LTH)LINE$":X 24:1:ALL$(LTH);:HT:A$s A$"Z"LTHLTH1:480 A$"X"LTHLTH1:480 A$"Q"ī1180 A$(8)HTHT1:HT6HT6:650 A$(21)P0ī480A$(13)P0LTHLTHGP:GP0:- D(I)((H$,I,1))48:D(I)9D(I)D(I)74 IU D(1)D(1)4096:D(2)D(2)256| D(3)D(3)16:TD(1)D(2)D(3)D(4) &HTLTH 0LTH0STRTH :I14 DH1(H16):D(I)H16H1:HH1 NI:H$"" XI411 bH$H$(D(I)487((D(I)95)42O(5)27ĪO(5)411O(5)25ĪO(5)27DO(5)352090T P281010dM(28,1)35n 1010*O(5)3210104P321010>O(5)25HO(13)991010RA$"THE DRONE GUARD FAILS TO RECOGNIZE YOU.":5055::I11000:I:A$"IT FƍưưŠŠŠŠư 0LTH:A$ALL$(I)* LTH20ĭA$""ĂI:O LTH20ĺALL$(I):ILTHĂI::u LTH21āILTH21LTH:A$ALL$(I) LTH21ĭA$""ĂI: LTH21ĺALL$(I):I  :  WORK OUT CURRENT LINE IN HEX *** H$STRT$:LTH1ī650 I14";NA$;".TEXT" LTH! STRT$, LINE$9 I0LTHU "D$;"READ ";NA$;".TEXT"d ,ALL$(I)""l 6A$ @A$(13)ĭLTHIī360 JA$(13)ĂI TALL$(I)ALL$(I)A$ ^310 hD$;"CLOSE" r70:380:470 |:24 LTH0ı LTH20āI/ 10:7:"START ADDRESS ( IN HEX ) :";STRT$A STRT$""130J 470V 70:10r "NAME OF FILE :";:NA$ NA$""İ200 230 :D$;"CATALOG" :21:10:"...END OF CATALOG...": 23:170 D$;"OPEN ";NA$;".TEXT" D$;"READ P1HPHPxPeH(h'٤пLP##P""P!!P P##(""(!!( (##""!!    V  3050%(222)5ī3605(70:(222)S2ALL$(1000):D$(13)(4)j<KEY16384:70:80F::1:7:"MACHINE LANGUAGE ASSEMBLER"::34,2:P10:6:"NEW OR OLD PROGRAMME (N/O) :";:A$ZA$"O"160dA$"N"120n80 x70         150(M$"."):J2M$" "āJ12:S(16336):@:868:O"   "\ I1255n I;" ";(I)x A$:"RUN":1:(A$,39);:A$(A$,2)(A$,1):K(16384):K128āK175:K:K(0):13025150(M$"."):JM$" "āJ12:S(1633768:"BIG DEAL!":1715E $I14:X15:0,IX15:1,20:800:X:I:w .I14:X15:0,200(X5):1,50:800:X:I:IxI122:A:767I,A:5I119:A:799I,A: 160,14,162,00,138,24,233,01,208,252,141,48,192,232,224,140,208,242,136,208,237,96 173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,32,03,96 (A$,4)"CAST"Ĺ783,200:769,1:771,20: } D$(4)g 255:::10:"DO YOU WANT GRAFPAK ? ";A$:A$"Y"ĺD$;"BRUNGRAFPAK 1.0":D$;"RUNMENU"{:D$;"CATALOG"  101590NO(9)10X940"b:(l:.v:@O(4)99950NO(4)100A$"":A$"YOU DROPPED YOUR ILLUMINATOR ! YOU CAN'TRETRIEVE IT !":5055:A$""::950::650O(5)28ĪO(5)35O(5)42ĪO(5)28O(5)41ĪO("!S1(A$):23:1:(A$,39)EA$(A$,2)(A$,1):SP(16336)^I150:I:S:GG250zI1100:PSE1GG:PSE16304,016303,0SS(16336):GGGG10I650PO(8)1590P361780&:0:::DPX(360):Y(360)"3+R25: Z13602B SZaX(139(Z1803.1415)R)Y(90(Z1803.1415)R)(X,Y:X(S)X:Y(S)Y12Z<S13602FS90ē139,90X(S),Y(S)1:110PS180ē139,90X(S),Y(S)1:120 ZS180  1,P2,V,F0,M(14,4),M(14,8),M(14,7),M(2,8),M(2,7),F1,F2,F4,F7,F9ND$;"CLOSE"Y:650_:e:k:{R392900840:::P361800O(8)991800PO(8)A$" TELEPORTING 114bO(I):qcP:C:T1:T2:P1:P2:V:F0:M(14,4):M(14,8):M(14,7):M(2,8):M(2,7):F1:F2:F4:F7:F9dD$;"CLOSE"e:1000hD$B$rB$D$|1070}D$;"OPEN FILES"~D$;"READ FILES"I114O(I):>P,C,T1,T2,P0:16302,0:16300,0:16297,0:P4P6/ANY$::1000l6A$"":A$"I CAN'T PROCESS YOUR REQUEST !":5055:v@1040JA$"ENTER LOCATION >":5055:P:T:^650_D$;"OPEN FILES"`D$;"DELETE FILES":D$;"OPEN FILES":D$;"WRITE FILES"aI0C$"DOW"1640'C$"NOR"1640:C$"SOU"1640MC$"EAS"1640`C$"WES"1640sC$"PIC"1581C$"SAV"1631C$"LOA"1661"A$"COME AGAIN ?!":5055:',:1040-P4Pĺ(4);"BLOAD PIC.";P;" ":P4P$.16304,"DRO"2580nC$"LEA"25801xC$"PUT"2580DC$"INV"2780WC$"QUI"6200jC$"END"6200}C$"TRA"1750C$"DIG"1860C$"DEB"1610C$"FUE"4030C$"REA"4250C$"DEA"3890C$"LAU"4110C$"UP"16420P293470RP#PQ4P35ĪVV1=650mA$"YOU CAN'T GO IN THAT DIRECTION !":5055y:1040 :::(C$(B$,3)2C$"LOO"650<C$"DES"650FC$"GET"2190PC$"TAK"2190ZC$"KEE"2190 dC$(B$)11320 .B$"N"ĪI118B$"S"ĪI2BBB$"E"ĪI3SLB$"W"ĪI4dVB$"U"ĪI5u`B$"D"ĪI6jB$"Q"ĀtI01570~M(P,I)01270M(P,I)992940QM(P,I)P123060P133180P223310P2334I|A$"":#I039:"=";:I):/:5:CP21920OI114`O(I)P990j4410A$"OBJECTS PRESENT:":5055:A$""A$B$:5055:I:2000:::A$"":A$"COMMAND..>":5055B$I0$T20ĪT20 F00800&T208404 F90820C*P212900R4P182900a>P381700pHP383590RF01ĺ"OXYGEN REMAINING :";:A$(T2)" MINUTES":5055:SA$""\"PRESENT LOCATION :"fIM(P,7)M(P,8)pA$T$(I):5055:z8O(14)99ĺ"POWER PACK :";:A$(P2)" UNITS":5055:BA$""OT1T15jO(11)99P15P1P15O(14)99P25P2P25O(11)99P103680O(14)99P203680T14002960T13503840T12003740F01T2T25 U R70 I0279%XID(Y(100(I1803.1415)R)M2X,YT<IR 2,8)M(2,7)1:F10!DF20+NF405XF70?bF90El:Kv:Q:h255:D$(13)(4):I039:"=";:I"ELAPSED TIME :";:A$(T1)" MINUTES":5055:A$""O(11)99ĺ"POWER UNIT :";:A$(P1)" UNITS":5055:A$""0 70515:15:"CONTINUE ?";:A$:A$""ī1270KA$"Y "İ70:480U 70:_w{^w}?w{{{w/kW{o__ow{__?^{n{n{w}o^w{>?_~`xss{>ow?o{^_ww_{}{wwo}o}_7}?~o?~~}?o{^>ow{wisW__ow}^o~{]w=^}ow}^_o__~ zkww}>w}w}{}}{wo{~}wn]{n}~?_~{_?>_=_{>ow}}}w_z?m/~wo_??_{?}{~o;o?o=o9o{>>xy\w=o=w?w_}w_~~??woo?{o_}w_}_?__o^?o}}w{_v/UZjo~koo__o~o=o{o;~{=o{<?|xsyo{^w^w}}}w_}w{www~{]vvv~7w~??_>_w{~~}{w?7_mo~m?o~~~~_w~?{o?}w}w=w=w9NGcs=o{^{~w^{^{;~{>owo_{zu~mw__w{w}>o{~}ww}?_5[u}}{o??__{~_??o?ww}w~{n;o;o=w]s\w^{n{n;=?ww~o}?ww{o?~o~?[[~u?}oo_?w}L` Hَْh, Ζ0 L   ΜΖ0 :H```  >~{{n_;;w?wo}?o?oo{=o{?_gwg~tOogs}^w{_?w=w~ow_oo/_~k?JjO~uwww~^oww{~~~}{~o_mmw_}o}~_}o?==o{^{=_ogxxgowy^w=o;_{^{^}~o}~_oo__{U+{?}uow{{~_o{>̭ƺдñòĠƠĴijԍ 6O0O1::BBBCH(X,O7Y)::X:GC(CNE2)O8Y,BAYR:105:205`Pà ".","O"i`ꯥ:|D$;"RUN MENU"D"H)&JJ&&h' &' &' f&')'`W _ww}?_owo/}_jWz?}{wwo{}>{wwn_w}o{=_Ogg?pxgoow}_o}w}}}w~o}oo}n]]{w_o?}}}>__?o^{{__oOy/~{kww}w{_{?ow}{_>owko?}yg_oow{^{^w=~~~?~_{o=_{ow{o?}{}w_wooo}_?k~5}k}{woo{{?w?{~=o=w=w]w=w9^gs=o=o=o==w_~w{{~w}}}}}w?}_}_m6[m?{}oo~~o{>o{}?oowo~_~z?{wow{{}_{o?w=o=o{^w=_GO~Ggsy^w>w=?o??}}~~w_v7w~o_?}}?_oSCN193NYOYINCRM.4SCN218NYOYINCRM=>SCN160ıM?NX1NX1a@NX279NX279qANY1NY1BNY151NY151C20:" X=";NX;" Y=";NY;" LENGTH (LTH)=";LTHD22:1:(A$,39);:A$(A$,2)(A$,1) H0:OX,OY:3:NX,NY:OXNXHE DOT AND PRESS THE <> ."::850HSCN(16384):16368,0]SCN177INCRM1rSCN178INCRM5SCN179INCRM10SCN180INCRM15SCN181INCRM20 SCN182INCRM50SCN136NXOXINCRM SCN149NXOXINCRM*ND' STATEMENT IS BECAUSE 'APPLE DOS' DOES NOT EXECUTE A TEXT FILE UNTIL IT COMES ACROSS AN END STATEMENT IN A PROGRAMME.":1000A$"LTH IS THE LENGTH OF THE FILE.":1000:,21:A$" LOCATE THE CENTRE OF THE CIRCLE USING T -- FOR I=0 TO LTH STEP2":1000:A$"-- HPLOT X(I),Y(I) TO X(I+1),Y(I+1) -- NEXT I ":1000:A$"THE -- IS WHERE YOUR LINE NUMBERS SHOULD BE ":1000:A$"THE REASON FOR THE 'E{{w_?{{67[]}_w{oo_{~{{o?{o?o?o=w=o{~xyg{n{_{n?o;o?_w~ww{{{w?kojZZZ_{__?o{=_w{ow{{??o[[[~w__{{}}]^^n;o;o=wx^s^{n;o;o?w}]_{{}?ww{}w_{m7?oo~~?_}~ <"< """<<<"""< >"0 <"<""""   ""**6"""""""" <"<& <<""""""""6*"""" <$$>>    ~ ?"<*:""">""""""""""""">>><"2<""">"""" "  ">"""**6"""2*&""""""""",*"""" """ ">""""""""""""6**"""""""""> >>> >00000>**`>>( <02&,*  **>> "&*2" > ""  >>" >""8 >"""" <""  >>w{}}{o?}?}wnn]?{??oo_?~_{{{^w^w}>_Oats{}~={~]nw_>_o{{w?}/i_r{___o{{o{=o{}o}}w_?o}];_{o}ooo__?o{?{oo{;o~wy@xqy>o{^}o;_w_{oow{{ww_~//w_?___o{~o{{^o{^}~>_?}g?)}k~{{{}ww?]=w=w{~>w}^owyyGos>{^w=?o?}?o_??~o~~wn?{~}{ww{o{>o{o}~^~yO~t?~}{}^o>~=n{~?w~w}o{{}yK#D~'?>?_ow?oo_w_o_?~}_~n?{~{w$"Q"570b:~lA$"NOW ALL YOU NEED TO DO IN ORDER TO USE YOUR PICTURE IN YOUR OWN PROGRAMMES IS TO TYPE ..":1000:qA$"-- PRINT CHR$(13)+ CHR$(4);"(34)"EXEC <>"(34):1000:8vA$"-- END =_??wv[V/[?{ww?w}n;o?w]w]w]w=osg9o;o;=w}w}w__o_}~{_{?{v_o~~}{}^ow}}???__?}k+Uk~{{_{?}=w}w=w}o=o{gss|@_g{^w}o=}ow?{}??~~w?{n7?w~}{}~ӍҍԍӍԮ֮ϠҍҍԍǍԍč?_ooo{?_}_{~_}ooo{__~{o?;=o;o{^wy|@?<^w=o}n{{n{?o}^~oo~}~}k~ozzuo?}}}}o>^_o__}~--?o}w{{{{~_ooww_w_{n{n;o=gy?o{n{n{o=o}]ww~_?w~~>~{?[_6mk{~~}}?o{_o-151"$I0LTH.ALL$(I)%85B(3)(13)AL"CONT"QVD$;"CLOSE"i`D$;"EXEC COMMANDS"ojtD$;"BSAVE ";NA$;",A";STRT;",L";LTH~7010:13::"...FINISHED..!":7015:"DO YOU WANT TO SAVE YOUR PROGRAMME ?";D$;"CLOSE"70G10:4:"SHALL I CREATE THE BINARY FILE ?";:A$XA$"N"1150iA$"Y"960q7010:11:"...PLEASE WAIT..."D$;"OPEN COMMANDS"D$;"DELETE COMMANDS"D$;"OPEN COMMANDS"D$;"WRITE COMMANDS""CALL1:10:"...END OF CATALOG...":,423:770H>D$;"OPEN ";NA$;".TEXT"eHD$;"DELETE ";NA$;".TEXTRD$;"OPEN ";NA$;".TEXT"\D$;"WRITE ";NA$;".TEXT"fLTHpSTRT$zLINE$I0LTH:24A$ALL$(I):A$""ĂIALL$(I)I 480A$(13)P1ī650.A$(27)ī760_P0ALL$(LTH)ALL$(LTH)A$:P1:HTHT1:650P1ALL$(LTH)ALL$(LTH)A$" ":P0:HTHT2:GPGP1:65070:10"NAME OF FILE TO SAVE :";:NA$ NA$""790830 D$;"CATALOG"*:2 <2<0<222<<<&&&< >&00<2<+###>20   +#+*6+##"22" "h`|"< ">0< <22""22"#7+""""<0<$$><>    ~ ?02><*:"+##?""##""<<###"">>>><&6<+##?""" >200 +##?+###"*6+#3+&""2222" "",+#""K#"">& >2> >>222"""22""">**"bbb*""" "">> >>> >00000>**`>>( <02&,*    **> >> "&*2" >> >"  >>>00>>>22>```` >~bb>"">```>"">   >>8̭ƠƠƠƠƠƠƠԍԍƠƠàƠƠĠĠԍ  I1 D$;"OPEN ";N$. D$;"READ ";N$= ITEMS$(I)p ITEMS$(I)"END"ĺD$;"CLOSE";N$:AMOUNTI::70z II1 2050YTHING O.K. ";A$ xA$"N"200 }A$"Y"1106 O "NAME OF FILE :";N$b D$;"OPEN ";N$v D$;"WRITE ";N$ I1AMOUNT ITEMS$(I) I "END" D$;"CLOSE ";N$   READ OLD FILE  "NAME OF FILE :";N$ITEMS$(50)# D$(13)(4))S:"NEW OR OLD FILE-";A$:A$"O"2000cA$"N"20i"HOW MANY ITEMS ?";AMOUNT(I1AMOUNT2ITEMS$(I)<IFP"LIST OF ITEMS ..."ZI1AMOUNTdITEMS$(I)iI n:"EVER  ))) lI vLINE$H$:HT6:9 24:ALL$(LTH)LINE$":X 24:1:ALL$(LTH);:HT:A$s A$"Z"LTHLTH1:480 A$"X"LTHLTH1:480 A$"Q"ī1180 A$(8)HTHT1:HT6HT6:650 A$(21)P0ī480A$(13)P0LTHLTHGP:GP0:- D(I)((H$,I,1))48:D(I)9D(I)D(I)74 IU D(1)D(1)4096:D(2)D(2)256| D(3)D(3)16:TD(1)D(2)D(3)D(4) &HTLTH 0LTH0STRTH :I14 DH1(H16):D(I)H16H1:HH1 NI:H$"" XI411 bH$H$(D(I)487((D(I)90LTH:A$ALL$(I)* LTH20ĭA$""ĂI:O LTH20ĺALL$(I):ILTHĂI::u LTH21āILTH21LTH:A$ALL$(I) LTH21ĭA$""ĂI: LTH21ĺALL$(I):I  :  WORK OUT CURRENT LINE IN HEX *** H$STRT$:LTH1ī650 I14 :16302,0,nC1%,C2%:C1%0Į:110;xI01902OC1%:0,I279,IiC2%:0,I1279,I1:r1101,2,2,1,1,5,5,1,1,6,6,1,2,5,5,2,2,6,6,2,5,6,6,5,0,0";NA$;".TEXT" LTH! STRT$, LINE$9 I0LTHU "D$;"READ ";NA$;".TEXT"d ,ALL$(I)""l 6A$ @A$(13)ĭLTHIī360 JA$(13)ĂI TALL$(I)ALL$(I)A$ ^310 hD$;"CLOSE" r70:380:470 |:24 LTH0ı LTH20āI/ 10:7:"START ADDRESS ( IN HEX ) :";STRT$A STRT$""130J 470V 70:10r "NAME OF FILE :";:NA$ NA$""İ200 230 :D$;"CATALOG" :21:10:"...END OF CATALOG...": 23:170 D$;"OPEN ";NA$;".TEXT" D$;"READ V  3050%(222)5ī3605(70:(222)S2ALL$(1000):D$(13)(4)j<KEY16384:70:80F::1:7:"MACHINE LANGUAGE ASSEMBLER"::34,2:P10:6:"NEW OR OLD PROGRAMME (N/O) :";:A$ZA$"O"160dA$"N"120n80 x70 gW'  `^ :F Y %^LǏLZ^[_\Z][` 1 8tp`8M`y LHy0y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[/3k{'7w+Ss?AVENTION 80 L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT SP(PAGE ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- $% 0nmooة$eeVLԒؠ 58nnooؠ o 0n)JJJJ 0șn) 0șVJJJJ 0``i% $ BU ڑV V Hi&eh L`$V  ɍ ` X0 ` APPLE-)N*m+Jn)m)eeU`8VUU ڑ` :` ^6789 Q@ q . @^`6798 Q`H h``noVVi@iA)moo g p g) pmn/5 qs r ; qa ` `$$(ɠ$C q$W ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\@  UmU+&*Y Y P ,X B АX I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4      z# ΠԺŠԺЮԠԺ̠ԮԠԺŠ ҠԠҠ Ԡ! Ġ ǠԠ Π Ȯ Ӡ ҠԠЮàǠ ԺРӠ Š̠Š٭͠ ήԮˠ̮ՠήԠϷǴGՠ ΠנҠӠ ҠҠծƮϮ" ڠ РĠ РԠ  ӠԮԠ Ӳ ήԠ Š נ  à!Š ǠנҠ Ǡ ΠšӮԠ  ŠԠǮԠ Ժɠձղ ã" Ӡ   ԭĠ"  ŠŠ ǮԠ٠Π Š  " РˠˠϠԠ ɭӠŠӠ" ӠȠ Ӡ ŠŠҠ ؠ!ǭǠΠҠ Ԡ"Ơנ ׷Ю"ŠΠ"ӠҠԠ ~ow~?x` 8 ,2,169,1,168,32,1,227,76,91,218,1013,76,:1014,0:1015,3> I1:CA1COL1:X,Y:CBX1,Y:CB1Ā@ KC1ēX,Y:YY1:C1:20Z PCOL1YY1:X,Y:20m ZX,Y:XX1:60s :y : I768806:J:I,J:I8 32,227,223,133,133,132,134,169,208,32,192,222,165,18,72,165,17,72,32,185,246,32,17,244,165,48,49,38,240? 500C0:CC0:CCC0O :3:10,1030,1030,3010,3010,10:X11:Y11\CX1,YC1įCAX,Y1:CA1COL1:X,Y:CBX1,Y:CB1Ā#C1ēX,Y:YY1:C1:60(COL1YY1:X,Y:602X,Y:XX1:20<CX1,Y:COL0$ FC1įCAX,Y:49234,0:SF32882AR1.45:XA139:YA9693JI0140.03ZXARI(I)gYI(I)q300XAX,YAY310XAX,YAY216,0(4);"BSAVE PSYCHEPIC,A$2000,L$1FF8""::,SF:2406SF:260dS::0,0100,10) 251,147:207,14X(1)\(37636)(37637)256XČ38312:15(37636)(37637)256XČ38356:15 X W :> "INVERSE OR FLASH, (F),(I)";:Z$:Z$"F"Ğ:20DUA$:A$;:20Z  k16384::. D$(4):D$;"NOMON C,I,O";::E:PA$(5)Z(:r215);"GRAFPAK 1.0"<:8)"BY CYBERNETICS RESEARCH":::F::"SELECT BY NUMBER :"PA$(0)"<<EXIT>>":ZI14:A$(I): d::I04:I R720\:CXNX:CYNY}f21:A$" LOCATE THE RADIUS OF THE CIRCLE USING THE DOT AND PRESS THE <> ."::720pNXCXRNXCX:920zNXCXRCXNX:920NYCYRNYCY:920CYNYRCYNY:21:A$"START POINT IN DEGREES :"YINCRM 4SCN218NYOYINCRM/>SCN160ı??NX1NX1S@NX279NX279cANY1NY1wBNY151NY151C20:" X=";NX;" Y=";NY;" LENGTH (LTH)=";LTHD22:1:(A$,39);:A$(A$,2)(A$,1)H0:OX,OY:3:NX,NY:OXNX:OYNY:720?|`go}__o?g hh"""<<<"""< >"0 <"<""""   ""**6"""""""" <"<& <<""""""""6*"""" <$$>>    ~ ?"<*:""">""""""""""""">>><"2<""">"""" "  ">"""**6"""2*&""""""""",*"""" """ ">""""""""""""6**"""""""""> >>> >00000>**SS THE <> ."::850:SCN(16384):16368,0OSCN177INCRM1dSCN178INCRM5zSCN179INCRM10SCN180INCRM15SCN181INCRM20 SCN182INCRM50SCN136NXOXINCRM SCN149NXOXINCRM*SCN193NYOIS BECAUSE 'APPLE DOS' DOES NOT EXECUTE A TEXT FILE UNTIL IT COMES ACROSS AN END STATEMENT IN A PROGRAMME.":1000{A$"LTH IS THE LENGTH OF THE FILE.":1000:21:A$" LOCATE THE CENTRE OF THE CIRCLE USING THE DOT AND PRE -- FOR I=0 TO LTH STEP2":1000:A$"-- HPLOT X(I),Y(I) TO X(I+1),Y(I+1) -- NEXT I ":1000:A$"THE -- IS WHERE YOUR LINE NUMBERS SHOULD BE ":1000:uA$"THE REASON FOR THE 'END' STATEMENT O!/L7%7.$7.%<6<6-$>( <02&,*  **> "&*2" > ""  >>" >""8 >"""" <""  >> 201,141,240,21, 234,234,234,234` 201,192,144,13,201,224,176,9,72,132,53,56,233j( 1922 76,249,253,76,240,253<I768795FN:I,N:P54,0:55,3Z1002:  @7<<<<<>>>>>><ƠΠ٨ةШةϠƠΠ٨ة؍Ϡ <"< """<<<"""< >"0 <"<""""   ""**6"""""""" <"<& <<""""""""6*"""" <$$>>    ~ ?"<*:"@`px|~? ><"2<""">"""" "  ">"""**6"""2*&""""""""",*"""" """ ">""""""""""""6**"""""""""> >>> >00000>**`>>( <02&,*  **>> "&*2" > ""  >>" >""8 >"""" <""  >>ààƠƠƠƠƠ J$M$" "āJ12:S(16336):2:868:A"   "N I1255` I;" ";(I)j A$:9,8462,8,8473,8,8498,1,8546,120,8547,120,8548,121,8549,9,8602,64,8603,1,8626,2,8715,64,8716,1,8754,8,8773,8,8843,4,8860,48,8901,1,8989,6,9028,12    !!!!!          .K. ?":1000C$:C$""991/C$"N"150@C$"Y"991VISTARTFINISH3rX(LTH)H(I):Y(LTH)V(I)LTHLTH1:24:9:"LENGTH=";LTH;:ILTHLTH3:150I1(A$)2::CUR$;::M$(A$,I,2):M$;:M$" "M$"."āJ125150(M$".")::1000(START:START360START0920R23:A$"END POINT IN DEGREES :":1000wFINISH:FINISH360FINISH0940ZSTARTFINISH3H(Z)(CX(Z1803.1415)R)V(Z)(CY(Z1803.1415)R)H(Z),V(Z):Z 23:13:A$"CIRCLE O?__o}_}ommm?w{o}}}{}w?}www=o=o{gsycGOg{^w{o_{~{^_w~o>?~~zo~*+U~m?{}ww~_?o>?_?w?}7~{_~~}_oo?}w?]]w^w=gs@Oo{^s^w^^{~o{w_{?__?~}o_~Vk?}www}^o{?_w@ _o_?{o?_own;wn}wo{~}{ww{w}w}_ow}}zkzy/?>?ow}~w?o_w=w{o>ow}>??}y }}{}~_o?o{^woo_~o_w_}?w~w~}}{w{?}=?o{^}^o{yyc~?__o{=o~w}{n{n{?o_??{}~??~{?}z_~}{{{}_w=o{=_O1:XO0XO6:YYO1:YO0YO7[(KCRA)OXX:OYY:XXO1:XO6XO0:YYO1:YO7YO0(KCLA)(KCRA)Ğ:YOOY:XOOX:C$(CH(OX,OY)): N800(KCCR)į:205(KCCP)(KCCO)CH(X,Y)(KCCO): N800YO7O0O1:B0:XO0O7:I0%:XO0O6:C$(CH(X,Y));/:X:8Y:OXOI0:YO7:X0:Y0b :FFFF:FFĞ*YOY:XOX:C$(CH(X,Y))4KC(KB)I28:KCO0į N800>KS,O0:KCLAKCRAKCCPKCCOKCCRKCCIį N800 (KCLA)OXX:OYY:XXFF":0"R : DON'T INSERT CHANGES, RETURN"W"I : INSERT CHANGES IN CHARSET"^3o48:11,14116:16,133::XO91:YO16:3:14:(CN):1:14:CNXO0O6:YO0O7:XXO,YYO),CH:CH(X,Y)CH::7: YO105:205 T740'  *** CHANGE ***S ::PAGE::"CHARACTER NO ";CN:o "CHARACTER IS ";::| X17:1 b" : MOVE RIGHT TO NEXT POINT" l" : MOVE LEFT TO NEXT POINT": v"O : SET POINT ON"". : SET POINT O250 O0:O1XX,YY6 ,(KCLA)CNCNO1: 205W 6(KCRA)CNCNO1: 205r @(KCCQ)į:::63000 J(KCCS)į::"NAME OF CHARACTER SET ?";NAME$:::"NOW SAVING THE CHARACTER SET"::D$;"BSAVE CHARSET:";NAME$;" ,A$6000,L$300"::16:16,149 CN323 0:3: LOOP ENTRY POINTE CN128CN32W CN31CN127z NCN32:Y(N16.05):XNY16 XXX1410:YY(YY4)81 O1XX,YY:KC(KB)I28:KCO0į 250 KS,O0 KCLAKCRAKCCCKCCSKCCQį 11216 x:J015& ::" ";(IJ);2 :J::; I:D 18g " : MOVE LEFT ONE CHARACTER" " : MOVE RIGHT ONE CHARACTER" "C : CHANGE CURRENT CHARACTER" "S : SAVE CHARACTER SET" "Q : QUIT THIS PROGRAM" 48:11,141 :::"DO YOU WISH TO LOAD A CHARACTER SET ";LO$ $LO$"Y"ĺ"NAME OF CHARACTER SET >";:NAME$:(13)(4);"BLOAD CHARSET:";NAME$ (500 260000 <: d"EXAMINE/MODIFY GRAFPAK 1.0 CHARACTER SET":105:160 i4:1: nI32} 8192:D$(4):CH(6,7)'C$(1)8C$(0),C$(1)] KB16384:KS16368:O11:I28128 LA8:RA21:CC67:O00:O77:O88O66:I010:CS83:CQ81:CP46:CO79CR82:CI73:E232:GC24576::D$;"NOMON C,I,O":SMALLARROW:3:15 #      >_ww_?~o}_}m?}oow?w__^_w]o=osy<|p?><_w=o{^w~_w]~{?w{{}~}{_k/o~}~~_w{^o{~oo~~w[6[m67w_}wwwww}o{{}o?]w_w^w^w^wy|>Os]w=w]w]w^wo{?}_{{~~}{wzWuoZ?w~~~}?}w{w_~{}~;_w~{?o_ooo_w=o{?o{}~>|sW~z}~_o?{w}^;{}w}}z{O~s?~>?{;o^?_owww_~?};7wnw~~w~o}www}w>w}~~|A|<>_w{~w=n}}{_ow{~}}{W+}*w_~~}>_w}=_o{>o{{}~uW[z?u{??~>ow~ow?o;o;_{^w=os}~||>_w;o{^w_w_~w_?ow~w?}vv?~o{wooo{}}~?oo}}}u/~*Jz/_~~>}~o}_w]?{=owy|>~e|}<_{^w{~^~_w~}_]{_;n{{o_ow}_?~~Wu/{?[o~o_~{}}_w~o}]_w_{n{n;o=g9w]w^{^{n{o}w}]^_o{??__~{ww5[5_w}}wo{^ow}{}??}vouk{?~}~_o{o_{;o;o}o;o{^wyx?"0 <"<""""   ""**6"""""""" <"<& <<""""""""6*"""" <$$>>    ~ ?"<*:"?*><"2<""">"""" "  ">"""**6"""2*&""""""""",*"""" """ ">""""""""""""6**"""""""""> >>> >00000>**`>>( <02&,*  **>> "&*2" > ""  >>" >""8 >"""" <""  >>@ * :PRINT" CTRL D BRUN U.F.O.">"BRUN U.F.O."$ƍƺдñòĠƠĴij  ? ";A 50N COL170(A154:2,<228,COL8FI120CPJ13_Z40J,20I40J20,20IhdJ,Isn228,AxI120J1340J20,20I40J40,20IJ,I22:COL127Ą"NEW CHOICE (0...27) ?";A:50 "NEW CHOICE (128 TO 255) >{^wwoo{zV-?{_{o_ooo}_?o}=ww^w~{n{n{^s\w^{n{n;=}}~~?o{{{{}w~__v_vow??~??oo~wwww_~ukk~ozwowo~~o?ow^{n{{nw^w=OG8`gs=o{^{^w_{_~{o??{~~~w?o;7_{~~>_ow{wo}__}n{_}oo__w{}~w_w~w=o{<?`|yyo{^w~w]w}w]ww_{?{{oz?u_zzW??___ww}>ow{woo~?m[{?{ow?~??}w}w]w_{^{^sy^w=w=w=w]^{nw}_}}{_?{_~?-{m}__?_w}{o{_no?wo_?~=~^}>__O_|!Dx?zsw{{~w}o]o{n_wo_o>ow{wOe/~so?oow~{^o{~{}}{wo[n}oo~o__?~_w_^_w=o{_oy|?|ss}>ow]oo{]w]w?w_}}w{{{ozUR|w_?_oow?o{>o{7 H$(8)(8)23:40.P$:P$;H$;6(30H"RUN MENU1"# n"WHICH ? : ";> xX$:X$"0"X$"4"120T X$:X(X$)::| XĺD$;"RUN ";A$(X):D$;"RUN HELLO" ::D$;"BLOAD U.F.O." SCROLL:1:1:"GOODBYE" 16384,128:16368,0 :: CHAR$ I1255:(I) &::2:11:"...GRAFPAK DISK..."^::::1:"PLEASE WAIT WHILE GRAFPAK 1.0 LOADS !"d (4);"BRUN GRAFPAK 1.0":10:"GRAFPAK 1.0 LOADED."::6:1:"PLEASE WAIT WHILE GRAFPAK 1.0 LOADS !":10:13:"RUNING MENU II": (4);  :`eϑȱi`8ϑȱ`8ϑȱϑȱ`eϑȱieϑȱi`T@ 4 ϔ | ֔U 4 ϔ | ֔`T@  ϔ Q ֔U T@ ϔ ֔U ϔ ֔`T@ ϔ ֔U ϔ ֔`ȱ ȱȦe ȱe8 ȥ`e`8`Lڔ W    {~o{>??_?}_~_~/}}{{}~~{?=_{~w?o{^osqc?|os}o^{{~~{_{~_??~~~w~;_{?ww~_?}ww>w{^w{~{{>??{)R~W}{{>_o?}n?wo{_wow{ye|p?>_ow=o=o{{{?o_?~~__[?wnn}w_w_~{ww{}ow?_oo~~__}v{?}w{}}_w{;?ww]^{^{n;o9ow]w^{^{n?o?o?www{{??}o?{?{?{~__{{}~{=_w{^??{??++kj~z_}{{{}}o=^{^n;{n{gscg{^w]w^^~{_~{{o{?~~{}?77[]m{{_?}{{@Q LLPPQ ,ȱPȱQPQPťQ妰ĠΥghkFJ z  kPȱkQPٹQ,кɠ# LL @ d'smtnMLgms 8minj8s쥧 ũ媰 Ld ץPQ VȥћȥJ &MLkȑkȥkȥk LLeeimjn`ikũ媰OghLJȱPȱQPQlPũQ媰 PťQ妰 L, H h`sog^⥙ LĽљ,љ#ȱ @ȱȱȱȱ @ @ůДL2st ^ikm`Fװ  Q `Lg LL  gh^_sŖt嗐ML stLL  LL ^_ML ghLHљ(2Qљ($P$ 0  L + ȱ @ȱ @$ ghנC6 zȐ   & "MLPkȥQk,ȰТ @ghȱTȱPȱQȱ3ɲȱ @ :  ȩ @ @ ikm  L 8寅P尅Q [ة67 `ɍ ɀɠ)?LJJ Lb89 ` GɠC ʆFJJJJ)   ވۥꩠ$`ɘN`ɍ)N$mm  [`L GTHAUKEYSEA<70,%  S ؈7W ؈evOhh HH  ,پ #!Ȱ,إƹƸ:` HH f0PQ ђ/ PQ , IJJJJ`hhL LgPhQ [ Q `ZLL : W`L/L `ԠҧӠԠΠéԠŠҠîĸLLLLKLlL\L L LLKLlL_RENUMBERHOLDMERGELECOMPRESSSHOWNOSHOWAUTMANUALXREF      ƠΠ٨ةتتت٪٪ٍ ϔ Q ֔`  TION (1 TO 255) ";D:768,F:769,D:770::"ANOTHER TONE (Y/N)?":X$:X$"Y"2AN"BRUCE JOHNSON-- REARDAN, WAA,B:A,B: 770,173,771,48,772,192,773,136,774,208,775,5,776,206,777,1,778,3,779,240,780,9,781,202,782,208,783,245,784,174,785,0,786,3,787,76,788,2,789,3,790,96:NN1:N211M 81:"FREQUENCY (1 TO 255) ";F:"DURA ~ @@pC~~`@@0"<*:"""""""""""">>><"2<""">"""" "  ">"""**6"""2*&""""""""",*"""" """ ">""""""""""""6**"""""""""> >>> >00000>**`>>( <02&,*  **>> "&*2" > ""  >>" >""8 >"""" <""  >>3:A$"CIRCLE O.K. ?":1000-C$:C$""991=C$"N"150NC$"Y"991dISTARTFINISH3X(LTH)H(I):Y(LTH)V(I)LTHLTH1:24:9:"LENGTH=";LTH;:ILTHLTH3:150I1(A$)2::CUR$;::M$(A$,I,2):M$;:M$" "M$"."āJ125 N:::D$;"RUN MENU":1390086:24:10000J:XS279(XI1)l:YS1:(YZYA)YS175(YZYA):XN(XZXA)(XI1)>XC(XSXA(XI1)(XZXA).5)>XC0XC27916500>XC,8XC,183t@YC(183176YA(YZYA).5)~@YC8YC1831NXS,183YS(YAYV) B17100,PFMODE3RZFA$"ANOTHER RANGE ? (Y/N) : "hdF24:A$;:X$:X$xnF24:A$;X$xFX$"Y"įMODE1:11000BJA$"ANOTHER FUNCTION ? (Y/N) : "LJ24:A$;:X$:X$VJ24:A$;X$`JMODE1jJX$"Y"2500(XZXA).5)">XC0XC279165003>XC,8XC,183St@YC(183176YA(YZYA).5)j~@YC8YC18317000{@0,YC279,YChBN1rBNN1:NXI18000|BYVY(N):YVDC17010BNXS,183YS(YAYV)BNN1:NXI18000BYVY(N):YVDC17010B0:YZ0:Y1&2XVXA:XN(XZXA)(XI1)22N0XI>212345]2XXV:YVY(XV):216,0:YYVg2900x2YAYVYAYV2YZYVYZYV2Y(N)YV:XVXVXN:N6:24:10000:XS279(XI1):YS1:(YZYA)YS175(YZYA) >XC(XSXA(XI1)TXA:XAXZ:XZT!+XAXZ11000U+"NO OF INCREMENTS (XINC) = ";XI:XI(XI)1z+XI1ĺ"** BAD XINC **":11030+:::::"*** PLEASE WAIT ***": +1300090p0YVDC: DISCONTINUITYr0216,0t0900z013040 2Y:Y(XI):YA000 DEF FN Y(X) = ";F$( :"GOTO 9000"8 D$;"CLOSE"C 216,0a @D$;"EXEC FUNCTION.TXT":o (#100:500 ' << FUNCTION EXEC'ED HERE >> '900 *:10000:: +"MINIMUM X (XMIN) = ";XA: +"MAXIMUM X (XMAX) = ";XZ:+XAXZ FUNCTIONS,"A |:"AND USING APPLESOFT FUNCTION NOTATION."\ 16:"F (X) = ";F$n (F$)02500y X7010 ]D$;"DELETE FUNCTION.TXT" _7015 b g216,0 i900 lD$;"OPEN FUNCTION.TXT" vD$;"WRITE FUNCTION.TXT" :"101 :"THEN ENTER XMIN, XMAX AND XINC."X 24:10);"<< PRESS ANY KEY >>"j KB,I28:KS,0 << LOOP LABEL >> p z"TYPE IN A FUNCTION CONSISTING ONLY OF"::"THE SYMBOLS X, Y, PI AND E,"::"NUMERIC LITERALS, APPLESOFT ( X )"! j:"FOR EXAMPLE :"z t:"YOU MIGHT HAVE A FUNCTION SUCH AS :"::"Y = 25 X SIN ( X X X + X + 1 )" ~::"FIRSTLY, YOU WOULD TYPE IN THE FUNCTION"::"IN APPLESOFT FUNCTION NOTATION AS :"::8);"25 * SIN ( X * X + X + 1 )":) 9);"CYBERNETICS RESEARCH'S"X :::::::12);"FUNCTION PLOTTER" 22:10);"<< PRESS ANY KEY >>" $KB,I28:KS,0 L:PAGE V"THIS FUNCTION PLOTTER WILL DISPLAY"::"FUNCTIONS OF THE FORM :" `:8);"Y = F 16384:10002dD$(4):KB16384:KS16368AnI28128:3gxDC999999999: DISCONTINUITY FLAGPI3.14159265:E2.71828183:Y1: CONSTANTS SET UPXM(N)(((XN(XN))N.05))z: FUNCTIONS SET UP:900100      E:::FO1!CURSR$">=-"*2550XU1(CURSR$):CURSR$CURSR$(8):i33,40:34,0{D$(13)(4) ::T$(47)M(42,8)O(14)(:2:<:F:P Z:15:8:A$"DO YOU WANT INSTRUCTIONS ?":5055:15:34:D$   !                         32,133,172,169,64,133,174,177,171,73,127,145,173,200,208,247,230,122,230,174,165,174,201,96,208,237,96AHOLD" "&MERGE"" "&LENGTH"3 "&COMPRESS"@ "&SHOW"O "&NOSHOW"j "&AUTO ,"y "&MANUAL" ""&XREF" ,"&KEYS" 6: @216,0: ON ERR OFF J T"UNABLE TO LOAD" ^216,0: ON ERR OFF hdd PROGRAM TO LOAD APA!n+x3406ADRS0N(4),"BLOAD RBOOT"g520: EXECUTE RBOOT{ADRS(0),"APA" BRING IN APA, ADRS=STARTING ADDRESSADRS: INITIALIZE APA:"&RENUMBER ,,," "&}>?~w_~_o}n];w~}{?w}~w}{^w]{>ogkwgx~gooow}^o~w{~w~?}w{>ooo|?JKt?~wgww{}_wo{{?~{w_~]o}}~oo~?_~{w~^wnw>ogsOcOo{}^o?{~w]w}w~ow>_ooo?}/}U?}wow}=oww{^~ooowo?s/U*uk}wwo?_{o^{^w^w~]==_oo~aogs}^w=o;oo{o~}w~ww_[7w~o{}}~_o_w>_o__?~'U|{ww{{}~w{wo{w=w}~w>{>_owg cO_ow{_{^w=ooo?~~oo}{;;}?}~{- 16297,0:16304,0:20549,96:16302,0<"";HM(H1H2430^220481,2H1i<20480F(16384)12860P30H 6 175,0:176,96:24576,04(4);"RUN S.D.": h2 (21);::49234,0::(4);"BLOAD PSYCHEPIC"KI768826:J:I,J:T793a(768::2 44,84,192,162,0,32,30,25 1,44,85,192,162,1,32,30,251 ,44,0,192,16,235,44,16, 192 ,96,160,0,132,171,132,173 f <169, ĤΠڤԠĤĠڤԠɍ͠ɩҠʠϠɍԠʩԠʍԠĤŠڤԠĤΠìɬϢĤҤ̠͠čԠӠ͠ӠԠӢԠĠ٠ŠŠԧͮԠΠìɬϠӠΠԮԠԠŠƠԠſڤԠĤΠìɬϢԠԠ JF4n8ȹ4ne8{mИL%n`L2nø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !" n,n Uo p,n n Ip` j,n dnX O,-( Ɉɇ H)5LL5 ɎɓɅɗ5`#()?((($ (ȩgm Xm`a8m9`( im`8m9`2@ @d ,rm dzm|mum }m|mLc}mLm0`LmLm0`LmLmzm 4n}mi,i0` Fd "i Mje 2d, i0 i,!i0i dmemnin Ӥeȱiii,i0` Fd "i j,i0` Qd Aم~}L\d Bj Bj` BjPȱPLihhߚHH` 1gl im݅6l7LQH ,,,hɠɍɍ5j j5h` kh` kLcj6j7`ffJff8&&`  jjȩ 40 4` ȱ"e ;Lc Fd Lc"Щ Fd3 o "i ;d }iɍ o`HH "i iM!iLc }i, i hh`hh 0)` g RPQ`kl sjnm iȱ ieȱe` Mjmn jnm`jjjjj筠jee`kkkj6j7j6j7 LkH h,g08! !`h`ii!i [A  iLc .,',i0 $ %Э i i!i !iii` i!iij eelkŁȱłۥi  d `H dh8ooȑppȑ )Lc (kgg d (k g If Vf8*g1Li,g0LVgg dʎg`,g0Lgg dʎg`,g0pLXL2Le  d g`((,g ߩg i0 ihmhhhh ,h dh0 hٜhLcΜhΞhfI,f0f VfLd,T,V,R`@gg g,PLAgg g g,Ql g6g7f8f9 Q`g;g,U@g*g ,T,W,R,Pgggg,l Ag 7dg6g6d79ff8ft8f9 Q`(@(@ Bjfie Dfeeg ehg`"f`8 & &) `g gygdyhd`i`8gge` f Le d fɛɓ ɕɍO`fIf`f`ff`0fiffࠠd efLd f d Affgggc`ɍ[Ɋ`ɓ7Ɉɇ.Lggg`ggggg ,"f0 ggg`LfI48iiiT-` fggggg ,"f0Sgg`gggggHgH eggggghghg` ^f Afe Vf`ggHggge ^f Dfe V5LԍddH h `emHenhpo`з`, i0,!i`ƹƸ`OdPd`OdPd`((((PPPP d dddd`ddd`ɠM,f  d$2pg -fMg,gPApi? g Agc`Lcg0g`gqggDh[hrhklvl9rarr6ttlllltcp˯nlłh}m"f&fckןhTcccc, Fd Qd \dWc/ WcYcXcHHLk M*<"< """<<<"""< >"0 <"<""""   ""**6"""""""" <"<& <<""""""""6*"""" <$$>>    ~ "<*:""">""""""""""""">>><"2<""">"""" "  ">"""**6"""2*&""""""""",*"""" """ ">""""""""""""6**"""""""""> >>> >00000>*_VLc>>( <02&,*  **>> "&*2" > ""  >>" >""8 >"""" <""  >>          RE PRESERVED."=::"TYPE ANY STRING : "::"";S$::o"HERE IS EXACTLY WHAT YOU TYPED :"::S$20000:EFFFļ910,930:990FF990'::63000 NFFO:KB,L28:K(KB)L28:KS,O:KESCEFO:: *NFFFF:EFEF:EFį::::"SORTED":2u:I011:SS$(I)::WINDOW1,,1Rz20000:EFFFļ870,885:890^{FF890wWINDOW1,40,1,24:"GRAFPAK 1.0 SUPPORTS THE LINE INPUT":"FEATURE FOUND IN MANY ADVANCED BASICS."::"LEADING SPACES, COLONS AND COMMAS":"A :WINDOW,,1::A*:"GRAFPAK CAN ALSO SORT STRINGS."V450000:US$(11)l>I011:US$(I):H8:1::"UNSORTED":R:I011:US$(I):\20000:EFFFļ800,850:50000:860]FF860fALPHAUS$,SS$kWINDOW20,,8 p:20000:EFFFļ625,660:690+FF655;S$"E000L "::"MONITOR COMMANDS CAN BE EXECUTED"::"BY FP BASIC PROGRAMS."::"FOR EXAMPLE : &SYSTEM=";Q$;S$;Q$:WINDOW,,7::SCROLL:SYSTEMS$20000:EFFFļ700,705:790FF790STANDARD SINE CURVE">1:0:B5:C58:D10:T2:E21:Z32qOX(PIXSXC):OY((PI)YSYCB):O2OX,OYANPIPIPI20:NX(ANXSXC):NY((AN)YSYCB):O2OX,OY:O2NX,NY:MUSICE((NYYCB)T),D,Z:OXNX:OYNY:CH(A)į.FAST655NG POINTS AND LINES.":Cg"2 - DRAWING OR XDRAWING SHAPES.":ol"3 - PRINTING CHARACTERS DIRECTLY.":q3:YS40:YC134:XSDE2:XC116:A1:O22v(PIXSXC),((PI)YSYC):ANPIPIPI180:(ANXSXC),((AN)YSYC):24:5:"A &X$;:12:X$:123.456;:24:X$:.059730540\N20000:EFFFļ500,560::51000:590hOFF590XCH(X)((KB)I27)]::PAGE:"YOU HAVE SEEN THREE WAYS TO DISPLAY"::"ON A HI-RES SCREEN."::"THEY ARE :":b"1 - HPLOTTI::PAGE"ANSI COBOL PICTURE FORMATTING HAS BEEN":"IMPLEMENTED TO OVERCOME APPLESOFT'S":"LACK OF A PRINT USING STATEMENT."::"PICTURE 123.456 -.0597 ":"--------------------------------"51000X$:X$"ETX"590*16:24:"ON THE OTHER HAND, THE PAGING WINDOW IS GREAT WHEN YOU WANT TO DISPLAY ALL OVER THE WINDOW WITHOUT WORRYING ABOUT SCROLLING THE DISPLAY OFF THE TOP OF THE SCREEN.":" "WINDOW1,40,1,2420000:EFFFļ430,450:490FF490 U JUST WHAT HAPPENS. SCROLLING WINDOWS ARE PARTICULARLY USEFUL WHEN YOU WANT TO DO DATA ENTRY WITHOUT DISTURBING THE REST OF THE SCREEN.": 20000:EFFFļ400,415:420 FF420 WINDOW1,40,1,24:7:24:"PAGE":WINDOW24,39,9,23::PAGE FF390k WINDOW1,40,1,24:PAGE::3:0,0:62454:2:1:" SCROLL OR PAGE MODE CAN BE ENABLED" :7:5:"SCROLL":WINDOW5,20,9,23::SCROLL:" "; I110:"THIS IS A WHOLE BUNCH OF TEXT SCROLLING UP THE SCROLLING WINDOW TO SHOW YO-SET"! @20000:EFFFļ310:320- AFF320e JWINDOW10,29,10,13:::"THIS IS A NEW WINDOW" T20000:EFFFļ330:340 UFF340 ^WINDOW31,39,5,19::::::"WINDOWS":"CAN":"BE":"SET":"ANYWHERE" 20000:EFFFļ350:390I:AI,IAI:AI,II: 22:1:"NOW WE CAN PRINT TEXT ON THE HI-RES":"SCREENS, LET'S USE THE TEXT SCREEN":"FOR LO-RES COLOUR GRAPHICS ONLY"; "20000:EFFFļ200,220:290 #FFį:MF,0:290 6:3:0,0:62454::PAGE::" THIS WINDOW IS PRETS" 3:2:111,78$ 19:168 "VERSION 1.0" 22:" = DISPLAY BASIC LISTING"::" = CONTINUE WITH DEMONSTRATION" 20000:EFFFļ100,170:190 FF190 ::MF,O::A39:B1 I019:IB:I,AII:I,AIA% 8192::WINDOW1,40,1,24::D$(4):Q$(34):PI3.14159265:DE180PI:RAPI180:KB16384:I27127:L28128:KS16368:O0:ESC27:MF16301(GSCRIPT,ARROWd::PAGE:0n1:11x"CYBERNETICS RESEARCH"3:17 "PRESEN      8192:D$(4):CH(6,7):::D$;"NOMON C,I,O":QSMALLARROW:3:1(:::::"CHARACTER SET LOADER PROGRAM"-::2"NAME OF CHARACTER SET >";:NAME$:(13)(4);"BLOAD ";NAME$SET:";NAME$D <"< """<<<"""< >"0 <"<""""   ""**6"""""""" <"<& <<""""""""6*"""" <$$>>    ~ ?}@pwg||Oo?~o}@?`@ @? ,,.>>.........>><,,,,,,,,,,,,,,..>>><<<,,..>>><<,,,.....,,,,,,,,,,,,,,,,<<>@ ,,,,,,,,,,,,,,,<<>>...,,>>><<,,,,,,,,,,,,,,,,,,,,,,,,,,,,...>>><<,,,..,,,,,,,,,,<<>  OF FILE :":1000*NAME$:NAME$""ī150GD$;"OPEN ";NAME$;".PIC"fD$;"DELETE ";NAME$;".PIC"D$;"OPEN ";NA$;".PIC":D$;"WRITE";NA$;".PIC"LTH:A$"":B$(L)"DATA"I819210000:B$(L)"DATA"P(I):P0ĂI:560A$A$PLETE":D |24:" X=";NX;" Y=";NY;" LENGTH (LTH)=";LTH;" ";m 0:OX,OY:3:NX,NY:OXNX:OYNY:180u : 10:3:A$"DO YOU WANT TO SAVE THE PICTURE ?":1000 ANS$:ANS$""410 ANS$"N"ī570 ANS$"Y"41013:13:A$"NAME P ,SCN196LTHLTH1:150/ 6SCN211ī400A @SCN195ī700S JSCN209ī400c TNX2NX2w UNX277NX277 VNY2NY2 WNY149NY149 ^22:13:"INCREMENT :";INCRM;" " hSTSCMPĞ:23:17:"NORMAL"::380 r23::15:"UNCOM SCN181INCRM20+ SCN182INCRM50D SCN136NXOXINCRM] SCN149NXOXINCRMv SCN193NYOYINCRM SCN218NYOYINCRM "SCN208X(LTH)NX:Y(LTH)NY:LTHLTH1:NX2,NYNX2,NY:NX,NY2NX,NY2:STSCMP150 'SCN208STSUNCM000:NA$ sNA$""ī403 D$;"EXEC ";NA$;".PIC"O :I1LTH:X,Y:X,Y:I] STSCMP:m L:L0170t V L,V:155 MRN88 SCN(16384):16368,0 SCN177INCRM1 SCN178INCRM5 SCN179INCRM10 SCN180INCRM15PICTURE (N/O) ?":1000:C$/ 2C$"N"đ::180? <C$"O"ī80G F40} P::4:A$"NAME OF FILE ('C'ATALOG) :":1000:NA$ UNA$""ī40 ZNA$"C"ī130 _D$;"CATALOG" d:24:11:A$"END OF CATALOG...":1000 n:A$"ENTER NAME OF FILE :":1k:33,4016384$33,40.34,0T ::::STS100:CMP100:UNNCMP50D$(13)(4):CUR$">=-":X(500):Y(500):H(360):V(360)I1(CUR$):CUR$CUR$(8):I3:INCRM10:NX140:NY75:OX140:OY75:L5000 (10:7:A$"NEW OR OLD  FU CAN JUST TYPE N,S,E,W,U, OR D . YOU ONLY HAVE TO TYPE THE FIRST THREE LETTERS OF A NOUN ... FOR EXAMPLE":5055:- {D$"Y"A$"YOU COULD TYPE 'GET MIR' INSTEAD OF 'GET MIRROR'. OH BY THE WAY YOU CAN 'SAVE' OR 'LOAD' YOUR ADVENTURE , AND IFYOR MISSION IS TO REFUEL YOUR SHIP WITHTITANIUM CRYSTALS AND DISABLE A MEGATON BLAST BOMB. BEWARE OF THE DRONE GUARD WHICH GUARDS THE MOONBASE.":5055::u zD$"Y"A$"YOU CAN CONTROL ME BY TYPING : NORTH / SOUTH / EAST / WEST / UP / DOWNOR YO:D$ d eD$"N"129+ fD$"Y"ī90G nI139::" ";:::: xD$"Y"A$"WELCOME TO THE HI-RES ADVENTURE... 'MOON BASE OMITRON 7G49' YOU HAVE CRASH LANDED ON A MOON OF THE PLANET 'OMITRON'.":5055:: yD$"Y"A$"YOUo{}}{{~m/k[vo}_?_ow}wo{?o]w}_{^{Ns~y^s^{n{n;o}w?w_w_{_{{~_ow?wm?[m6{_}o~ww_o{}^oow}_w}}}wk?/kz_??_ww}w^w~^w^^wo{>~Gqy>g;n{n{~{~{o?{oowow?{}[w~?{?wo_??w{}}~~}_{}onv67{~?}o~}}?ow_~w_~^{^w^w=OgGsgw}n{^==]~o{__owowo~o?UUVz[}oww=__o{w}}~}ow[m_{_>???o{oow?w_~{^{n{n{N`s=o=o=o=w]w^{__ooowo}oW7_v{___o}^o{} 201,141,240,21,201,136: 240,17,201,128,144,13U 201,160,176,9,72,132o( 53,56,233,64,76,2492 253,76,240,253<I76876827FV:I,V:IP54,0:55,3Z1002dI_wo{~_{{{k~_z/}?}W__?ow{{o?]?w?o{_w{<a|q{{>_{]w=?~{ow{{www~?;;;?w~_wo???_ow~_o{^w]_owwwg|Wd?}wO__w_o]{~n{_{_w}>_/_t}{kw{=w}=?}{}{wo}_?w~]oww_?>:plA$"NOW ALL YOU NEED TO DO IN ORDER TO USE YOUR PICTURE IN YOUR OWN PROGRAMMES IS TO TYPE ..":1000:qA$"-- PRINT CHR$(13)+ CHR$(4);"(34)"EXEC <>"(34):1000:*vA$"-- END (I)","(P)","L!(A$)225ĺB$;:Z1(A$)1:(A$,Z,1);::LL1:A$""S&I0B$(L)"DATA":B$;:B1(A$):(A$,B,1);:B:"0":D$;"CLOSE":20:11:A$"QUIT OR CONTINUE ?":1000DANS$:ANS$""570NANS$"C"150XANS$"Q"570b126/ :15:11:A$"...PLEASE WAIT...":5055; I147F T$(I)M IY I142d J18p M(I,J)w J~ I : : : : : : : : ": ,: 616368,0 @P1 JC2 TT10 ^T2185 hP1230rU TYPE 'PIC' OR 'PICTURE' YOU WILL GET":5055 |D$"Y"A$"A HI-RES REPRESENTATION OF YOUR LOCATION >> GOOD LUCK <<":5055: }A$" HIT RETURN" ~24:16:(A$,9);:I150:I A$(A$,16)(A$,1) P(16384):P141Ĺ16368,0:n ;3M)- M)n ;3M);;JMM)n ;3 ;7M)M)  n M) JMJM--;s  M;3----;?7--;?7--;?7-- ;?7M)n )mJMJM #  -S ;Ji;mM);nM;nM;n m ; MWM;--M)?;n ;3M)n M).M;;3M-n )mn ;3M)- -m; M?WMm )mn ;3 sm-m; M?W ;*M)mnI;?J ;s- --;;si;Si;S- M) WII   NII n ;sm;S- I ??Ni M;?wI)M;JiJi; m M;;j SISI M;;j ;3--;3M)-m; M?WM;-m m;jInI;Jm-m; M;WM;-m--;3M ?nI.----;3M ?nInI)mnI?n ;s- M)n SI;s- M ;nM;nM;NI)MJMJM;?JII ;;j ;;3 ;;sII ;.M;3M)NII ;?j ;3M);?JII ;.M;7 mnII ?j);sm;SII ;.M3M NII ??jI;?J ?wIi ?MWM?SII n ;3M-?JII n W JII n ;;3<(JMII >7 MIi??WMIIWMIIMII n MM1mM J---m77  - JIm ?Jm?Jm?*M)mN ?SMSM)mn ;?3 s--I ;?J ;?M)??JIM ;.M;3m);NII ;?j 3M);?JII)?j);3M-?JII ;?j ;?7M ;?JI m; M;wMWII ?j);sm;S M nm;n ;sI M m;Si?WII)J); M?JMJM - )mN ?SM3----;S ;J ;s- I ; ;.--;Ji--3-mJ ;s- )mnI;?n ;s- --;S  MWM)mn ?M)- )mn ;?WI;s- I ? mSm;WII ? mSm;m I-; mwm?S -I  - ;  M??jM;?J ?wim ;Ni M;s -i nM;j smI  MSISI M;jInI;JM M;J ;SISi M- ??- NMI JM??NMJII JIJm; mI JI??NIJII JIJI? mI Ji MsI)mn);;3m)- @X)<Obu&;Pey,AUi},@Th|.ATg|0CWk !6K_tI JIJIJI MJMJMJMi ;; JIJIi ;;*--;;*--;   PICDATA"LTH:A$""$I0LTHFA$A$(X(I))","(Y(I))","z(A$)200āF1(A$)1:(A$,F,1);:F:A$"":&I0D$;"CLOSE ";NAME$;".PICDATA":20:11:A$"QUIT OR CONTINUE ?":1000DANS$:ANS$""570NANS$"C"150 XANS0ANS$:ANS$""410+ANS$"N"ī570>ANS$"Y"410d13:13:A$"NAME OF FILE :":1000~NAME$:NAME$""ī150D$;"OPEN ";NAME$;".PICDATA"D$;"DELETE ";NAME$;".PICDATA"D$;"OPEN ";NAME$;".PICDATA"D$;"WRITE ";NAME$;".CREMENT :";INCRM;" "> hSTSCMPĞ:23:17:"NORMAL"::380\ r23::15:"UNCOMPLETE": |24:" X=";NX;" Y=";NY;" LENGTH (LTH)=";LTH;" "; 0:OX,OY:3:NX,NY:OXNX:OYNY:180 :10:3:A$"DO YOU WANT TO SAVE THE PICTURE ?":100)NY:LTHLTH1:NX2,NYNX2,NY:NX,NY2NX,NY2:STSCMP150U 'SCN208STSUNCMPq ,SCN196LTHLTH1:150 6SCN211ī400 @SCN195ī700 JSCN209ī400 TNX1NX1 UNX279NX279 VNY1NY1 WNY151NY151 ^22:13:"INSCN177INCRM1' SCN178INCRM5= SCN179INCRM10S SCN180INCRM15i SCN181INCRM20 SCN182INCRM50 SCN136NXOXINCRM SCN149NXOXINCRM SCN193NYOYINCRM SCN218NYOYINCRM> "SCN208X(LTH)NX:Y(LTH D$;"OPEN ";NA$;".PICDATA":D$;"READ ";NA$;".PICDATA"K LTH:A$"":I0X I0LTHw D$;"READ ";NA$;".PICDATA" X(I),Y(I) I D$;"CLOSE " :STSCMP: I0LTH2 X(I),Y(I)X(I1),Y(I1) I SCN(16384):16368,0  2C$"N"đ::180% <C$"O"ī80- F40c P::4:A$"NAME OF FILE ('C'ATALOG) :":1000:NA$s UNA$""ī40 ZNA$"C"ī130 _D$;"CATALOG" d:24:11:A$"END OF CATALOG...":1000 n:A$"ENTER NAME OF FILE :":1000:NA$ sNA$""ī408y:33,4016384A :::::STS100:CMP100:UNNCMP50~D$(13)(4):CUR$">=-":X(500):Y(500):H(360):V(360)I1(CUR$):CUR$CUR$(8):I3:INCRM10:NX140:NY75:OX140:OY75 (10:7:A$"NEW OR OLD PICTURE (N/O) ?":1000:C$            HȑnhmȑstLS g ^ m  ` ^LLg L@A8m  @0 /@   q@8 @8e@@AiAP`L2Ġ JJJJHȱH ȩȩȩȑhhȩȩȑ /"& &  "  gLS) LSȩȩȩ ȩȩȩ gȭ Z$"Y"ī5 ,IYPE STRING #";I;": ";# d"";A$(I)5 nA$(I)""60; xV "WHAT FILE NAME? ";N$i D$;"OPEN ";N$} D$"DELETE ";N$ D$;"OPEN ";N$ D$;"WRITE ";N$ I1 J1I1 :A$(J) J D$;"CLOSE ";N$ "ANOTHER FILE ?";:Z$  A$(100):I0-D$(4): CTRL D5:b("YOU GET TO TYPE ONE STRING AT A TIME."2"A STRING MAY HAVE UP TO 239 CHARACTERS."<"THIS PROGRAM LETS YOU WRITE TEXT FILES. "F:II1P"(PRESS THE RETURN KEY TO QUIT.) Z"T   {ow_w_{_{{w~~oo~~^w=o{?{}>?~x_@y|}>_o{_o}ow]w={~}{}ow{{}}{g?u_|O??>_o=>?oww{~o]}?;}}o}wo~{~^{^w=owy|~p~~>_w_w?wo=o=o;o~{?_~}}wzU*U~y_~}~~~o?o{=}~_ww}~}W?uW~W~~~?_o}~o}w=w}o{_>ow{>~xp?~y|^o}n=oo}{o?_o~~oww~?wo?}{o_{{~=w{}}|}O%z?Jg~~^o{}w_o=o{}o>ow}~~~|}c|}z|^o{?w=o{w}ow}_{wo];wnw~?o?}o__oww{>ow~???{m?_}?}~w~}~~>?{?o=w}_w^w^w^wy?_w}}~w?{+-5U~o~}~}>?{~o?w_w_w?o{nw}|y?|<^w=o=o;oo?}o?}~_wwo~w_o[]mmn~w{?wooww{}__?~}_[o}?{w{_}~}~~{_~{o{o{n{N{\osq?|_o{w=o?o=oo=o}w}}?__?kz_~_z}www=w}~>ow{~?}}o~7[m6[v}_}~?o{;;=]}w^{n{n;o9osg9n;o;w=w^{~}w}~?_?w~-{Z~vo{{ww{~_o_?}}~?wo}_?w~}{w{w__ww}_w{}z{e?_>_ow={?{no{?w>=??~}W$}g|}}}>?w=o{>o}>___~}?o]_[[{_o}}}{{}~{o__w=w;_o{{q|p_g{={^]w_~{{}^???}WW~+oz{{{?o{~=P250|V0F01'O(1)214O(2)19AO(3)99MO(4)6ZO(5)32fO(6)0sO(7)38O(8)35O(9)0O(10)35O(11)99O(12)33O(13)34O(14)37M(14,4)0&M(14,8)M(14,7)1 0M(poophMm X RQtPsh`bhHj=i<<=kbޙץ,,stHʈcbhH ʈ!!X Y Z [ \ ] hhh`HH ' hh^ `HHHV  V ` Lhhh`,n àϠȥ𬠄𠠠ŠϠÊәĠ̠ m ` 18)`8`HHH n  V H$hb V W X Y m [ l \ ] S ^ T _  ' hhh`HHV ' b i-c ihh`HH$Hȱhhh` LHHHHHHV W L m m  뭒 L   m   (m , r0+p  LJ  LJ -  ȱ  LJ ȱ  LJ s tL m JJJJl ȱm n   ,L, L%" n  :, " +, S l L\DЪ m L\        s t   ަL !8 ! ! ! ! `8PRTW I``!! nY151Y1DYDY+ ySWITCH,PAGE(FLIP)6 z1X,YJ {DISPLAYFLIP,0Y |FLIPFLIPp }SWITCH,PAGE(FLIP)} ~1PX,PY 80 1,0,4,0,53,39,0BB BASE64096$IBASEBASE63A:I,A:IF(232,0:233,96_2DX2:DY2:X100:Y507PAGE(0)32:PAGE(1)64:FLIP1:SWITCH230:DISPLAY492368:<:3:0:8A49234,0K1X,YPPXX:PYYZXXDX:YYDYdX250X1DXDX""": :'I768806:J:I,J:I32,227,223,133,133,132,134,169,208,32,192,222,165,18,72,165,17,72,32,185,246,32,17,244,165,48,49,38,240,2,169,1,168,32,1,227,76,91,218,1013,76,:1014,0:1015,3"" PROXIMITY DEVICE LAUNCHED "8PK150:X(16336):DZK815d((D%(K,5)D%(P,5))6)((D%(K,6)D%(P,6))6)D%(P,0)1:1500n((D%(K,5)D%(P,5))11)((D%(K,6)D%(P,6))11)HCHC1:D%(K,0)1xKK1200:23:958:" YOU SCOR((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPa $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?" ""qL8L8LM J q"! U Lq"L ?`DL `mbL  mLEq] i`qj I`^`" " )X48:500721:958:" FIRE WHICH PLANE (1-6) ?";?X0LK1250^X(RK):RS,0} (X48)(X55)ĺX48:1310:500K1200:(D%(P,10)D%(P,10)22D%(P,10)D%(P,10)2:D%(P,10)01470<D%(P,10)D%(P,10)1F21:958: Ŵȷƍ"