' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֝uW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'Ӝu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wU H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  Lh@(LH9LHH/Hh/ H-З( ܸ(& ¸$8 H` *HVDP (ED Z $0x8x D- ܸDD#HIHHHHhHH݌hHhHh݌H6 h Լ ռ ռ ռ`HJ>݌h Hh݌`  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ穎鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LL[dmx- ( D Ϡ@跻~!Wo*9~~~~ɬƬ~UVERIF!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 @ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABR^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHn 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)nooõĵL LLЦ  #-µµ( zegehtpjigh q Ql` z8L`MaEK@>ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ@ NL   L` -e L գsr ࣭ml ࣭srL -µLЦ գ ze)rs zrsLq ] Qlr L̦ գ8gh ࣥhgL գ8LʨM ࣥˤLµH hLħõµ µõL&E`( 80 0 DDLDLDL^ t^`,tP ȟpMt-^^`DH hWLԧ d@` Lꢩ  c ȢL LqLգcl mllm ꢥELȦAD@ C N cLuɠ% d: L ЌĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ u`浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`  d ֠z# 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ ` h E23:550 r IDENTIFIER& | 20609 I0E11:550Z T0$(I)"P"E21:550:PROC p T0$(I)"Y"3000 X15:X20:X31:6310:FUNC II1:4290:T2(I)=ADDR OF FUNC T0$(I)"A"3190: ARRAY T0$(I)"C"3030! X10:X20:X3T2(I):6 M6 M6@p()a@E(Π)GQdedeM[[Xd"eo\a(Ӡ̠ӠԠϠՠ٠)c\Pa()c\RPa()c\Pa(Π)c\P a(Ŭ)\[UVWY[]cq<qCa()G\q;a()G\q7a()G\qCa()G\qaq;a()G\qPqCa()G\qnqJa()G\qsqNa()G\qqJa()\[ccq<q;a()G\q4a()G\qxq2a()G\q<q,a()G\[ q'a()G\qxq$a()G\q'a()G\q,a()G\q2a()\[fcq,q<a()G\UVWa()G\Yq2qa()G\q<q7a()GG\qxq;a()G\qCa()G\qJa()\[,\;3\]z]ˠŠӠz]٠ΠĠŠZ]Ҭ?eLd?e d?e?d?ed?eK(}d ?ed!?ed"?ed#?ed$?ed%?ed&?ed'?e0K2}d(?ed)?ed*?ed+?ed,?ed-?ed.?ed/?eK<}d0?ed1?ed2?ed3?ed4?ed5?ed6?ed7?eKF}d8?ed9?ed:?ed;?ed?ed??eKP}d@?edA?e`dB?edC?edD?edE?edF?edG?eKZ}dH?edI?edJ?edK?edL?edM?edN?edO?eKd}dP?edQ?edR?edS?e0dT?edU?edV?edW?eKn}dX?edY?edZ?ed[?ed\?ed]?ed^?ed_?eKx}d`?eda?edb?edc?edd?ede?edf?edg?eK}dh?edi?edj?edk?edl?edm?edn?edo?eK}dp?edq?edr?eds?edt?edu?edv?edw?e)}dx?edy?edz?ed{?e`[%qqֱ\qֲ\q[Vq8(rdedededeM?[dq8rq8rdedededeMB?[50 N3T2(I): 1240! :3$ VARIABLE DCLK. E$"IDENT":E4:420b8 K$"V":1950:1240hB :L SIMPLE EXPRESSIONV S0$"+"2420` S0$"-"2590j Y$S0$:6180t 1240~ 2610 6240 Y$"-"X11:X20:X31:6310 S0$"+"2500 S0$"-"2500+ S0$"OR"25001 B Y$S0$:6180L 1240V 2610` 6240q Y$"-"2570 Y$"+"2580 X314:2585 X33:2585 X32 X11:X20:6310:2460 2610:2460( :2 TERM< 2850F S0$"*"2700P S0$"DIV"2700(Z S0$"AND"2700<d S0$"MOD"2700Pn S0$"SHL"2700dx S0$"SHR"2700j  Y$S0$:6180:PUSH 1240:2850 6240 Y$"DIV"2790 Y$"MOD"2800 Y$"*"2810 Y$"SHL"2820 Y$"SHR"2830  X315:2835:AND X35:2835+ X37:2835: X34:2835J X317:2835Z X318:2835t X11:X20:6310:2630z :" FACTOR, S0$"IDENT"29406 S0$"NUM"3060@ S0$"STR"3080J S0$"("3100T S0$"MEM"3140^ S0$"NOT"3260 Ġ)G\q;a()G\qJa(ҡ)\cq,q<a()G\UVWa()G\Yq2qa()G\q7qa()G\q;qa()G\qCqa()G\qJqa()\0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0"D E$"(":E33:480#"N 1240:3290<"X E$"):E=34:GOSUB 420F"b 1240a"l X12:X2255:X30:6310o"v XI:6120" E$"(":E33:480" 1240:3290" E$")":E34:420" 6150:X118:X2L1T1(X):X3T2(X):6310" 1240" NEGATE" 1240:2850# X11:X20:X316:6310# :*# EXPRESSIONG# 2390:SIMPLE EXPRESSIONY# S0$"="3380l# S0$"<>"3380~# S0$"<"3380# S0$"<="3380# S0$">"3380# S0$">="3380#* #4 Y$S0$:6180#> 1240:2390#H 6240#R Y$"="X38 $\ Y$"<>"X39$f Y$"<"X310/$p Y$">="X311A$z Y$">"X312T$ Y$"<="X313h$ X11:X20:6310n$ :}$ STATEMENT$ S0$"IDENT"3630$ S0$"IF"4440$ S0$"FOR"5170$ S0$"WHILE"4800$ S0$"CASE"4890$ S0$"REPEA"4730% S0$"BEGIN"4590&% S0$"READ"4040<% S0$"WRITE"3870P%S0$"MEM"4650e%S0$"CALL"4240k%{%$ASSIGNMENT%.2090%8I0E11:550%BT0$(I)"A"3700%LT0$(I)"V"3760%VT0$(I)"Y"3760%`T0$(I)"P"4290%jE12:550&tXI:6120:PUSH TBL @1&~X16:6120:INDEX @ MODEF&E$"(":E33:480V&1240:3290k&E$")":E34:420u&3780&XI:6120&X0:6120&1240&S0$":="3810&S0$"="3810&E13:550:3820&1240&3290:6150&KX:6150"'X13K:X2L1T1(X):X3T2(X):6310-'WRITEB'E$"(":E31:480]'(1240:S0$"STR"3950s'2L(C$):L13910'<X10:X20:X3(C$):6310'AX18:X20:X31:6310:3940'FI1L'PX10:X20:X3((C$,I,1))'T6310:(ZX3L:6310:X18:X38:6310(d1240:4000!(n3290:K17(xS0$"#"K3:DECN(S0$"$"K5:HEX ](K1İ1240v(X18:X20:X3K:6310(S0$","3880(E$")":E22:420(1240(READ(E$"(":E31:480(E$"IDENT":E4:480(2060:I0E11:550)XI:6120)T0$(I)"A"41904)T0$(I)"V"L0:4100A)E4:550O)1240:K0`)S0$"#"K2q)S0$"$"K4)"X18:X20:X3K:6310),K0İ1240)66150:X1L3:X2L1T1(X):X3T2(X):6310)@S0$","4050)JE$")":E22:420)T1240 *^E$"(":E33:480*h1240:32900*rE$")":E34:420?*|L16:4100V*ABSOLUTE MEM CALLk*E$"(":E31:480{*1240:3290*E$")":E22:420*X14:X2255:X30:6310:1240*PROC OR FUNC CALL*K20:K3I*T3(I)04400:NO PARM+E$"(":E3 q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ Px+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰL ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0310:1240:CONST 9! X12:X2L1T1(I):X3T2(I):6310:IDC! 1240V! NUMERIC CONSTv! X10:X20:X3N3:6310:1240! STRING CONST! X10:X20:X3(C$):6310:1240! PAREN EXPR! 1240:3290!& S0$")"1240!0 E22:550:!: READ MEMORY`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι Ll`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` ΔL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[L JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0J L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$hޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ.zXC1:6120.1240:34900.S0$";"4740I.E$"UNTIL":E10:420Y.1240:3290x.6150:X17:X20:X3X:6310.WHILE.1240:XC1:6120.3290:XC1:6120.X17:X20:X30:6310.E$"DO":E18:420.1240:3490/6150:KX:6150 ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3peʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`LJ G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0`YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!f`ɠɍZɊZɈ$!$$"% %% e (`I(ii,i\$%H $ hi#ʥ"%$$%%#%"H $(*)+!hi# H $(*0 $(!`8Hh`BC<>=?<=`K i! Ȉ2 ,`H h*:` `E/E//`$(H)? @(hl8NO,(,` ɛ`2H2 h2Ɉɘ  : 3  5ɕ()ߝɍв [=< @L< >=?<) < `JJJ>Ie@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A&?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵b@1:480+XK2:6120$+XK3:61204+1240:3290C+6150:K3XZ+6150:K2X:K2K21l+S0$","4320+K2T3(K3)E35:550+&E$")":E22:420+0X14:X2L1T1(K3):X3T2(K3):6310+:K20X15:X20:X3K2:6310+D1240+NIF+X1240 ,b3290!,lE$"THEN":E16:420+,v1240K,XC1:6120:FORWD REF POINTj,X17:X20:X30:6310: JPCt,3490,S0$"ELSE"6520,6150:KX,XC1:6120,X16:X20:X30:6310: JMP ,XK:6540,1240:3490,6520-BEGIN GROUP -1240-3490'-S0$";"4590;- S0$"END"1240K-E17:550:Z- WRITE MEMo-*E$"(":E33:480-41240:3290->E$")":E34:420-B1240:S0$"="4690-HE$":=":E13:420-R1240:3290-\X13:X2255:X30:6310-pREPEAT UNTILJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&DD AT ";X;" CHANGED TO ";C1 >/>XDEBUG RTN7>bD$?>gZ$i>l"E$='";E$;"' S0$='";S0$;"' T1=";T1>q"A$='";A$;"' B$='";B$;"' C$='";C$;"'">v>"# T$";16);"T0$";22);"T1 T2 T3">I1T1>I;5);T$(I);16);T0$(I);?22);T1(I`E$",":E5:420=0jXC1:6120:X17:X21:X30:6310:MATCH?O0tI1I11:4930{0~KC1:X17:X20:X30:6310:GO NEXT CASE0I1150100I1I1:6520:0XK:612001240:XI2:612003490:6150:I2X0S0$"ELSE"50900S0$";"5130,1KC1:X16:X20:X30:6310:EXIT FROM CASE616520R1XK:6120:I2I21:4920v1KC1:X16:X20:X30:6310:65201XK:612011240:XI2:612013490:6150:I2X1 E$"END":E17:4201I1I2:6520:2X15:X20:X31:6310:1240:POP CASE VAL2(FOR(22E$"IDENT":E4:48082<3630:6120\2FF91:S0$"TO"5210:UP OR DOWNz2PE$"DOWNT":E28:420:F902Z1240:32902d6150:KX:XC1:61202nX11:X20:X321:63102rX12:X2L1T1(K):X3T2(K):63103xX11:X20:X313F9F9:63103zXC1:6120)3|X17:X20:X30:6310B3XF9:6120:XK:6120^3E$"DO":E18:420:124033490:6150:X12:X2L1T1(X):X3T2(X):63103KX:6150:X11:X20:X320X:63103X13:X2L1T1(K):X3T2(K):631046150:KX:6150:X16:X20:X3X:63104XK:6540<4X15:X20:X31:6310:POP OFF LOOP CNTRB4:M4BLOCK4D03:RESERVED FOR STATIC LINK,SYNAMIC LINK & RETURN ADDR4T2(T1K1)C1:INIT @ OF THE PROC BLOCK4X16:X20:X30:6310:JMP TO STARTING BLK @4XT1K1:61205S0$"CONST"5460"5S0$"VAR"555075"S0$"PROC"5730L5,S0$"FUNC"5770b56S0$"BEGIN"5980p5@E25:5505JCONST DCL5T12405^21705hE$";":E5:420:12405rS0$"VAR"55505|S0$"PROC"57305S0$"FUNC"57706S0$"BEGIN"5980 654706VAR DCL%6L0:F91561240:2340M6LL1:S0$","5560a6E$":":E5:420}61240:S0$"ARRAY"56106E$"INTEG":E36:420:56706E$"(":E33:480:1240:22406E$")":E34:480:E$"OF":E26:480:E$"INTEG":E36:4807D0D0L7IT1L1T107T0$(I)"A":T3(I)N31J7T2(I)D0:D0D0N31:^7&E$";":E5:480y701240:S0$"PROC"57307:S0$"FUNC"57707DS0$"BEGIN"59807NL0:F91:2340:55707XPROC DCL7bE$"IDENT":T4:4807lK10:K$"P":1950 8vL1L11:58108FUNC DCL18E$"IDENT":E4:480M8K$"F":1950:FUNC ADDR^8L1L11:K11{8K$"Y":1950:FUNC VALUE8K2K1:12408XT1:61208XD0:61208S0$"("589081240:F90:2340:K1K118S0$","58509E$")":E22:420 91240.9T3(T1K1)K1K2:E$";":E5:420Z9 I1K1:FUNC VALUE & PARMS HAVE OFFSETn9T2(T1I1)I:9 1240:5340:L1L119*6150:D0X946150:T1X9>E$";":E5:4209H1240:54109REXECUTABLE STATEMENTS9\1240:6150:KX :fXT2(K):6540#:pT2(K)C1:START BLK @=:zX15:X20:X3D0:6310G:3490Z:S0$";"6050j:1240:6020:S0$"END"E17:550:1240:X11:X20:X30:6310::::END PARSER AND CODER:::PUSH X INTO STACK;S(S9)X:S9S91:;:;POP X FROM STACK2;S9S91:XS(S9):8;:E;$PUSH Y$];.S$(P8)Y$:P8P81:h;`POPY$;jP8P81:Y$S$(P8):;:;GENERATE CODES;FNG(X1,X2,X3);B$" ";P9P7Q96350;370:P7(P9Q9)Q9<P7P9İ390:LOAD PAGE<WKHM(P9P7)4)<WK,X1:WK1,X2G<WK2,B(X3):WK3,A(X3)S<P9P91<Y96400:IF INPUT FROM KEYBRD THEN DONT ECHO<X1166390<B$"X"" ":X1X116:INDEX<C1;" ";M$(X11);B$;X2;" ";X3<C1C11<<(:=2B(Z)(Z256)(Z0)256)=dA(Z)Z(Z256)256/=f5=n:L=xFIXUP FORWARD REFV=6150}=(P7X)(XP7Q9)6550:CURR PAGE=370:SAVE CURR PAGE=P7(XQ9)Q9=390:LOAD PAGE=WKHM(XP7)4=WK2,B(C1):WK3,A(C1)=Y9ı>"AD/X16:X20:X3X:6310'/XK:65404/CASE OFD/1240:3290Z/$E$"OF":E25:420q/.I21:OF CASE STMT/8I10:OF CASE LBLS/B1240:2240/LX11:X20:X321:6310/NX10:X20:X3N3:6310/PX11:X20:X38:6310/V1240:S0$":"49900  o   N !LW-  o ~READ $  L ' o  oL*   L!, '    3  6 0       0     0   ` l  H !L   LU  &  H !LU  L*   "     0  `  $  L ' i  B !L   0    3 Ll i  B !L*   3 Ll i  B !LZ   0 Ll )  L  ' '   N !L{    0 B !L   0 L  L*     i  K !L5!     c L '     Q !L!      0  LX 0  H9   H A  H W TZ   H T !LF!    ]   0     ]   0      ]   0      ]   0  LXL*     0   Q 9  Q W !L[#   6  00  3  LXL"L*  LX   LX *  B )  B W !Lm#  - L*     0   Q 9  Q WA   Q F  Q W T !L$A   Q !L$ A  3  0 L$ 0  3    ]  0  LXL#L*        LX '  E '  B T !L%   0     '  B !L% LX   LXL#%  i  B !L%  L[& i  B !L%&   L[&    ]   0  'L*      LX  i:  B !L& =  B !L&  Lc( i<  B !LK'  i>  B !L '  LE' i=  B !LE'   'Lc( i>  B !L' =  B !L'  Lc( i'  B !L' L$Lc( i$  B !L+(0   Q 9  Q WA   Q F  Q W T !L(( L#Lc( i(  B !Lc( *  B !Lc( L^# '   B !L(  L(   E   E W !L( LXL*    B !L( LXL(A   Q Z  Q W !L9) L L})0   Q 9  Q W !Lu) L"L}) La&   N !L(L*  L(   L ' 'L* >   0> >  @ >   Ң >   d >   >    >    > $   L*    0  Q !L+     0  3  Lg+   3  6  0    0  3    o ~BSAVE PASOBJ.   9 u ~,A$  { ~,L$  {  o   N !L,  o ~READ $  L ' o  oL*    H   0  Q T !LW- L*   9  6    E !LW-  o ~BLOAD PASOBJ.   9 u ~,A$  { );26);T2(I);30);T3(I)?#?>?:WRITE('MAXITIVE',13) T !L= L( L: -  B !LT=    LZ-  +  B -  B T   B T !L[>   L( L:  i+  B !L=  L1> i-  B !L K W !L/ @   B Ң    B W d    B W    B W !L/  L/   3 L.  L*   i  B !L0 i  B !L0  L0 i  B !L0 $ L.    B !Lj0  L  'L0   C  B !L0    L0  L  'L0  L  ' 'L*    L) ' '=   L) ' ' L(C  $ L/ L) ' ';   L) ' ' L(   E !L0L* ( !  L) ' ' L( $ L/ ) "  L) ' '   L) ' ' $  L) ' '    3  >   3  0 >  i  K !L2 A       0>          0  0    c LX2 'L*    L) ' '   ,  B !LV3 L(   L ' 'V    L) ' '    0     0  L( ,  E !L33:   L ' ' L(   B !L;4  L|1 'LW4 $  L ' ';   L) ' ' L(   E !L%3L*L^>    N !L4    LZ-    >   N !L5(   L) ' ' L( L4   0  ,  E !L,5  >  E !L5#  L  ')   L ' ' $     3    LZ-    N !LA6    - LZ-  L(L* ( !  L) ' ' L( L4) "  L ' ' $     3    LZ-  L(L*  $ L.    B !L,7  L  '    iP  B !Lf7  L  'L8 iF  B !L7   L4 ' 'L8 iY  B !L7   3  L4 ' 'L8 iA  B !L8  LL6 'L8 iV  B !Ld8 $     3    LZ-  L(L8 iC  B !L8      LZ-  L(L8c  L  ' 'L*  L( L4)   L ' ' L(L* ( !  L) ' ' L( L4) "  L ' '    LZ-  L(L*L9  L( L9    LZ- L*   i  B !L9 L6L: i  B !L : i  B !LQ:    LZ-  L(L: i(  B !Lq: L8L: i  B !L: L9L: i  B !L: L9L:  L  ' 'L*  L9 *  B   B T /  B T   B T   B T   B T   B T !L<   L( L9  i*  B !L;  L< i/  B !L; i  B !L;  L< i  B !L#<  L< i  B !LI<  L< i  B !Lo<  L< i  B !L<   '    LZ- L:L*    +  B -  B   0     0 L*   L!, '    3  6 0    0   `    0  L*   >     L( L^>    LZ- L*  L( L%@ ;  E !L6M   B !LM L(LM  L  'L*  L(  i#  B !LM  LN i$  B !LN    L( L<  i=  B !L=?  L? i  B !Lc?  L? i<  B !L?  L? i  B !L?  L? i>  B !L?  L? i  B !L?   '    LZ-  'L*LT  L(   E !Lg@  L  'Lo@ L( L^>   0$     3    LZ- L* ( !  L) ' ' L( L^>) "  L ' '   L(@ ' 'L*    N !LxA    LZ-    >   N !LWB(   L) ' ' L( L^>   0  ,  E !LA  >  E !L;B#  L  ')   L ' ' $     3    LZ-    N !LB    - LZ-  L(L*  $ L.    B !L(C  L  '    iA  B !LbC  L@ 'LC iV  B !LC iY  B !LC   L(@ ' 'LC iP  B !LC   L4A ' 'LC  L  ' 'L*  L( L^>   L ' ' L(      LZ-  L%@   B !LD      LZ-   L2. ' L( L%@  L2. 'LE  L2. 'L*    L) ' ' $ L.    V  E !LrE(  L  ' LB  i  B !LE  LE i  B !LE  LE  L  ' ' L( L^>      LZ-  $     3    LZ-       6 3 LZ-       LZ-    L ' ' L( L%@ $     3    LZ-      3 LZ-  $     3    LZ-     LZ-   L2. '    - LZ- L*    L( L^>      LZ-    L ' ' L( L%@    LZ-   L2. 'L*4  0  L(    LZ-    $ L/ LZ-     LZ-  L( :  E !LI,   L ' '0   0   00     LZ-  :  B !LH      LZ-  2 0   3 i2  K !LJ2   L2. '2  c2 LaJ ' L( L%@L*r    L( L^>   L ' ' $ LH  ;  B   B T !LK      0     LZ-   L2. ' ;  E !LJ   B !LK L( L%@   L ' '     3 i  K !LeL   L2. '  c L#L '    - LZ-  L(L*    L( L%@ ;  E !LL   L ' ' >  L1> i  B !L1>   '    LZ- LT=L*  L<  i=  B !L> i  B !L> i<  B !L> i  B !L> i>  B !L> i  B !L@      L( >     $   LJY '.   L ' ' L*L*V  LM ' 'L* (   L) ' '   L) ' ' $ L.    B !LO  L  '    iA  B !LO  LN 'LP iV  B !LO   LM ' 'LP  L  ' ' ,  E !L6O)   L ' ' L(L*    B !LP    LZ-     LZ- L}Q    i  K !L0Q     LZ-   c LP '    LZ-     LZ-  L(L*  L^>  i#  B !LQ  LQ i$  B !LQ  LQ   '    LZ-    N !LBR L(L* (   L) ' ' L(   B !LR LTPLR LQ ,  E !LhR)   L ' ' L(L* ( !  L) ' ' L( L^>) "  L ' ' L(   E !LdS  L  ' L( L^>    LZ- L* (   L) ' ' L( L^>)   L ' '    LZ-  L(L*   i  B !LGT LBLpU i  B !LeT LCLpU i  B !LT L ELpU i  B !LT LHLpU i  B !LT LJLpU i  B !LT LLLpU i  B !LT L/MLpU i  B !LU LRLpU i  B !L7U LSLpU i  B !LUU LOLpU i  B !LpU LER 'L*LJY    (  B !L@V   L) ' 'V   L) ' '   0  L( ,  E !LU)   L ' ' L(  L*    B !LVP  LVF     L) ' '   L) ' '>     $   0$  F  B !L=WY   L) ' ' L(  $ LyU> >     0 i  Q !LW  >  3  3    f LW ';   L ' ' L(  LvU ';   L ' '    > $   3$  L(L*     L2. '         LZ-  L( LT ;  E !LX   L ' '    LZ-  L(L*        LZ-    B !LY L0   B !LY L3   B   B T !LZ LQVLY   B !L3Z  LsX 'LEZ  L  'L*   o  o ~OPEN PASKEYWD  o  o ~READ PASKEYWD  o  "  i  K !L\    i  K !L[  l   c LZ '     ]   0&      ]   0l      ]   0      ]   0   c LZ '  o  o ~CLOSE PASKEYWD  oL*  LHZ       3    9  3     *   @   LN   '    LZ-    0$     3    LZ-    N !LN L(L* ( !  L) ' ' L( L^>) "  L ' ' 8050:8070: E ;X26:Y8:8170:8190:8210:8030: LYdX6:Y20:8070:8230:8250:8270: DX12:Y20:8070:8110:8050: UX18:Y20:8080:8010:8050: CX24:Y20:8030:8010:8050:8070: E X30:Y20:8170:8190:8210:8030:ЭŠҠӭˠРЭŠӠĠԠ͠ΠǠҮԠŠӠϠˠŠƧԍνнý̽ĽҽĻҍѬάҬЬ֬ΠһɬʬˬάנһԬ̬ҬӠ٨ΩƠһԍʍ֍ΠΠԨ׺κѺˠРŠӠʻԍкͨҩŠмŠϠ΍ŠРƍЬì̠֨ͨҫ̠ͨҫĠŠҺҫкͨҩĠŠƠмƠ΍ʻ̠оƻŠҬŠŠΣӮҩԠŠӠ˺֨Š̠ӠϠŠƩŠҬĬΠƧҩŠҬĬŠƧҩֺκҠɺϠέϠ΍ƠӨɩ֠Π΍ŠӨɩҩֺӨɩκΫĠΠĠҠɠŠҩƠˠŠҬĬŧҩŠҬŠŠΣ̠ӧҩŠĬΠвҩĠΠ********"9?"****************************************"F@M0200VAS(16336)]BMfG290tLE1E1300VD21((1)100)100`E2E2(D2500)j290t"YOU HAVE INSTRUCTED THE ON-BOARD COMPUTER"~"TO SELF-DESTRUCT,THE REACTOR HAS GONE"7"CRITICAL,YOU HAVE GONE TO MEET THE FORCE"ID15001200c"SPACE WARS IS OVER"m1240"YOUR DESTRUCTION HAS ALSO DESTROYED""THE SKY FIGHTER,YOU WILL BE REMBERED""AS A HERO"1180"TO PLAY AGAIN TYPE YES""OTHERWISE TYPE NO"'"";A$<(A$)"YES"1310\ "SPACE WARS SAYS GOOD-BYE"bk255qy50("YOU RAN AND THE SKY FIGHTER KILLED YOU"1250 A:"TOUGH LUCK! YOU LOST ";M;" GOLD SOVEREIGNS!":QQMPPAUSE1750:PAUSEQ0ĉ::(10):5)"YOU'RE FLAT BROKE FELLA!":"IF YOU WANT TO PLAY AGAIN, TYPE IN 'RUN'":"HIT RETURN TO CONTINUE";I$:"YOU NOW HAVE ";Q;" GOLD SOVEREIGNS."YL17ė:"YOU HAVE FINISHED THE DECK--GAME OVER!":"HIT RETURN FOR SUMMARY";I$:10057"DO YOU WANT TO PLAY ANOTHER ROUND? (Y/N)";I$(I$,1)"N"10057330:6:I039:O,39I:IX0:Y4:9000:X0:Y5:9350:X4:Y18:9500)X14:Y4:9000:X14:Y5:9250:X18:Y18:9530PX28:Y4:9000:X29:Y10:9980: ?aP11000:P{$6:I039:O,39I:I. TITLE--'ACEY DUCEY'81:X8:Y8:8030:8010:8070:8110: A BX14:Y8:8080:8010:8050: CLX20:Y8:8030:8010:   350:XX4:YY14:9500:C214:8#@ LETTER SUBROUTINESG#J TOP BARV#TX,X4Y:g#^ CROSS BARx#hX,X4Y3:#r BOTTOM BAR#|X,X4Y6:# VERT LINE (L)#Y,Y6X:# VERT LINE (MID)#Y,Y6X2:# VERT LIN (R) $ԠŠʠˠàʻ΍ŠҬĬĠʮѣҬҩҺѺѫĠʠ YP11500:PJ DETERMINES VALUE OF C2 BASED ON C1 NUMBERWR1D2dR2D3qR3D4~R4D5R5D6R6D7R7D8R8D9R9D10R10D11R11D12R12D13R13D14 R14D2R15D3&R16D44R17D5BR18D6PR19D7^R20D8lR21D9{R22D10R23D11R24D12R25D13R26D14R27D2R28D3R29D4R30D5R31D6 R32D7R33D8'R34D96R35D10ER36D11TR37D12cR38D13rR39D14R40D2R41D3R42D4R43D5R44D6R45D7R46D8R47D9R48D10R49D11R50D12R51D13-R52D143V DETERMINE SUIT & VALUE OF C2C21İ9200:XX4:YY14::9530:C22:C22İ9200:XX4:YY14:9560:C23:C23İ9200:XX4:YY14:9590:C24:C24İ9200:XX4:YY14:9620:C25:)C25İ9200:XX4:YY14:9650:C26:SC26İ9200:XX4:YY14:9680:C27:}C27İ9200:XX4:YY14:9710:C28:C28İ9200:XX4:YY14:9740:C29:C29İ9200:XX4:YY14:9770:C210:C210İ9200:XX4:YY14:9800:C211:*C211İ9200:XX4:YY14:9830:C212:VC212İ9200:XX4:YY14:9860:C213:C213İ9200:XX4:YY14:9500:C214:C214İ9250:XX4:YY14:9530:C22:C215İ9250:XX4:YY14:9560:C23:C216İ9250:XX4:YY14:9590:C24:.C217İ9250:XX4:YY14:9620:C25:YC218İ9250:XX4:YY14:9650:C26:C219İ9250:XX4:YY14:9680:C27:C220İ9250:XX4:YY14:9710:C28:C221İ9250:XX4:YY14:9740:C29:C222İ9250:XX4:YY14:9770:C210:2C223İ9250:XX4:YY14:9800:C211:^C224İ9250:XX4:YY14:9830:C212:C225İ9250:XX4:YY14:9860:C213:C226İ9250:XX4:YY14:9500:C214:C227İ9300:XX4:YY14:9530:C22: C228İ9300:XX4:YY14:9560:C23:7C229İ9300:XX4:YY14:9590:C24:bC230İ9300:XX4:YY14:9620:C25:C231İ9300:XX4:YY14:9650:C26:C232İ9300:XX4:YY14:9680:C27:C233İ9300:XX4:YY14:9710:C28: C234İ9300:XX4:YY14:9740:C29:: C235İ9300:XX4:YY14:9770:C210:f C236İ9300:XX4:YY14:9800:C211: C237İ9300:XX4:YY14:9830:C212: C238İ9300:XX4:YY14:9860:C213: C239İ9300:XX4:YY14:9500:C214:!C240İ9350:XX4:YY14:9530:C22:@!C241İ9350:XX4:YY14:9560:C23:k!C242İ9350:XX4:YY14:9590:C24:!C243İ9350:XX4:YY14:9620:C25:!C244İ9350:XX4:YY14:9650:C26:!C245İ9350:XX4:YY14:9680:C27:"C246İ9350:XX4:YY14:9710:C28:B"C247İ9350:XX4:YY14:9740:C29:n"C248İ9350:XX4:YY14:9770:C210:"C249İ9350:XX4:YY14:9800:C211:"C250İ9350:XX4:YY14:9830:C212:"C251İ9350:XX4:YY14:9860:C213:#C252İ9  0]&X2,Y40a&!0f& * QUEEN*00p&0: BLACKI0r&I04:WXI:W,Y:I]0t&X,Y1:X4,Y1z0v&X,Y2:X2,Y2:X4,Y20x&X,Y3:X3,Y3:X4,Y30z&I04:WXI:W,Y4:I0{&X5,Y50&0& * KING *0&0: BLACK0&X,Y:X4,Y1&X,Y1:ҠŠŠà֨֩΍̨ΩҨΩҨ֩κΫĠ֠Y,Y6X4:"$ DIAGONAL FOR RC$X2,Y4:X3,Y5:X4,Y6:Y$ DIAGONAL FOR Nz$X1,Y1:X2,Y2:X3,Y3:$ 1/2 VERTICAL (TOP R)$Y,Y3X4:$ 1/2 VERTICAL (TOP L)$ Y,Y3X:$ 1/2 VERTICAL (BOTTOM, MID)% Y3,Y6X2:"%& SHORT HORIZONTAL (TOP)3%0 X1,X3Y:P%: SHORT HORIZONTAL (BOT)c%D X1,X3Y6:x%N SHORT VERT (R)%X Y1,Y5X4:%(# DRAW CARDS%*#15: WHITE%-#I010%2#Y,Y25XI%<#I%d#%# *HEART*%$1%$X3,Y:X8,Y6&$X2,Y1:X3,Y1:X4,Y1:X7,Y1:X8,Y1:X9,Y1R& $I110:WXI:W,Y2:In& $I110:WXI:W,Y3:I&$I110:WXI:W,Y4:I&$I29:WXI:W,Y5:I&$I29:WXI:W,Y6:I&$I38:WXI:W,Y7:I&$I47:WXI:W,Y8:I '$X5,Y9:X6,Y9'$"'"$ *DIAMOND*3'6$1: MAGENTA>'8$X5,Y]':$X4,Y1:X5,Y1:X6,Y1x'<$I37:WXI:W,Y2:I'>$I28:WXI:W,Y3:I'@$I19:WXI:W,Y4:I'B$I28:WXI:W,Y5:I'D$I37:WXI:W,Y6:I(F$X4,Y7:X5,Y7:X6,Y7(H$X5,Y8(J$#(T$ *CLUB*2(h$0: BLACKA(j$X4,X6YR(l$X3,X7Y1c(n$X4,X6Y2t(p$X2,X8Y3(r$X1,X9Y4(t$X1,X9Y5(v$X2,X8Y6(x$X5,Y7(z$X5,Y8($($ *SPADE*($0: BLACK($X5,Y:X6,Y)$I47:WXI:W,Y1:I,)$I38:WXI:W,Y2:IG)$I29:WXI:W,Y3:Ic)$I110:WXI:W,Y4:I)$I110:WXI:W,Y5:I)$I110:WXI:W,Y6:I)$X2,Y7:X3,Y7:X5,Y7:X6,Y7:X8,Y7:X9,Y7)$X5,Y8:X6,Y8*$X5,Y9:X6,Y9*$*% *ACE*"*&%0: BLACK;*(%I04:WXI:W,Y:IO**%X,Y1:X4,Y1j*,%I04:WXI:W,Y2:I~*.%X,Y3:X4,Y3*0%X,Y4:X4,Y4*5%*:% *TWO**D%0: BLACK*F%I04:WXI:W,Y:I*H%X4,Y1*J%I04:WXI:W,Y2:I*L%X,Y3+N%I04:WXI:W,Y4:I +S%.+X% *THREE*=+b%0: BLACKV+d%I04:WXI:W,Y:Ic+f%X4,Y1~+h%I04:WXI:W,Y2:I+j%X4,Y3+l%I04:WXI:W,Y4:I+q%+v% *FOUR*+%0: BLACK+%X,Y:X3,Y+%X,Y1:X3,Y1,%X,Y2:X3,Y2,%I04:WXI:W,Y3:I(,%X3,Y4.,%<,% * FIVE*K,%0: BLACKd,%I04:WXI:W,Y:Io,%X,Y1,%I04:WXI:W,Y2:I,%X4,Y3,%I04:WXI:W,Y4:I,%,% *SIX*,%0: BLACK,%X,Y,%X,Y1-%I04:WXI:W,Y2:I-%X,Y3:X4,Y31-%I04:WXI:W,Y4:I7-%F-% * SEVEN*U-%0: BLACKn-%I04:WXI:W,Y:I{-%X3,Y1-%X2,Y2-%X1,Y3-%X,Y4-%-% * EIGHT *-%0: BLACK-%I04:WXI:W,Y:I-%X,Y1:X4,Y1 .%I04:WXI:W,Y2:I!.&X,Y3:X4,Y3<.&I04:WXI:W,Y4:IB.&Q. & * NINE *`.&0: BLACKy.&I04:WXI:W,Y:I.&X,Y1:X4,Y1.&I04:WXI:W,Y2:I.&X4,Y3. &X4,Y4.%&.*& * TEN *.4&0: BLACK/6&X,Y:X2,Y:X3,Y:X4,Y /8&X,Y1:X2,Y1:X4,Y1=/:&X,Y2:X2,Y2:X4,Y2Z/<&X,Y3:X2,Y3:X4,Y3/>&X,Y4:X2,Y4:X3,Y4:X4,Y4/C&/H& * JACK */R&0: BLACK/T&I04:WXI:W,Y:I/V&X2,Y1/X&X2,Y2/Z&X,Y3:X2,Y3/\&X,Y4:X1,Y4 J(X):H(X)K(X)ROLD(X)R@ UPDATE POSITIONS FOR NEST RUNGXP$490l- CRASH/LAND SUBROUTINEz.KILL(X)10 IF SPEED SLOW ENOUGH, AND ON FLAT TERRAIN, LAND SAFELY. IF NOT, CRASH8SLOPE(X)0ī1110BSLOPE(X)1ī1170LVYàҨΩҠʺһΠʺԍƠμԨʩ΍Ǫ̛ʩΠʺ̨ʩŠΠ̨ʩ׻ʺčŠƠҨʩΠʺҨʩŠΠҨʩ׻ʺč̠ʽԨשλ׺׫Ļà֨ʩŠŠŠΠǪ̛ʩΠ̨֨ʩӨ˩Ԩʩ˺˫ƠҨʩΠ֨ҨʩĻX3,Y1$1&X,Y2:X1,Y2:X2,Y281&X,Y3:X3,Y3L1&X,Y4:X4,Y4R1&j1& PUT A ? ON A CARDy1&0: BLACK1'X2,X8Y1 'Y,Y5X81 'X3,X8Y51'Y5,Y8X31'X3,Y101'1' CARD CLEANUP ROUTINE1'151$'I122 2.'X,X9YI28'I2B' 2I':(2J'NK72L'QN10063F2M'QN100642N'ZQN:QNĺ"YOU'RE QUITTING AHEAD BY ";Z;" SOVEREIGNS.":100652O'"AT LEAST YOU BROKE EVEN!":100652P'WNQ:"YOU'VE LOST ";W;" SOVEREIGNS IN ALL." 3Q'"YOU STARTED WITH ";N;" SOVEREIGNS."33S'"NOW YOU HAVE ";Q;" SOVEREIGNS."i3V':QNĺ"I HATE TO SEE YOU QUIT WHILE YOU STILL"3W'QNĺ10)"HAVE SOME SOVEREIGNS."3X'QNĺ3)"I LIKE TO TAKE THEM ALL!"3Y'QNĺ"PLEASE TYPE IN'RUN' TO PLAY AGAIN."3t':4~'5)"REMEMBER--I'M ALWAYS HERE--AND"I4'3)"I'M ALWAYS READY TO TAKE YOUR MONEY!"O4'S8)4!vQ48J(X)G(X)(Q32)4>Q48K(X)H(X)(48Q)4[Q32J(X)G(X)(32Q)4xQ32K(X)H(X)(Q16)4Q16J(X)G(X)Q4Q16K(X)H(X)(16Q)4710J(X)G(X):K(X)H(X)K(X)K(X)1ROLD(X)+ FIND OLD ROTATION AND PICTURE TYPE AND POSITION TO XDRAW.FOLD(X)1ĕ1G(X),H(X)aOLD(X)2ĕ2G(X),H(X)hR FIND NEW ROTATION AND DISPLACEMENT FROM OLD POSITION TAKING VELOCITY INTO ACCOUNT.XDIS(X)XDIS(X)(J(X)G(X))J(X)J(X)XDIS(X) YDIS(X)YDIS(X)(K(X)H(X))-K(X)K(X)YDIS(X)M J(X)270J(X)10J(X)G(X)a*K(X)155İ1070/ IF OUT OF PICTURE AREA, EITHER0 STAY WHERE YOU ARE OR CRASH.4K(X)10K(X)H(X)>I1]C FIND OUT BETWEEN WHICH POINTS THE SHIP LIES. THIS PART DOES INTERPOLATION TO FIGURE THE GROUND HEIGHT FROM THE POINTS GIVEN IN THE BEGINNING.~HJ(X)A(I)J(X)A(I1)ī870RII1\840a NOW WE KNOW THE RIGHTMOST A(I)f ACTUAL DISTANCE BETWEEN POINTSkX1A(I1)A(I)pB(I)B(I1)ī940%u IF NO SLOPE, GROUND FIXED.;zX2(J(X)A(I))X1u FRACTIONAL POSITION OF SHIP BETWEEN A(I) AND A(I+1)BDIS(X)(B(I1)B(I))X2 FIGURED Y DISPLACEMENT FROM X FRACTION.GOUND(X)B(I)BDIS(X) FINAL GROUND VALUE FROM INTERPOLATION.SLOPE(X)1 IS LEVEL, SLOPE=0 AND YOU CAN LAND THERE. IF SLOPE=1 YOU WILL CRASH INTO THE SIDE OF THE MOUNTAIN.960GOUND(X)B(I)SLOPE(X)0K(X)GOUND(X)İ1070 IF BELOW GROUND LEVEL, USE THE SUBROUTINE THAT CHECKS FOR LANDING OR CRASHES.,KILL(X)1ī10507TRCH0OX2KDISJ(2)J(1)gX1KDISJ(1)J(2)X1ROT(2)56ROT(2)4KDIS7KDIS2TRCH1 THIS SECTION SEES IF YOU FLY THROUGH THE OTHER GUY'S ROCKET. IF SO, CRASH. NEEDS SOME WORK TO WORK RIGHT. BE MY GUEST.GX2ROT(1)56ROT(1)4KDIS7KDIS2TRCH1dBUT(X)127Ĕ1J(X),K(X) DRAW NEW SHIP POSTIONSBUT(X)127FUEL(X)FUEL(X)8.5BUT(X)127OLD(X)1BUT(X)127Ĕ2J(X),K(X)BUT(X)127OLD(X)2G(X) nKILL(X)1ī590= x"FUEL=";FUEL(1)," FUEL="FUEL(2)J X1Y2W X2Y1z FUEL(X)0FUEL(Y)200İ1780 FUEL(X)0İ720 Q(X1)4 RQ32:R0R32Q BUT(1)(16287) BUT(2)(16286) BUT(X)127ī270$ Q64J L       Q !L ^   E !L} ^  L  ^   L      E !L    L          B !L      0 L*  ^   E !L ^  L[ '       0      E !L    L[ 'L*   o  o ~BLOAD PASOBJ.  u ~,A$  {  o  o      0 L*   ^       L  '   0 L*$           L      H !L>  i  B !L i  B !L i  B !L   0   ]   0  0 L ' '   0    Lr   H !L] L   K !La  o ~THERE ARE   u ~ REFERENCES.  o    L[ '  o  o ~OPEN PASREF  o  o  o ~WRITE PASREF  o         3 i  K !L    E !L   u  o      0   c Lj '  - u  o  o  o ~CLOSE  o  o ~THERE ARE   u ~ ACTUAL LABELS  o  o ~RUN PTRANP2  oL*DIS(X)9ī1170,[ROT(X)56ROT(X)4ī1170b] CRASH ROUTINE. EXPAND AND XDRAW THE SHIP. NEAT.i`6zj2G(X),H(X)t3~FUEL(X)FUEL(X)(165(J(X)165))2 FUEL AWARDED FOR A GOOD LANDING11005II110II""2G(X),H(X) 2G(X),H(X)(II23:2<1100[ TEXT FOR DIRECTIONS,ETC.x" DIRECTIONS "" FROM PALMER'S PLACE, HANG A"" LEFT, GO DOWN TO MAIN, TURN RIGHT""AT THE LIGHT, TURN LEFT ONTO THE" "FREEWAY, THEN CATCH I-5 SOUTH AT"9"OLYMPIA, YOU CAN'T MISS IT."_" SOMEWHERE SOUTH, TAKE I-10 TO"("FLORIDA. YOU CAN'T MISS IT."2" AT THE CAPE, GO STRAIGHT UP"<" ABOUT 3 MILLION MILES OR SO,"F" GIVE OR TAKE AN AU OR SO, "P" AND THERE Sc,`.6666c,`.0  h!>!"`L8Hh`Ybk8Hh`8Hh`;B$xB$"N"90" AHA! WE GOTCHA NOW!"" YOU GOT STUCK DOING THE ""MILKRUNS TO MARS. THE COMPETITION""HOWEVER, IS TRYING TO BEAT YOU"8" OUT. WHO CARES, YOU ASK?"\" HAVE YOU EVER BEEN STUCK IN"" PEORIA AT NIGHT? MARS IS WORSE.""IF YOU RUN OUT OF FUEL, THAT'S""WHERE YOU'RE STUCK. YOU HAVE ""TO CARRY YOUR FUEL BY HAND, -O MY FIRSTEST APPLE PROGRAM. DAVID WAYNE RUSSELL,ESQUIRE. (408) 238-0444.Y1130`2t(G(1)20:H(1)202G(2)260:H(2)20<3:2G(1),H(1)F2G(2),H(2)PX1PLYRZPLYR1KILL(1)1ī1220dPLYR2KILL(1)1KILL(2)1ī1220     z# Πвг Ш̩!̲̩"Oб̩Ԡ ֠ʠ б ŮҠҠ̠ʮ ƠĠ Š ŠɠŠӠ ŠӠԩ ٠٠ĠŠ. ԭ Πˠ  ٨͠ԩ! ҠŠ ɭӠҠҠӠ ӠŠǠ ˠŠӠà2 ȠʠՠϠA(5)80:B(5)100+A(6)100:B(6)100AA(7)120:B(7)140WA(8)135:B(8)140mA(9)150:B(9)150A(10)180:B(10)150A(11)190:B(11)155A(12)210:B(12)155A(13)240:B(13)100"A(14)243:B(14)100,A(15)245:B(15)105Ndq@p()de.?6rde.?7rq q d e@p()$na@E(Π)a@E(Š)~xa()E@E(Խ)E@E(˨)FE(˨)FE()E@E(Ƚ)E@E(˨)FE(˨)FE()a@E()Q(X)G(X)(64Q)4:K(X)H(X)(Q48)4T Q48J(X)G(X)(Q32)4:K(X)H(X)(48Q)4 Q32J(X)G(X)(32Q)4:K(X)H(X)(Q16)4 Q16J(X)G(X)Q4:K(X)H(X)(16Q)4 280 J(X)G(X):K(X)H(X) K(X)K(X)1 "ROLD(X) ,OLD(X)1ĕ1G(X),H(X)# 6OLD(X)2ĕ2G(X),H(X)* @RJ JXDIS(X)XDIS(X)(J(X)G(X))` TJ(X)J(X)XDIS(X) ^YDIS(X)YDIS(X)(K(X)H(X)) hK(X)K(X)YDIS(X) rJ(X)270J(X)10J(X)G(X) |K(X)155İ610 K(X)10K(X)H(X) I1 J(X)A(I)J(X)A(I1)ī440 II1 410/ X1A(I1)A(I)E B(I)B(I1)ī510[ X2(J(X)A(I))X1x BDIS(X)(B(I1)B(I))X2 GOUND(X)B(I)BDIS(X) SLOPE(X)1 530 GOUND(X)B(I) SLOPE(X)0 K(X)GOUND(X)İ610 KILL(X)1ī5902 &BUT(X)127Ĕ1J(X),K(X):FUEL(X)FUEL(X)8.5:OLD(X)1Y 0BUT(X)127Ĕ2J(X),K(X):OLD(X)2q :G(X)J(X):H(X)K(X) DROLD(X)R NX X80 bKILL(X)1 lSLOPE(X)0ī650 vSLOPE(X)1ī720  YDIS(X)9ī720 ROT(X)56ROT(X)4ī72062G(X),H(X)3DFUEL(X)FUEL(X)(165(J(X)165))2M640[KILL(X)1b5oII110wII""2G(X),H(X) 2G(X),H(X)II 3:2*6404" DIRECTIONS ">" FROM PALMER'S PLACE, HANG A"(H" LEFT, GO DOWN TO MAIN, TURN RIGHT"PR"AT THE LIGHT, TURN LEFT ONTO THE"x\"FREEWAY, THEN CATCH I-5 SOUTH AT"f"OLYMPIA, YOU CAN'T MISS IT."p" SOMEWHERE SOUTH, TAKE I-10 TO"z"FLORIDA. YOU CAN'T MISS IT."" AT THE CAPE, GO STRAIGHT UP"-" ABOUT 3 MILLION MILES OR SO,"P" GIVE OR TAKE AN AU OR SO, "x" AND THERE SHE IS. (GIVEN YOU'VE"" FOLLOWED MY DIRECTIONS CAREFULLY)""NOW, SUCKER, WOULD YOU LIKE""INSTRUCTIONS(Y/NOT SURE)";B$B$"N"1190" AHA! WE GOTCHA NOW!"7" YOU GOT STUCK DOING THE "a"MILKRUNS TO MARS. THE COMPETITION""HOWEVER, IS TRYING TO BEAT YOU"" OUT. WHO CARES, YOU ASK?"" HAVE YOU EVER BEEN STUCK IN"" PEORIA AT NIGHT? MARS IS WORSE.""IF YOU RUN OUT OF FUEL, THAT'S"B$"WHERE YOU'RE STUCK. YOU HAVE "h."TO CARRY YOUR FUEL BY HAND, SO"8"THE CLOSER YOU LAND TO THE FUEL"B"DEPOT, THE MORE YOU CAN GET."L" GOT IT? GOOD. AND SAY HI"V"TO GREESHNAKH FOR ME."`1190jA(20),B(20)*tFUEL(1)200:FUEL(2)2007~GCOUNT0\" GRISHNAKH NE BETOOP MARSTREK"" WOULDST THOU LIKE DIRECTIONSTH? (Y/N)";A$A$"Y"ī820"BLOAD SHIPS,A$1E00"ENTER NO OF PLAYERS. (1-2)";PLYRPLYR0Ā"FUEL=";FUEL(1)," FUEL="FUEL(2)A"HIT RETURN TO CONTINUE, Q TO QUIT";C$OC$"Q"Ā`GCOUNT10ĀtGCOUNTGCOUNT1XDIS(1)0:XDIS(2)0YDIS(1)0:YDIS(2)0 KILL(1)0:KILL(2)0:5GCOUNT1İ1640:1340(GCOUNT7İ1680:134021440<CA(1):DB(1)"FI1TPA4PEA(I):FB(I)AZC,DE,FMdCE:DFTnIlx2:160,150160,140160,140170,140:170,140170,150232,0:233,3030A(1)0:B(1)150A(2)20:B(2)140A(3)30:B(3)140A(4)70:B(4)110  `-r$  `$  `$ ( `-ı-rr6$ qı-r[ q[]Š' `ı-rı-r$ qı-r_b  qı-r_b  `-r$R # q`$ ]Š( `-ı-rr6$ԢԽ˨˨Ƚ˨˨6A(16)260:B(16)105-@A(17)270:B(17)150EJA(18)279:B(18)150PTTPA18V^`hTPA2trA(1)0:B(1)150|A(2)275:B(2)150TPA8A(1)0:B(1)150A(2)30:B(2)60A(3)100:B(3)50A(4)140:B(4)150A(5)170:B(5)150A(6)185:B(6)70-A(7)230:B(7)60CA(8)275:B(8)150IQ50t"AS ANOTHER EXAMPLE OF GOV'T""STUPIDITY, THE UN SUBSIDIZES""YOUR FEEBLE ATTEMPTS"255&FUEL(X)1000:A(11)190:B(11)155 ī660_J505:J:X,160YX,159Y:X1,160YX1,159Y:Q(16336)(16336)(16336):JvYH(X)1730:660660(XL(N))2T2ī750(XL(3N))2ī770T2ī660:570820P180:Q(16336)(16336):P X111:776,P(X):777,D(X)2:778:X'973,0I4:"***** KA-BLU-EE *****"r :"PLAY AGAIN ?";A$:(A$,1)"Y"90*0::976:4B15:S16336:B1(S)(S)(S)(S)(S):B:570 h6>60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>>$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~@ BB<~B > DD
DDDDD>~~~BB>BB>"B\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(.Pb-rGoPb-rG\F#oPb\<#[ ]$ ]Š̠ĠǠ' qoPa(̣)FG\+ `- r$ q []Š+ `- r$ q []ŠǮ+ `- r$ q []Šͮ `$  `- r6$& # `- r$ ]Šͮ `- r$ q [ `$& q [& q]٠ҠǮ-0 q`ı-rı-r$: qı-r_b : `$0 %D `ı-rı-r$N _X N q_b  X qb ]ŠӠҠǮ l qv q`-r$  `$v  a(ҠǠ)5 UVWIJ-rqY-rq/?rIJ-rq* q-r-r-r-r-r \_(ҠϠŠ)[],]ԠǠӠqd2eUVW `-r6$`ʱ$`-r$o`%oPb-rGqYd2e[]$]٠ǠӠd]Š̠n]ĠШ̩x]Ġ̲̩]̠̲]Ġ٠ͮȠa()a(ĠШ̩)a()a(Ġ̲̩) a()MQ  `H XN7<6NWRU@ TPhhHNɍ-Ɍ+*+*++8 $%ll%J) +%j )* * (je$*h-HJJJ'hH*&'*&'*&')&&OH**hQ**O+i+$$! $%%#"%Nh`:ghgh[]ԠŪ&f&0ghghgh :f&DghghghN[>Xghghghghghghgh -rq/?rIJ-rq H Y_ R q`$z !\ q`-r$f q[f `$\ p _ z qq q`ı-rı-r$  qı-r q`-ı-rr6$  `$  `- r6$&  q" q`-ı-rr6$  `$  ]ŠӠ̠Š \z_ . `- r6$ q []Š5 `- r6$ q []ŠŠϠ/ `- r6$q []Š `- r6$q [ `- r6$q [ `-r6$$q["$q]٠ŠΠҠ .q8`-r6%[B`$.Larr#--rr--rrrQ]]ҠǠT`;@r$q<@*#rr`;@r%q 8<@*#rrr_W\<#od"ed#eS(ԠנϠՠȠϠſ)'d"ed#e` $ / / /'P "P' P   4/ >/4  q  P OP4Q BLOAD PASOBJ. ,A$  z/P  Q z Q  THERE ARE  REFERENCES.   4 OPEN PASREF   WRITE PASREF     5  q 1  q   q    CLOSE  THERE ARE  ACTUAL LABELS RUN PTRANP2  dK2c,`.6666c,`.W0  !<̣)Fʱ\oM6doM6d8oPa(ҺРҠӬӠҠ)/od"ed#e`ʱ$R@_S(ҠҠҠ̺)&@d"ed#e\<#DqUVW `%q`-r6$oPa()GqY( `-r6$oPa()G`;@r$" `@*#r:()$*\_"*`@*#r:()$4\_4`ʱ$>`@*#r:()$H]ŭ̠Š&R`;@r$\@p@*#;@rr_fM\\<#d#ed"eoPS(ŠϠŭ̿)&@d"ed#ef`;@r$\pUVWIJ-rqYzUVW;@r$q<@*#rr`$\-rq/?rIJ-rqY4q-r-r-r-r-r\\)ʱqʱoPa(̣)Fʱ_"UVWP#oa()YoPbY Y ]ŠŠӠ;UVWβ-rq-r-r-rq-r-rqY1M6o@p(ŠĠӠ)\vc"]ԠԠӠ`β$LqUVWβ`-r-r$B#$q-r-rq-r-rq#.q-r-rq-r-rq 8qBY`$ LUVWβUUVWYM6cPa()UVWYM6dqCqa(Š)G\iq2a(Ƞ)G\nq2qPa(ՠ)G\sq,a()G\xq2a()G\}q5a(٠)G\qq;a()G\q;a()\q;a(Š)G\q,a(Ƞ)G\q,qPa(ՠ)G\q(a()G\q,a()G\q2a(٠)G\qq5a()G\qCa()\qCa(Š)G\q(a(Ƞ)G\q(qPa(ՠ)G\q&a()G\q(a()G\q,a(٠)G\qq2a()G\q;a()\qCqPa(Ġ)G\qCa()G\ qq;a()G\q,a(٠)G\q5a(נ)G\q2a(ҡ)G\.UVWYKc@p()a@E(Π)GQdedeM[P!bGY& [(#]2#]Ӡ%<#oPM6doPM6d[F#UVW2Y[4P#M6a(ŠӠҠŠΠȠ)-Z#a(ҠӠŠŠƠӠŠ))d#a(ŠƠ̠ǠӮ)%n#a(ՠΠҠΠ٠)*x#a(̠ŠŮƠՠŬՠ)-#a(ŭ̠٠Ҡ̠ŠŠŠ)-#a(ŠǠҠǠ)-#a(ӠŠΠŠǠҮ),#a(ȠƠŠΠӠӠ)"#a(ŠҠǮ٠ź)#ca(Ҡ)##a(Ӡ͠Ơ̠ӧ)##a(Ӡ͠Ơ̠ӧ)%#a(ӭ͠Ơ̠ӧ)$#a(Ӡ͠Ơ̠ӧ)$#a(Ӡ͠Ơ̠ӧ)$#a(Ӡ͠Ơ̠ӧ).#ca(ƠŠ̠ҠŠҠΠ)8$a(ҠŬԠӠӠĮ)\M6$a(Ҡ)c.$a(ƠĭƠՠŠƠĬ)'"$a(ՠ̠͠Ů).,$a(ƠĭƠՠŠƠ     \q7q<a()G\q2qxa()G\qCa(ҡ)\ \gUVWYclq2qa()G\vq7q<a(Ӡ)G\q;qxa(Ơ)G\qCa(Š)G\qJa(Ġ)G\qCa(]ˠŠӠ٠]]ӠàĠ]ӠҠˠŠ]]ˠ]]ĠĠΠ ] ]Ŭ ] ] ] ]ΠϠ٠ ]ŠƠΠ ] ]ҭǠӪ ] ]Р ] ]ΠԠ ]Ġ٠ ] ]ش ] ]]] ] ]͠٠ŠĠ ]Ҡ̠Š ]٠ԠŠĮ٭ !]ԠŬà "]*)KM6P a(ˠŠӠ)T*dede0dededededed ed e+\\M6],d ed ed ededededeLdedede` -q.q2a(ˠ)G\ /q<0q7a(Š)G\ 1qx2q;a(Ӡ)G\<qCa(Ƞ)G\FqJa(Ӡ)G\PqCa(Ơ)G\Zq;a()G\dqJa(١)\n\UVWYcqq2a(Ӡ)G\q<q7a(Š)G\qxq;a()G\qCa(Π)G\qJa(Ϡ)G\qCa(Š)G\q;a()G\qJa(١)\"\UVWYcqCqa(Π)G\q;q<a(Š)G\q7qxa(נ)G\qCa(Ҡ)G\ qq;a(٠)G\ q<q7a()G\ qxq2a()G\qCa(̡)\\?UVWYcDq2qa(̠)G\Nq7q<a(Š)G\Xq;qxa()G\bqCa(Ԡ)G\lqJa(ŭ)G\vqCa(Š)G\q;a()G\qJa(̡)\\UVW,Ycq2qa(Š)G\q7q<a(Š)G\q;qxa()G\qCa(Ǡ)G\qJa(Š)G\ qCa()G\q;a(Š)G\ qJa(ӡ)\%\UVWYc q2qa(Š)G\q7q<a(Š)G\q;qxa(Р)G\qCa(Ġ)G\qJa(Π)G\qCa(Š)G\q;a()G\qJa(ӡ)\\)UVWYc.qCqa()G\8q;q<a(נ)G\Bq7qxa(Š)G\LqCa(Π)G\Vq;qa()G\`q7q<a(٠)G\jq2qxa()G\tqCa(š)\\UVWYcq2qa(Š)G\q7q<a(ɠ)G\q;qxa(̠)G\qCa(Ơ)G\qJa(ŭ)G\ qCa(Š)G\q;a()G\qJa(š)\#\iUVW,Ycnq2qa(Ԡ)G\xq7q<a()G\q;qxa(٠)G\qCa(Š)G\qJa(Ġ)G\qCa(Ҡ)G\q;a()G\qJa(ӡ)\\UVWYcq2qa(̠)G\"q7q<a(Š)G\,q;qxa(נ)G\6qCa(Š)G\@qJa(Ӡ)G\JqCa(Ġ)G\Tq;a()G\^qJa(ӡ)\c\UVWYcqCqa(Ǡ)G\q;q<a(Š)G\q7qxa()G\qCa(Ӡ)G\q;qa(̠)G         K}d?ed?ed?ed?ed?ed?ed?ed?eK }d?ed ?ed ?ed ?ed ?ed ?ed?ed?e0K}d?ed?ed?ed?ed?ed?ed?ed?eK}d?ed?ed?ed5<9F::D$(4):D$"CATALOG":B(37)2:B22B22PT0:CH4:CV023:230:C160ĹP1,219:P,T193:P1,221:TT1:SCVZCV:24:A$"TYPE LETTER TO RUN, OR LOAD=1 LOCK=2 UNLOCK=3 DELETE=4 EXIT=5...."- dB$"RUN":1:(A$,39);:A$(A$,2)(A$,1):K(16384):K128āK175:K:K(0):100P n16368,0:KK176:K1K6200d x1:868:K5Āq K6150 "PRESS 'LETTER' YOU WISH TO ";:K1B$"LOAD" K2B$"LOCK" K3B$"UNLOCK" K4B$"DELETE": K6B$" ":4210 B$;:198::K$:K(K$)480 K17KT16100p CH1:CVSTK16:230:C194(B$"RUN"B$"LOAD")B$"B"B$ CH639:230:B$B$(C):CH:1:868:B$:D$;B$:70 C1(CV8):C2CVC18:P1024128C240C1CH:C(P): HEX / DEC AND DEC / HEX@I4 FOR SHAPES USE POKE 232,60 AND POKE 233,30  k]ˠŠԠͺ \}ֱqֲq q  q+dqֱ\\\\\\\0n\.\$\.\\\\\\!x\\\\\\!qֲ\\8\L\B\8q8rq\q\/q\q\q\q\\9q\q\\q.\q$\q.\q\q\4q8rqֲ\\\\\\qֱ\\.\$qqֲ\UVW Y qqֲ\.\$q\.Aq\\q\q\.\$q\."q\\q\Fq\.\$q\.q\\q\\ 3q\\ \\\\$\\."\\ \\\:,\8\\B\\ \\\\L\\VV6q\Bq\8\.q\8q\.\$q\.qT@\$\\\.\\.q\q\\\\.\\.@Jq\q\\\\.\\.\\. O\\.+T\\$\\.\\8\\B$^\\L\\Vq\B4hq\8\.q\\$\.q@r\$\\\\\q\q\\"|q\\q\UVW Y q qֱ.\\\\\\q\6qֲq\.\.\8\Bq\.\$q8rWq.\\q8\qB\qL\qB\q8\q.\q$\Cq\q\q$\q8rqֱ\qֲ\.UVW YSqֱq \.q\\ \\\\q\q\$q\.UVW Yqֱq Pq\V\B\.\q\\$\.q\q\.q\$qֱq\8\V\B\.Fqֲq\\$\.q\8q\Bq\8K&q\B\L\B\8q\Vq\B\8q\.UVW Y_ tuQ q_ q_ q_ q_ q_ q_ q_ q_ q_ $q_ .qz_ 8qn_ Bqc_ Lq^_ VqR_ `qH_ 'tu   :0FNE1..IF CURRENT TOKEN<>E$ THEN ERROR#EBS0$E$İ550HN:xFNE2..IF NEXT TOKEN<>E$ THEN ERROR#E1240440:&PRINT ERROR MSG:C04);"^";E?(7);D610ID$"CLOSE"N7000P"END ? ";E$ RD$"R -- DOS 3.3 HELLO  (:.(Y2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776,104:W _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:N n804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,96: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" ::"PLEASE WAIT A FEW SECONDS..." "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082 (4);"RUN MENU"  > --NO CARD OR CAN'T RELOADD T (768)0Ā ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..." ,,               ?7+ PASCAL SUBSET COMPILER FOR P-MACHINEA BY KIN-MAN CHUNG]1/78 LAST VERSION 4/78|REWRITTEN BY M.OHTOH 1/79 FOR APPLESOFT IIFUNC TEST CMPLD 4/2/79MULTI-LEVEL INCLUDE (MAX 10) 4/20/79OBJ (TXT & RLD) ON DISK 4/22/79= OBJ FAILED. DOS DOES NOT ALLOW BINARY DATA FOR TEXT FILE.` SEGMENTED OBJ ON DISK 5/22/79l 2PA2048 4HM940966256PA:HM 6N032:# OF RESERVED WORDS 8T0170:SYM TABLE SIZE <N132767:LARGEST INT FN28:IDENT LEN PW0$(N0):RESERVED WORDS! ZT$(T0):SYM TBLE dT0$(T0):KIND OF IDENT IN S.T._ nD$(4):D$"NOMONCIO" r:" *** PASCAL COMPILER V1.3 ***" t: S(100),S$(100):STACKS T1(T0):LEVEL OF ID IN SYSM TBL T2(T0):VAL(FOR CONST) OR @(FOR INT)% T3(T0):ARRAY DIM OR # OF PROC PARMS; I1T0:T3(I)0:Q I1N0:W0$(I):~ AND,ARRAY,BEGIN,CALL,CASE,CONST,DIV,DO DOWNT,ELSE,END,FOR,FUNC,IF,INTEG,MEM MOD,NOT,OF,OR,PROC,READ,REPEA,SHL SHR,THEN,TO,TYPE,UNTIL,VAR,WHILE,WRITE M$(9)/ I19:M$(I)::P-CODE MNEMINICSY LIT,OPR,LOD,STO,CAL,INT,JMP,JPC,CSPb P81 P70:OBJ PAGE START P-@ P9P7:CURR P-@ "P-CODES START AT ";HM "P-CODE AREA IS ";PA;" BYTES." Q9(PA4)1 "MAX # OF P-CODE IN A PAGE = ";Q9) F50:INPUT FROM KEYBOARDA 6450:FUNCTION DEFW HMPA4,254:EOBt "WANT CODE PRINTED?";Y$ "Y91:Y$"Y"Y90 #299 $READ PRE-COMPILED SYM TBL &D$"OPEN PASSYMT":D$"READ PASSYMT" (T1:I1T1:T$(I),T0$(I),T1(I),T2(I),T3(I):*D$"CLOSE")+D$"MONI"G,X$" ":1240:GET A TOKENX65340:BLOCKl@E$".":E9:420JSAVE LAST OBJ PAGETHMPA4,255:EOT^370:SAVE LAST OBJ PAGE`D$"CLOSE"b"TO GO TO MENU, PRESS RETURN:";E$dD$"RUN PASMENU"hrSAVE A OBJ PAGE7tP7Q9P9WKPA:380JvWK(P9P7)44`xHMWK4,255:EOT|D$"BSAVE PASOBJ.";P7Q9;",A";HM;",L";WK~F50ĺD$"READ ";FI$(F5)LOAD OBJ PAGED$"BLOAD PASOBJ.";P7Q9382ERROR ROUTINES    ϠàҠŠҠΠԮ)Ia(ϠԠ͠͠ӮϠͻϠŠŠԠŠ̠)a()0S(ŠΡϠ̠ǬԠή)&@ M6]Ӡ̠a()E()Q2! CREATE PASCAL KEYWORD FILE?CODED BY M.OHTOH 11/4/79n2:" *** CREATE PASCAL KEYWORD FILE ***"t<P AND,ARRAY,BEGIN,CALL,CASER CONST,DIV,DO,DOWNTO,ELSET END,FOR,FUNC,IF,INTEGERV MEM,MEM2,MEMX,MOD,NOT X OF,OR,PROC,READ,REPEAT% Z SHL,SHR,THEN,TO,TYPEA \ UNTIL,VAR,WHILE,WRITEP ^ ZZZZZZZZ\ dD$(4)k fBELL$(7)y hKW$(100) nI1100:MAX KEYWORD#=100 xKW$(I) KW$(I)"ZZZZZZZZ"200 BELL$;BELL$;"TOO MANY KEYWORDS" :"MAX NUMBER OF KEYWORDS IS 100" 6 NKI1:NUMBER OF KEYWORDSW "NUMBER OF KEYWORDS IS ";NK] t D$"OPEN PASKEYWD" D$"WRITE PASKEYWD" I1NK B$(KW$(I)" ",8) B$;  ::THIS IS EOF MARK "D$"CLOSE PASKEYWD" $:"FILE CREATED":) ,CONFIRM CREATED FILEI 6"PRINTING CREATED FILE..."O @] BD$"MONI"t JD$"OPEN PASKEYWD" TD$"READ PASKEYWD" ^I11008 hB$ rB$(13)500 |B$;  :D$"CLOSE" :BELL$;BELL$;"TOO LONG FILE"  "*EOF*" D$"CLOSE"+ D$"NOMONCIO"1  ] ] ]ŠɠϠ ]]ŠϠ٠]̠Π]ڠ]]͠٠]ԠΠҠ]Π]Π]] M6 Lf "ijk$ijk&ijk(ijk*ijk,ijk*.i j kijkijk*0i jkijkijk2ijk ijk 4ijk 5f 6ij k 8ijk :ijk <ijk>ijk@f BijkCijkDijkEijkFijkHfJijkLijkNijkPijkRijkTijkVij kXfZij k\ij k^ijk`ijkbijk dijk!ffhijk"jijk#li jk$ni jk%ijk%pi jk&ijk&rf tgh vg h xg h zg h |g h ~g h gh gh gh gh gh gh gh gh gh gh gh gh ghUVWghYUVWghYOa(ŠɧӠŠŠҠҧӠРҠŠҭϠ)c1S(ŠӠΠΠ٠ϠϠ)&@ KM6.a(ŠɺŠӠ)a()a(ïϠǠ)a(Ϡ̠Ơ)a(άϠ)a()a()a()a(Π٠Π)$a(ŠӠŠ)+a(Ϡ)a()Va(ŠŠƠ٠ӠΠǠŠӠĮˠծ)a()|a(ź̠ԠӠĠŠΠŠ͠ĠήϠԠ͠Ϡ͠ӮĠԬ)Ra(̠ĠΠҠŠԠˠ    AVE MISSED"290%B1001080T$"YOUR ANGLE IS TOO GREAT,YOU HAVE MISSED"%" YOU ARE TOO FAR AWAY FOR THAT WEAPON TO BE EFFECTIVE".2908E2E21500="****************************************" >"*************YOU HAVE HIT HIM***Ġ٠Π̠ŠԠ֠ϠϠŠĠҠàƠҠ͠ͲؠĠԠƠҠàĠԠ̠ҠΠϠŠ̠ҠŠŠ       200" BY MIKE RANDOLPH (N "THIS IS THE GAME OF SPACE WARS"T"TWO SHIPS BATTLE,YOU MUST DESTROY THE""ENEMY TO SAVE THE REPUBLIC"#2"ARE INSTRUCTIONS REQUIRED TYPE EITHER"7<"YES OR NO"F"";A$ P(A$)"YES"120% Z(A$)"NO"250= d"INVALID RESPONSE"E n50K xz "THERE ARE 5 EXECUTIVE COMMANDS;TURN THE" "SHIP(1),MOVE(2),FIRE LASER CANNON(3)," "FIRE LASER(4)AND SELF DESTRUCT(5)" "THE CANNON MUST BE FIRED WITHIN 10 DEGREES": "OF 90 TO BE EFFECTIVE.NEGITIVE DEG.TURNS TOWARDS"u "0 AND POSITIVE DEG.TOWARDS 180.ENTERING NEGITIVE KM" "MOVES YOU TOWARDS THE ENEMY,WHILE POSITIVE MOVES" "YOU AWAY. TO HIT HIM YOU HAVE TO BE CLOSER THAN 500 KM" "IF YOU RUN FROM HIM HE WILL SHOT YOU" M "***************GOOD-LUCK****************"} "*******MAY THE FORCE BE WITH YOU********" "HIT KEY LABELED 'RETURN'TO START GAME";Z$ (Z$)"GO"ī250 S0200 B(16336) S E11E04 E2E1 D1E02((1)5E03)' B1((1)180)0 "3409 ,390F 6E1E1D1O @500X J690i TD1E05370q ^L1z h380 rL0 | L0440 H21((1)100)100 D1500H2 E2E2500 490 M11((1)2) M11470 D11000 480 D10! E2E21000' - O "DISTANCE TO ENEMY ";D;" KM"U u "BEARING IS ";B;" DEGREES" L1560  "THE SKY FIGHTER HAS FIRED THE LASER CANNON" &570 + 0"THE SKY FIGHTER HAS FIRED HIS LASER" 5':"YOUR TOTAL ENERGY IS NOW ";E1;" UNITS"-?^D"THE ENEMY HAS ";E2;" UNITS OF ENERGY LEFT"mNE10611|XE20645b680cBEEP0200dS(16336)eBEEPl"YOUR ENERGY LEVEL IS ZERO THE ENEMY"v"HAS WON THE REPUBLIC WILL BE DESTROYED"1180N0300/S(16336)6Na"THE ENEMY HAS RUN OUT OF ENERGY,YOU""HAVE WON THE FEDERATION IS SAVED"1180"WHICH COMMAND DO YOU WISH TO EXECUTE""";CC730,840,1010,1100,1140"HOW MANY DEGREES OF ROTATION"""";B12BB10800DBB1180820OBBB1b E1E1(10B1)k290 "YOUR ANGLE MUST BE GREATER THAN 0 DEGREES"*7304"YOUR ANGLE MUST BE LESS THAN 181 DEGREES">730H"HOW MANY KM TO TRANSVERSE" R"";KWK02041&\DK09108fDK1E06960FpDD(K1)UzE1E1(K)^290"YOU HAVE TRIES TO CLOSE THE DISTANCE TO ZERO""BETWEEN YOU AND THE ENEMY,THE ON-BOARD""COMMAND COMPUTER WILL NOT EXECUTE THIS MANEUVER"8409"YOU HAVE TRIED TO EXCEED THE DISTANCE WHERE"b"ANY OF YOUR WEAPONS ARE EFFECTIVE""THE ON-BOARD COMPUTER WILL NOT""EXECUTE THIS MANEUVER"840D5001061E1E1300B801050 "YOUR ANGLE IS TOO SMALL,YOU H S LOOK AT CARD 3X29:Y6%15?I022:X,X8YI:I]X28:Y5:5000:CC2:LL1jHE1955wME0955R DETERMINE IF WIN OR LOSE\ABTA:AB:BTfAC930pCB930:"YOU'VE WON ";M;" GOLD SOVERIEGNS!":QQM:9508 MOVE MULTIPLE 'PASOBJ';CODED BY M.OHTOH 11/3/79HZHM10240PdHMdnAM940965256pAMAMHM:AVAILABLE MEMEORYxNB(AM2048):MAX NUMBER OF 2K BLOCKS TO BE ABLE TO CONTAIN IN MEMORY:" ***** PASOBJ MOVE UTITLITY *****" 1 "MAX NUMBER OF PASOBJ BLOCKS ARE ";NB;"."d :"ENTER NUMBER OF PASOBJ BLOCKS TO MOVE : ";o "";MB ,MBNB400 6:(7);"TOO MANY BLOCKS" @200 D$(4) D$"MONCIO" I0MB1 D$"BLOAD PASOBJ.";I;",A";HMI2048 6 (7);"INSERT COPY DISKETTE TO PLACE PASOBJ BLOCKS"W "HIT ANY KEY WHEN READY : "_ A$u A$(3)Ā:CTL-C :TO INSURE C/R BEFORE D$ I0MB1 D$"BSAVE PASOBJ.";I;",A";HMI2048;",L2048"  X(7);"COPY END" bd                      P, :c ACEY DUCEY CARD GAME WRITTEN IN APPLESOFT BY T. NELSON (6/80). PHONE (303) 238-4014u1000: TITLE}: 10)"ACEY DUCEY CARD GAME"::14)"INSTRUCTIONS": 5)"IN THIS GAME YOU WILL GO THROUGH A":"DECK OF CARDS THREE AT A TIME.8 5)"THE COMPUTER DEALS TWO CARDS FACE UP"e ("YOU HAVE THE OPTION TO BET OR NOT DE-" 2"PENDING ON WHETHER OR NOT YOU FEEL THE" <"NEXT CARD YOU DRAW WILL HAVE A VALUE" F"WHICH FALLS BETWEEN THE FIRST TWO." P5)"YOU ARE PLAYING WITH GOLD SOVEREIGNS."F Q"YOU MAY DECIDE NOW HOW MANY YOU HAVE." R:"HOW MANY SOVEREIGNS DO YOU WANT TO PLAY WITH? ";Q SQ0ĺ"BE SERIOUS!":82 T"YOU HAVE ";Q;" GOLD SOVEREIGNS TO BET WITH." Z5)"YOU DECIDE HOW MUCH TO BET." _"IF YOU DON'T WANT TO BET, INPUT A '0'"::5)"IF THERE IS ONE POINT SPREAD OR LESS":"BETWEEN YOUR TWO CARDS, YOU WILL NOT BE":"ASKED TO BET ON THAT ROUND, BUT THE" `"ROUND WILL BE PLAYED THROUGH ANYWAY."::5)"YOU MAY QUIT AFTER ANY ROUND, OR,":"WAIT UNTIL YOU'VE FINISHED THE DECK."F a:"HIT RETURN TO START GAME ";I$N dKQZ eC1(52)q fI152:C1(I)1:Iw } , 612: BACKGROUND (GREEN) @I039:0,39I:I J SET OUT 3 BLANK CARDS TX0:Y4 ^9000 h DRAW CARD 2 rX14:Y4 |9000  DRAW CARD 3+ X28:Y45 9000Q  DETERMINE CARDS 1 & 2d R(52(1)1)u C1(R)0460 C2R:C1(R)0 X0:Y5:5000:AC2: FILLS IN FIRST CARD & DETERMINES ITS VALUE R(52(1)1): SELECT CARD 2C1(R)0ĺ"SEARCHING FOR SECOND CARD":500F4500: DETERMINE THE VALUE OF CARD 2^C2R:X14:Y5:5000oC1(R)0:BC2X29:Y10:9980: DRAW A ? ON CARD 3]:"YOU NOW HAVE YOUR FIRST TWO CARDS"^ABTA:AB:BT_EBA4`E1ĺ"NO POINT SPREAD, NO BET POSSIBLE.":"HIT RETURN TO SEE CARD 3";I$:750bE0ĺ"NO POINT SPREAD, NO BET POSSIBLE.":"HIT RETURN TO SEE CARD 3";I$:750c"YOU HAVE ";Q;" GOLD SOVEREIGNS."l"HOW MUCH DO YOU WANT TO BET?";MM0675M0700:5)"WHAT'S THIS?...NOTHING!"?"YOU ARE EITHER VERY CHEAP OR A COWARD!"WPAUSE1500:PAUSE"DO YOU WANT TO QUIT NOW? (Y/N) ";I$I$"YES"10100:"OK, LET'S START OVER.":970 SEE IF BET (M) IS VALIDMQ740 :"HEY! YOU CAN'T AFFORD THAT."95)"YOU ONLY HAVE ";Q;" SOVEREIGNS LEFT."`"TRY AGAIN--AND THINK THIS TIME!"xPAUSE1600:PAUSE620:"YOU'VE BET ";M;" GOLD SOVEREIGNS."R(52(1)1): SELECT CARD 3C1(R)0741C2R:C1(R)0"OK, LET'  ٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL 0 &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` Ӎ$ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  ׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$L?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơhL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅ $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH               @r a@*#rG `@*#r9()$ * UVW /?rq.?6?r.?6?rY Y c [@ d]#n]Ġ̠ΠŠx]Ġб̩!]ҠĬŠЭ]ΠŠ]Ġ٠ͮȠa(ĠШ̩)a(Ġб̩)MQ    [ ]]]Π]]ٺРΠ]]]ΠҮ ]Ƞήî ] ] ]d]n]Šx]O48rD4rN@" rC@"rC@" r@p()]̭\]]ԠРĠĠ LM6fUVW%Xij%klm%nY3a()d"eUVW8-rqY-rq-rq q]Π`/?r%q`$]]ҠŧӠŠ] q`%q+`$]ˠҠ̠-a(Ƞά)E@GT`$ M6\]Р\]ԠҠ]]ҠϧӠŠ] q`%q*&`$]ˠҠ̠-0a(Ƞά)E@GT`$0 :M6D\]РN\]ԠҠX_]ϠԠ]]РҠ] q`-r$q`$_qq`$ UVWX f-r \\*`8r$> 4f\\>YH-rqR[\UVW*fi88rrj88rrkpYz[a@E(Π̮)w`$_ a@E@E@E(ŠŮ)_x]]ԠҠΠ]0`%[]ϠŠΠΠŠȠUVWUVW`-r$P$`$V.UVW8`-8rr$VBYL_dV`$`UVWj`-8rr$tY~_d`$UVW`-8r8rr$Y_d`$UVW`-8r8rr$Y_d`$UVW`-8r8rr$ Y_d`$P(UVW2`-8r8rr$P<YF_dPYZZ[dwa@E@E@E(ՠά)Gn`%a@`%a@*xS(٠ο)&@`@:()@:()$GKM6a(ˠՠҠ)Gd2e?a()d2eUVWYQ]]Ӡ] KM6=oP d2e?a(Ԡ)d2ed"e/M6S(ϠՠĠӠٯΩ)&@ `@:()@:()$\aM6@p(ŠԠƠӠŠӠϠԠҠƠҠӠΠנ)\ c @p(ӬРάҠ٠ŠǠҠԠ͠ǠŠŮ)\ *UVWY+cc4@p(ՠΠРҠӠϠ٠ŠƠŠΠ̠ӠΠŠĮ)\ 5ci>@p(ΠҠӠĬԠ̠ϠŠ͠ԠĠŠΠԠ)\ HUVWYRcc\S(ҠŧӠſ)&@fa@E(ӠԧӠſ)GpR@z[ ]! ]ԠȠĠ ] UVW;)XBUT(X)127ī700] BUT<127 MEANS NO MOVEMENT, NO FIRING OF ROCKETS. IF ROCKETS FIRED, CALCULATE DISPLACEMENT FROM CURRINT POSITION. G,H ARE LAST POSITION FOR PLAYER X, J,K IS NEXT POSITION. bQ64J(X)G(X)(64Q)4lQ64K(X)H(X)(Q4C(#]Ҡ2#]Ԡ͠Ϡ<#qF#deP#de$Z#de.?rde.?r]Ҡ#d#dJe.?rdKe.?r]n#аq]ЭŠԠx#аqа]ͭŠԠ #@p()#a@E(Πìɬ) #M6%#a(ЭŠҠֱ)#]̠#ӱq]ؠƠЭ"#ӲqX]ؠƠ̠3#O4ӱrD4ӲrD4Ӳr]Э̬̬ͭĠ(#O4rD4rD4r]Π#]ӭ #qа$]ӭˠР$a@E(Π)$a@E(Ġ) $װq $װqװ $T-װr$`-װr6$$$] $װqװ%a@E()%c%bװE(̠)&%]ҠĨɩ 0%UVWװ :%-rqD%Y%a@E(Πг)G&]ŠĠ$H&a@E(Ġʮ)FE()FаR&qqа\&[ # THIS HERE'S THE BEGINNING .K FUEL START, GAME COUNT, ASK INST.\ A(20),B(20)fPT18FUEL(1)200:FUEL(2)200GCOUNT0(" GRISHNAKH NE BETOOP MARSTREK"2" WOULDST THOU LIKE DIRECTIONSTH? (Y/N)";A$<A$"Y"ī1250 Z"BLOAD SHIPS,A$1E00W c 100 IS START OF NEW GAME, OLD SCORES KEPT, VELOCITIES SET TO 0.~ d"FUEL=";FUEL(1)," FUEL="FUEL(2) h SET UP PLYR FOR 1 OR 2 PLAYERS i"ENTER NO OF PLAYERS.. (1-2)";PLYR nPLYR0Ā xGCOUNT10Ā } IF NO PLAYERS OR 10 GAMES,END- GCOUNTGCOUNT1E XDIS(1)0:XDIS(2)0] YDIS(1)0:YDIS(2)0 KILL=1 SAYS PLAYER REMOVED. KILL(1)0:KILL(2)0 :5 AIS GROUND X COORDINATE, B IS GROUND Y COORDINATES. TO. CHANGE TERRAIN FOR DIFFERENT GAMES, JUST READ IN ANOTHER A,B FILE.B A(1)0:B(1)150W A(2)20:B(2)140l A(3)30:B(3)140 A(4)70:B(4)110 A(5)80:B(5)100 A(6)100:B(6)100 A(7)120:B(7)140 A(8)135:B(8)140 A(9)150:B(9)150 A(10)180:B(10)150 A(11)190:B(11)1556 A(12)210:B(12)155N "A(13)240:B(13)100f ,A(14)243:B(14)100~ 6A(15)245:B(15)105 @A(16)260:B(16)105 JA(17)270:B(17)150 TA(18)279:B(18)150 ^C0:D150 c ONLY 18 POINTS GIVEN. PT IS d VARIABLE UP TO DIM(200 hI1181 rEA(I):FB(I)> |C,DE,FJ CE:DFQ Ij  JUST DREW TERRAIN  NOW DRAW BUILDING 2:160,150160,140 160,140170,140:170,140170,150 232,0:233,30 2  SET UP INITIAL SHIP POSITIONSG(1)20:H(1)20'G(2)260:H(2)20;3:2G(1),H(1)L2G(2),H(2)o THIS IS MAIN FIGURE LOOP FOR 1 OR 2 PLAYERS. IF PLAYER X IS KILLED, WE SKIP THIS PART.X1PLYRPLYR1KILL(1)1ī100 IF ALL PLYRS KILLED, RESTART!PLYR2KILL(1)1KILL(2)1ī1003TRCH1İ1170ITRCH1KILL(X)1^KILL(X)1ī1050"FUEL=";FUEL(1)," FUEL="FUEL(2)FUEL(X)0İ1170FUEL(X)0KILL(X)1! IF OUT OF FUEL, CRASH. " NEXT FIGURE X AND Y DISPLACEMENT FOR VARIOUS ROTATIONS.'&X1Q(0)490X2Q(1)4P:RQ32:R0R32Qr? 1) PADDLE IS SCALED TO 0-64@ 2) 32=ROT=0. ROTATIN IS SCALED TO 0 TO 180 EITHER WAY, WITH CENTER=0.A 3) CHECK BUTTONS.DBUT(1)(16287)NBUT(2)(16286          ]ЭŠϠ]Ġ٠ͮȠ$]ֱĠˠʠ#]ֱŠΠĠZ_@] c]Ųddeرdeز xq[ ]ųdeرdeزdeس q[ ]`ٰ$زqٰسqٰ[-زq8ٰrسq8ٰr[ ] رq \_ +] ,رqL6\@_ ]] ^رqhزqr_d ]qqװq8r`-r$`-r$q_ q `$`-r$q-rq ٰq[ ٰq-r[ %]Ա &ٰqٰ W]ԱX\bرq]l\dvرq] زqس\d ٰq-ذr_ ]Բ ٰqٰ\رq]\dرq] زqس\d\^] ٰq-ذr _]ذq]_X`ٰ$ٰq-r_,`ٰ.?r$ٰq-ٰr_H]ҠǬĬ©ĠӠΠӠԠ`ٰ$  ]de.?rde.?r[= ]ŠҠ̠Ԡį ԠԠ _` ذq_ ]( ذq] ذqذ8r `$&]Ա `$]Բ ]٠ ٰq-ذr _ ذq8r] qٰ  ٰq-ذr `$ `%\^" \, \6 _, `ٰ%[]Ԡ `1?ٰr$ ] q1?ٰr) ذq `ٰ%ذq ]РҠ ٰq-ذr UVW \] Y [ ذq _&] `ٰ%[]РϠ qٰ] \ _,H qٰ] R ٰq- r\ \f رq]p `%رq] z زq \d \ _,`ٰ$t]Рٰq-ٰr$_ s]Рt̰q.?r]Ҡ~q8̰r ذq q.?ذrرqزq̰\d]رq ٰq-ٰr\]ҠӸ UVW̰de q ذqذ q.?ذrY[ ]qq q.?rq.?rٰq.?r`ٰ%ٰqٰٰqٰ.?r q`$ q q `%[ Ұq"`-r$J ,-rq 6Ұq @qJ[]ӭ]ŠŠ ٰq-r\(رqزq]ˠԠ٩\d!رqزq]ؠР\d]Π\]9a(˽)FE(н)FE(ƽ)FE(ؽ)FE(ֽ)FE(ٰ)Fٰ`$P\_P`$|Z\H&dqаqn_|]ĠƠЭ#ca()FE(Ġ)бq]РĠƮ`$ UVW q-rq.?r.?r ٰq-r\ deز deسY]РˠԠٰq8бr\dаeسdаeز&]!0a(ЭŮ)FE():a()FбаE()*Da(Эź)F8баr8rE()G1Hq8баrUVWq8r bGYNa(ĠΠ)&Xa@E(ŠĬ)FаE()FбаQ@]ӭJ]Š&Tq]ŠŠԠ ^qhUVW  r-rq |qYUVW -rq qYUVW -rq qY-rq ]ԠҠҠӭ q\H&  qа  q6& qа 0 q : ql _$H&a@E(Ġʮ)FE()FаR&qqа\&[YĠʮ)FE()FаR&qqа\&[         NVV10:E90EXN1ī620&bEEElX1L(N):Y1H(L(N)):TCM0evV1(D(E))V:V2(D(E))V{L(N),159H(L(N))T0670TT.3((((YH(X))2.5)1))V1V1(V1W)1500:XX1(V1W50)TX1X279820YY1(V2T3)T:Y159LL L# L L, LK L L: L L L L LLL L L L3 LF LO L LX L L L L L L L L L L. LG L` Lp L L L L L; L L L hhȱȱ ȱ8ȩiiHH`ii`8`  `ȥ `8 `ȱ` [ L/ p ȱ`H h p  N L [ ȱL  ee` [ qq`ȱȑ`    L  hihHiHii`ȱ Ll8l8`  e e L 8 L y `Lb y Lb y RP/J ȵ`  P Q T URS`ȑ)`HDȢ Ȣ  0    L    % % L    LȱII`  0  & L LJ  0 F f L L1 ȱii`ȱ8`ȱȑLȱ (`H h`ee8 `L-  5 )`ȱ L LPQRS TU3 j/ 1 -/ 1 800H chePPQiQL Lb )?`U TȱPQ- RS R 00Ȅ L j ? > L  @`hh HH`!!!!!!!!!  30000216,0#:936/D$(4)ZD$;"BLOAD HI-RES CHARACTER GENERATOR"zD$;"BLOAD CHARACTER TABLE"0:0:54,0:55,96: INITIALIZE HIRES CHARACTER MODE " ":972,104 0::16300,0 :" ARTILLERY" :4 " NOW CREATING LANDSCAPE"L (H(279),P(11),D(11)r 2LOC776798:BYTE:LOC,BYTE:LOC <X111:P(X),D(X):X F255,255,173,48,192,1 36,208,5,206,9,3,240,9,202,208,245,174,8,3,76,10,3,96 ' P84,100,84,75,84,25,84,100,71,75,75,25,75,50,84,50,84,50,90,50,84,120/ ZN2G dD(X)X3.1413180\ nX1(20(1)70)r xX2(200(1)70) L(1)((1)(X110)5) L(2)(270(1)(270X2)) H9(1)582 I1X1:H(I)H9:I H9(1)582 IX2279:H(I)H9:I X3(X1(1)(X2X1)), H(X3)(1)9030B D1(H(X3)H(1))2Z D2(H(X3)H(279))2m D1D20ī300x J180 K180(X3X11):H9H(1)D1 IX11X31:JJK:H(I)H9(D(J))D1:I J0:K180(X2X31):H9H(279)D2 IX31X21:JJK:H(I)H9(D(J))D2:I! "330; ,D(H(1)H(279))2:J0[ 6K180(X2X11):H9H(279)D @IX11X21:JJK:H(I)H9(D(J))D:I J:1 TI1279:I,159H(I)I,159 ^I2(I2)370 h776,200H(I):777,5:778 rI& |0:L(1),155L(1),159H(L(1)):L(2),155L(2),159H(L(2))1 I12= Q11h L(I)Q,159H(L(I))L(I)Q,170H(L(I))o Qv I A$"Y"500 :936:" ** ARTILLERY **"2::"TWO PLAYERS TAKE TURNS SHOOTING AT EACH":"OTHER. YOU ENTER YOUR SHOT ANGLE (0-90)":"THEN, YOUR VELOCITY (0-200).":k21:"HIT ANY KEY TO CONTINUE":16384,128:16368,0q16299,0:16297,0:16302,0:16304,00:054,60:55,96:NI255974,645120,10160,1022W(100((1).5)):W0ī5505"WIND TO THE LEFT AT ";W" MPH"_J06:120J,10J120J,10J:J:570&"WIND TO THE RIGHT AT ";W" MPH"0J06:160J,10J160J,10J:J:N3N?N1NINI1255@973,NIA22ND(20(N2)1):"SHOT";E,V!! ! ! ! B !L#   l  B !L     B !L    B !L  L    H !L  L     H !L  L    M ^LP\   o  u     3 i  K !L{  o  c LH '^  o  o  u  o  i  B !L ~MEM FULLL i  B !L ~CONST EXPECTEDL i  B !L$ ~= EXPECTEDL i  B !LT ~IDENTIFIER EXPECTEDL i  B !L ~; OR : EXPECTEDL i  B !L ~. EXPECTEDL i  B !L ~; MISSINGL i  B !L ~UNDECLARED IDENTIFIERL i  B !L. ~ILLEGAL IDENTIFIERL i  B !LV ~:= EXPECTEDL i  B !L ~THEN EXPECTEDL i  B !L ~; OR END EXPECTEDL i  B !L ~DO EXPECTEDL i  B !L ~INCORRECT SYMBOLL i  B !L< ~RELATIONAL OPERATOR EXPECTEDL i  B !Lx ~USE OF PROC IDENT IN EXPRESSIONL i  B !L ~) EXPECTEDL i  B !L ~ILLEGAL FACTORL i  B !L ~BEGIN EXPECTEDL i  B !L ~OF EXPECTEDL i  B !LK ~ILLEGAL HEX CONSTL i  B !L} ~TO OR DOWNTO EXPECTEDL i  B !L ~NUMBER OUT OF RANGEL i  B !L ~( EXPECTEDL i!  B !L ~( EXPECTEDL i"  B !L" ~) EXPECTEDL i#  B !LT ~PARAMETERS MISMATCHEDL i$  B !L ~DATA TYPE NOT RECOGNIZEDL i(  B !L$ ~FOR CTL VARIABLE NOT SIMPLE VARIABLEL i*  B !L ~INCLUDE LEVEL EXCEEDS MAXL i+  B !L4 ~LINE LENGTH EXCEEDS MAXL ic  B !L1 ~SYMBOL TABLE ERROR (TYPE OTHER THAN P,Y,A,V OR C) '  o  L*    E !L  L  'L*     3 6      3 i  K !L^   0Т  o  c L '   3Т  L*   o  o ~CLOSE $  L ' o  oL*   o  o ~OPEN $  L ' o  o  o ~READ $  L ' o ~,R  u  oL*     3 6      3 i  K !L   0 Т   c L '     0@   E   H W !L   0   0@ Т    0 LL*   P   3 i  K !L  @   c L '  @   P   H !LS+  L  ' l   i  B !L   N !L   3 L i  B !L   0 L  @    0  '   B !L&L*   u  o L  *   0*  @  i%  B !L   N !L  L '   0    N !L-*  L  '  La '   L ' '  *  L;L/ i  B !L/   N !L  L '   3    N !L/  *  L ' ' L; '   3 @ L*    K !L L;   @     0 L*     & "" " " " " """""""""