' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`z#   ӠԠ̠  ǠĠӠŠ ԩïΠTïΠ" ĠРԯΠ̠ԠϠˠ  ĠΠ'"Ԡ" Š & ̯Π̯Š ̯Π ̯Π" ҠϠҠϲ ҠԭŠ ҠԭŠ ŠˠϠϠ Ҡ ΠҠ"ҠӠˠ!ŠӠ!ŠŠȠǠȠԠҠҠ K$* A BRAND BRAND PROGRAM D1n ,21:"RELOCATION: PROGRAM AT $1B03 IS EXECUTED $1D00-$3FFF GOES TO $9D00- $BFFF" 6101,F179,F:101,G179,G @UF:LG:900 J"BOOTING COMPLETE";:K$::5 IU1L1 2 101,I179,I I 3 , S$"S"D$"$B700":E$"$9D00-$B5FF":E61 21:"BOOT 2: PROGRAM AT ";D$;" IS EXECUTED T0/SA-T2/S4 IS LOADED AT ";E$; 101,E179,E UD:LE:900 S$"S"ĺ:"BOOTING COMPLETE";:K$:5 1000 S$"M"F39:G600":B39:C44:D45 21:"BOOT 1: PROGRAM AT $800 IS EXECUTED T0/S1-9 IS LOADED AT ";AD$;" T0/S0 IS RELOADED AT ";BD$; 101,B179,B:101,C179,C:101,D179,D UB:LC:900 1000 S$"M"D$"$3700":E$"$1B00-$35FF":E141OOT 0: PROGRAM IN CONTROLLER CARD ROM (AT $C600) IS EXECUTED TRK 0/SEC 0 IS LOADED AT $800"; A154 101,A179,A 1000 S$"M"AD$"$3700-$3FFF ":BD$"$3600":B119:C124:D125 S$"S"AD$"$B700-$BFFF ":BD$"$B6S$" <S$"M"S$"S"S$"Q"ī80* F50< PS$"Q"ĉ::D Z: ["ON THE MEMORY MAP"::"$FFFF IS AT THE TOP":"$0000 IS AT THE BOTTOM" \::"ANY KEY TO CONTINUE "; ]K$ d n3 x100,0180,0180,159100,159100,0 }1v 21:"B, :33,409 " DOS BOOT TUTORIAL"j:"---------------------------------------":"THIS PROGRAM SHOWS HOW DOS 3.3 BOOTS ON A 48K APPLE ]";(219)(:"MASTER , OR 48K SLAVE DISK? "-:"QUIT ".1:23: 2     J18, 24576I8J,(16384(I1)8J1)3 J: Ii ":(4);"BSAVE GP/";N$;",A$6000,L$300,D";D ,"ANOTHER SET? "; 6K$ @K$"Y"ī220 JK$"N"Ĺ34,0::(4);"CATALOG,D1": T310 ^ A BRAND BRAND PROGRAM DSK IN DRIVE ";D:"PRESS DRIVE NO. TO CHANGE OR RETURN";? K$Y K$"1"D1:1950,177s K$"2"D2:1950,178 K$(13)ī220 170 ::"NAME OF CHARACTER SET? (OMIT THE .SET) ";N$ :(4);"BLOAD ";N$;".SET,A$4001,D1" I196  d:nD1Zx"CONVERT APPLESOFT TOOL KIT CHARACTER SETS FOR USE WITH GRAFPAK""---------------------------------------":34,4:"PUT TOOL KIT DISK IN DRIVE 1 PRESS ANY KEY TO CONTINUE";K$7 ::"PUT DESTINATION DI̠ԠϠˍԠ̠ԠˍԍǠč򠱹 ";D:2155ĹKC,0:630 KC,0:360& 500H X(222)6ĺ" FILE NOT FOUND "n b(222)8ğ:" DISK I/O ERROR ": l(222)13Ğ:" THIS IS NOT A TEXT FILE ": v34,0:"---------------------------------------" {D$;"CLOSE" U$"LAST DRIVE USED WAS11 T$T$S$O S$" "C2C1:C141ĺ(T$,40):C11:C21:T$U$:X(0):360 C141C3(C21)40(C21)C2:(T$,C3):T$U$(T$,41C3):C142C3:C21:X(0):360 (KB)128ī360 (KB)155ĹKC,0:630 KC,0 (KB)128ī480 (KB)-----------" ,34,2( 6D$;"OPEN";F$: @D$;"READ";F$H JC11:C21T TU$(1)^ ^T$U$f hS$v mS$""ī630 rS$","S$(172):410 |S$";"S$(187):410 S$(13)ĺT$:C11:C21:T$U$:X(0):360 (S$)96S$((S$)32) C1CTO ABORT )":23 PC$' ZC$"1"D17 dC$"2"D2J nC$(13)ī200] xC$(27)ī630e 50m :w 600} D$;"CATALOG,D";D :"FILENAME ";F$ (F$,1)(27)ī630 : "FILENAME ";F$ "---------------------------- TEXTFILE READERAD1:D$(13)(4):KB16384:KC16368I:n(" TEXTFILE READER":23:"READ DISK IN SLOT 6, DRIVE ";::D::<"(CHANGE DRIVE NUMBER":" INSERT DISK OR":" PRESS TO CONTINUE " F:" PRESS        @  @@`  @  @@`  @  @``  @  @``  @  @``  @  @``  @  @  @?  @3  @  @3  @3@ ?3   @3  @ ?3? 8 3  @?  @ 833   @  @33 ?3?3  @  @ 3? ? 833 33 ?33333 3  @3  @  @  @3  @3  @3  @@ 33 3  @33  @3 333 3333 3  @  @3 33333   @33  @33333333 33333333  @33  @3 3 333 3333333 3333333333 3  @``3``  @  @  @  @3  @@ 3   @37  @7 333 33338 3  @  @7 03308   @07  @703033 03330  @7  @7 3 3338 03033 3333333   @  @3  @  @  @  @3  @@ 3   @??  @? 3;; 333;8 ?  @  @? 338   @?  @???3 ??  @?  @? ? 3338 ??3 333?;3;   @  @3  @  @  @  @3  @@ 3   @3;  @; 37 3338 3  @  @; 33388   @;  @;3333 3333  @;  @; 3 3338 D3333 3333737 3  @  @3  @R-  @3  @MG3  @?  @@ ?3 A13  @33  @3 333 3333 YPGS3  @  @3 3333?p3 a.%  @33  @333333333 33333333 BRAND P3  @33  @3 3 33? E3RINT33333333 333??33333 33  @  @? (34816)  @ME 2z   @3  @INT SHUT  @3  @3@??3 4) PMN,  @  @ 3??38 2) MESSA  @  @ 833` L:#H CI  @  @33??GQ!  @  @ ???3833 "* 33??3333?  @  @3X(X1X0  @EART           !17<L\ly-%'??$76.-I<'$?6>7.56-$,%!?6--%'??$76.m;?-%'??$76.mI)--%'??$76.m$-%'??$76.6-56-$,%<'$?6>7?6N ,$ۛ2.vI$' ֨٠ũ ԠĠ֠ȠŨ ` ΠӺ 芊Π٩# ŨũҨנȠũΨנΩ` Ԡũ " ٠ӺƨŠө `Ʌ  :`Ʌ  :I͠ W`i i<``# 2#      ` p `օ"     `!@ A B C D E `o"   `"  ‡ Ç ć `  ! `!!8 0 υ ! O  0! `օ!      `Y"  † `37?;3?  ? 03300300?36<830?33 3?3333 0>33 iх#` 0i***H)h*)ii<`` RENDEZVOUS SUCCESSFUL CRASH! MISSION FAILED TIME LIMIT! MISSION FAILED  PRESS FOR COMMANDS CHANGE DISPLAY # #1: SCALE IN 1000 KM #2: SCALE IN 20000 KM ERASE EARTH CIRCLE REDRAW EARTH CIRCLE DELTA V = . KM/S ' "<*:""">""""""""""""">>><"2<""">"""" "  ">"""**6"""2*&""""""""",*"""" """ ">""""""""""""6**"""""""""> >>> >00000>**>>**   **>> "&*2" > ""  >>" >""8 >"""" <""  >>piLbOpnLbO8 CM|8 Ca|8 Cz|8 C|8 C| 8|L}D8|L}D8|L}DD8|L}DoLbOoLbOpLbOpLbOp LbOpLbOpLbOpLEpLbOp"LbOp'LbOp,LbOp1LbOp6LbOp;LEp=LbOpBLEpDLEpFLbOpKLbOpPLEpRLbOpWLEpYLbOp^LEp`LbOpeLEpgLEoLEoLbOoLEoLbOoLEoLEoLEoLEoLbOoLbOoLEoLEoLbOoLbOoLbOoLbOoLEoLbOoLbOoLbOoLEoLbOoLbOoLbOoLbOoLbOoLbOoLbOLEo5LbOo:LEoLbO|CLbO|HLbOnLEn{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbOO{:LbO{?LbO{DLbO{ILbO{NLbO{XLbO{]LbO{bLbO{gLbO{lLbO{qLbO{vLbO{{LbO{LbO{LbO{LbO{LbO{LbO{LbObOzLbOzLbOzLbOzLbOzLbOzLbOzLbO{LbO{LbO{ LbO{LbO{LbO{LbO{!LbO{&LbO{+LbO{0LbO{5LbLbOzLbOzLbOzLbOzLbOzLbOzLbOzLbOzLbOzLbOzLbOzLbOzLbOzLbOzLbOzLbOzLbOzL !"CP@Jet$t$P֗B}L_ zaLEzcLbOzhLbOzmLbOzrLbOzwLbOz|LbOzLbOz@`d @P$%Ņ  p&@ƇFp'4h? 4Ɋz ˌa?m7͎@???CP? HFL t 9O` ay ?O u RL jy ?O Eq OL sy 9O Iv ~q Jr r Eq t c y i q t Iv ~q r ms r M t js E Iv t c w i Et u Ab{ w N w N as Bt r r t r u r t js 'q u M *q E /Bb{ s ?O u RL t 9O`LaK@Iς@ p t c y i q 6t r q p 9t 3t p q q c pv i p p u w q p q t r q >u t M Au E v A{ y N N t t p p u ;u p ;u p p p 3t 3t p u ;u p p u ;u p p u ;u p c Iv i p >u t p t t M Au E /B{ v z u mD s ?O u RMcz ML!l 2r s r ft zu q u rLY t Gr M p Pr q t Mcz M p Pu r Mcz M p r q Ju Mcz MLl ^v M t M Pu E Ls Gr M p Pr q Fs Mcz M p s r Mcz M p r q s Mcz MLl v M Ls M s E` Oy ?O p OL Xy 9O Iv q q t Zq &M p s t p s t c w i # w p rq &Mcz M p s q c zu ,r p s q c zu ,r p p 9q Yu p Mcz M p it r c u r p it r c u r p p 9q Yu p Mcz M p v -z u "Mcz MLk v $z "v mD v "z v "M p 4v "z u "Lj iq Xs q s >r EO v "ML2j q Xs iq s >r EO v "MLRj q Xs iq s t Us t #u s u u u u t _u u tu c t i p Iv tu p c 2r r _u u u c t i p Iv u p c r vs q s r ft t q #u r zu /r u r r wu ys u u q &Mcz M p s r p s r p 3q &Mcz M p v -z u "Mcz MLMi v $z "v mD v "z v "M p 4v "z u "Mcz MLi s ?O rw RL t 9O 4v -z v MLdj u u p s t p c p i fq u u p it u p c p i q >r EO Tw "MLi iq Xs q s >r EO $w "Mp ?O u RL q q q u _u u q c u i p Iv q p c s t _u u r c u i p Iv r p c it u s t p s t p p it u p it u p p p Iv p c u i # y s s t v $z u mD s t p s t c w i # w p rq &M p u q Zqg >r ?O v RL p ?O u RL =s EO x "ML?g >r ?O v RL p ?O u RL =s EO w "MLhg >r ?O 'w RL p ?O u RL =s EO w "MLg >r ?O Ww RL p ?O u RL s ?O `w RL t 9O =s EO +v "MLg v /z u mD 4v /z u mD s ?O u RL t 9O =s EO 9w "MLh 4v /z "v mD D x D r EO v "Mcz ML_ v Nq 4v -z v "M p >r EO v "Mcz MLI_ v Nq 4v "z v "ML`_ v Nq 4v -z v "ML_ v /z u mD 4v /z u mD s ?O u RL t 9O Qq M t M Au E r Fv s M p r q c Iv s &Mcz M p q Fv s Mcz M p q q c Iv y i q u >u r tu p q u p c q i c p i c y i q tr r u p q tu p c q i c p i c y i q .s t qr "s 1s u s r Fv 8u ML_ "v Nq 4v -z v "M p >r EO Tw "Mcz ML^ gv Nq 4v -z v "M p >r EO $w "Mcz ML^ yv Nq 4v -z v "MM t M Au E q t $MLX] w M t M Au E s ?O w RL t 9O "v Nt p ?O hr OL H YzLO r Fv s M p r q c Iv s &Mcz M p q Fv s Mcz M p q q c Iv s &Mcz ML] 4v "z v "ML] 4v M %s M s E 4v $z v "z mD t t p q c w p s w s # w s # y s s r 4v A | u N v D N hu 8z r # q hu 8z q r r hu y ?O q OL /B | (y 9O 1y 9O kx EO w vp tx EO sp x lN ,u /u q "ML\ s ?O w RL t 9O "v Nt H YzLO v M u M v z u "ML] r Fv 8u MLX] Qq D N hu 8z rt # q hu 8z q ut xt hu x ?O q OL /B | y 9O v A | u N v D N hu 8z s # q hu 8z q s t hu y ?O q OL /B | y 9O zu tu p u u p u u w &ML[ u u "M w p u w p u u qu w c t i p u u &M w c t i p r u &M w p t w t # w t # y t t xt v "z v "M p 4v "z v "Mcz MLqZ r s r s w 8z s # p w 8z p s s s t rw A | ^v N v D N hu 8z t # q hu 8z q t t hu x ?O q OL /B | x 9O 4v A | u N v hu x ?O q OL /B | x 9O u c u i r r # y _r v A | u N v D N hu 8z Yr # q hu 8z q \r _r hu x ?O q OL /B | x 9O ^v M q q p r r p q u q s s u &MLY u s r w &MLY r u "M w p r w p r r qi c q i u r q p r p s r q ft u q q r u p u u c u i c u i c u i u q q u /r q u r u wu x u u u r w 8z r # p w 8z p r r r s rw A | ^v N v D N hu 8z r # q hu 8z q s sz t v mD /B{ =v t z Zt y #r y u ]t r u s ?O v RL t 9O x D UV2ЅUŕȱU喰!UUdUV0*UiUViVUmVnɊȢwU𧰸ХyyUU⥁œ.QP$  e LWHhL:5~    eȱeLaL LRwwxȆwxwHw Jhw`w5U,w`,hbhcbwȱbxcȘHH`wȄ wep`0CBe]Q=b`LicbbbE0`Ġ``MMLeڢD ! SL3LH h%LddЉ`?0 HH chh ޥ Yަ`н  eE   ࠰>Ffee0  &ߢEX$ƫv` ꥪLYDcbbwyȱbxz`ݥܦL+3UV UwȱUx`wUȥxU`Ncbbȱb`cbbȥb`cbbȱb8塅堅PEncbbȱbe HH`0S,,hdehUhVhhHHU hehHehUU HHk`UiȱUiuкe& & &eeHHqUȥqUeFdO݅܆`ycbbȱbƫ8pM䡥UȥUU +뺠ЧUV욥VHUHthhЁ HHf ㈱ۺQi e 纼 +뺊i  e HH`iiiHH`(bcbebbePE1b]  0  j=i<<=kbޙץ,,stHʈcbhH ʈpoophMm X RQtPsh`bhH                         宍Ǡč堲󮍍̯Š! X :LO ï (1):"THIS IS A TEXT FILE "4&RPAUSE1200:PAUSE:0RO0u END OF PROGRAMk1u A BRAND BRAND PROGRAMy LINE 20900 ADDED JULY 198221000 P20500 Q: QB Q(4);(G$,2,1);"RUN";(G$,29)] Q(F$,2,1)"T"ī20800h "Q21000s ,Q20500{ @Q: EQ JQ(4);(F$,2,1);"RUN";(F$,29) Q(4);"RUN HELLO" R TEXTFILE SUBROUTINE R(20):(1):40):40):40)R(20):ī20760( P(20):(1):40):40):40) P(21):(1):(91);K$;"] REQUIRES ";(91);L$;"] TO BE RUN":"HAS THIS BEEN DONE? "; PM$ PM$"Y"ī20760 PM$"N"ī20690 P20650 PG$F$((L$)64) PGT((G$,2,1)) P(G$,2,1)"T"ī20740 P(91);"LETTER] TO RUN": (P"TYPE FOR FULL CATALOG"Y 2P"TYPE TO EXIT ";a NF$(26)UNDT$"FERG BRAND #2"^NM10NF$(1)"JTFERG BRAND UPDATES "NF$(2)" SAVE SPACELAB "NF$(3)" BSAVE SPACELAB (FAST) " NF$(4)"JTSSL/DESCRIPTION      ҍ堲ԠҤΠϢō報ƠԼҠԾΠϠҠǠĠӍǠ렣ҍ報ŠԬӍ場Ơ̾ΠϠ場ʽʭՠ  @  @@`  @  @@`  @  @``  @  @``  @  @``  @  @``  @  @  @?  @3  @  @3  @3@ ?3   @3  @ ?3? 8 3  @?  @ 833   @  @33 ?3?3  @  @ 3? ? 833 33 ?33333 3  @3  @  @  @3  @3  @3  @@ 33 3  @33  @3 333 3333 3  @  @3 33333   @33  @33333333 33333333  @33  @3 3 333 3333333 3333333333 3  @``3``  @  @  @  @3  @@ 3   @37  @7 333 33338 3  @  @7 03308   @07  @703033 03330  @7  @7 3 3338 03033 3333333   @  @3  @  @  @  @3  @@ 3   @??  @? 3;; 333;8 ?  @  @? 338   @?  @???3 ??  @?  @? ? 3338 ??3 333?;3;   @  @3  @  @  @  @3  @@ 3   @3;  @; 37 3338 3  @  @; 33388   @;  @;3333 3333  @;  @; 3 3338 D3333 3333737 3  @  @3  @R-  @3  @MG3  @?  @@ ?3 A13  @33  @3 333 3333 YPGS3  @  @3 3333?p3 a.%  @33  @333333333 33333333 BRAND P3  @33  @3 3 33? E3RINT33333333 333??33333 33  @  @? (34816)  @ME 2z   @3  @INT SHUT  @3  @3@??3 4) PMN,  @  @ 3??38 2) MESSA  @  @ 833` L:#H CI  @  @33??GQ!  @  @ ???3833 "*@ 33??3333?  @  @3X(X1X0  @EART          堲⮍졍󮍍堭堲󮍠堭젼ɾʾ˾;ƾ󮍍堲謠堲謠󺍠󺍠־宍娰讠䮍󮍍򠮠򮍠Š ԩï΍嬠ҠҲŠ ΍Š Š ΍Š 󍍱󍠠Š̯΍̯΍宠䬠嬠    THEN CHANGE SPEED BY ";((D2)1000);" KM/S"P D20ĺ" IN THE -> DIRECTION"s D20ĺ" IN THE <- DIRECTION"y  ARGET"= {" (WHEN ITS LONGITUDE IS ";((PHI));" DEGREES)"s :" THEN CHANGE SPEED BY ";((D1)1000);" KM/S" D10ĺ" IN THE -> DIRECTION" D10ĺ" IN THE <- DIRECTION" :" WAIT UNTIL SHUTTLE REACHES TARGET ALTITUDE", :" RL)2RL)1.5)180= PHI(THETAANGLE)VSRS(VLRLVSRS)Z V1(2KRLRS(RLRS))g D1V1VSw V2V1RSRL D2VLV2 X b" WAIT UNTIL SHUTTLE IS AT ";((THETA));" DEGREES" lTHETA0ĺ" BEHIND TARGET" vTHETA0ĺ" AHEAD OF TKM ";AS @RSREAS1000> J:" TARGET ALTITUDE IN KM ";ALP TRLREAL1000 ^:" INITIAL (TARGET LONGITUDE-SHUTTLE LONGITUDE) IN DEGREES ";ANGLE h"--------------------------------------" VS(KRS) VL(KRL) THETA(1((RS{ 2:"d PHYSICAL CONSTANTS1nPI3.14159BxGC6.670E11QME5.98E24_RE6.38E6lKGCME" TRANSFER BETWEEN CIRCULAR ORBITS""--------------------------------------"34,2,:" INPUT DATA" 6:" SHUTTLE ALTITUDE IN  k !17<L\ly-%'??$76.-I<'$?6>7.56-$,%!?6--%'??$76.m;?-%'??$76.mI)--%'??$76.m$-%'??$76.6-56-$,%<'$?6>7?6N ,$ۛ2.vI$' ֨٠ũ ԠĠ֠ȠŨ ` ΠӺ 芊Π٩# ŨũҨנȠũΨנΩ` Ԡũ " ٠ӺƨŠө `Ʌ  :`Ʌ  :I͠ W`i i\``C 2#      ` p `օB     `A@ A B C D E `oB   `B  ‡ Ç ć `@ A `!!8 0 υ@! O  0A `օA      `YB  † `37?;3?  ? 03300300?36<830?33 3?3333 0>33 iхC` 0i***H)h*)ii\`` RENDEZVOUS SUCCESSFUL CRASH! MISSION FAILED TIME LIMIT! MISSION FAILED * PRESS FOR COMMANDS CHANGE DISPLAY # #1: SCALE IN 1000 KM #2: SCALE IN 10000 KM ERASE EARTH CIRCLE REDRAW EARTH CIRCLE DELTA V = . KM/S ' "<*:""">""""""""""""">>><"2<""">"""" "  ">"""**6"""2*&""""""""",*"""" """ ">""""""""""""6**"""""""""> >>> >00000>*>>**   **>> "&*2" > ""  >>" >""8 >"""" <""  >>            LE,D A BRAND BRAND PROGRAM=,D A BRAND BRAND PROGRAM7C0 (34752) PRINT SPACELAB VELOCITYP+ $8800 (34816) CALCULATE AND PRINT TIMEr+ $8A00 (35328) BLANK FRAME 1+ $8A30 (35376) BLANK FRAME 2+& $8B00 (35584) MOVE COMMANDS TO TEXT SCREEN+0 $8C00 COMMANDS,: $9000 (LO 00, HI 144) SHAPE TABSCALE, CLEAR AND PRINT LABELG* $8680 (34432) PRINT SHUTTLE ALTITUDEs* $86C0 (34496) PRINT SHUTTLE LONGITUDE* $8700 (34560) PRINT SHUTTLE VELOCITY* $8740 (34624) PRINT SPACELAB ALTITUDE* $8780 (34688) PRINT SPACELAB LONGITUDE#+ $8E FOR SSL/BIN4) $8000 CHARACTER SET FOR MESSAGESI) $8200 MESSAGESv) $8400 (33792) MESSAGE PRINT SUBROUTINE) $8500 CHARACTER SET FOR NUMBERS) $8600 (34304) FRAME 1, PRINT SCALE, CLEAR AND PRINT LABEL* $8620 (34336) FRAME 2, PRINT 34337,B:34338( U0GXGS20( GEREB1E7GS?( V0GYGS2M( U0,V0GE^( CNV2PI360r(" ANGLE036010(, ALPHAANGLECNV(6 UCU0GE(ALPHA)(@ VCV0GE(ALPHA)(J UC,VC(T ANGLE(^ MN,0:MP(h (r ---------- )| MEMORY USAG X1FX'n Y1FYFS'x X1,Y1*' I120m' Y1Y1DX(X1X0)(Y1Y0)DXDXFEFE(Y1Y0)(Y1Y0)(Y1Y0)2z' X1X1DX' X1,Y1' I' DF(1)0' MN,0:MP' ' ----------' DRAW EARTH CIRCLE IN SECOND FRAME SUBROUTINE( 34336,0:S)(Y2GY)(Y2GYGS)ĕ3X2,Y2R& (U2GX)(U2GXGS)(V2GY)(V2GYGS)ĕ4U2,V2X& i& ----------&( DRAW EARTH SECTOR IN FIRST FRAME SUBROUTINE&2 34304,A:34305&< X0FXFS2&F FEREA1E6FS&P Y0FYFS(FEFEFSFS4)&Z DXFS20'd VVP#% RENDEZVOUS CALCULATION% ((RSRL)AD)((LSLL)((LSLL)360)360LD)((XXMUUM)(XXMUUM)VD2D2)((YYMVVM)(YYMVVM)VD2D2)(VF(1)0)RF(1)1% (RF(1)1)(RF(2)0)XMUM:YMVM:XU:YV% 1220% & (X2GX)(X2GXG (DA)39XIEX:YIEY2$L (DA)38XIEX:YIEYM$V (DA)36XIEY:YIEXh$` (DA)37XIEY:YIEX~$j XPXPXI:YPYPYI$~ DLRLRLRL$ UPD2KUDL2UUM$ VPD2KVDL2VVM$ XMX$ YMY$ XXP$ YYP$ UMU$ VMV$ UUP%DT)0.1#VTVS# RF(1)0:# RENDEZVOUS CALCULATION# (((LSLL)(((LSLL)360))360)LD)((RSRL)AD)((VLVS)(VLVS)VD2)(VF(1)0)RF(1)1#$ (RF(1)1)(RF(2)0)ĹMN,8:MP#. VF(2)1ī2430#8 EXDTDV(XPXM)L:EYDTDV(YPYM)L$B,7:MP/"(KP)193VF(1)0:VF(2)0:MN,0:MPL"(KP)198VF(2)1:KC,0]"-----------" CALCULATE XP,YP,UP,VP THE NEW X,Y,U,V"DSRSRSRS"XPD2KXDS2XXM"YPD2KYDS2YYM"L((XPXM)(XPXM)(YPYM)(YPYM))#VS(L20.1):21505!R INCREASE THE 3 FOR LARGER DELTA V'S?!\2260I!fDWDV!pJ301:N(DWD(J)):DWDWND(J):33519J(J3),N48:J!z(KP)201ĹDA,36:KC,0!(KP)205ĹDA,37:KC,0!(KP)202ĹDA,38:KC,0!(KP)203ĹDA,39:KC,0"MNF(2)0:2260P (KP)210VF(1)0ĹMN,6:MP:2560:3:2800:KC,0:DF(2)0:2260 *(KP)155EF0Ĺ16303,0:16300,0:EF1:KC,0:2260 4(KP)155EF1Ĺ16304,0:16299,0:EF0:KC,O:2260 >(KP)214VF(1)0VF(1)1:KC,0 !HVF(1)1DV((0)3C,0:CF(3)1:CF(1)0:2260f(KP)176(KP)186CF(2)1A1(KP)176:CF(2)0:KC,0:AA1:2600:2260 (KP)176(KP)206CF(3)1B1(KP)176:CF(3)0:KC,0:B2B1:2780:DF(2)0:DF(4)0:2260 (KP)197VF(1)0ĹMN,5:MP:2560:0:2800:3:KC,0:DDF(2)1 ----------/ LOOK FOR COMMAND61K(KP)128ī2120j(KP)206FF1:KC,0:160(KP)195VF(1)0ĹMN,2:MP:KC,0:CF(1)1:2260(KP)177CF(1)1ĹMN,3:MP:KC,0:CF(2)1:CF(1)0:2260(KP)178CF(1)1ĹMN,4:MP:KB1E7GSDY2V0YB1E7GSSN(X2GX)(X2GXGS)(Y2GY)(Y2GYGS)ī1910`X3X2,Y2kbX2,Y2zl SPACELABvU2GXGS2UB1E7GSV2GYGS2VB1E7GS(U2GX)(U2GXGS)(V2GY)(V2GYGS)ī19604U2,V2U2,V2PACELABDF(1)1& SECOND FRAME: SPACE SHUTTLEMDF(2)0ī1850(X2GX)(X2GXGS)(Y2GY)(Y2GYGS)ī18203X2,Y2 SPACELAB(U2GX)(U2GXGS)(V2GY)(V2GYGS)ī1850&4U2,V20 SPACE SHUTTLE :X2U0X(DA)38SN6'|VF(2)1(DA)37SN7BVF(2)1(DA)36SN8TRF(2)1SN9{VF(2)1VF(1)0:VF(2)0:MN,0:MPSNX1,Y1: DRAW SPACE SHUTTLE(V1FY2)(V1FYFS2)(U1FX2)(U1FXFS2)ī1730RF(2)1ī17302U1,V1: DRAW S2)(U1FXFS2)ī1550)RF(2)1ī155062U1,V1FRF(2)RF(1)PX1X0f"Y1Y0RSA1E6FS,UN(YUXV)RSA1E6FS6VN(YVXU)RSA1E6FS@U1X0UNJV1Y0VNTY1FY2ī1700^SN1hVF(2)1(DA)39SN5 rVF(2)1TTIĹMN,10:MP:FF1:K$:1602 FIRST FRAME91@0T SPACE SHUTTLEgDF(1)0ī1550zY1FY2ī1520SNX1,Y1RSREĕ10X1,Y1:MN,9:MP:FF1:KC,O:K$:160: SHUTTLE CRASHED SPACELAB(V1FY2)(V1FYFS2)(U1FXL(UUVV)2P(V)1000V(V0)1000(V)1000lZLL(UV)180PI(V0)180:LL(LL(LL360)360)0.1v_LKLLdJ201:N(LKD(J)):LKLKND(J):34690J,N:J:34691n34820: TIME INCREMENT AND DISPLAYxT(10(34816)(34817))3600 )1)ASAL:VSVL*ASAS(ASD(9))D(9)4AUASqJ831:N(AUD(J)):AUAUND(J):34440J,N:J:34438(J201:N(LTD(J)):LTLTND(J):34498J,N:J:344992J401:N(VTD(J)):VTVTND(J):34564J,N:J:34565< SPACELAB FR--------8 PLOT PRESENT POSITIONS AND DISPLAY VALUES?3S SPACE SHUTTLEeRS(XXYY)rASRSREAS0AS0(Y)1000Y(Y0)1000(Y)1000LS(XY)180PI(Y0)180:LS(LS(LS360)360)0.1LTLS (RF(1)1)(RF(2ALRLRE: ALTITUDE OF SPACELAB IS CALCULATED ONCE ONLYR~ALAL(ALD(9))D(9)\AMALJ831:N(AMD(J)):AMAMND(J):34632J,N:J:34630VL(KRL)VK(VL)0.1J401:N(VKD(J)):VKVKND(J):34756J,N:J:34757 --RSREHS!TSDT(KRSRSRS)2XMRS(TS)`YMRS(TS): XM,YM ARE X,Y DT BEFORE T=0hX0q$YRS. SPACELAB8RLREHLBTLDT(KRLRLRL)LUMRL(TL)VVMRL(TL): UM,VM ARE U,V DT BEFORE T=0`URLjV0.0000018tGX145:GY13:GS120AB2: SIDE OF SECOND FRAME IN 10000KMOMN,1:MP2790: PLOT EARTH CIRCLE IN SECOND FRAME  ---------- SET INITIAL CONDITIONSDT60: TIME INTERVAL FOR ITERATION IN SD2DTDT SPACE SHUTTLET PAGER35584"\ ----------Nf DRAW FIRST PICTURES IN FRAMES 1 AND 2p FORMAT FX=UPPER LEFT X,FY=UPPER LEFT Y,FS=LENGTH OF SIDE,ETCzFX12:FY13:FS120A4: SIDE OF FIRST FRAME IN 1000KM2610: PLOT EARTH SECTOR IN FIRST FRAME GC6.670E11: GRAVITATIONAL CONSTANTMME5.98E24: EARTH'S MASS IN KG q RE6.38E6: EARTH'S RADIUS IN M~KGCME  ----------* DISPLAY PANEL4MN,1:MP>16304,0:16297,0:16299,0:16302,0H TRANSFER COMMAND LIST TO TEXOURS":630'::"IS THIS CORRECT?";/K$@K$"Y"ī700RK$"N"ī660[560HSHS10001:HLHL100010:TITI3600FF0ĺ:(4);"BLOAD SSL/BIN"I010:D(I)10I:I ---------- PHYSICAL CONSTANTS PI3.14159%0 AND 10000 KM":590Bb:"SPACELAB ALTITUDE IN KM (2000) ? ";HLlHL0HL10000ĺ"SPACELAB ALTITUDE MUST LIE BETWEEN 0 AND 10000 KM":610v:"TIME LIMIT IN HOURS (3) ? ";TI TI0TI99ĺ"TIME LIMIT MUST LIE BETWEEN 0 AND 99 HANDARD SIMULATION? ";K$3K$"Y"ĺ"Y":710E&K$"N"ī530R0"N"::|::" SAVE SPACELAB ";::" OPTIONS":D"SET INITIAL VALUES"N:"SHUTTLE ALTITUDE IN KM (200) ? ";HSXHS0HS10000ĺ"SHUTTLE ALTITUDE MUST LIE BETWEEN "THE ORBITING SPACE STATION SPACELAB HAS SUFFERED A METEORITE IMPACT."::"DAMAGE IS SEVERE."::"SEND RESCUE MISSION IMMEDIATELY.": "SPACE SHUTTLE MUST RENDEZVOUS WITH SPACELAB WITHIN ";(TI3600);" HOURS"::"DO YOU WANT THE ST | AIM OF SIMULATION :- FF1ī520` S0$"****************************************" S1$"EMERGENCY " 2:S0$:6:S0$ I124 4:40I):(S1$,I) Z(0) PAUSE1100:PAUSE I 8:12 IS VELOCITY DIFFERENCE IN M/S SQUAREDT ,MN33792:MP33793: MESSAGE PRINTING e 6 ----------q @ TITLE J:15)::" SAVE SPACELAB ":15)::: T:"BY FERG BRAND" ^:"AUGUST 1982":: h:(4);"BLOAD SSL/SCREEN" r ---------- FLAGS/ VF(1)0:VF(2)0: VELOCITY KEY FLAGS HS2.00001E5:HL2.00001E6:TI33600: INITIAL ALTITUDES SHUTTLE AND SPACELAB IN M,TIME LIMIT IN S AD5E4:LD5:VD21E4' " AD IS ALTITUDE DIFFERENCE IN M, LD IS LONGITUDE DIFFERENCE IN DEGREES AND VDBLE ADDRESSA 34816,0:34817,0:34818,0:34819,0: CLEAR TIMER[ SN1: SHAPE NUMBER CF(1)0:CF(2)0:CF(3)0: CHANGE DISPLAY FLAGS DF(1)0:DF(2)0: DRAW SHAPES IN FRAMES 1,2 FLAGS EF0: ESCAPE KEY FLAG RF(1)0:RF(2)0: RENDEZVOUS$d SAVE SPACELAB&n ----------;x INITIAL SET-UPdDA33526: DIRECTION ARROW ADDRESS D(10),CF(3),DF(4),RF(2),VF(2)FF0: FAST RESTART FLAG::32768KP16384:KC16368: KEYBOARD 232,0:233,144: POKE SHAPE TA" " " " """""""""!!! ! ! ! ! !!!!!!!!!    N'T CATALOG ":: 505 A BRAND BRAND PROGRAM* A BRAND BRAND PROGRAM*7  :140G:22)::" FAST CATALOG UTILITY ":22):::m"PRESS FOR NEXT CATALOG"("PRESS TO QUIT2K$<K$" "ī100FK$(27)ĀP50dn(4);"CATALOG"x:"END OF CATALOG"50 ::" CA"""