8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LCR! 5$^!_! O&qM8d\ # ) f!`!&`!a! O&5   R!Y!0 $Y!0b!c! O&-) &d!e! O&Эb)0I0 ( Q!N)Gi/ U!4 [!\!]! X! )PIC.LOLLY n !@n +PIC.MAILBOX n ! n RUNSAVER n !@n UP n !n RN2n !n RUNNUMERIC+n !n #VAN7n !n CAT.NAMERS39n !n RN3>n !n *SAVER.TEXT n !Y -NUMERIC1.TEXT n !Y -NUMERIC2.TEXT n !Y *INTRO.TEXTKn !n *PRINT.TEXTn !Y (NUMERIC1'n !@*WORDS.TEXT!Y ,PROGRAM.TEXT n !Y (NUMERIC2_-n !@RUNMENUIn !n $MENUM n !n LOASM2.0Sn !@n %PRINTUQn !n %SAVERe,n !@%WORDS} .n !n 'PROGRAM\n !@BASIC.Tn ' &PRODOS<n ! A,BASIC.SYSTEM'(n ! aCALLNAME;$QUIT=n !n 'STARTUP@ n !n %INTROG >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R iL X%+!L(!ΠΠҠ`j!!"!!!l!"# G#YO!-D(DR9B}PBiBPN  !"#$%@~@}J@` ߩ%S @ ~`EhhhѺ0 h ѐ# ѐ ѐ ѐ 0 HϭэLпllllhh8` QSTV'P،h@ihAiȱ@JJJJq@)@vȱ@Hȱ@Ah@$@ce J) LxL LxJiB LxJ) <ҩxNhHHHHL(  аƠx@BEOD w а(`( C)CJJJlBJ,~آ <B*IBGF08Lé'+8H <(h`@؍L3<>=?<>CAB@?A` / L  <>` ڢF]PL8i m L   4< L  BLRAM' hLDLHB-4F 1"aɿ LL@ Nϰ H  @h( L Lh  @`bLJCAB@=?,<ʆ>*=?BC8 é&'112` (? ( <*? * **? *? *? ( < *? ( <&8ei` ,$`ee` `(( '(( '` ' ' '`hh8`8`)(*(2(`}:(`e`H)hJJ'0JJ)` (< ( < *? ( < (? ( <)& ` (Xp< @& )m&&.& & M&i  ``rȱȱȱȱ0]cȱeem((ȱ)(ȱ*()(ȱ2()(ȱ:( '(( f' 'LS&`L' x'L& ' LS& 'L)hh8JhJJJJJ &H&8H) 12 (j21 h!hH h %)Ђ12H)M0 h10200I20h2 %&`L#`&!"L  :8! ȱɈ  Э  8 0 8 `0 / x X$$ $&$0`ŠӠԭԠŠҬîʎ1DžϠ&8f ZHH0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ YYZLYLYLY뿩 8@  *$ MNЩUM  L 5 !-RB}PBiB ,m# m# J Qڨ)̰n]e мȱ ; ̀𩠙< iO P F V >Z SY ɘL` X _ [ V7 c L '0%O '8O JmO * ʈ0  0ōҍJJJJ ɺi) ɺiL9ҎVl R)?DE S ҰR Ӱ R  |Ґ `l@Hȱ@I[HXAT==ȱH ɯ[ȩWY=5H)/@a)_WW .0 :A[8@`,WW=W\Y\Б[` Ґ L` א@>)I3[8=>?@`K8`@Nȱ@Oz@y ZIiNȽN)/ȩ/N`@[ WHJjjj1hA }'KI0|JH) ) )6вJ8` G1悔F19 $ ӭ+I ;ސH1  "1h8` ߰0 1@`96229 (12 6 )8`)i п`  H  1FG`BH T1FG`H 1hHBF  GxDE10Q0C а(`(8` L*J 1 :"L ݢH 1 : 19` א@ P8`12B8` 1JJJJHIH IL9߅FHGI ѭKJJjHIH;7I1JJ Zߐ3HIHIL|ߩJKJK`FHIG ߰( ߬1Ȣ,IJLJ)eKM`1)` J %J9J ߰$90 ߰9JFJL8`JGBJ T(`(8`1@`M8`18@GʈI1)%J8%% KL|߹ Lߠ1C8`5)@ i1)%K8%5zJJ K_ F Lr߹) +5&KJ(b .1FG/8` .KJ%C DD0%&`0JJJJi LWݩH8`0E ݰ0ED0 ݰ 0 B`D ݰD`E0HyFiGB0HE0FFGG ݪh0`שB*xEDQ0C :` %& `0JJJJ`;H0;hn):N;jN;jN;jAN;.C WݰHH; ݰ;;0E ݰ*ANC: DDab`Z8` Wݰ#CCB B 5ݐ`AB& .& .& .&8C*JFG'(`)/ /8ʈ` ۰0)i `TU8`0R ܍;%&: ݰN0FG ݰ< ;0 FGLۮ0:0 &%834`H8` ܹ ,:% & 8;Y Wڭ01i E8`1i0i iڰ$00̩GF ݰ ڰ ڰ`12)i1`00`Ȏ0i 0U`Y)W8`W`0 ېW }װG =۰A)H 0ʈh0)*WYȱHW`98eHI ٰSB0 ؠ0F7ʈ pٌY`Y8mY0>`,[Z0H Zhi LٍWȽWh00GFZY8y?F@G ݰ ڰ`00ZQ8`7*؅IFG ݐ`:: p8D`F` ilH)HFȍHG ݰ$%7&8!8* J8` Lע )I '`89iFG`9*؅IH3H :( : )6G ݰ%" ݰX)Im'F(G)* ݰ4 ֭ $H ݰ%HFFHGHG ݐ`R8`͍͎)` װ H` /ٰR(*؅IHHЍ@`:86 ؐe76 8* 8ȱ@ȱ@#$)7I0 '* ܰ7FG ݰ( ְLݩI mIH`  S0FG ݰ ֬HFG ݰFF@ 0 [ :LթK8` I8`FHGH ܪhGhF ݰբFF芝 ݰFG ݮI mIHHymHȘI ݰLԩ` ՠ @@ @ЮY)mYʈ@i 0`1C8` yz@yz Z3yNY@) Wڎ\i ԭYiY\`0 iڰ0GF ݰ#00 ڰW,T0 0 ۩.H hȑNWȮUNTW8`WYNWY0NN` װG8`h)N$%1IyLJzM yLLy zL Z L ;ް  0pMJN )@QNJOK ;ްiKKMMJJ KKIJN L MJФ̭KJJjHFIH QHIGQxKE а((H hH h8`8yL@ȭzM@L;ެ18NINO 8P OIJLL`MRMʱLN.MOJKMEKP/MMEKMLCL-PMO OJK,IpLeNNO(`JNKO1L ;ް/  0P L8 | Zߠ1J`L@yLȱ@zM1 LL`BLLТТТТТТТТТТТТТТТCOPR. APPLE,1983LM Mh@8nЍLЭ 0J @L:LL@Ae >]**ӂӹK|e9IJK,-NOPQRSuHUSTON!' @   !"#$Ԡ͠ˠĠԠ Ko`V8`n|o}`  on} KI9XX}`)HJJJh`OzyeNeO࿰ K9XАO`|@ȭ}@` }O|N 1NJKO`HHHHхhhhhd ݰdFG ݐ`c l* _%fef eL`^F_GLݮ_^ 'ܰ^_8```FHGH< 'ܰ<hGhF`@Bɼ>K@J5 K9X(K KXXK1&N  ݰ# 'ܰFG ݐ`J HH1 hh`` 0 @ L4L쩀g _[gcTi q0cȩiqghiFqqG ݰ h0`c ݰcFG ݐ ` l _ݰX 밀L֢ȹLݠ@ȅH@ILҠ,[0` װJ 6P8`34 fېH8,)N 0 [^_)@L```f P_^ 'ܰݩ ݰ L֬0ayby`O WݰIFG ݰ:% #ȹ0P8` i0` 10 #B 1)XY( ȹ`X8mXY8mY@8` װG8`F  װ P)@N8`)@J #Xy)FG JJJJ1 1ȢII ;ސh(8H 簞KIJH1ȢI1IIeJd)fKJcnde fd8d ccdf1 ^ _ab PH81^ a)` Ӑ L] Ӱ )ܹ0 )p )@ )  10FG ݰ حFG ׬1  %) % ְ1)E ݰ`H@h]`h`1`N8`  IhHIhH  i ` ܰ ii` )0CB `@5]1͔ M @B1i ׭]` .1 "#10 iڮ0)`L@.]1 1i ]8`LHI%H1  PLMEMʱNLMOJKMEKP%MMEKML2 OJK,IL PIeNNO >(` R  F .AKJ%HI&HI1 HIHI`  .` .A1 H% H&`@Nȱ@O1`1I,}y%I%` t),% t 3 t)%` 1` H  ^h)N@ N;y zL  ;ް$ )bJ34 f۰ ) H BhL ) . )KJJjI&LLՐ`BLڑL COPYRIGHT APPLE, 1983 h@ 0J @L:HUSTONP8H  ): e: y8鰕:Jjjj<)yi8i;i(*=>hP8`;Zx3QTTSRWVUHEVhEhH)IWHPHHHAHHHLaVEWLӿ&()*+,-./0123456789:! !5).莀/ ! !!!!! !!$ ! "<" !!뭳!!!!ILYL 8!9!詍` ! !ՠՠɠ!STARTUP/p$# {  { / XXύX?klmnÍoL) !6L'!(0`670! = ***)<JJH !h穖tp% !Z/݀!!'  &@DEF   %LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  :Lɍ)ې)ɮ۰ɺH h 'ĝL  LL LXʩXύX)'L L L'L  (L(L $ʩ $$ $L `ީ %  X A %  % ɍNH hɛɘɉɈ $ LN :LNې)ɮ۰ɺ'Ɲ LN  : X i % $ɛ$ɘɉ ɈL 8V%&8V)HV)hH)hHIhդD?DRIDQD); ?JDQD]`MY pY)p  p`8L:HhHh VY>:Y)`;R?AJ;<ȰY)`Y?)`ȐҰ ;HhHh=`Hh `Hh`DEiȍ01ZsDE8T8Wpq 7I꽌ɪ꽌ɭ蠪:VE:8`]V]H)]V])]T])] >8hUD` X`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxl*k-kmMl 꽌ɪ`8` *L o % XZoX 3 NZ`rZLkZq8r7IZiZkk 8 s q | kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| FGV*& .V  JJJJH :h Ei :EX`'8`jWC)p> pCYY 轊( ( BV ( p0 \BiJ @i> i'j:ZH i@ioZZH h ȭnWǥBJ 8X` +>ŠϠŠà͠ӠàԠŬh  i( D 쳼󩭙Liid i`H) WhJJJJ ɺi`  ` .8 `O`S  XAI-Lv B C ⟩VW 5L壥>  5e>>?́?`>ȥj>>m>` T]m8injkiljo풼i>?Ek?>Q>;>:8o>oȑ>ppȑ>> :op` {Kpnͳ @p;=po:i>?Ek?!>Q>>>̀ `` > ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m}K`JJJJ8`轗K)` 7#hhL"Jپھ pHJh` {!hgt}~p  `~t}p8n~ni}tpi~~tsLo8pinii>j?k̈́>~|ppn + {pnI:L ؅30,3LZ8[933LAAJL ةޘг uv $ 8LЌ Ie p>?@`>?@`BN8`b 矮K ⟩ 䟢 춼LK  w KɍKL"?`  L@3 @LtJ)s@J % `͘?s?,E30ɍФ3 +E3HD F3 Ʉ%h3 M +E  LthɍLL3`3,A0s0% I`O>0O  矢POپھ p >H־Ǿh۰8L"־Jjjjɾ)Ⱦ8 ( OL L$L>(F`־ؾپھ׾` Ʉ +KDEF L LH K% ʽ  ٚ,S` w $݅3`(l8L"3L>(Ƀ,`3,G0]ɾ ` w`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O c־Jjjj 얻ɠ, XLޭBDEF޾ p 7 ޾ p($ذ (0 R( L?ԦʚLeةީ s +  L ,FL,DLE,C0!3 > Ɉ 3ɾL(3ɾ;Ƀ RB94 H06172839h` 97L75v^͘ ?/( ?LHLLɍ$?`? ɍɥAH93827160hH46576879h`,C Lޛ $0. ɍ  ,S0 ?@ L L tR莪Ta 0a XHT ph(K,Lħ/A5ʩJ \V wrTJ6LvSLէ XAJ t@V k38`J" wʩ =V wЧ w % wЖabT)!J B8`@U)9VJ T)h*I/W) VV z>S <=$I0 U)VJ 'T)`l8`a HbIJhjǾȾɾ p٭b=aIe f`8` vP־ǾҾ,G0C =W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) ص 5W) )W)@! pZ}ȾȾ󰹩,N0MHhHh p' ,N HCNh`M`M N `޾Lp vh־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne_ 2Ͼ pH h8`jGMоM  G):_`蹀:`V)8`MN; ;`;C N8` G)̀#:蹀:`V)R v޾ pH h8`Ͼо־ǾҾ_` BӾ pW) yLC`C N `9V) ß ` V) v޾ p` v (8` 8`8`(W)`_V)Ij!؍Í`_ jЭW)`#Ͼ p о־޾Ǿ` 8` 8`ɾ)ɾ̸ ɾɾ0miȾ p pY)ικ`lP v*,N!ǾȾɾʾ pǾ~H Rh8`8`,C R  8` 2ȾɾM$ mHݓǾ phϾ > ԟ ` ])Y 񩢍`Ⱦɾ0Ǿ p)莼 ' 6 t= i& i8Hh i` 6Y׾ؾ+پھ p|پɾʾ`HV)jh츾$-ˌھپLp k V)@W0!XY ^X6Y7` ^ YX`X:Y;τ<:: <`:8`'OV)Jj 'f a  ԟ  ԟ ⟭ + (:ji ԟɃ B ,  ԩ p`SW)0پȾھɾ p p 0LjÍ L I 뱰9 1׾ؾ  p p 0 H h(`׾ؾ` 뱰 ߭׾t8퍼mؾŰ펼t폼 L8` н `F`4W)ɐ/XYjV) '8` e b`l׾ 뱰XYW0V):W׾ؾ_`)0%I0)3]8X^YȰ8` 8` p Ⱦɾʾ8`پھW)@%ZȾ pSjÍgh I 뱰@8gȾhɾʾg׾hؾ  p hgͺ칾`L0V)jC mMjà Lp `VJJ°LvLp ')< L> ' L>W)8VJưϥ3 ⟢켼 T eօ ٬ L s򩣍S3 Lv ?# e $L? I V kimljn` 뱰 pg׾mȾXhؾmɾYtѮȾɾ YX`8gM CgIY2m*b6>BSAVERIFYBLOADELETECATALOGOPENWRITEXECREATEFRESTOR Getting Down to BASIC by Jeff Vasek, Ed.D., Apple Computer, Inc. November 7, 1983 X928933:X,0:X50006000XY(6,60),N(6)(21) D$(4):XB5:YB32,L:33,W1::BD2W1:T1:BD:"_";:B:BD:"_";:BD KBDTB:BD:1:"|";:W:"|";:BD:34,T:35,B1:32,L2:33,W4:: Q32,0:33,40:34,V:35,24:: [32,0:33,40:34,0:35,24::(4);"RUN MENU" e<>:33,40:34,0:35,24::24:, 16368,0c P(16384):TETE1:P15591:P1341:TE22531 )P141TE0:998:16368,0: 3M$"Press RETURN":61:Z1700:Z:M$"_____________":61:Z1700:Z:31 =B:(W(M$))21:M$;:; G34,T2:35,B: 101IN$"X":32,0:33,40:34,0:35,24::T3:B10:L1:W39:81:71:"You are about to leave this":"lesson. When you press RETURN":"you will be in Applesoft BASIC,":"and will be able to write and":"save your own BASIC programs.":21 32,0computer user L2LLL"L  HK)\ `=P8` ԠŬLL<[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TŠӠŠҠüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,CENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPENDu {Xx-ĭ-eͫzt> Ut⭳ԭci@@ -!S    !C- !ABELSDFRV@@ !$(19@E16& :15:5:5:"Apple presents"H 12:12:"Getting down to..."a D$;"BLOAD LOASM2.0"{ R0:8000: READ DATA 4000 2000: PLOT WORD BASIC (3000: SET UP BORDER 21000: SCROLL & WAIT FOR KEY 7::10:10:"Please wait..." ?ABCDEFHIJK11% T13:B20:L1:W39:221:151 "Is your name ";NA$"?"::"Please type Y if this is correct":"or N if it's wrong.":"Then press RETURN.";:CP1:231:CP0:AN$""ė:T1:1:31 )(AN$)89(AN$)78ė:T1:1:31V 3(AN$)89ė:T1:"We mu 351{IN$"X":32,0:33,40:34,0:35,24::F$"INTRO.TEXT":321:161:101:161:101:161:101:161:101:161:331 16368,0:231:NA$AN$::T1:1:(NA$)15ĺ"That's a bit long. Please type":"a shorter name (less than 15":"characters)."::,0,06& 2,7,0,0,4,4,6,6,10,10,12,12,20,20,24,24e& 4,7,24,24,20,20,16,16,10,10,6,6,4,4,0,0& 3,5,0,3,6,10,13,15,20,20,24,24 NI854861:(I);",";:I@I06%EY:NP(Y):K0OJJ1NP(Y):XY(Y,K),XY(Y,K1):KK2:UT[r& 0,5,0,3,8,8,13,16,18,22,25,28& 6,6,28,25,22,18,15,12,10,10,6,6,3,0& 1,7, 0,0,4,4,7,7,9,9,12,12,20,20,24,24& 5,7,24,24,20,20,16,16,10,10,6,6,4,4240,8,201,149,240,044 201,160,144,1,96,169,160D56,176,192Jfp:(4);"OPEN CALLNAME"z(4);"CLOSE CALLNAME"(4);"DELETE CALLNAME"(4);"OPEN CALLNAME"(4);"WRITE CALLNAME""computer user"(4);"CLOSE CALLNAME",111,253)104,141,51,190,104,141,50G190,96,32,27,253,201,155e240,31,201,141,208,35,96234,234,234,162,0,32,117253,160,2,138,145,105,200169,0,145,105,200,169,2145,105,76,57,213,141,02,169,141,162,1,96,201136,2):A$; # CC1:C15C0, C:716390c16300,0:16297,0:16302,0:16304,0oI01916384768,I16393hI768861:A:I,A:I173,50,190,72,173,51,19072,169,30,141,50,190,169 3,141,51,190,32 BORDER C0:0- I039:I,0:3200:G I139:39,I:3200:d I3801:I,39:3200: I3801:0,I:3200: A$"Please press RETURN to start." 22:(20(A$)2):A$ A$"Copyright 1984 Apple Computer, Inc."  24:(20(A$) X1X2ī2040 J1D IX1X2J:IXB,RO(R)YB:K020::R DCDC2:X c 4R46s 9JNP(R)21 >I0NP(R)22 HTXY(R,I):XY(R,I)XY(R,JI):XY(R,JI)T RTXY(R,I1):XY(R,I1)XY(R,J(I1)):XY(R,J(I1))T \ f  C ~1500 1010 . J(16384)? J128ī1590O J141I1_ J(16368)e 6 RO(0)0:RO(1)6:RO(2)1:RO(3)5:RO(4)2:RO(5)4:RO(6)3 :15 R06 DC0 P1NP(RO(R)) X1XY(RO(R),DC):X2XY(RO(R),DC1) J1L2,39:DL3,39:DL4,1:HLOC4 $1500:I0ī1200g .DL0,0:DL1,0:DL2,39:DL3,0:DL4,1:VLOC| 81500:I0ī1200 LK0:C VKNP(R)22ī1130 `XY(R,K)XB,XY(R,K1)XBRYB eKK2:1110 jRR1:R01150 tR6:CC1:C15C1 y<:(4);"RUN MENU" d" 5 R6:I0:C1:6X DL16384768:HL16384:VL16387 DL0,0:DL1,39:DL2,0:DL3,0:DL4,0:HLOC 1500:I0ī1200 DL0,39:DL1,39:DL2,39:DL3,0:DL4,0:VLOC 1500:I0ī1200 DL0,0:DL1,39:Dst have misunderstood.":"Please type in your name again":"and press RETURN."::11 =:(4);"OPEN CALLNAME":(4);"CLOSE CALLNAME":(4);"DELETE CALLNAME":(4);"OPEN CALLNAME":(4);"WRITE CALLNAME":NA$:(4);"CLOSE CALLNAME"::T2:1 G"There aKJ:JJ1:179- (RE$)49(RE$)55195R KJ:J(RE$)48:2200:2000:170s :10:12:"Please wait...." "J310,320,330,340,350,360,370 6:(4);"RUN INTRO" @:(4);"RUN PRINT" J:(4);"RUN WORDS" T:(4);"RUN PROGRAM" ^:(J8J1 J0J7- 2200:2000:170T (CH$)81(CH$)113KJ:J7:181q (CH$)49(CH$)55170 19:35:CH$:KJ:J(CH$)48:2200:2000 19:36:RE$ (RE$)13280 (RE$)8170 (RE$)10KJ:JJ1:179 (RE$)11r, or select with the UP or DOWN ARROW key. Then press RETURN."V U140:"_";:U :"* marks a topic you have completed" 19:35:868:CH$ (CH$)13ī280 (CH$)10(CH$)11185 (CH$)10KJ:JJ1 (CH$)11KJ:JJ1 LNOPQR <:" 4. Writing Programs"? F:" 5. Saving Programs"b P:" 6. All About Variables"v d:" 7. Quit"~ gT0 iI17 j(I927)1Ė(1):2(2I):"*" k(I927)1JI1:T1 nI sT1J1 x2000 17A :"Type a numbe 6000104,8:103,1)(21)5:5000P34,0:33,40:16368,0v :T$"Getting Down to BASIC Menu"1000U140:"_";:U:" 1. Introduction"(:" 2. Printing Numbers and Calculations" 2:" 3. Printing Words" OSE ";F$:BU32,0:33,40:34,0:35,24:331::(4);"RUN MENU"H_(93);:2KR0:768:J512736:X(J):X155341:X141J736:301ZX162R1jJ512291AN$AN$(X12832(X223)):301#AN$AN$(X128)-J:732,0:33,40:34,0:35,24:16368,0::A:(4);"OPEN ";F$: K:(4);"CLJ:(4);"READ ";F$:S$"":A$"":NL1:S$:S$"%"İ221:T,B,L,W:151mS$"&"āHT1B1:H:868:H813:IN$(IN$,1):IN$"^"211NL1ĢT1:1NLNL1:IN$;:18132,0:33,40:34,V:35,24::16368,0:AN$"":CP1251 M$"Press RETURN":141:Z1700:Z:M$"_____________":141:Z1700:Z:111m B:(W(M$))21:M$;: 34,T2:35,B:32,L:33,W1::BD2W1:T1:BD:"_";:B:BD:"_";BD:BDTB:BD:1:"|";:W:"|";:BD:34,T:35,B1:32,L2:33,W4:::w you're ready to begin. Press" U"ESC to go to the menu, or press":"RETURN to go to the next lesson.":928,1:101:331::(4);"RUN PRINT" [331:311 e16368,0 oP(16384):TETE1:P155341:P13121:TE225111 yP141TE0:998:Pre six sections on this":"disk. Unless you are familiar":"with Applesoft BASIC, we suggest":"that you go through the sections":"in order.":101::T2:1" Q"But you can return to the menu at":"any time by pressing the ESC key.":101::T2:1:"No4);"RUN RUNSAVER"0 h:(4);"RUN RUNNUMERIC"G r:(4);"RUN QUIT"M ` H(40(T$))2k H:T$q  IFVAL (CH$) < 1 OR VAL (C H$) > 7 THEN VTAB 20: HTAB 19: CALL - 868: GOTO 175 J2110,2120,2130,2140,2150,2160,2170 2(J2):6:T$;8>T$"">CkHT$""qMRT$""W\T$""afT$""kpT$""u zT$"ong.":21# Q(AN$,X,1)"0"Z1 [NU(FI$):NU0Z1İ631:"You typed ";(AN$,BS);".":"You should follow PRINT with some":"number so that you can continue":"with the lesson.":218 e17:1:NU:631:"You did very well, ";NA$".":"Would you like t);".":"You shouldn't use letters or":"symbols (except - or .) in your":"numbers. Please try again.":21 GE2İ631:"Although the //c can handle":"numbers up to 38 characters long,":"this simulation will only handle":"numbers up to 8 characters l"and follow it with a number.":21 -(AN$,X)""İ631:"You typed ";(AN$,BS);".":"You should follow PRINT with":"some number. Please try again.":21 3Z0:FI$(AN$,X):NU$(AN$,X):EN(FI$):971:E1E281m =E1İ631:"You typed ";(AN$,BSTVWXYZ[\]^_`abc15:BT24:611:551 TT15:BT24:611:621:16:641:W38:B9:T3:L1:X1:741:E1İ631:"Please type PRINT and a number,":"then press RETURN.":21 BSX:781:E121% )741:E1İ631:"You typed ";(AN$,BS);".":"Don't be shy. Please type PRINT": 1211IN$"X":TT0:BT24:M0:521:621::F$"PRINT.TEXT":1181:551:471:551:471:TT15:BT24:32,0:18:1:(93);:621:18:10:721:255:M3:19:20:"(You press RETURN)";:471:19:5:868:1:NU:TT0:BT15:621:M0 551:471:551:471:TTЅCj @C(-C A-CC-C CCܮCCCL@CCUCC0= @ @Cj @C(-C A-CC-C CCܮC0CC ACjjjjj` A @ A` C` C` AC @' A`L @L@LALA ACGCC<CC @ @C0-CC-C CCCCCL@CC>ʎCC @ @C(-CC-C C0CCCC A`j CC CC`HJ) h)i ` ACbCCWʎCC0= @ @p:(4);"RUN STARTUP" 201,141,208,35,96 4234,234,234,162,0,32,117 T253,160,2,138,145,105,200 r169,0,145,105,200,169,2 145,105,76,57,213,141,0 2,169,141,162,1,96,201 136,240,8,201,149,240,04  201,160,144,1,96,169,16056,176,192 "T$" All About Variables "(8T$" Quit ">XI768861:A:I,A:Ix173,50,190,72,173,51,190 72,169,30,141,50,190,169 3,141,51,190,32,111,253 104,141,51,190,104,141,50 190,96,32,27,253,201,155 240,31,"9K2210,2220,2230,2240,2250,2260,2270N2(K2):6:T$;fT$" Introduction "lT$" Printing Numbers and Calculations "T$" Printing Words "T$" Writing Programs "T$" Saving Programs "o practice using":"the PRINT statement again? (Y/N)";` oCP1:641:AN$""Ģ6:33:958:111 y(AN$)89(AN$)78Ģ6:33:958:111 CP0:(AN$)89İ611:531:L:T1:"Okay, type PRINT and follow it":"with a number (remember to":"press RETURN).":21TT15:BT24:611:TT0:BT15:621:551:471:551:471:551:471:TT15:BT24:621:1:18:"]";:10:731:255:19:19:"(Please press RETURN)":471:19:5:868:1:NU:TT0:BT15:BT:551:471:TT15:BT24:611:TT0:BT15:551BSY$(1)"+":SY$(2):BDTB:BD:1:"|";:W:"|";:BDJ34,T:35,B1:32,L2:33,W4::'(4);"READ ";F$:S$"":A$"":NL1:S$:S$"%"İ611:T,B,L,W:531:5811S$"&"İ541;HT1B1:H:1:868:HE813:IN$(IN$,1):IN$"^"601OTNL:1:NLNL1:IN$;:s RETURN":511:Z1700:Z:M$"_____________":511:Z1700:Z:481hB:M(((WL)(M$))2):M$;: (4);"OPEN CALLNAME":(4);"READ CALLNAME":NA$:(4);"CLOSE CALLNAME":$34,T2:35,B:32,L:33,W1::BD2W1:T1:BD:"_";:B:BD:"_";:BDbelow (don't forget to start with":"PRINT).":161TT0:BT24:611:929,1:551:471:TT0:BT24:611:1191::(4);"RUN WORDS":471:1191:117116368,0P(16384):TETE1:P1551201:P13491:TE225481P141TE0:998:EM$"Pres like to practice":"some other calculations? (Y/N)";_CP1:641:AN$""Ģ6:31:958:421(AN$)89(AN$)78Ģ6:31:958:421CP0:SNSN1:(AN$)784614SY$"-":631:"Okay, type in any calculation":"using one of the math symbols":"ion - (PRINT 20 - 2)":"Multiplication * (PRINT 4 * 12)":"Division / (PRINT 16 / 4)":B9:471:T3:B9:411SN1İ631:"And there is the answer.":"Would you like to practice":"some other calculations? (Y/N)";:4317631::"Would youe try again.":DE0:1613s13:1:FS:SN1401}631:"Very good! As you might guess,":"the computer can handle other":"operations. The box below":"shows you the symbols."yT17:B23:531:T1:1:"Addition + (PRINT 23 + 48)":"SubtractS);".":"It would help if you would type":"in both numbers. Please try again.":161zU(ST$,1)"-"XX1:N(2)1:ZC1_1011:E1E2E3291:1091:DE1371i631:"You typed ";(BU$,BS);".":"Dividing by 0 will cause an error":"message. Pleas"this simulation will only handle":"numbers up to 4 characters long.":161AAN$(AN$,X):XSL1:E3İ631:"You typed ";(BU$,BS);".":"It would help if you would type":"in both numbers. Please try again.":161VK741:E1İ631:"You typed ";(BU$,BE2SY$"*"İ631:"Although the //c can handle":"numbers up to 38 characters long,":"this simulation will only handle":"numbers up to 8 characters long.":161M7E2SY$"*"İ631:"Although the //c can handle":"numbers up to 38 characters long,":631:"You typed ";(BU$,BS);".":"Please type in both numbers.":"Try again.":161m961:E1E2321#E1İ631:"You typed ";(BU$,BS);".":"You shouldn't use letters or":"symbols (except - or .) in your":"numbers. Please try again.":161-U$,BS)".":"You found the right key, but":"forgot to press SHIFT key.":"Please try again.":161E1İ631:"You typed ";(BU$,BS);".":"You should not have pressed the":"SHIFT key when you typed the":"symbol. Please try again.":161U911:E1, you must use":"the correct symbol (+). Please":"try again.":161_E1E2E3271E2İ631:"You typed ";(BU$,BS);".":"For this to work, you must use":"one of the symbols below.":"Please try again.":161cE3İ631:"You typed ";(B631:"You typed ";(BU$,BS);".":"It would help if you would type":"in some numbers after PRINT.":"Please try again.":161(AN$,X,1)"-"XX1:N(1)1X(AN$)E1:171G811:SN1SY$"+"İ631:"You typed ";(BU$,BS)".":"For this to work"=":SY$(3)"-":SY$(4)"_":SY$(5)"*":SY$(6)"/":SY$(7)"?":SN1SY$"":TT10:BT15:611:12:641:TT10:BT15:X1:N(1)0:N(2)0:741E1İ631:"Type PRINT, then type":"a calculation with two":"numbers.":161BSX:781:E1161741:E1ī581 Y/c32,0:33,40:34,TT:35,BT::Pm32,0:33,40:34,TT:35,BT:wTT0:BT10:621:541:L:T1:HT1B1:H:1:868:H:T1:(4):16368,0:AN$"":CP16611:(93);R0:768:J512736:X(J):X1551201:X141J736:711X162R1R1701DAN$AN$(X12832(X223)):711YAN$AN$(X128)jJ:BU$AN$:NU((1)1001):2:"PRINT ";NU;:NU784:2:"PRINT 345 + 439":E0(AN$,X,1)" "771:X(AN$)E1:XX1:751 E:521:AX,BY:1331:PF116:C10:1331:AX,BY:C13:1331:PF:521:631:521:631:521:631:521:TT0:BT24:691:16298,0:16300,0:16303,0:631:521:631:521:631:ET1?EeTT20:BT24:691:701:21:741:W38:B10:T3:L1:X1:931:E1İ711:"You need t2:XX3:1231:E131CQTT12:BT24:701::::(4);"VERIFY PROGRAM.TEXT":TT0:BT12:691:631:521:631:521:631:521:TT0:BT24:691:16297,0:16299,0:16300,0:16304,0:10,15910,150269,150269,159:631:521:C13:AX,BY:1321D[631:521:631ped ";(BU$,BS)".":"To SAVE a program you must give":"it a name. Please try again.":31B=(AN$,X,4)"POEM"İ711:"You typed ";(BU$,BS)".":"Normally you could choose any":"name for your program, but this":"time you should SAVE POEM.":31CGLDdfghijklmnopqrstuvwxyz{21:631:521:631:521:631::521:631:521:631NSL2:BSX:1011:LN$"30"İ711:"You are trying to replace":"line631:521:TT0:BT24:691:TT0:BT12:701:16298,0:16300,0:16303,0:631:LD0:ET1:TT(1)20:BT(1)24:W(1)38:B(1)9:T(1)3:L(1)1:IV21:1391MTT12:BT24:701:22:SN1::821:891:861:" 40 PRINT ";(34);I$(1);(34):921:::::TT0:BT12:691:6LD3:XX3:1231:E1191KTT14:BT16:701::(4);"VERIFY PROGRAM.TEXT":TT0:BT12:701:631:521:TT0:BT24:691:16297,0:16299,0:16300,0:16304,0:631:521:631:521:C13:AX238:BY60:1331:PF116:C10:1331:AX,BY:C13:1331:PFL521:ed ";(BU$,BS)".":"To LOAD a program you must call":"it by name. Please try again.":191J(AN$,X,4)"POEM"İ711:"You typed ";(BU$,BS)".":"The only way you can LOAD your":"POEM program is by calling it by":"the right name. Try again.":191K1:16298,0:16300,0:16303,0:631:521:631:521:631:ET1ITT20:BT24:691:701:21:741:W38:B10:T3:L1:X1:931:E1İ711:"Please LOAD your POEM PROGRAM":"by typing LOAD POEM. Try again.":191]JBSX:1171:E1191:931:E1İ711:"You typ0:BT12:691:631:ET1:TT(1)20:BT(1)24:W(1)38:B(1)9:T(1)3:L(1)1:IV21:1361:TT11:BT24:701:24:"]"::TT0:BT12:691:631:521:631:521?ITT0:BT24:691:16297,0:16299,0:16300,0:16304,0:631:521:0:AX85:BY35:1321:631:521:631:52RETURN to clear memory.":"Please try again.":141GBSX:(AN$,X,3)"NEW"İ711:"You typed ";(BU$,BS)".":"NEW is the command you need to":"use to clear memory. Please try":"again.":141GXX2:1231:E1141HTT12:BT24:701:24:::::TT(BU$,BS)".":"If you SAVE your program as POEM":"you will erase the old POEM":"program. Please save your":"program under another name.":321U:(4);"VERIFY PROGRAM.TEXT":TT12:BT24:701::::TT0:BT12:691:631:ET1wVTT20:BT24:691:701:21:741:W38:B9:T3:L1:X1:931:E1İ711:"You need to catalog the disk by":"typing CAT. Please try again.":481-W1301:E1481:(AN$,X,4)"ALOG"İ711:"Yes, the CATALOG command would":"work on an 80 column display,":"but please use CAT because3:ddE1:711:"You typed ";(BU$,BS);".":"You should have typed LIST.":"Please try again.":|dE0:X(AN$)1291dYX1(AN$):(AN$,Y,1)" "E1>eY:LD1E1İ711:"You typed ";(BU$,BS)".":"You shouldn't type anything after":"the li;".":"To load a program into memory":"you should begin by typing LOAD.":"Please try again.":cE0:(AN$,X,3)"RUN"XX2:cE1:711:"You typed ";(BU$,BS);".":"You should have typed RUN.":"Please try again.":dE0:(AN$,X,4)"LIST"XX(PN)(AN$,X1,SL):9bE0:(AN$,X,4)"SAVE"XX4:bE1:711:"You typed ";(AN$,BS);".":"To save a program to disk you":"should begin by typing SAVE.":"Please try again.":bE0:(AN$,X,4)"LOAD"XX4:bcE1:711:"You typed ";(AN$,BS)ke you to end your statement":"with a second ";(34);" mark. Try again.":caaE0:SLX21141akE1:711:"You typed ";(BU$,BS);".":"It would help for now if you":"would enclose something inside":"the quotations. Try again.":buSLSL(X1):I$ot to use a quotation":"mark after the PRINT statement.":"Please try again.":a`9E0:SLX1`CSL(AN$)1111:(AN$,SL,1)(34)SLSL1:1091`M(AN$,SL,1)(34)ıMaWE1:711:"You typed ";(BU$,BS);".":"Although it's not required, we'd":"li$,X,1)(34)ı_%E1:Q$(AN$,X,1):(Q$)45(Q$)46(Q$)47(Q$)58İ711:"You typed ";(BU$,BS)".":"You could PRINT a number here,":"but we prefer that you type":"a literal quote. Try again.":R`/E1:711:"You typed ";(BU$,BS);".":"You forgX(AN$)E1:,^(AN$,X,1)" "1001;^XX1:941A^W^LN$(AN$,X,SL):w^E0:(AN$,X,1)"?"XX1:^E0:(AN$,X,5)"PRINT"XX5:^E1:711:"You typed ";(AN$,BS);".":"You didn't use PRINT.":"Please try again.":_E0:(AN:]]SN1ĺ" 30 PRINT ";(34);"I LOVE MY APPLE";(34)W]gSN2ĺ"I LOVE MY APPLE"]]q]{SN1ĺ" 20 PRINT ";(34);"VIOLETS ARE BLUE";(34)]SN2ĺ"VIOLETS ARE BLUE"]]" 50 END":]E0]PC1971]X(AN$)E1:]981^X141J736:811!\X162R1.\ R1801S\AN$AN$(X12832(X223)):811h\!AN$AN$(X128)y\+J:BU$AN$:\5SN3Ė2:"PRINT ";(34);"ROSES ARE RED";(34)\?SN1ĺ" 10 PRINT ";(34);"ROSES ARE RED";(34)\ISN2Ė1:"ROSES ARE RED"]S2,0:33,40:34,TT:35,BT::?[32,0:33,40:34,TT:35,BT:k[TT0:BT10:701:ET1ETET1:611:731t[621[L:T1:HT1B1:H:1:868:H:T1:[(4):16368,0:AN$"":CP1761[1:(93);\R0:768:J512736:X(J):X1551471:"|";:W:"|";:BD9Zm34,T:35,B1:32,L2:33,W4::Zw(4);"READ ";F$:S$"":A$"":NL1:S$:S$"%"İ691:T,B,L,W:611:661ZS$"&"İ621ZHT1B1:H:1:868:HZ813:IN$(IN$,1):IN$"^"681ZTNL:1:NLNL1:IN$;:661Z[3(4);"READ CALLNAME":NA$:(4);"CLOSE CALLNAME":cYE(4);"OPEN CAT.NAME":(4);"READ CAT.NAME"YOI$:I$"@"I$(1)I$(1)I$:591YY(4);"CLOSE CAT.NAME":Zc34,T2:35,B:32,L:33,W1::BD2W1:T1:BD:"_";:B:BD:"_";:BD:BDTB:BD:1:N RUNNUMERIC":X 16368,0ZXP(16384):TETE1:P1551471:P13541:TE225531rXP141TE0:998:X'M$"Press RETURN":561:Z1700:Z:M$"_____________":561:Z1700:Z:531X1B:M(((WL)(M$))2):M$;:3Y;(4);"OPEN CALLNAME": you're":"using a 40 column display.":481EWLD0:1231:E1481W:(4);"VERIFY PROGRAM.TEXT":TT12:BT24:691:14:"]CAT"::CS1:BF271:BU9:1421:TT0:BT12:691:631:521:631X521:631:521:631:932,1:521:1461:TT0:BT24:691::(4);"RUne number if you wish to":"to delete a line. Try again.":eLD2E1İ711:"You typed ";(BU$,BS)".":"Please don't type anything after":"the program name or it will be-":"come part of the name. Try again.":fLD3E1İ711:"You typed ";(BU$,BS)".":"If you type anything after the":"program name the computer will":"try to find the wrong program.":"Please try again.":gE1İ711:"You typed ";(BU$,BS)".":"Please don't type anything after":"the command. It will just":"complicate thinto press RETURN)":21] oTT0:BT24:291:231:151:231:151:231:151:231:151:231:ET1 yTT15:BT24:291:301:16:341:W38:B10:T3:L1:X1:451:E1İ311:"Please type PRUNT and a number.":"Then press RETURN. Try again.":121 BSX:(AN$,X,ractice using":"the PRINT statement again? (Y/N)";\ QCP1:341:AN$""Ģ6:33:958:81 [(AN$)89(AN$)78Ģ6:33:958:81 eCP0:(AN$)89TT15:BT24:291:311:L:T1:"Okay, type PRINT and follow it":"with a literal quote.":"(Remember You typed ";(BU$,BS);".":"Don't be shy. Please type":"PRINT and a word inside":"quotations.":31 =521:E131:541:E131:581:E131:LESL(X1)5 GVP((AN$)40):14VP:(AN$,X1,LE);:311:"You did very well, ";NA$".":"Would you like to p|~31:151:TT15:BT24:291:TT0:231- ET1 TT12:BT24:291:301:13:341:W38:B10:T3:L1:X1:451:E1İ311:"Please type PRINT and something":"inside quotations.":"Always remember to press RETURN.":31 )BSX:491:E131g 3451:E1İ311:" 631IN$"X":TT0:BT24:M0:201:301::F$"WORDS.TEXT":601:231:151:231:151:231:151:32,0:18:1:(93);:32,L:TT15:BT24:301:18:10:SN1:421:255:M3:20:18:"(You press RETURN)";:151:20:5:868:SN2:421:TT0:BT15:BT:M0$ 2:"BLOCKS USED";:39:BU;:6l:(4);"OPEN ";F$:Pl:(4);"CLOSE ";F$:l32,0:33,40:34,0:35,24:1461::(4);"RUN RUNMENU"lX1)kNO$NO$(((NAME$,X,1))32(Y95)):X:"/"NO$::" NAME";:16:"TYPE";:22:"BLOCKS";:30:"MODIFIED"::" POEM";:17:"BAS";:27:"1";:30:"":CS1ĺ" "PN$(1);:17:"BAS";:27:"1";:30:""l:"BLOCKS FREE:";:15:BF;:23BT(1):WW(1):BB(1):TT(1):LL(1):691:701:IV:741:X1:931:E1İ711:"Please type LIST and":"press RETURN. Try again.":1391jyBSX:1211:E11391:1231:E11391jkNO$"":X1(NAME$):Y((NAME$,X)):Y32NAME$(NAME$,X1)"."(NAME$,13,85,35:NAME$"Computer User's Anon.":1421:iQTTTT(1):BTBT(1):WW(1):BB(1):TT(1):LL(1):691:701:IV:741:X1:931:E1İ711:"Please type RUN and":"press RETURN. Try again.":1361i[BSX:1191:E11361:1231:E11361iejoTTTT(1):BTP175:TP:h= 85,35,110,13,120,16,130,21,140,27,150,32,160,32,170,31,178,31, 185,31,182,35,182,38,182,42,190,50,200,55,220,55,238,60,215,94, 220,55,200,55,190,50,180,42,182,38,182,35,185,31 0iG 178,31,170,31,160,32,150,32,140,27,130,21,120,16,110,gs. Try again.":g Ō'A;ónExÇ谘 ,#QÃ"  6   3 23χ ر422が A ၆ 8 ٷB、 LJ σ 9 6  Á 3㏸ ၎ ̽ 9 Ç 6 𽞜 4χ Ʊ2ࠞ19 ၆烼 7 4 ㏘21߁ ̙Aà   ӱ2၆2 ƏBLJ  ·  ǁBが Áà LJ 9  8 4ǃ ǃ၎ :8 5 3dz Ɓ̇2χ߇ 8  χ 5  3 ́2灜 A à 2࿀ A LJ 새 9ᑌP G Q*džWܹ󷌃@0q *稄Ā r ǣƏء.dž Ǐ/bhɃ ⸌ƁÁ " DTXЉ䁀 @ఀ (Q ?,'/Ç@ Qxǁ +(E ぀ P(U U🳇栰㟀&F0̿P`~Ѣ(*8 ÇƃTޏƙn '谌 PϿ UjрƆV * ߷@ 葷Ǎ(*ʼnƹ燆 Á #1XУıЍ @İ! /Ć+a>́)ǃ@8JeǁƁ :(UHT`翈ᅦ؉(A|0ŀ+) |@ǰ 氀TT*"ǹȇ;<⠘ X̀(UrU @* ৲.``P*Å  Á Ã(ā ̇šLJ 'QÁj#!U ÆUFΌㆀ +E(Ā Tp@"㿇ƍć5.F‶kEǃ)58o@ TU"ǎ,* ñn='谘 @ џ(U2ƃH(T * @"ȑ܃ǛU87(P*ɑށƁ  ˃  sЍ ԅ WၟĎౄ@*W }܁ ( 𱉀P:` σ̟̏؁À ] ဟ eׁۃ.Pð 㐀ㇰÅQ.(*ñȇ8 I0NP(R)22 HTXY(R,I):XY(R,I)XY(R,JI):XY(R,JI)T RTXY(R,I1):XY(R,I1)XY(R,J(I1)):XY(R,J(I1))T \ f  C ~1500 1010 . J(16384)? J128ī1590O J141I1_ J(16368)e 6 RO(0)0:RO(1)6:RO(2)1:RO(3)5:RO(4)2:RO(5)4:RO(6)3 :15 R06 DC0 P1NP(RO(R)) X1XY(RO(R),DC):X2XY(RO(R),DC1) J1L2,39:DL3,39:DL4,1:HLOC4 $1500:I0ī1200g .DL0,0:DL1,0:DL2,39:DL3,0:DL4,1:VLOC| 81500:I0ī1200 LK0:C VKNP(R)22ī1130 `XY(R,K)XB,XY(R,K1)XBRYB eKK2:1110 jRR1:R01150 tR6:CC1:C15C1 y<:(4);"RUN MENU" d" 5 R6:I0:C1:6X DL16384768:HL16384:VL16387 DL0,0:DL1,39:DL2,0:DL3,0:DL4,0:HLOC 1500:I0ī1200 DL0,39:DL1,39:DL2,39:DL3,0:DL4,0:VLOC 1500:I0ī1200 DL0,0:DL1,39:D16& :15:5:5:"Apple presents"H 12:12:"Getting down to..."a D$;"BLOAD LOASM2.0"{ R0:8000: READ DATA 4000 2000: PLOT WORD BASIC (3000: SET UP BORDER 21000: SCROLL & WAIT FOR KEY 7::10:10:"Please wait..."