' +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*`Pa(٠ΠȠ) c[]~[]ҠΊ~[]ҠƊBdedededede dede2deded eLd ed e[rdBedCede.?>rde.??rM6_ƠŠ@LHLi8><?=L-ʍ6ȱʍ7BʥC˭< = ,8顅BʥC˩<=8>? ,L/L6d<e8.?rrd=e.?r8.?rrkd>e8.?<rrd?e.?=r8.?<r 96: POKE JSR $FC58 - RTS AT PRGM END F PL(175)(103)U 175,PL25m X(175)(176)256w YX4 Y:CALL HOME IN MACHINE LANGUAGE "!"TRANSPARENT" DEMO BY VJG  THIS PROGRAM WRITES AN ASSEMBLY PROGRAM AFTER THE APPLESOFT THEN SETS POINTERS TO SAVE IT 23072:PROVIDE ROOM FOR MACHINE CODE dX(175)(176)2561 nX20,32:X21,88:X22,252:X23, ((Y$,I,1))1286 :72,0::RESET STATUS REGISTER LJRd63900:144::SCAN KEYBOARD MONITOR. NOTE CAN NOT BE IN SUB- ROUTINE MONITOR ROUTINE FOR APPLESOFT BY S H LAM Y$"300:FF FF FF FF FF":BOGUS DATA AS EXAMPLE Y$Y$" N D823G"I1(Y$) 511I, ӠNJ!M6]ΠĠҊ[, d\Q]?]ҠŠ٠ӠȠ͠ҠàΊ N@"r;@p(ƠƠƠƠƠƠ)]ӠӠŊ,@B;@rrp(ΠŸ)]àيUVW;@rde<@*rrY dHe]Ԡ `h ` %0 ! X` `)  9 X678 9  9% " LMȑ ȑ   L-8L Đ鮿  % "L$ SECTORS FREENOMONCIOCATALOGPR#IN#H$0hɍ ONTROL Z IN ENTRY MODE RETURNS TO MENU WHERE CHAR- ACTER SPACING CAN BE INTER- MIXED WITH RETURN TO ENTRY MODE  CALL 768 IN LINES 450 AND 1900 TURN PRINTER ON. IF USING INTERFACE CARD, CHANGE TO PRINT D$"PR#1" OR AS APPROPRIATE D:"6 SELECT ENHANCED":"7 DESELECT ENHANCED":"8 GRAPHICS CHARACTER SET""9 GRAPHICS CHR SET DEMO":"0 QUIT":32,0::::16:"SELECT":::AA1000,1200,1300,1400,1500,1600,1700,1800,1900A0Ā2000(222)53300pCULE vI97127<(IZ);"=";(4);(4);(I);(2);" ";LI122Z74T:kD$"PR#0":2000: ::4:6:"COMMANDS: ":32,12::32,12:K"1 WRITE TEXT TO PRINTER":"2 SET 8.5 CPI":"3 SET 10 CPI":"4 SET 12 CPI":"5 SET 16.5 CPI"00:GO GET A CHR ILA$(CHR):FLAG1:1000: SET CHR SPACING PER MENU ZCHR28:1100kCHR29:1100|xCHR30:1100CHR31:1100@CHR01:1100CHR02:1100: 2000: UNDER CON- STRUCTION lZ32:768: GRAPHICS CHR DEMO MOD"FOR CAPS HIT 'ESC' KEY ONCE ":"TO LOCK, HIT 'ESC' KEY TWICE ":"TO UNLOCK, HIT 'ESC' KEY ONCE MORE ":::"ENTER DATA FOR PRINTER":: FLAGFLAG0:400: GOTO CONCATENATION ROUTINE; DO NOT PASS GO; DO NOT COLLECT A$ 3 t (A$)13ĺ:768:Y$:D$"PR#0":Y$"":300:IF C/R, DUMP Y$ TO PRINTER; WIND STRING UP IN A BALL; START OVER 300: NOT FINISHED; GET ANOTHER CHR :4::"TO RETURN TO MENU, TYPE CONTROL Z ":" " CE INTO LEFT MARGIN _ (A$)8Y$(Y$,(Y$)1):440: CHECK FOR BACKSPACE; THROW AWAY CHR Y$Y$A$: BUILD Y$ FROM SINGLE CHRS (A$)64(A$)91Ğ:IF CAPS, DISPLAY IN INVERSE  B$;:: HERE'S WHY WE SAVED B$; NOW PRINT IT TO SCREEN h(A$)27SHFT1:200: IF ESC NEXT CHR WILL BE UC } r(A$)27LOCK1:200:420:IF 2ND ESC KEY SET LOCK FLAG |SHFTSHFT0:420:LOWER SHIFT FLAG A$((A$)32):CONVERT A$ TO LC  (Y$)1(A$)8Y$"":A$;:300:DON'T BACKSPA IS RUNNING OUT OF SPACE m @(A$)262000: IF CTL Z GOTO MENU; ALL CHR SIZES CAN BE INTER-MIXED IN Y$ J(A$)65(A$)27400:IF NON ALPHA SKIP CONVERSION TLOCK(A$)27LOCK0:SHFT0:200:310:UNLOCK? ^LOCK420: SKIP CONVERSION ? : LOWER CASE ROUTINE FOR INTEGRAL DATA PRINTER X BY VAL J GOLDING 11.79 s APPLESOFT II BASIC ~d4000nD$(13)(4):2000: A$:B$A$::B$ PRESERVES CONTENTS OF A$ ,200 6(Y$)250ĺ(7);: SOUND THE ALARM; Y$      ]ŠԠŠԠw)G]ŠŠ]ŠΠŠϠ0UVW de.?ra()GYdec`%\ [!ca(Ԡ٠٠ϠŠ) `.?6@r$d6?e[XoM6d[M[]ΠҠ ~[]ΠҠeMPbGPa()GdedeMP#b&`7788rr%\qqY `%\ KoQ,]ŠΠϠŠ 6d.?Lr.?Mre[`%\cKot$oa(deded eLd ed e `%\ 3oa(ΠجéӠةé)$] àŠӊFq6q6UVWq.?rq.?rq8r8r\6\`7%\XNa@E()GdŠԠƠŠӊBdKM6N@" rq]ԠŠԠĠŊDnoS(ΠҠٯΩ)&@`@9()$x`@:()$nq_xqM6]ԠؠϠÊ]dedede dede&`.?Mr%P ]ҠàĠ٠ӠĠҠҠҠΊ!]٠̠ǠΠ0]Ԡͺͺo(]٠ƠŠ٠ӠĠ̠ԠŠԬŠϠ  a@[  ]ŠϠҠӊ]٠̠ʠNJ]ҠÊ ,N@"(r6@p(̰)\7@]ҠנӠҠ͠ŠϠĊQE]²ӠΠҠΠԠΠƠĠԠ͠P;@r  )256:Z9Z973:232,Z9(Z9256)256:233,Z92556: 4$16384:MOD(X)X(X256)256WESHPS(115)(116)256:EPGM(175)(176)256u:SSHPS(232)(233)256NEPGMEPGM(ESHPSSSHPS):175,MOD(NEPGM):176,NEPGM256L1SSHPSESHPS:L2L1SSHPSEPGM:L2,(L1):1,63 Z9(121)(122  ϠˠħҠŠԧ)&@`@9()$f`@:()%[ \! a@E(Π)Š)E@E()F[ fq\+k-rq-rq\-rq-rm\ 8pq`%[a@E(Š®Ҡ)E@E(̱)-ua@E(Š®Š)E@E()FE()F[.2 S(ˬŠԠέϠӠũ)&@M< S(ϠՠȠϠŠ9()$4`@:()%[J4S(ŠԠҠĠϠԠү)&@]ˠĠ6\ 39S(ŠŠϠĠ)&@`@9()$R`@:()%[ >qq\Rq[6Ra@E(Ġ®Ҡ)E@q`%\ Nq&\a@E(Ġ®ӠӠĠӠӊO\!=Va(Š)a(ˠŠ)a()X@p()]̠Za@E(Π)\M6a(ŠՠǠϠҠ)S(ŠĠ˧ˠħҠŠԧ)&@%`@9()$`@J! ]ˠӠҠˊ ]٠ŠΊX d6e˱d7e˲d8e˳d9e˴@p()[]ڤ̠ĺ͠ԭŠӊ]!˱q.?6r˲q.?7r˳q.?8r˴q.?9rd6ed7ed8ed9e[6"]Š  00 0 CPI":" 4 12 CPI":" 5 16.5 CPI":"6 SELECT ENHANCED":"7 DESELECT ENHANCED":"8 GRAPHICS CHARACTER SET" "9 RESERVED":"0 QUIT":32,0::::16:"SELECT":::A A1100,1200,1300,1400,1500,1600,1700,1800,1900 A03000 *20  ]̠һԠ̠ŻԠӊ.UٰVWXd eٰM ]Ԡa@E@GYٰa@E@a@E(ң)Q$,UV?W X6de.?rYQ]в)a@E(ĠɭӠЮ)!d*e]Š٠Њ+M6S(ŠƠŠ)&@`@9()$!a@E(Ġ)E@E(֬)LPM6S(ԠŠϠҠ)&@`@9()$`<@r$`<@r$M CMMca@G ]ɭӠΠР]Ҡ̠]РҊ (]٠Π̠Ȋ5d@p()@p()@p()@p()]̠¬ìĠˊnذqٰN@"(rxa@E(Πìɬ)KM6d6?e6a@E(Ġ  H6 ($hL`HH!!,c$hH,o phHI  pX !i$!h`x HYXH Jhhjx(`67`LL((r88rre[d!ecv[)[PUVWXR\d\Y_!Z\<UVWdX\d\_Y\\Q)dq8<@*rrr 8<@*rrrnq8r[dLedMe[Bq.?rq.?rd98. ]Š]]͠٠Ŋ]٠ΠȊ]!#]Ġ٠ԠNJ2\<c_P <N@"droF@p(  z#??  ԠǮǮà  ԠҠȠԠǠȮ دàԠ ӠҠӠ ĠӠ ҠӠ Ҡ٠ԠҠŠΠ ԠԯàŠҠΠҠΠݠ !àΠ"àӠ̠ŠԠϠŠвҠҠɭӠРв ɭӠЮ в ˠӠ ԠӠԠӠĠԠԠӠ̠ԠӠӠà ɠӠӠ  -      1 -    1979 ՠ ϠǠįҠԠҠԠϠҠPMM6oZUVWXdUVW_X_nM6od6?exS(ŠϠĭ)&@ d6?ea@E()E@E()dرedٱe MYZd6?eQN]ȠӠˠ͠ĠעӠӠĠԠ dKedeN@"r@p()@a@E(ĠӠҠ)a@E(ĠȮ)q(a@E(Πɬì)2q <رq+ٱq,q- Fde@ !!da(ΠԠԯà)Q! -&$` * 7%   *  P `&I`&&.'/100+e*,e z&I`&.&/'100`&)%0`SH TO RETRY P "q\,UVW26UVWX3 @de+Jd$e888rrra()GM Ta()FG ^YcY h\Q]]ǠŪ:Pa(Š۠د̠ӠΠ)G`%a(Ԡ)`7%c+cq8r88rr d$e888rrra()GMa()G `%a()G`$bG YcY \] ]ԠϠĠũCM6a(ԠԠŠΠ)cS(ԠΠΠ)&@\` ]دàΠԠϠԠ̠ӠϠàӊ<2]ΠȠdKM6\x\\UVW2UVWX3 deq.?rq.?r' ű)E2a(ӠϠլӬȮĠӠҠ)(ɠӠЮ)9 +a(Ġ)a(Ȯ)a(ӠҠ)X*+a(ˠ)a(Ġ)Mca(Ԡ٠٠Ҡ)Md ec.M6oM6[U2a(̠Š٬̠ɬέάΠŠŠӠĠנŠĠΠӠŬԠŠԠ)Q+a(ΠŠլӠ٠ŠԠĠϠŠΠӠŠ)cp+d e ca(Ϡ)a(Ԡ)a(į)a(РҠ)a)Pa(ӠҠ)Ot'Pa(Ϡ͠٠)Pa()GP(a()GPa()Pa()`~'MccP a()P a(РҠŠӠŠΠԠӠ)P a()'MUVWY[[*oa(a()GPa()GP!a()GP'a()YV'Mca(РР̠)Pa(РՠҠɠ)W`'Pa(РǠϠ )Pa(̠ŠǠҠ)Oj'Pa(ŠԠҠ()GPa()GPa()GPa()GP!a()@.'a()GP a()GPa()GPa()GP!a()?8'a()GPa()GP a()GPa()GPa()GP!a()@B'a()GPa()GPa()GP a()GPa()GPa()GAL'Pa()GP)\@p(Ƞ)\@p(دàԠ)\]c\_<'q6q6|q6q6?q6@MKMJ'oPa()GP a()GPa()GPa()GP!a()U$'a()GPa()GP a()GP aӠà)\@p(ɠӠӠ)\@p(àΠ)\@p(àӠ)\@p(ҠŠ)\@p(ҠӠ)\@p(Ҡ٠)\@p(ҠΠ)\@p(ҠΠݠ)\@p(Ԡr`ı$qı deqq w_qxqqq6 @p()X@p(ԠϠ)\b@p(Ԡ)\l@p(ԠӠ)\v@p(ԠǠ)\@p(ԠӠ̠)\@p(Ԡ)\@p(cd ecoP a(Ԡ)MDq.?r`%\`$deqq6w_q`$@p()[BwKMo P8;@rra(Ǻ)E@a()E@E()E@"deqq6M[Dq ıq.?Q 3N@" ra(άɬϬ)KM6d6?ed\'KMLnoMPa(̠Š٬̠)cMd"e\*_6x`.?%r%\q` $bE()E@c[a()F8 rE()E@c[d ed%e[2M     `Lk0$ H h .#` L}%J u H h d #` L Q ; #` Q #`#2 '( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ =)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS) PI ȄR%*QTU'T8ePT UeRU QJJJ`JJJJS) PI ȄR%*QTU'T8ePT UeRU QJJJ` ', "&,i8i#H&ii&hif&i'`'i, &i,. &iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1 &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%0J$)` .Q&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00     @pd 0    00 `pdLC˭Š 4KM6Qd!ed eM6[a@M6]ŠϠ4o88-rrrP-rb-rYB de.?Lrde.?Mr]٠Ԡ͠ϠŠ6*dLe.?rdMe.?r]Š˭Š 4KM6Qd!ed eM6[se.?r]P-rd2e?b-rd2eoP M6dbE(Ơ)FGa@E(ΠŬ̳)a@E(ĠŬ)F--rrR@a@"a@E(Ġ)E@*#;@rrE(ְ)LM6`%S(ԠŠΠĠŠĠԠΧ)&@oa(ҠӠ٠)UVWHlM6a(͠)FGS()'`$l-rqYoM6d6de.?Lrde.?Mr]ŠĠ͠3dLe.?rdMe.?r]Š˭ˠlUVWo88-rrrFR@\`@9()$&`@*#r9()@*#r9()@*#r9()<@r@*#r9()$&4bGPa@*#r`%\-rqq&Ya@E(Š)XKd"ed3e`bS(נ٠Ӡ)'`$b KoQ d!ed eM6[d!ed eM6[d eM6[d!ed eM6[Ҡ)qd"eM6;a@E(ΠŬ̳)a@E(ĠŬҰ)T+UVWa@E(ĠŬ)Σ)a()d"eq qMde.?r`<@r$`<@r$`@9@$`$a@Gqq_7cqqo8r`%\ _q_ KoQ d!ed eM6[\M62dedeGd@p()q6N@"rD42rD42r@p()q .?Jr.?KrEnKM6dedededede(deAxMa@E()a()]Ԡ̩ŢĠƠǩa@E(ң)a@E(@B;@rrp(Ÿ)UVW;@rde<@*rrYdHe[z@p(ù°ðù°ù°ŶİŶ)\M6G(@p()!]ԠǠ!]ҠҠà!]٠ΠȠ]ŠӠ͠ҠҠԠ͠ĠҠǠ̠ԠԠΠϠӠȠŠՠԠҠˊ N@"rq_K     E jXYjZ[j\]j^_/   00d e M Q0&q8/ r]ƠƠ UVWd e.? r"YQ],]̠ԠŠ'S(ԠΠΠ٠Ϡ)&@d ed e d* ed# e-rq-rde" Y_], S(ΠΠҠĠӠ)&@ UVW b d ed e  d4 eM ) YQ]M]ӠŠ٠ǠƠƠԠI-(rI-<r&.YQ]&]ԠŠȠUVWP-rqYS(͠)'S(ؠ)'UV W/q.?r"q8r] `%q]; b2?r_ ]ԠŠԠҠ!O4Pr]٠ŠϠUVWP-rqYUV W/]Ϡq.?r-rq-rY-a(ɠΨɩΨɩΨɩΨɩ)UVW&$bI-rI-r    [\q.?rq.?r8rdQ8r88rre[d!ecv[8r  rrd8<@* rr8 rr r88 8 88rrrrrWnq888 r88 r r  rr 8r[Iq/?r/?3#rd/?re/?mrd/?re/?R r)["PUV/?,rW/?arX 8 8rr:R\/?cr\/?nrd.?6red.?6reY_/?rv?Z\/?rUV/?wrW/?RrX6 8 r\/?r\/?r2_d.?6`re@d.?6reY\/? r\/? DrQdq88<@*rr8  nS(]Π٠ӠԮǬïϠŠҠĠŠ52d.?6fre/d.?6freq\/? rc_/?Or<N@"~r`%N@"/?1rroF@p(   ,1): B:# 22:32,0:C,186) *22:32,0:C,186B *R:210 32,26:1:210/ 676:32,0::210= D2ī800 6:" FOR HEX":"TOKENS, HIT":"RETURN ":676:D2:32,0:200 X$" ":H$"0123456789ABCDEF" X%((B256)(B256))16:600 &X%((B16)(B16))16:600 0X$: XX$X$(H$,X%1ASSETTE VER-SION CHANGE VALUE OF C IN LINE 200 TO 12293 Q :A1:B128:C2053j C,B:100:((37)1)x D1İ700 D2İ520 ((37)):BB1:AA1 A22A85400 A43A127410 A64A106420 A129500 "210 32,13:1*dn ROUTINE TO DISPLAY APPLESOFT PROGRAM TOKENS BY VAL GOLDING AND BOB HUELSDONK xNO LINES MAY BE ENTERED BEFORE LINE 100 D1: : NOTE: FOR C    A$(103)" START OF PROGRAM":A$(105)" LOMEM: PTR":A$(107)" VARIABLE PTR":A$(109)" CURRENT MEMORY":A$(111)" END OF STRINGS":A$(113)" GENERAL PURPOSE PTR":A$(115)" APPLESOFT HIMEM":A$(8)" PROGRAM POINTER" LAdLOMEM: AND PROGRAM POINTER WILL READ THE SAME UNLESS LOMEM: HAS BEEN CHANGED :A$(115):1050I1031152:AA1:I;" ";I1;" = ";(I)(I1)256;A$(I)::"175 176 = ";(175)(176)256;A$(8)  LETEX":6RS SHOULD BE APPENDED FIRST IF PEEK(X-4)=0 AND PEEK(175) = 0 THEN POKE 175,255:POKE176,PEEK(176)-1"t "POKE103,PEEK(175)-2:POKE104,PEEK(176)" "LOAD TEMP" "DELETE TEMP" "POKE 103,1:POKE104,8" "CALL 54514" "GOTO63426" D$"CLOSE";D$"EXECX": (4);"DE !D$(13)(4):"APPEND ";A$:D$"OPENX"D$"WRITEX"K"SAVE TEMP"Q$(34):"IF A$=";Q$;Q$;"THEN PRINT";Q$;"START TAPE ";Q$"LOAD ";A$G "X = PEEK(175) + PEEK(176) * 256:IFPEEK(X-4) = 0 AND PEEK(175)<>0 THEN POKE 175, PEEK(175)-1:  ":2142,244:2143,3:400N ,A53248:HEX PRINT WITH & ROUTINE FOR ROM 6A$" 300:C9 48 D0 12 20 B1 00 20 F8 E6 8A 20 DA FD 20 B7 00 C9 2C F0 EF 60 4C CC 16" ^A$A$" N D823G" I1(A$):511I,((A$,I,1))128::72,0:144 30LD(37)201604 ::"HIT ANY KEY FOR NEXT PAGE":N 16384,128:16368,0T ] D: A2048:HEX PRINT WITH & ROUTINE FOR RAM A$" 300:C9 48 D0 12 20 B1 00 20 EF 1E 8A 20 DA FD 20 B7 00 C9 2C F0 EF 60 4C CC 16" A$A$" N 1025GINTED ONLY WHEN REFERRING TO COM- MAND OR FUNCTION m TA208:TOKEN ADDRESS TABLE (:H1:D0124:HD128:5 2C(T):(C);:TT1:C12850 dD63D82D106ĺ:130 nHH1 x14:H(AH21),(AH2)(D64): RAPPLESOFT II DISPATCH TABLE LIST BY NEIL KONZEN j AND VAL GOLDING  ::"ROM OR RAM APPLESOFT ?"::"TYPE 1 FOR RAM; 2 FOR ROM"::1013,76:1014,0:1015,3:GET POINTERS IN AA200,300= ADDRESSES PR   A$::300 300ANUMBERS":"NAME 3 4 5 6 7"5 900:" ";l IBEGIN2BEGIN6::(I)100ĺ" ";:(I)10ĺ" "; (I);" ";:::1000 ((BEGIN));((BEGIN1));: BEGINBEGIN7:BEGINFINISHĀ (37)18Ğ::"HIT ANY KEY FOR MORE VARIABLES"::"INTEGER VARIABLE"::" BYTE NBRS":"NAME VALUE 5 6 7"U b900 l"% ";(BEGIN3)(BEGIN4)256;" "; IBEGIN4BEGIN6:(I)100ĺ" ";:(I)10ĺ" "; (I);" ";:::1000$ ::"REAL VARIABLE"::" BYTE - "NAME LEN ADDRS 6 7"# 900d X(BEGIN2):"$ ";:X1000ĺ" ";:X100ĺ" ";:X10ĺ" ";l X; &X(BEGIN3)(BEGIN4)256:X10000ĺ" "; 0" ";X; :IBEGIN5BEGIN6:(I)100ĺ" ";:(I)10ĺ" "; D(I);" ";:::1000L X::7 DISPLAY VARIABLES BY VAL J GOLDING ?:xBEGIN(105)(106)256:FINISH((107)(108)256)1,X(BEGIN):Y(BEGIN1):X128Y1275006XY128700@XY127600 ::"STRING POINTER"::" BYTE NBRS":    _8/?r r&&d2e?_0d2e_:d2e_XKQ_Ӡ͠Ӡš>~]ҠԠӠŠŠҠĠΠ٠Ɗ8~]Ӡ٠̠ʠNJ~Ld"ed6?ePa() M6ŠԮҠȊ~]R~`.?r%d8.?r8.?rrre88.?r8.?rrrrK~`.?r%d8.?r.?rre.?8.?r.?rrrvQL~]ҧӠͺӠΠˠРנɰT~q.?r.?r^~de h~_r~]r~]Ӡ͠ũ|~deQ]O~]ŠϠؽ˨˨ΠˠƠͺ~]ŠҢ~]٠ˠˊ~]Š)d2e}o.?%r.?%rQ!~]ŠΠϠŊ ~q.?r.?rE~`.?r%de`.?rQ%[q_~]ӠĠΊ,~]ˢ6~]٠ˠˊ@~]ŠԮҠȊJ~]q.?Jr.?Krd e@p@]Ѥ}\~%}S(ǠŠҬР)'' }M6cE}a()FE(Ԡ)E@E(ح)E@ }q}`.?%r$}_}C}a(Ϡ)cd2e?a(٠ŠҠ̠ĠέNJ}L2}f/?rq/?rq q gh_}<}]Ҡ٠ϠΠԊ٠̠ʠNJ3}]ӠԠӠΠҠÊ%}M6o]ؠӠέҠƠŊ} @}q@p()͠͠Šծ٠ҭǠĠǠ͠)A(}q.?6@r`$(}d6?e_8dr}d}]٠٠ҠNJn}]ΠҠÊkx}]Ӡ͠ӠנϠŠӠ͠ΠŠȠJd`.?Mr%Q}M6od e ca()a(Ҡ٠ϠΠ)a()0 }a(Š)a()a(Ԡ).}ccd2e?a()d2ed ec{}ca(ŠŠƠŠŠ