' +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*`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  @  @@`  @  @@`  @  @``  @  @``  @  @``  @  @``  @  @  @?  @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                                                 Š ĠΩïάï΍̯Π퍍Ǡč pKLbOpPLEpRLbOpWLEpYLbOp^LEp`LbOpeLEpgLEpiLbOpnLbO8 CM|8 Ca|8 Cz|8 C|8 C| 8|L}D8|L}D8|L}DD8|L}DoLbOoLEoLbOoLbOoLbOoLbOoLbOoLbOoLbOoLbOoLbOpLbOpLbOp LbOpLbOpLbOpLEpLbOp"LbOp'LbOp,LbOp1LbOp6LbOp;LEp=LbOpBLEpDLEpFLbOoqLEosLbOoxLEozLbOoLEoLEoLEoLbOoLEoLbOoLEoLbOoLEoLEoLEoLEoLbOoLbOoLEoLEoLbOoLbOoLbOoLbOoLEoLbOoLbOoLbOoLbOoLbOo#LEo%LbOo*LbOo/LEo1LEo3LEo5LbOo:LEoLbO|CLbO|HLbOnLEnLbOnLEnLEnLEnLbOnLEnLEnLbOnLbOnLbOnLEnLbOnLbOoLbOo LbOoLEoLEoLEO{LbO{LbO{LbO{LbO{LbO{LbO{LbO|LbO|LbO| LbO|LbO|LbO|LbO| LbO|%LbO|*LbO|/LbO|4bO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{LbO{Lb{LbO{!LbO{&LbO{+LbO{0LbO{5LbO{:LbO{?LbO{DLbO{ILbO{NLbO{XLbO{]LbO{bLbO{gLbO{lLbO{qLbO{vLbO{{LzLbOzLbOzLbOzLbOzLbOzLbOzLbOzLbOzLbOzLbOzLbOzLbOzLbO{LbO{LbO{ LbO{LbO{LbOzmLbOzrLbOzwLbOz|LbOzLbOzLbOzLbOzLbOzLbOzLbOzLbOzLbOzLbOzLbOzLbOzLbOzLbO?CP? HF !"CP@Jet$t$P֗B}L_ zaLEzcLbOzhLbO'q u M *q E /Bb{ s ?O u RL t 9O`LaK@Iς@ @`d @P$%Ņ  p&@ƇFp'4h? 4Ɋz ˌa?m7͎@??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 RL 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 cz M p r q s Mcz MLl v M Ls M s E` Oy ?O p OL Xy 9O Iv q q t 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 p 9q Yu p Mcz M p v -z u "Mcz MLk v $z "v mD v "z v "M p 4v "z u "Mcz 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 Mi 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 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 i fq u u p it u p c p i q >r EO Tw "MLi iq Xs q s >r EO $w "MLj 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 y s s t v $z u mD s t p s t c w i # w p rq &M p u q Zq &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+v "MLg v /z u mD 4v /z u mD s ?O u RL t 9O =s EO 9w "MLh 4v /z "v mD p ?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 # 8z p # q hu 8z q p p hu Fy p hu Rv "M p ?O q 0w OL /B | =s EO w "MLg >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 O u RL "v s p ?O u RLLh =s EO y "M p s v "Mcz MLf x D x D r EO $w "Mcz ML^ yv Nq 4v -z v "M p >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 Aus &Mcz ML] 4v "z v "ML] 4v M %s M s E 4v $z v "z mD t t p q c 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 > s ?O w RL t 9O "v Nt H YzLO v M u M v z u "ML] r Fv 8u MLX] Qq M 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 u u w &ML[ u u "M w p u w p u u qu w c t i p u u &M 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\N hu 8z t # q hu 8z q t t hu x ?O q OL /B | x 9O 4v A | u N v 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 q u q s s u &MLY u s r w &MLY r u "M w p r w p r r q 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 p w 8z p r r r s rw A | ^v N v D N hu 8z r # q hu 8z q s s 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 v r Kw q Iv Bq s ?O v RL t 9O n w u u u \u u q q u c q i c q i 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 #VN Wz 3I FV MLVLT q w v q p w v p q w q u A{ w N N t :z t v mD /B{ =v t z Zt y #r y u ]t r u s ?O v RL t 9O x D DIRECTION"n D20ĺ" IN THE <- DIRECTION"t  ARGET"@ {" (WHEN SHUTTLE LONGITUDE IS ";((PHI));" DEGREES)"v :" THEN CHANGE SPEED BY ";((D1)1000);" KM/S" D10ĺ" IN THE -> DIRECTION" D10ĺ" IN THE <- DIRECTION" :"WAIT UNTIL SHUTTLE REACHES TARGET ALTITUDE"' :" THEN 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((RSv 2:"d PHYSICAL CONSTANTS1nPI3.14159BxGC6.670E11QME5.98E24_RE6.38E6lKGCME" TRANSFER BETWEEN CIRCULAR ORBITS""--------------------------------------"34,2,:" INPUT DATA" 6:" SHUTTLE ALTITUDE IN      ,& $8B00 (35584) MOVE COMMANDS TO TEXT SCREEND,0 $8C00 COMMANDSl,: $9000 (LO 00, HI 144) SHAPE TABLE,D A BRAND BRAND PROGRAMRAMVELOCITY4+ $8740 (34624) PRINT SPACELAB ALTITUDEa+ $8780 (34688) PRINT SPACELAB LONGITUDE+ $87C0 (34752) PRINT SPACELAB VELOCITY+ $8800 (34816) CALCULATE AND PRINT TIME+ $8A00 (35328) BLANK FRAME 1+ $8A30 (35376) BLANK FRAME 2/UMBERSF* $8600 (34304) FRAME 1, PRINT SCALE, CLEAR AND PRINT LABEL* $8620 (34336) FRAME 2, PRINT SCALE, CLEAR AND PRINT LABEL* $8680 (34432) PRINT SHUTTLE ALTITUDE* $86C0 (34496) PRINT SHUTTLE LONGITUDE+ $8700 (34560) PRINT SHUTTLE ALPHA))@ VCV0GE(ALPHA)()J UC,VC3)T ANGLEA)^ MN,0:MPG)h X)r ----------w)| MEMORY USAGE FOR SSL/BIN) $8000 CHARACTER SET FOR MESSAGES) $8200 MESSAGES) $8400 (33792) MESSAGE PRINT SUBROUTINE* $8500 CHARACTER SET FOR N)0( MN,0:MP( (( ----------[( DRAW EARTH CIRCLE IN SECOND FRAME SUBROUTINEx( 34336,0:34337,B:34338( U0GXGS2( GEREB1E7GS( V0GYGS2( U0,V0GE( CNV2PI360(" ANGLE036010(, ALPHAANGLECNV)6 UCU0GE(UTINE'2 34304,A:34305('< X0FXFS2;'F FEREA1E6FSY'P Y0FYFS(FEFEFSFS4)f'Z DXFS20p'd X1FX}'n Y1FYFS'x X1,Y1' I120' Y1Y1DX(X1X0)(Y1Y0)DXDXFEFE(Y1Y0)(Y1Y0)(Y1Y0)2' X1X1DX' X1,Y1' I( DF(1D2)(VF(1)0)RF(1)1C& (RF(1)1)(RF(2)0)XMUM:YMVM:XU:YVM& 1220T& & (X2GX)(X2GXGS)(Y2GY)(Y2GYGS)ĕ3X2,Y2& (U2GX)(U2GXGS)(V2GY)(V2GYGS)ĕ4U2,V2& & ----------'( DRAW EARTH SECTOR IN FIRST FRAME SUBROD2KUDL2UUM(% VPD2KVDL2VVM1% XMX:% YMYC% XXPL% YYPU% UMU^% VMVg% UUPp% VVP% RENDEZVOUS CALCULATION& ((RSRL)AD)((LSLL)((LSLL)360)360LD)((XXMUUM)(XXMUUM)VD2D2)((YYMVVM)(YYMVVM)VD2(1)1($$ (RF(1)1)(RF(2)0)ĹMN,8:MP<$. VF(2)1ī2430f$8 EXDTDV(XPXM)L:EYDTDV(YPYM)L$B (DA)39XIEX:YIEY$L (DA)38XIEX:YIEY$V (DA)36XIEY:YIEX$` (DA)37XIEY:YIEX$j XPXPXI:YPYPYI$~ DLRLRLRL% UPRS#XPD2KXDS2XXM3#YPD2KYDS2YYM\#L((XPXM)(XPXM)(YPYM)(YPYM))q#VS(L2DT)0.1{#VTVS# RF(1)0# RENDEZVOUS CALCULATION$ (((LSLL)(((LSLL)360))360)LD)((RSRL)AD)((VLVS)(VLVS)VD2)(VF(1)0)RF1ĹDA,36:KC,0*"(KP)205ĹDA,37:KC,0F"(KP)202ĹDA,38:KC,0b"(KP)203ĹDA,39:KC,0p"MN,7:MP"(KP)193VF(1)0:VF(2)0:MN,0:MP"(KP)198VF(2)1:KC,0"-----------" CALCULATE XP,YP,UP,VP THE NEW X,Y,U,V#DSRSRS55EF1Ĺ16304,0:16300,0:EF0:KC,O:2260Q!>(KP)214VF(1)0VF(1)1:KC,0u!HVF(1)1DV((0)30.1):2150!R INCREASE THE 3 FOR LARGER DELTA V'S!\2260!fDWDV!pJ301:N(DWD(J)):DWDWND(J):33519J(J3),N48:J"z(KP)20F(3)0:KC,0:B2B1:2780:DF(2)0:DF(4)0:2260v (KP)197VF(1)0ĹMN,5:MP:2560:0:2800:3:KC,0:DF(2)0:2260 (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)1)1:2260F(KP)177CF(1)1ĹMN,3:MP:KC,0:CF(2)1:CF(1)0:2260(KP)178CF(1)1ĹMN,4:MP:KC,0:CF(3)1:CF(1)0:2260(KP)176(KP)186CF(2)1A1(KP)176:CF(2)0:KC,0:AA1:2600:2260/ (KP)176(KP)206CF(3)1B1(KP)176:CV2GYGS2VB1E7GSM(U2GX)(U2GXGS)(V2GY)(V2GYGS)ī1960Z4U2,V2eU2,V2qDF(2)1 ---------- LOOK FOR COMMAND1(KP)128ī2120(KP)206FF1:KC,0:160 (KP)195VF(1)0ĹMN,2:MP:KC,0:CF(1SPACELAB=(U2GX)(U2GXGS)(V2GY)(V2GYGS)ī1850J&4U2,V2^0 SPACE SHUTTLEs:X2U0XB1E7GSDY2V0YB1E7GSN(X2GX)(X2GXGS)(Y2GY)(Y2GYGS)ī1910X3X2,Y2bX2,Y2l SPACELABvU2GXGS2UB1E7GS SHUTTLEA(V1FY2)(V1FYFS2)(U1FX2)(U1FXFS2)ī1730TRF(2)1ī1730q2U1,V1: DRAW SPACELAB}DF(1)1 SECOND FRAME SPACE SHUTTLEDF(2)0ī1850(X2GX)(X2GXGS)(Y2GY)(Y2GYGS)ī18203X2,Y2 z #   ïΠ"̠ԠϠР  ̯Š ̯Πà&ïŠï͠, ïΠ  ïΠ T  ͯĠ ҠŠ  ȯΠҠ  ĠŠ ĩ  ȮįΠ ǠϠͮׯΠ ՠҠͯΠͯĠ"ͯį""Ϡ"Š"®ӯΠ"ǠȠ! Š ԯΠԯΠ SA1E6FS@U1X0UN$JV1Y0VN7TY1FY2ī1700@^SN1[hVF(2)1(DA)39SN5vrVF(2)1(DA)38SN6|VF(2)1(DA)37SN7VF(2)1(DA)36SN8RF(2)1SN9VF(2)1VF(1)0:VF(2)0:MN,0:MPSNX1,Y1: DRAW SPACE10X1,Y1:MN,9:MP:FF1:KC,O:K$:160: SHUTTLE CRASHEDG SPACELAB(V1FY2)(V1FYFS2)(U1FX2)(U1FXFS2)ī1550RF(2)1ī15502U1,V1RF(2)RF(1)X1X0"Y1Y0RSA1E6FS,UN(YUXV)RSA1E6FS 6VN(YVXU)RKND(J):34690J,N:J:34691En34820: TIME INCREMENT AND DISPLAYgxT(10(34816)(34817))3600TTIĹMN,10:MP:FF1:K$:160 FIRST FRAME10 SPACE SHUTTLEDF(1)0ī1550Y1FY2ī1520SNX1,Y18RSREĕ(J):34498J,N:J:34499U2J401:N(VTD(J)):VTVTND(J):34564J,N:J:34565d< SPACELABvFRL(UUVV)P(V)1000V(V0)1000(V)1000ZLL(UV)180PI(V0)180:LL(LL(LL360)360)0.1_LKLLdJ201:N(LKD(J)):LKL0)1000(Y)1000KLS(XY)180PI(Y0)180:LS(LS(LS360)360)0.1ULTLSz (RF(1)1)(RF(2)1)ASAL:VSVLASAS(ASD(9))D(9)AUASJ831:N(AUD(J)):AUAUND(J):34440J,N:J:34438(J201:N(LTD(J)):LTLTND630VL(KRL)$VK(VL)0.1aJ401:N(VKD(J)):VKVKND(J):34756J,N:J:34757r ---------- PLOT PRESENT POSITIONS AND DISPLAY VALUES3 SPACE SHUTTLERS(XXYY)ASRSREAS0AS0(Y)1000Y(YT(KRLRLRL) LUMRL(TL)NVVMRL(TL): UM,VM ARE U,V DT BEFORE T=0W`URLfjV0.000001tALRLRE: ALTITUDE OF SPACELAB IS CALCULATED ONCE ONLY~ALAL(ALD(9))D(9)AMALJ831:N(AMD(J)):AMAMND(J):34632J,N:J:34 SET INITIAL CONDITIONSDDT60: TIME INTERVAL FOR ITERATION IN SQD2DTDTe SPACE SHUTTLErRSREHSTSDT(KRSRSRS)XMRS(TS)YMRS(TS): XM,YM ARE X,Y DT BEFORE T=0X0$YRS. SPACELAB8RLREHLBTLDFX12:FY13:FS120:A4: SIDE OF FIRST FRAME IN 1000KMi2610: PLOT EARTH SECTOR IN FIRST FRAME GX145:GY13:GS120B2: SIDE OF SECOND FRAME IN 10000KMMN,1:MP2790: PLOT EARTH CIRCLE IN SECOND FRAME  ----------DISPLAY PANEL4MN,1:MPG>16304,0:16297,0:16300,0:16302,0pH TRANSFER COMMAND LIST TO TEXT PAGE{R35584\ ----------f DRAW FIRST PICTURES IN FRAMES 1 AND 2p FORMAT FX=UPPER LEFT X,FY=UPPER LEFT Y,FS=LENGTH OF SIDE,ETCz:TITI3600*I010:D(I)10I:I; ----------V PHYSICAL CONSTANTS ePI3.14159GC6.670E11: GRAVITATIONAL CONSTANTME5.98E24: EARTH'S MASS IN KG  RE6.38E6: EARTH'S RADIUS IN MKGCME  ---------- * 0 AND 10000 KM":610Av:"TIME LIMIT IN HOURS (3) ? ";TITI0TI99ĺ"TIME LIMIT MUST LIE BETWEEN 0 AND 99 HOURS":630::"IS THIS CORRECT?";K$K$"Y"ī700K$"N"ī660560 HSHS10001:HLHL100010:D"SET INITIAL VALUES"HN:"SHUTTLE ALTITUDE IN KM (200) ? ";HSXHS0HS10000ĺ"SHUTTLE ALTITUDE MUST LIE BETWEEN 0 AND 10000 KM":590b:"SPACELAB ALTITUDE IN KM (2000) ? ";HLlHL0HL10000ĺ"SPACELAB ALTITUDE MUST LIE BETWEENSSION IMMEDIATELY.":i"SPACE SHUTTLE MUST RENDEZVOUS WITH SPACELAB WITHIN ";(TI3600);" HOURS"::"DO YOU WANT THE STANDARD SIMULATION? ";K$K$"Y"ĺ"Y":710&K$"N"ī5300"N"::::" SAVE SPACELAB ";::" OPTIONS" "- 2:S0$:6:S0$9 I124R 4:40I):(S1$,I)] Z(0)u PAUSE1100:PAUSE| I 8:1"THE ORBITING SPACE STATION SPACELAB HAS SUFFERED A METEORITE IMPACT."::"DAMAGE IS SEVERE."::"SEND RESCUE MI5)::" SAVE SPACELAB ":15):::: T:"BY FERG BRAND"S ^:"AUGUST 1982"::s h:(4);"BLOAD SSLC/SCREEN" r ---------- | AIM OF SIMULATION : FF1ī520 S0$"****************************************" S1$"EMERGENCY CELAB IN M,TIME LIMIT IN S2 AD5E4:LD5:VD21E4 " AD IS ALTITUDE DIFFERENCE IN M, LD IS LONGITUDE DIFFERENCE IN DEGREES AND VD2 IS VELOCITY DIFFERENCE IN M/S SQUARED ,MN33792:MP33793: MESSAGE PRINTING 6 ---------- @ TITLE# J:1HANGE DISPLAY FLAGSI DF(1)0:DF(2)0: DRAW SHAPES IN FRAMES 1,2 FLAGSd EF0: ESCAPE KEY FLAG RF(1)0:RF(2)0: RENDEZVOUS FLAGS VF(1)0:VF(2)0: VELOCITY KEY FLAGS HS2.00001E5:HL2.00001E6:TI33600: INITIAL ALTITUDES SHUTTLE AND SPA,RF(2),VF(2)) FF0: FAST RESTART FLAG3 ::> 32768a KP16384:KC16368: KEYBOARD 232,0:233,144: POKE SHAPE TABLE ADDRESS 34816,0:34817,0:34818,0:34819,0: CLEAR TIMER SN1: SHAPE NUMBER  CF(1)0:CF(2)0:CF(3)0: C$d SAVE SPACELAB3f VERSION FOR COMPILATIONAg 160 HGRih 710 REPLACE BLOAD SSLC/BIN BY REMi 830 POKE -16300,0j 2100 POKE -16300,0n ----------x INITIAL SET-UPDA33526: DIRECTION ARROW ADDRESS D(10),CF(3),DF(4)          Š宍Ǡč󮍍堲󮍠̯̲󮍠堭堲⮍졍堲謠堲謠󺍠堭堠󺍠־宍娰堼ɾʾ˾;ƾ󮍍󮍍Š ΍̬̯ά̯΍Š 讠䮍    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  ! X :LO ï  ";D:C155Ĺ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    TA AS 2 BYTES SUBROUTINE1H%D256:L%DH%2567_ LINES 150,410,420 CHANGED JULY 82 LENGTH IN 00,01 *DIST:910040,L%:1,H%X>::" SAVE SHAPE TABLE"::vH" ENTER SHAPE NAME ";N$RAD(233)256(232)\LE(1)256(0)f(4);"BSAVE ";N$;",A";AD;",L";LEp(20):" DONE"z: CALCULATE DAA$"Q"ī890610I:(21):" SCALE = ";SC:SC1SC255ī730u(22):" ROTATION = ";R:R0R64ī7403:SC:R:N140,80PAUSE1500:PAUSE(23):" NEXT ? ( TO DISPLAY )":660 0:N140,80680  STORE TABLE%NNSĺ" TYPE N FOR NEXT SHAPE"" TYPE E TO ERASE SHAPE":" AND START AGAIN":" TYPE S TO SAVE SHAPE TABLE"" TYPE Q TO QUIT"A$A$"N"NNSī160A$"E"NN1:SS2:160A$"S"ī800A$(13)ī730LAST 2 BYTES OF CURRENT SHAPEXDA255AI(A64):I,AAI64:I1,AI:I2,0:II3:600nNI,A:I1,0:II2X DISPLAY SHAPE IN HI-RES MODEb:l" VIEW SHAPE IN HI-RES MODE":v" INSTRUCTIONS":" TYPE FOR DISPLAY":0AI(A64):AMAAI64*AM8ī470RI,AM8:I1,24:AAI:J2:II2:480pI,AM:AAI:J2:II1:480 PLOT CURRENT POSITIONH0Ġ3H0XL,YL)15Ġ7H1Ġ15XL,YL3X,Y)15Ġ5&X,Y0270: COMPILE "N"H1H0:AA((8J)2):3808 ^A$"P"A$"N"ī380O hA$(13)H0:580k rAAC8(J1)H(8J)2{ |A512ī480 AH(A512):ALAAH512 AL255ī440 AL63ī430 I,AL64:I1,24:AAH:JJ3:II2:480I,AL:AAH:J1:II1:48FROM KEYBOARD AND INTERPRET# A$N A$"I"A$"J"A$"K"A$"M"XLX:YLYn "A$"I"Y0YY1:C0:JJ1 ,A$"J"X0XX1:C3:JJ1 6A$"K"X39XX1:C1:JJ1 @A$"M"Y39YY1:C2:JJ1 JA$"P"H0H1:AA((8J)2):380 TA$TABLE IN E8,E91 232,L%:233,H%:ST,NS:ST1,0@ :4:NN1S :"SHAPE # "Ni PLOT 40*40 GRIDw K1372 0,38K:0,38K: 3 X19:Y19:X,Y DIST:910:SS2:S,L%:S1,H% J0:H0:A0:C0 XLX:YLY  GET COMMAND :" NOTE LINES THAT CROSS LOOK DIFFERENT IN DRAW AND XDRAW"N ZST36864 d:" STARTING ADDRESS IS 36864":" DO YOU WANT TO CHANGE THIS? ":A$ nA$"Y"130 x" STARTING ADDRESS ? ";ST SST:IST22NS:DST:910 STORE START OF ? ";NS, 6:" SHAPE TABLE COMPILER":L <" INSTRUCTIONS": F" TO MOVE INDICATOR"::(20):"^":(20):"I":(18):"":(20):"M":(20):"Y" P:" TYPE P FOR PLOT":" TYPE N FOR NO PLOT"::" TYPE FOR HI-RES DISPLAY"A U`  SHAPE TABLE COMPILERE EXTENSIVELY MODIFIED BY FERG BRANDx A TABLE OF UP TO 255 SHAPES CAN BE GENERATED PRACTICAL COMPUTING SEP 80 PAGE 98 INITIALIZE(8191::2" SHAPE TABLE COMPILER": 4:" NUMBER OF SHAPES  笠堹퍍ǠčҠ΍䍍   X C V B N M Z X C V B N M l M N B V C X Z M N B V C X - - - - - - - - - - - - - - - Z 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 NY21 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 Z X C V B N M Z X C V B N M l M N B V C X Z M N B V C X Z Z dp~ +Pz (̀P`@ 4 4 4 4 4 4 4 4 4 4\5$~pc]$),29 ";GG0.25G4.01510"CHANGING LENGTH"(32000I)255ī1650DUR256((3FE((A110071028FF)4)0FF0FE0FE1L(32768I,FE:33024I,FFr2DUR256((32512I)1)(32256I)<DUR1DURFFFD(DUR1256)PFD254FD254ZFC(DUR1256FD)dFD0FC0FC1n33280I,FC:33536I,FD1xII11" Y"1200?22:"SEMITONES CHANGE -24 TO 24 ";NUN24N24ī1200gF2((N)12)oI0"CHANGING PITCH"(32000I)255ī1430A1028(32000I)4(31744I)1007A1AFFF((A11007)1028) FF126FF126(K$)5ī1750!(K$)6ī2020*940E PLAY TUNE NO CHANGESQ$:::`."PLAYING"k831616tB940L CHANGE AND PLAY TUNEVFLAG1`::j21:"CHANGE PITCH? (Y/N)";tK$~K$"Y"ī1180K$"N"ī14201140FLAG0B21:"1 PLAY TUNE,NO CHANGES 4 MAKE NEW TUNE "v22:"2 CHANGE AND PLAY TUNE 5 SAVE TUNE "23:"3 FETCH OLD TUNE 6 QUIT "K$(K$)1ī1060(K$)2ī1110(K$)3ī1680(K$)4ī270(RASE>K$(69)ī850!H9100RL(S1$)2[\S1$(S1$,L):S2$(S2$,L):S3$(S3$,L)faX(0)p21:S1$;" ":22:S2$;" ":23:S3$;" "uII1z310 END OF TUNE ENTRYK$" "Ĺ32000I,255:33024I,255:920310 MENU I,FC:32512I,FD1133280I,FC:33536I,FD1;II1D310bKA47KA58NKA48:740k830yI0ī310II1NL0NLN:790NUNL:NLN D9NU0:NL0:D4:800D10NUNL D16D16*5904 CANCEL NOTE IF EDUR256) &FC(DUR256FD)3 0252,FC:253,FD1> :31680M DL(S3$)2] ND$" "(D)w XL0S3$(D$,2):630 bS3$(S3$,L)(D$,2) gX(0) v23:S3$ DURD(1E5AN) FD(DUR256) FC(DUR256FD) FD255FD25532256(S2$,38):S3$(S3$,38)7 21:S1$:22:S2$:23:S3$O FF((A1251)1284)l FE((A12511284FF)5) FF126FF126 31744I,FE:32000I,FF 32768I,FE:33024I,FF 254,FE:255,FF  DURATION OF NOTE DURD(1E5AN) FD() JJKA(KA96)96" TAX%(J)0 ^A1ī720B hNU0:NL0:D4^ rJ64S1$S1$" -":400o |S1$S1$" "  PITCH OF NOTE J64S2$S2$" "(KA64):420 S2$S2$" "K$ S3$S3$" 4" X(0) ANA (S1$)38S1$(S1$,38):S2$NS" K$ K$(13)ī9401 K$(73)ī225: 190@ ` (4);"BLOAD MM/KEYBOARD/2"x 16302,0:16299,0 K$ K$(13)Ĺ16301,0:16300,0:170 240 ::: I0 "S1$"":S2$"":S3$"" , READ KEY 6K$ @KA(K$,1,1,1,1,1,1,1,1,500,1,1,1? 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1} 1,1,1334,1586,1680,1,1,1413,1259,1,1121,1,1,1058,1188,1 1,1,1,1886,1,1,1497,1,1780,1,1998,1,1,1,1,1 I " PRESS TO BEGIN" " PRESS I FOR INSTRUCTIOX  ::30(4);"BLOAD MM/KEYBOARD"[((4);"BLOAD MM/SOUND, A$7B80"c221o<X%(96){FI095PAZX%(I)Ad 1,1,667,793,840,1,1,706,629,1,561,1,1,529,594,1n 1,1,1,943,1,1,748,1,890,1,999,1,1,1,1,1 x 1,1,1,1     X C V B N M Z X C V B N M l M N B V C X Z M N B V C X - - - - - - - - - - - - - - - Z 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 NY21 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 Z X C V B N M Z X C V B N M l M N B V C X Z M N B V C X Z Z dp~ +Pz (̀P`@ 4 4 4 4 4 4 4 4 4 4\5$~pc]$),29"">"">uuuuu>uuuuuuuu>"">>""">""" ">"""<>">>>"<" ">""<""<"""""""">"x<"<">">"">"""<""<<<<"""""" """"""""""""""" """""""""""""" """"""" "6" """ """""">""""""""""""""""""""""" "  """"" > >2"<>"2""2""2"""2"<> >"">222"22"<> " 2"""""><>">*>"<""" "" ">   "2"  "2" "2 2" 2  ""2 ">">><""<>""""*"$"""*""*"**"**$"""">"**"*>$"""*""""""$"""""""""" *"*""> "> "**"*""*"""" "$"" """""&"&&&&&$&&&&&&&&&""&""&*""&*$""""&&"&"$"""&<"$"< *"*" """ "" &"&"&"""&"<$<<<<""""!!!!!!!!!!!!!"""" """""6 """""6""""""""""""""  6"""6" """ """ """""""""""""  >>>">>!!!!!>!!!!!!!!>>">"">>"""">"""" >>""<>">>>"<>"> >>""8P""""><" <" >>">>">>">">"  vvvvvpvvvvvvvvpppp@ p           uuuuuuuuuuuuu>""">""""""">"x<"<""""""""""" """""">""""""""""""2"""2""" ">   "2"  "2" "**"***"*""> "> &&&&&&&&&&&&&""&*""&**"*" """ "" !!!!!!!!!!!!! """""6 """""66"""6" """ """ !!!!!!!!!!!!!>"""">""""P""""><" <" vvvvvpvvvvvvvvpppp p           宬Πž퍍ǠčҠ΍ͯĬͯįͯčҍŠɠ䍲即姠E"R(20):(1):40):40):40)IR(20):(1):"THIS IS A TEXT FILE "a&RPAUSE1200:PAUSEg0R|0u END OF PROGRAM1u A BRAND BRAND PROGRAMy LINE 20900 ADDED JULY 1982((G$,2,1))(P(G$,2,1)"T"ī207403P21000>P20500FQ:L QoQ(4);(G$,2,1);"RUN";(G$,29)Q(F$,2,1)"T"ī20800"Q21000,Q20500@Q:EQJQ(4);(F$,2,1);"RUN";(F$,29)Q(4);"RUN HELLO"R TEXTFILE SUBROUTINxPFT((F$,2,1))!PL$(F$,1)4PL$"A"ī20760UP(20):(1):40):40):40)P(21):(1):(91);K$;"] REQUIRES ";(91);L$;"] TO BE RUN":"HAS THIS BEEN DONE? ";PM$PM$"Y"ī20760PM$"N"ī20690P20650PG$F$((L$)64) PGT):40):40):40)BP(20):(1):"TYPE ";(91);"LETTER] TO RUN"g(P"TYPE FOR FULL CATALOG"2P"TYPE TO EXIT ";NF$(26)SLOL(DT$)2zVO:L)::(32);DT$;(32):L)::`OjON1MtON14Ģ(5)~ON13Ė(20)OLN29OM13LN13O(91);(64N);"] ";(F$(N),3,LN)ONP(20):(1TEXTFILE"&(4);"EXEC MW/TEXTFILE",J' DISPLAY LIST SUBROUTINER':a.'L(DT$)28':L)::(32);DT$;(32):L)::B'L'N1M5V'N14Ģ(5)`'N13Ė(20)b'LN29d'M513LN13j'(91);(64N);"] ";(G$(N),3,LN)t'(4);"OPEN MW/TEXTFILE,D";D8T(4);"WRITE MW/TEXTFILE"Z^"20100 DT$=";(34);DT$;(34)mh"20110 M=";M5yrN1M5|20200N;"F$(";N;")=";(34);G$(N);(34)N"DEL 0,19999""SAVE HELLO""DELETE MW/TEXTFILE" (4);"CLOSE MW/(1):40):(19):(26):P1$,P2$r((P1$)1)((P2$)1)(P1$"A")(P2$"A")(P1$(64M5))(P2$(64M5))ī1480N11(P1$)64G$(N11)P2$(G$(N11),30)"ANY MORE? ";1430@ CREATE MW/TEXTFILEB(19):(1):40):40)EJ0) DISPLAY AGAIN!10000:x DEPENDENT PROGRAMSI(19):(1)t"DO SOME PROGRAMS DEPEND ON OTHERS?";|K$K$"Y"ī1480K$"N"ī160014301480(19):(1):(91);" ] DEPENDS ON ";(91);" ] (X,Y) ":(20):(N7)G$(N8)tG$(N8)""!~N7.N91M5@G$(N9)F$(N9)NF$(N9)""VN9dN101M5}FT((G$(N10),2,1))FT$" "(FT0)(FT128)FT$"T"(FT4)(FT132)FT$"B"G$(N10)(G$(N10),1)FT$(G$(N10),29)N10X(W ";(91);(64N7);"] IS OLD ";(91);" ]? ";:(21):K$a(K$"A")(K$(64M5))ī1030q$N8(K$)64.G$(N8)""ī11308(21):(1)B"YOU HAVE ALREADY ALLOCATED THIS FILE"LPAUSE1400:PAUSEV(21):(1):40)`1030 jF$1):40)  DISPLAY LIST&*100009 REORDER LISTH(19):(1)n"DO YOU WANT TO REORDER LIST? ";vK$K$"Y"ī970K$"N"ī1200930N61M5F$(N6)""N6X(0)1030N71M5(19):(1)?"NEOOSE bN41lN519v(1):(11):" ";(F$(N4),29);AK$RK$"Y"ī690kK$"N"N4N41:720t640zG$(N5)F$(N4)N5N51N4N41N4M3ī750N526Ė(1):(12):" MENU FULL":750630M5N51(1):(1N3N31 N2N21 440) M3N314 &X(0)U 0(3):" DISK TITLE: ";DT$: :" PROGRAMS ON THIS DISK WILL BE":" DISPLAYED ONE BY ONE":" TYPE ";(91);"Y] TO INCLUDE IN MENU":" TYPE ";(91);"N] OTHERWISE":X DISPLAY FILENAMES AND CHILENAMES AS STRINGS6 (3):" ";::" WORKING "::? N21H N31 BASE1638410256((N21)7)(N21((N21)7)7)35 (BASE1)0ī540 (BASE1)255ī520 F$(N3)" " I332 F$(N3)F$(N3)((BASEI)) I X(0) 38392,3:38393,32:38394,217:38395,3:38396,96m 47083,0:47084,17:47085,15:47088,0:47089,64:47092,1x 38390 T(16385N1256) T0ī400 47084,T "S(16386N1256) ,47085,S 6N1N11 @47089,64N1 J250  STORE F>"; ZK$. [K$"1"K$"2"K$(13)ī90> \K$"1"D1N ]K$"2"D2c dK$(13)ĺ:70} n(3):(1):40):40) x F$(70),G$(26) READ CATALOG AND SAVE FILE NAMES LOAD CATALOG N10 47082,D0 38390,32:38391,227:OF ANOTHER PROGRAM B, BOTH MUST APPEAR ON THE MENU. IF A IS REQUESTED, THEN B IS AUTOMATICALLY RUN FIRST.q (:| 238389 <13);"MENU WRITER": =D1 F3:" PUT IN DISK (SLOT 6, DRIVE ";::D;::")" P" DRIVE MAY BE CHANGED, PRESS TO EXIT":"ANY OTHER KEY TO CONTINUE"; K$ K$(27)Ā 210  A BRAND BRAND PROGRAM OGRAM K;"] ";A$(I) I  K$( :8 "K$(27)ĀT ,K$(65)K$(85)ī280c 6J(K$)64i ; @(4);"BLOAD ";A$(J);".SET,A";CS BCH(CS256):CLCSCH256 CADRS7,CL:ADRS8,CH:ADRS3 D(1);0 E"THIS IS ";A$(J):: G(1);1A$(17)"ROMAN"# vA$(18)"SHADOW"6 wA$(19)"SLANT"H xA$(20)"STOP"a yA$(21)"UPSIDE DOWN"i : "HI-RES CHARACTER GENERATOR DEMO"::"WHAT CHARACTER SET WOULD YOU LIKE TO SEE?" PAUSE11000:PAUSE I121 (91);(64I)"COLOSSAL" iA$(5)"COUNT"1 jA$(6)"CYRILLIC"G kA$(7)"ESPERANTO"X lA$(8)"FLOW"k mA$(9)"GOTHIC" nA$(10)"GRAPHIC" oA$(11)"GREEK" pA$(12)"KATAKANA" qA$(13)"MIRROR" rA$(14)"OUTLINE" sA$(15)"PINOCCHIO" tA$(16)"PUDGY" u :6"HI-RES CHARACTER GENERATOR DEMO"BA$(21)M(ADRS0e)(4);"BLOAD RBOOT"n*520+ADRS(0),"HRCG",ADRS0ADRSADRS65536-CSADRS1536.CSeA$(1)"ASCII"fA$(2)"BLIPPO BLACK"gA$(3)"BYTE" hA$(4) ǠϠ΍Ԡ̠ԠǠč  占堲䠳卍庠砱򠰧렰퍍ǠčӠ婠ŰǠԠŠ􍠠Ծ報̠덠Πԯ΍報堭嬠󺍠Ԡ̭򍠠Ơ㮠ŠӠӠ󍍍󠍍砨栱Ʈˠ٬٠ӠӠ宠ذر笠嬠묠笠笠笠Ӡ󮍠ƍ栱䮠ԯΩƮ덠䠱򠱶󠳮􍍍ȠŠө䬠ӠӠ덍Š΍ԯ΍Š笠嬠묠笠笠  X0X X0 X`pH(HP0Ȁ0h@h@ Pp@0@XhH ppPppP`(hh РhX Р h Hx 8 >0(( h P Ƞ(x hxH(xȠ000( X8 0(( x(H 800( @(p(` h h0 H(880(p 0( @ࠀ(x8 x8P(8H8888((x`H  `8@x x`&)+>ȥ')+>,JJJ +>`0($ p,&" (0 8@ HPX !"#$`h%&px')*+,-./12345679:;<2,JJJ'J&J+>Ƚ3,JJJJ&'J&&3+>Ƚf,JJJJ&'J&&f+>ȥ ?p`ɪɵ8*1ip?>p`ɪɭ&H&ʆ&h]*H&,&h]*H&+h )p L%`  @#Y*&, @#Y*&+ )`&Hh`  H` ! "` ! !` e A  I`>0 ɠ+ip?ȱ3 "2 #@`V @#Y& @#Y&Ȅ&?"ip? ¸`    0  @ "Lt 000+ɠ  멍 0` !`((((` !` !*% !` ! ɪ ! !`  H@ɀ`0 @@0 " ! ! ! ! ! p! p! ! ! " ! !iW !3!iB8 !2             ISK"* " PRESS TO CONTINUE ";2 K$D K$(13)ī30N 3540X ENDe43624,1m:s JUMP TO MONITOR. INCLUDED JUST FOR CONVENIENCE43624,1:5:" ENTERING MONITOR"151' A BRAND BRAND PROGRAM > 47082,1H 47092,0$M 72,0.R 3500Fz ONE DRIVE MESSAGEk| ::" INSERT DESTINATION DISK"~ " PRESS TO CONTINUE "; K$ K$(13)ı FF1D2Ĺ47082,1:1000 D2Ĺ47082,1:30 : 5:" REPLACE SOURCE DX256;",D";D 35008 SAVE TRACK AS DOS 3.3 IMAGEC DOSF1R D1İ3450 ::" ";::"SAVING TRACK ";T;" AS DOS 3.3 IMAGE": 47082,D:47083,0:47084,T I1SMAX 47085,I1 47088,0:47089,111I 47092,2* 90404 I PRESS FOR MAIN MENU ";(N K$:X K$"B"ī3200Lb K$"D"ī3300^l K$(27)ī30hv 3150 SAVE TRACK AS BINARY FILE D1İ3450 ::" ";::"SAVING TRACK ";T;" AS BINARY FILE":  (4);"BSAVE TRACK ";T;",A$7000,L";SMA:" DESTINATION DRIVE? ";" K$; K$"1"K$"2"ī3040G D(K$)R " ";D[ DF1 :1:" PRESS ";(91);"B] TO SAVE TRACK"& " AS BINARY FILE"0 " PRESS ";(91);"D] TO SAVE TRACK": " AS DOS 3.3 IMAGE" D " 4008832>5:" TRACK ";::T;::" CONVERTED "GCF1WFF1ī3300oPAUSE1200:PAUSEw30 SAVE TRACK IN DOS 3.3 FORMAT 400 CF0ĺ:" TRACK HAS NOT BEEN CONVERTED":PAUSE1500:PAUSE:30 DF1ī3100 5")" PRESS FOR MAIN MENU ";1K$EK$(13)ī1100WK$(27)ī30a1784z" ";::(L(I));:K$K$(13)ī1860&K$"1"K$"9"ī18100K(K$):L(I),KD1:" ";(L(I))NII1X CONVERT TRACKI1:T5:" NO. OF NON-AUTOSYNC BYTES AFTER":" EPILOG TO JUMP OVER"^1800:" NO. OF AUTOSYNCS BETWEEN ADDRESS":" AND DATA"1800:" NO. OF AUTOSYNCS BETWEEN SECTORS"180021:" PRESS TO TRY AGAINENU ";xK$"zK$(21)ī16705|K$(8)ī1675G~K$(27)ī30Q1656x(6)128Ĺ6,0:N(7)1:7,N:16206,128:1620(6)0Ĺ6,128:N(7)1:7,N:16206,0:1620 MODIFY ANALYSIS PROGRAML(1)8705:L(2)8344:L(3)8483:OR6,0:7,NYT(7)64(7)111Ģ2:1:"**OUTSIDE TRACK DUMP ($4000-7FFF)**"}V(7)64(7)111Ģ2:1:40)^8768r21:1:"PRESS -> TO GO FORWARD 128 BYTES"t"PRESS <- TO GO BACKWARD 128 BYTES"v"PRESS FOR MAIN MAGAIN"4" PRESS TO TRY ANALYSIS AGAIN"\" PRESS FOR MAIN MENU ";dK$vK$"I"ī1600K$"M"ī1700K$(13)ī1100K$(27)ī301460@ DISPLAY TRACK FOR INSPECTIONBN64E:J"TRACK ";::TK$K$(13)ī14000#FF1K$(32)ī2000B(K$(27)ī30L21300vx INSPECT TRACK AND/OR RETRY ANALYSIS~:5:" PRESS ";(91);"I] TO INSPECT TRACK"" PRESS ";(91);"M] TO MODIFY ANALYSIS PROGRAM":" BEFORE TRYING 18:"-"58256L21:"-------------------------------------"XFF0ĺ" PRESS TO INSPECT OR RETRY"FF1ĺ" PRESS TO CONVERT AND SAVE" " PRESS FOR MAIN MENU "; SMAX16:(15382)50SMAX1311008K$(27)ī30!B10600L RUN DUMP:V8192L RUN ANALYSET:w" ANALYSIS OF TRACK ";::T:"-------------------------------------"" ADDPRO V T S EP DATPRO EP D""-------------------------------------"  PRESENT CF0) FF1T34FF0:30H FF1TT1:47084,T:1100Q 400{ TF1Ģ7:" (LAST TRACK WAS ";T;" )" 5:" INSERT SOURCE DISK IN DRIVE 1" " ENTER TRACK NO. (IN DEC) ";T TF1 47084,T 600 $K$.K$(13) KEY OF CHOICE "; :1 X COMMON INSTRUCTIONS\ b21:1:" PRESS TO CONTINUE" l" PRESS FOR MAIN MENU "; v  DUMP AND ANALYSE  THE BEST IDEA IS NOT TO PROCEED UNTIL A GOOD ANALYSIS IS OBTAINED. ALL SECTORS SHOULD BED ANALYSE TRACK"3 " ";(91);"2] CONVERT TRACK"e " ";(91);"3] SAVE TRACK IN DOS 3.3 FORMAT" &" ";(91);"4] QUIT" (DOSF1TF1FF0ĺ:" ";(91);"F] FOR FAST PROCESSING" *FF1ĺ:" ";(91);"S] STOP FAST PROCESSING" 021:" PRESS(K$"1"K$"5")(K$"F")(K$"S")ī404 <K(K$)W >DOSF1TF1K$"F"FF1:1000q @FF1K$"S"FF0:30 FK1000,2000,3000,4000,5000  TITLE : 2:13:"DISKTRANSLATE"::   MAIN MENU 400 " ";(91);"1] DUMP ANTOR. SOME DOS ROUTINES UP TO $2CFF7  $2350 RUN RWTS? D1 DF0:DOSF0:TF0:FF0:CF0: IF THESE FLAGS ARE SET, THEN DRIVE NO.,DOS IMAGE OPTION,TRACK NO.,FAST PROCESSING HAVE BEEN CHOSEN AND (USUALLY) TRACK HAS BEEN CONVERTED 500 (K$( 4- DISK ANALYSE AND TRANSLATE TO DOS 3.36 400O(4);"BLOAD DT/BIN"f $2000 DUMP TRACKz $2040 ANALYSE $2240 INSPECT DUMPED TRACK $2280 CONVERT TO BINARY $22C0 SUBROUTINE FOR 16 SECTOR"  $2310 SUBROUTINE FOR 13 SEC! ! ! ! !!!!!!!!!    ԠԠ`ERROR`ӠžϠō A𶠴 Li ` ɍPɠɰɺǰ ɠ)H) h Hh0)Ь 08`  ҠǍخӍԠ̠ŠĠԠčҠӍؠӍ@rs `i iiiii X    X   렃    8   ɠ  "⩍ 8"!!! 󍠠ǍĠǠȮǠȠ󠤲獍ǠĠ笠堳ðԾ報報堼ž堸ǍӍ溍󺍍̠Ġč䠤󠤸箍ĠǠȬǠ荶Į䮠ð堸ĠðĠð򮍍ǠȠ΍ǠȠ箍嬠"""""", "FERG BRAND"$"W 6922483"**""EQ& JQ(4);(F$,2,1);"RUN";(F$,29)@ R TEXTFILE SUBROUTINEa R(20):(1):40):40):40) R(20):(1):"THIS IS A TEXT FILE " &RPAUSE1200:PAUSE 0R 0u END OF PROGRAM 1u A BRAND BRAND PROGRAM; PM$ PM$"Y"ī20760/ PM$"N"ī20690: P20650N PG$F$((L$)64)b PGT((G$,2,1))} P(G$,2,1)"T"ī20740 P21000 P20500 Q: Q Q(4);(G$,2,1);"RUN";(G$,29) Q(F$,2,1)"T"ī20800 "Q21000 ,Q20500 @Q: );"CATALOG": ZPK$(13)Ā? dP(K$"A")(K$(64M))ī20540S nPF$F$((K$)64)g xPFT((F$,2,1))v PL$(F$,1) PL$"A"ī20760 P(20):(1):40):40):40) P(21):(1):(91);K$;"] REQUIRES ";(91);L$;"] TO BE RUN":"HAS THIS BEEN DONE? " OLN29 OM13LN13@ O(91);(64N);"] ";(F$(N),3,LN)G ONh P(20):(1):40):40):40) P(20):(1):"TYPE ";(91);"LETTER] TO RUN" (P"TYPE FOR FULL CATALOG" 2P"TYPE TO EXIT "; """">""""""" " " " "