8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LCe! H$q!r! c&L*!M8tl # ) y!s!(&s!t! c&E )?  @ e!l!0 $l!0u!v! c&-) &ύw!x! c&Эb)0I0 ( d!N)Gi/ h!4 TESTERZNAME4HIGH(#MP0V8 BPT\BPA]BP1^STIRRUPS? SETUPdUPSETgHOOSEYWHATISISj [TESTML.STIRRUPS.MLHOOSEYWHATSIS' &PRODOS<!! !,BASIC.SYSTEM'(o! oSTARTUP;!-HOOSEYWHATSISC 7!#BP0O TIMER= >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(8Rn!o!p! k! iL X%>!L;!ΠΠҠ`}!!!"!!!l4"# G$YO!-e(eR9B}PBiB  !"#$%@~@}J@` ߩ%S @ ~`EhhhѺ0 h ѐ# ѐ ѐ ѐ 0 HϭэLпllllhh8` QSTV'P،h@ihAiȱ@JJJJq@)@%vȱ@Hȱ@Ah@E@c%e J) LxL LxJiB LxJ) <ҩxNhHHHHL(  аƠx@BEOD  а(`( 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` ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <Lg& 'L&8ei` ,$`ee` `<( '<( '` ' ' '`hh8`8`=(>(F(`}N(`e`H)hJJ'0JJ)` (<  )1& ` (Xp< @1& )m1&1&.1&4& M1&i  ``rȱȱȱȱ0]cȱeem<(ȱ=(ȱ>(=(ȱF(=(ȱN( '<( z' #'Lg&`L' 'L& ' 8f ZHH)hh8JhJJJJJ '&H(&8H) 12 (j21 h!hH h %)Ђ12H)M0 h10200I20h2 9&`L#`)&!2"L  :8! ȱɈ 5   8 0 8 `0 / x X$$ $&$0`ŠӠέԠŠҬîʎ1DžϠ)&ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ YYZLYLYLY뿩 8@  *$ MNЩUM  LPN!-RB}PBiB ,m# m# J Qڨ)̰n]e мȱ ; ̀𩠙< iO P F V >Z SY ɘL` X _ [ V7 c L '0%O '8O JmO * 0ōҍJJJJ ɺi) ɺiL9Ҏw s)?ef t Ұs Ӱ s  |Ґ `l@Hȱ@I|HXAT^^ȱH ɯ|ȩxz^5H)/@a)_xx .0 :A[8@`,xx^x}z}Б|` Ґ L` א@>)I3|8^_0`1a`K8`@Nȱ@O@ lIiNȽN)/ȩ/N`@[ WHJjjjRhA &'KI0JH) ) )Wв<J8` GR悔0FRZ $ ӭ+j ;ސHR  4Rh8` ߰Q R@`ZWSSZ (RS W )8`)i п`  H  RFG`BH TRFG`H RhHBF  GxDER0r0C а(`(8` L*J R :"L ݢH R : R9` א@ P8`RSB8` RJJJJ=HIH IL9߅FHGI ѭlJkjHIH;7IRJJ Zߐ3HIHIL|ߩJKJK`FHIG ߰( ߬RȢMjJLk)eKM`R)` J FJZk ߰$Z0 ߰ZJFJL8`JGBJ T(`(8`R@`M8`R8@hʈIR)Fk8FF lL|߹ LߠRC8`V)@ iR)Fl8FVzkJ l_ F Lr߹) +V&lJ(b .RFG/8` .lJFd eeQFG`QJJJJi LWݩH8`Qf ݰQfe0 ݰ Q c`e ݰe`fQiygihB0Hf0gFhG ݪh0`שB*xEDr0C [` FG `QJJJJ`\HQ\hn)[N\jN\jN\jbN\.d WݰHi\ ݰ;\Qf ݰ*bNd[ ee`Z8` Wݰ#ddc c 5ݐ`bcG .G .G .G8d*JFG'(`)P P8ʈ` ۰0)i `uv8`QR ܍\FG[ ݰNQFG ݰ< \0 FGLۮQ[0 GF8TU`H8` ܹ ,[F G 8\z Wڭ01 E8`1݊0 iڰ$Q0̩GF ݰ ڰ ڰ`12)1`0Q`ȎQi 0U`z)x8`x`Q ېW }װG =۰A)H Qʈh0)*xzȱHx`Z8eHI ٰSB0 ؠQFXʈ pٌz`z8mz0_`,|{0H {hi LٍxȽxhQ0GF{z8y`FaG ݰ ڰ`Q0{Q8`X*؅IFG ݐ`[[ p8D`F` ilH)HFȍHG ݰ$%X&Y!8* J8` Lע  )I '`8ZiFG`Z*؅IH3H [( [ )WG ݰ%" ݰX)Im'F(G)* ݰ4 ֭ $H ݰ%HFFHGHG ݐ`R8`ͮͯ)` װ H` /ٰR(*؅IHHЍ@`[8W ؐeXW Y* Y=ȱ@/ȱ@9;<2DE)7I0 '*5 ܰ701FG ݰ( ְLݩI mIH` @= t=0FG ݰ ֬HFG ݰFF@ 0 [ [LթK8` I8`FHGH ܪhGhF ݰբFF芝 ݰFG ݮI m IHHyHȘI ݰLԩ` ՠ @/@ 7@Юz)mzʈ@i Q`RC8` @ l3Nz@) Wڎ} ԭziz}`0 iڰ0GF ݰ#Q0 ڰW,u0 Q ۩.H hȑNWȮvNuW8`xzNxz0NN` װG8`h)N$%Rjmkn LL⭚ L l L ;ް  0pnJo )@rNJOK ;ްiKKnnkk llIJo m nJФ̭lJkjHFIH rHIGrxKE а((H hH h8`8m@ȭn@L;ެR8NjNO 8q pjJLm`nRnʱLN.MOklMEKP/nMEKnLCL-qMp Okl,jpmeNNO(`JNKORL ;ް/  0P L8 | ZߠRJ`L@mȱ@nR LL`BLLТТТТТТТТТТТТТТТCOPR. APPLE,1983LM Mh@8nЍLЭ 0J @L:LhhhhIL@Ae P o**ӂӹ]|wKIJK,-NOPQRSuHUSTON!' @   !"#$Ԡ͠ˠĠԠ ]XXKR Ko`V8`no` & on ]I9XX`)HJJJh`OeNeO࿰ ]9XАO`@ȭ@` ON CNJKO`HHHHхЅG ݐ ` ~ qͬ ݰFG ݐ` ~* q% L`FGLݮ 'ܰ8`FHGH] 'ܰ]hGhF`@Bɼ>K@J5 ]9X(KI0F1G ݰ:%&N  ݰ# 'ܰFG ݐ`J HHR hh` 0 @ LFL q[̄T 0̄ȩF𸽒G ݰ 0` ݰF0F1G ݰy &밀L֢ȹLݠ@ȅH@ILҠ,|0` װJ WP8`TU fېH8,=)N 0 [01)@L` b讀 'ܰݩ ݰ L֬Qyy`O Wݰ @LL א=@ 5ȹQP8` &iQ` C0 5B C)yz( ȹ`y8myz8mz@8` װG8`F  װ P=)@N8`)@J 5yy))ꭁJJJJR RȢjI ;ސh(8H Nh(`R@`@Rȱ@ ` אB@8ZTUQ qۮQUT?H>8T2hU3JJJJ)@` װ%I -=) t 0@)N8``N8`  ) NRȢJ@jJjR@ʈLP 簞KIJHRȢjRjjk)lJn 8 ΄R  bH8R Ri ~8`L Ӑ L~ Ӱ )ܹ0 )p )@ )  R0FG ݰ حFG ׬R234 / F) F ְR)f ݰ`H@h~`h`R IhHIhH  i ` ܰ ii` )0CGHFHBFG ЪhFhG`@5~R͔ M @BRi ׭~` .R 4#R0 iڮQ)`L@.~R 簪HIFHR  PLnEnʱNLMOklMEKP%nMEKnL2 Okl,jm PjeNNO P(` R  F .AlJFHIGHIR HIHI`  .` .AR HF HG`@Nȱ@OR`RjM}FIF` tJMF t 3 tJF` R` H  ^h)N@ N; L  ;ް$ )bJTU f۰ ) H BhL ) . )lJkjIGLLՐ`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 :Lɍ)ې)ɮ۰ɺH h 'ĝL  LL L)'L L L'L  (L(L $ʩ $$ $L `ީ % XʩXύX X A %  % ɍNH hɛɘɉɈ $ Lc :Lcې)ɮ۰ɺ'Ɲ Lc  : X i % $ɛ$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` Y`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxl*k-kmMl 꽌ɪ`8` *L o % YZoY 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` +>ŠϠŠà͠ӠàԠŬ Gh  l( G쳼󩭙Llid l`H) ZhJJJJ ɺi`  ` .8 `O`S  [AI-Ly !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,3L]8^933LAAJL ةޘг uv $ 8LЌ Le p>?@`>?@`BQ8`e 矮K ⟩ 䟢 춼LK  z KɍKL"?`  L@3 @LtJ)s@J % `͘?s?,E30ɍФ3 +E3HD F3 Ʉ%h3 M +E  LthɍLL3`3,A0s0% I`O>0O  矢POپھ p AH־Ǿh۰8L"־Jjjjɾ)Ⱦ8 + OL L$L>(F`־ؾپھ׾` Ʉ +KDEF L LK K% ʽ  ٚ,S` w $݅3`(l8L"3L>(Ƀ,`3,G0]ɾ ` w`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O c־Jjjj 왻ɠ, XLޭBDEF޾ p 7 ޾ p($ذ (0 U( L?ԦʚLeةީ s +  L ,FL,DLE,C0!3 > Ɉ 3ɾL(3ɾ;Ƀ UB94 H06172839h` 97L75v^͘ ?/( ?LKLLɍ$?`? ɍɥAH93827160hH46576879h`,C Lޛ $0. ɍ  ,S0 ?@ L L btR莪Ta 0a [HT ph(K,Lǧ/A5ʩJ _V zrTJ6LySLا [AJ w@V k38`J" zʩ @V zЧ z ( zЖabT)!J B8`@U)9VJ T)h*I/W) VV }>S ?@$I0 U)VJ *T)`l8`a HbIJhjǾȾɾ p٭b=aIe f`8` yP־ǾҾ,G0C =W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) ۵ 5W) )W)@! pZ}ȾȾ޾,N0MHhHh p' ,N HCNh`M`M N `޾Lp yh־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne`_ 2Ͼ pH h8`jGMоM  G):_`蹀:`V)8`MN; ;`;C N8` G)̀#:蹀:`V)R y pH h8`Ͼо־ǾҾ_` EӾ pW) |LC`C N `9V) ß ` V) y޾ p` y (8` 8`8`(W)`_V)Ij!؍Í`_ jЭW)з#Ͼ p о־޾Ǿ` 8` 8`ɾ)ɾ̸ ɾɾ0miȾ p pY)ικ`lP y*,N!ǾȾɾʾ pǾ~H Uh8`8`,C U  8` 2ȾɾM$ mHݓǾ phϾ A ԟ ` ])Y 񩢍`Ⱦɾ0Ǿ p)莼 * 6 w= l& l8Hh l` 6Y׾ؾ+پھ p|پɾʾ`HV)jh츾$-ˌھپLp k V)@W0!XY aX6Y7` a YX`X:Y;τ<:: <`:8`'OV)Jj *f a  ԟ  ԟ ⟭ + +:ji  ԟɃ B , ԩ p`SW)0پȾھɾ p p 3LjÍ L I 9 1׾ؾ  p p 3 H h(`׾ؾ`  ߭׾t8퍼mؾŰ펼t폼 L8` `F`4W)ɐ/XYjV) *8` h e`l׾ XYW0V):W׾ؾ_`)0%I0)3]8X^YȰ8` 8` p Ⱦɾʾ8`پھW)@%ZȾ pSɐ"jÍgh I @8gȾhɾʾg׾hؾ  p hgͺ칾`L3V)jC mMjà Lp `VJJ°LyLp *)< LA * LAW)8VJưϥ3 ⟢BT eօ ܬ L s򩣍S3 Ly B# e $L? L Y kimljn`  pg׾mȾXhؾmɾYtѮȾɾ YX`8gM CgIY2m*b6>BSAVERIFYBLOADELETECATALOGOPENWRITEXECREATEFRES>blishing Association55 W Oak Ridge Drive"H "Hagerstown, MD 21740"^ "(301) 791-7000" D$;"OPEN NAME":D$;"READ NAME" I1257:N$(I): D$;"CLOSE NAME" D$;"OPEN HIGH":D$;"READ HIGH":I120:AN$(I),TA$(I)::D$;"CLOSE HIGH" :D$(4)_N$(257),N%(257),A%(20),NN$(12),SN$(12),TA$(20),AN$(20),DT$(20),DN$(20)u"PLEASE WAIT..."6:"Written by::"Jeff Johnson":"Copyright (C) 1984"All Rights Reserved":14:"Published by:":+ "Review and Herald PuY0:"START"' X(49152):YY15 X14145CX12720K10a(X);:X$X$(X)pZ(49168)x(10-::.Z(49168)/YY47.62"YOU HAVE TAKEN UP";Y;"SECONDS"::FA$:A$"Y"Ĭ D$;"OPEN BPT":D$;"WRITE BPT":C:D$;"CLOSE BPT": V:7:10);"SEARCH SOFTWARE":10);"REVIEW AND HERALD":10);"55 W OAK RIDGE DR"10)"HAGERSTOWN, MD 21740":10)"(301) 791-7000":10)"PRESENTS"::10)"PROFESSOR HOOSEYWHATSIS" (4)"RUN HOOSEYWHATSIS" L5LLL"L  KN)_ `@S8` ԠŬ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$⩔,CTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPENDx{[{0ǭ0hЫ}wA Xw­孶׭fl@@ -!S    !C- !ABELSDFRV@@ !$(19@E17)"STIRRUPSC ::"Have you ever thought lebzeeJ was mixed"t :"up? Straighten out Jezebel and a whole" :"herd of others in this mixed-up game." :"You get 5 tries at "(34)"demixitizing"(34)" these" :"Bible characters. Are yo),F,1)"!"āEF1W22P(A$(BB),F,1)"!"ĂFMTE$E$(A$(BB),E,1):E^B(E$):((B1)100)FLB1FL((B1)100):820h240rR$"Y"96t:I$((7(1)1)):E$:E$"E"70 |:"TYPE IN A 'YES' QUESTION THAT WOULD DISTINGUISH "E$""ĂL!"W$(A$(BB),L1):E$""*,W$;56"? ";Z@R$:R$"Y"R$"N"R$"E"320iAR$"E"70~CR$:R$"Y"İ670D:R$"N"İ700JS$"-A"SP$W$:750:370KR$"Y"āEL1W:(A$(BB),E,1)"!"340LR$"Y"350NFL1W:(A$(BB"R"170E$"Q"850(E$"E"701450d:B1:FL0FL0:O(6(1)1):ID$(O)::820910:BBBFL100:W$"":W(A$(BB)):S$(A$(BB),2)S$"-A"LW1S$"-A"280W$"IS IT "W$;290LW11:(A$(BB),L,1)"/0 E$ E$"R"170+ E$"Q"510: E$"E"70C 480w " LIST TO SCREEN":::" Q- QUESTIONS": " A- ANSWERS"::" R- RETURN TO Q & A MENU" ::" YOUR CHOICE? "; E$:E$"R"E$"Q"E$"A"E$"E"220 E$ YOUR CHOICE? "; E$) E$"E"709 E$"S"210J E$"P"180 :" LIST TO PRINTER":::" Q- QUESTIONS": " A- ANSWERS"::" R- RETURN TO Q & A MENU" ::" YOUR CHOICE? "; E$:E$"R"E$"Q"E$"A"E$"E"20 ESCAPE TO COMMAND MENU"6 :" YOUR CHOICE? ";> E$N E$"Q"600^ E$"A"550m E$"E"70v 160 ::" LIST QUESTIONS & ANSWERS"::" P- TO PRINTER"::" S- TO SCREEN" :" E- ESCAPE TO COMMAND MENU"::: " C$"L"170 u100X x:"DO YOU WANT DATA TO BE ECHOED TO THE PRINTER (Y/N)? ";} A$:A$"Y"A$"N"A$"E"130 A$"E"70 Z0:A$"Y"Z1 A$:96 :" CORRECTION MENU"::" Q- QUESTIONS" :" A- ANSWERS"::" E-BDEFGHIJKLM<NU"::" C- CORRECTION MENU"j Z:" P- PRINTER ECHO OPTION"::" L- LIST QUESTIONS & ANSWERS" ^:" N- ENDS GAME": `" COMMAND-- (H=HELP) "; dC$ gC$"N"720 jC$"S"230 mC$"H"70 oC$"P"120 rC$"C"150 s( D$(4):D$"PREFIX /HOOSEYWHATSIS/FO$D$"PR#1":P$D$"PR#0"`(A$(102),I$(7),ID$(6)s<890:T01300ATT:900:TT:FL9:X17:I$(X)::X16:ID$(X):F:" COMMAND MENU"::" S- START GAME":! P" H- RETURNS TO COMMAND MERING TABLE"::"IF YOU GET THROUGH ALL 12 IN LESS THAN:": A$"YOU COLLECT ":N$"0% OF YOUR SCORE ":" 1 MINUTE "A$"8"N$:" 2 MINUTES "A$"6"N$:" 3 MINUTES "A$"5"N$ " 4 MINUTES "A$"4"N$:" 5 MINUTES "A$"2"N$"d "OVER 5 MINUTES AND YOU WBLE"::j A$"YOU GUESS IT ON YOUR ":N$" GUESS........":A$"1ST"N$"10":A$"2ND"N$".7":A$"3RD"N$".5" A$"4TH"N$".3":A$"5TH"N$".1":"IF I HAVE TO TELL YOU..................0" ::" HIT ANY KEY TO CONTINUE.";:A$< :" BONUS SCOu a greenhorn?"? :"No need to coil up your rope! Press"k :"ESC and help will gallop your way;" :"however, this will cost you one of your":"guesses."::"So put on your spurs and hit any key to continue."; A$::" SCORING TA FROM "/~(A$(BB),W2)".";:P$:P$"E"70X:"HANG ON, I AM REMEMBERING "E$"."t(T100)FLP100:400PT(T100)100A$(P1)A$(BB):A$(P2)E$"-A":A$(BB)P$"/"(T2)"!"(T1)"-Q"TT2:TFTF2)P100TFTF2:840:1200:FL((T2)100):FL(T2)100TF2:420OP100FL(T2)100İ820:TFTF2_P100430A$((T2)FL1001)A$(101):A$((T2)FL1002)A$(102):A$(101)""A$(102)"":840:44084096:" PEOPLE I KNOW":FL0:820:LL1T1NPQRST_PELS/6!7-Q WAS HE ONE OF THE TWELVE DISCIPLES/8!9-Q WAS HIS MOTHER EUNICE/50!49-Q WAS HE ONE OF JESUS' THREE CLOSEST FRIENDS/10!11-Q WAS HE A RELIGIOUS LEADER (PRIEST RABBI SCRIBE RULER OF SYNAGOGUE)/12!13-Q WAS HE THE DISCIPLE WHOM JESUS LOVED/46!45-100 IS THIS PERSON A MAN/2!3-Q IS HE IN THE NEW TESTAMENT/5!4-Q IS THIS WOMAN IN THE NEW TESTAMENT/38!41-Q WAS THIS MAN MENTIONED IN THE FIRST FIVEBOOKS OF THE BIBLE (BOOKS OF MOSES PENTATEUCH TORAH)/16!23-Q IS THIS MAN MENTIONED IN ONE OF THE GOSE A FEW SECONDS, OK?","LET ME DIG UP SOME QUESTIONS."~D$;"OPEN BPA":M(T100.99):D$;"WRITE BPA":M:D$;"CLOSE BPA":D$;"OPEN BPA":D$;"READ BPA":A:AA1:D$;"CLOSE BPA":D$;"OPEN BP"(A)5D$"READ BP"(A):B:D$;"CLOSE":CA100B:E. WHO IS IT"z "I DON'T KNOW. WHO IS IT","OK, YOU TELL ME WHO IT IS","YOU REALLY THINK UP HARD NAMES. WHO IS IT""JUST A SECOND, PLEASE!","HOLD ON WHILE I GET MY ACT TOGETHER!","LET ME THINK--","HANG ON, LET ME REFRESH MY MEMORY."7"GIVE MT HAVE BEEN A PALINDROME (A PHRASE THAT READS THE SAME FORWARDS AND BACKWARDS)"x:13);::"MADAM I'M ADAM"::" HIT ANY KEY TO CONTINUE":A$:: "I GIVE UP. WHO IS IT","I'M STUMPED. WHO IS IT","OK, I GIVE UP. WHO IS IT","GOT MfV1ĺ:(A$(QQ),V1))pQ::210`zD$;"OPEN BPT":D$;"READ BPT":T:D$;"CLOSE BPT":D$;"OPEN BPT":D$;"WRITE BPT":T:D$;"CLOSE BPT":R$"Y"ıSP0:SP$"ADAM"SP$"":926S:10:" THE FIRST WORDS ADAM SPOKE TO EVE MIGH(FL):D$;"OPEN "NF$:D$;"WRITE "NF$SMTF:LZ1TF:A$(LZ)::D$;"CLOSE "NF$:{R:" QUESTIONS":FL0:820:Q1TW((Q1)100)(Q1)100Q1FL(Q1)100:820\QQQFL100:(A$(QQ),2)"-Q"880^V(A$(QQ))11:(A$(QQ),V,1)"/"ĂVĺO$:" 80N";W$;"? NO.":P$&P:13:" THANK YOU FOR PLAYING!!!"h900:LP15000:LPn CHECK FOR SURPRISE9104NF$"BP"(FL)>D$;"OPEN "NF$:D$;"READ "NF$:TF:LZ1TF:A$(LZ)::D$;"CLOSE "NF$:&HNF$"BP":(A$(Y),V1)::"CHANGE (Y/N/R)".vA$=xA$"E"70MzA$"R"150]|A$"N"650n~A$"Y"630"NEW QUESTION";N$:E$"E"70A$(Y)N$(A$(Y),(A$(Y))V1):840YY:150Z1ĺO$:" 80N";W$;"? YES.":P$ Z1?A$"Y"570.D"NEW NAME";N$:N$"E"70EIA$(I)N$"-A":840RNII:150jXFL0:820::YY1TZ((YY1)100)(YY1)100YY1FL(YY1)100:820bYYYFL100:(A$(Y),2)"-Q"650gV(A$(Y))11:(A$(Y),V,1)"/"ĂVlV2650&qO$:W$:P$QTĺ:190%511=&FL0:820:II1T:s+((II1)100)(II1)100II1FL(II1)100:8200IIIFL100:(A$(I),2)"-A"5905:(A$(I),(A$(I))2)::"CHANGE (Y/N/R)":A$;A$"E"70<A$"R"150=A$"N"590(A$(I),(A$(I))2):P$(II::190FFL0:820:O$::P$::Q0PQQ1((Q1)100)(Q1)100Q1FL(Q1)100:820QQQFL100:(A$(QQ),2)"-Q"540 L(A$(QQ))11:(A$(QQ),L,1)"/"ĂL LLL:L0:L:LLL W$(A$(QQ),L1):((LL1)100)(LL1)100LL1FL(LL1)100:820sLLLFL100:(A$(L),2)"-A"ĭ(A$(L))2ĺ(A$(L),(A$(L))2)LL::210FL0:820:X0:II1T((II1)100)(II1)100II1FL(II1)100:820IIIFL100:(A$(I),2)"-A"500O$:Q DID HE BETRAY JESUS FOR THIRTY PIECES OFSILVER/48!47-Q CAIAPHAS-A WAS HE A CIVIL SERVANT (PROCURATOR KING PUBLICAN OR TAX COLLECTOR CENTURION/14!15-Q ZACCHAEUS-A BARTIMAEUS-A DID HE LIVE BEFORE NOAH'S FLOOD (THE FLOOD THE DELUGE ANTEDILUVIAN)/17!18-Q DID HE BETRAY JESUS FOR THIRTY PIECES OF SILVER/48!47-Q CAIAPHAS-A WAS HE A CIVIL SERVANT (PROCURATOR KING PUBLICAN OR TAX COLLECTOR CENTURION/14!15-Q ZACCHAEUS-A BARTIMAEUS-A DID HE LIVE BEFORE NOAH'S FLOOD (THE FLOOD THE DELUGE ANTEDILUVIAN)/17!18-Q UWXYZ[ELS/6!7-Q WAS HE ONE OF THE TWELVE DISCIPLES/8!9-Q WAS HIS MOTHER EUNICE/50!49-Q WAS HE ONE OF JESUS' THREE CLOSEST FRIENDS/10!11-Q WAS HE A RELIGIOUS LEADER (PRIEST RABBI SCRIBE RULER OF SYNAGOGUE)/12!13-Q WAS HE THE DISCIPLE WHOM JESUS LOVED/46!45-Q80 IS THIS PERSON A MAN/2!3-Q IS HE IN THE NEW TESTAMENT/5!4-Q IS THIS WOMAN IN THE NEW TESTAMENT/38!41-Q WAS THIS MAN MENTIONED IN THE FIRST FIVEBOOKS OF THE BIBLE (BOOKS OF MOSES PENTATEUCH TORAH)/16!23-Q IS THIS MAN MENTIONED IN ONE OF THE GOSP!103-Q SARAH-A DID SHE GLEAN IN BOAZ'S FIELD/80!79-Q ESTHER-A DID SHE HANG A SCARLET CORD FROM HER WINDOW/92!91-Q RUTH-A AMOS-A JONAH-A BERNICE-A LYDIA-A WAS HE THE THIRD SON OF ADAM/98!97-Q ENOCH-A DID HE LEAD 300 MEN/94!93-Q EHUD-A WAS HE A GREEK CONV10!109-Q DAVID-A AHAZIAH-A JOASH-A OMRI-A JEHU-A DID HE TAKE A SUBMARINE RIDE/82!81-Q JEREMIAH-A HERODIAS-A MARY-A DID SHE SELL PURPLE/84!83-Q DORCAS-A DID SHE LAUGH WHEN SHE WAS TOLD SHE WOULD HAVE A BABY/76!75-Q EVE-A WAS SHE ABRAHAM'S OTHER WIFE/1042!101-Q JUDAS ISCARIOT-A DID HE FALL ASLEEP IN CHURCH/90!89-Q TIMOTHY-A DID HE WALK WITH GOD/86!85-Q ADAM-A ZEBULUN-A REUBEN-A DID HE REFUSE TO LET THE PEOPLE GO/108!107-Q ABRAHAM-A ABIHU-A JOSHUA-A WAS HE LEFT-HANDED/88!87-Q SAMSON-A HIS NAME MEANS FOOL/172!71-Q WAS THIS WOMAN MENTIONED IN ONE OF THE FIRST FIVE BOOKS OF THE BIBLE (BOOKS OF MOSES PENTATEUCH TORAH)/42!44-Q WAS SHE THE MOTHER OF SETH/74!73-Q PLACE HOLDER/1!1/Q DID SHE WIN A BEAUTY CONTEST/78!77-Q JAMES-A JOHN-A WAS HE KNOWN AS THE DOUBTER/10ET/68!67-Q DID HE OWN A CHOICE VINEYARD/118!117-Q WAS HE A MINOR PROPHET/36!37-Q HAGGAI-A DID HE SPEND A NIGHT WITH THE LIONS/106!105-Q IS THIS WOMAN MENTIONED IN ONE OF THE GOSPELS/39!40-Q WAS SHE JESUS' MOTHER/70!69-Q DID SHE MAKE CLOTHES FOR THE POOR/ANIEL WAS TAKEN TO BABYLON (THE EXILE THE BABYLONIAN EXILE)/28!35-Q WAS HE ONE OF THE KINGS/29!32-Q WAS HE A KING OF JUDAH/30!31-Q WAS HE RAISED BY HIS AUNT JEHOSHEBA/64!63-Q DID HE DRIVE FURIOUSLY/66!65-Q WAS HE A PROPHET/33!34-Q WAS HE THE WEEPING PROPHING THE REIGNS OF THE FIRST THREE KINGS OF THE UNITED KINGDOM (MONARCHY) OF ISRAEL/26!27-Q WAS HE THE YOUNGEST SON OF JESSE/62!61-Q DID HE LIVE DURING THE TIME OF THE DIVIDED KINGDOMS (MONARCHY) OF ISRAEL AND JUDAH BUT BEFORE THE TIME WHEN D JERICHO/58!57-Q DID HE LIVE BETWEEN THE TIME WHEN THE CHILDREN OF ISRAEL ENTERED THE PROMISED LAND AND THE TIME WHEN THE KINGS BEGAN TO RULE (THE TIME OF JOSHUA AND THE JUDGES)/24!25-Q WAS HE THE STRONGEST MAN WHO EVER LIVED/60!59-Q DID HE LIVE DURWAS HE THE FIRST PERSON/52!51-Q DID HE LIVE BETWEEN NOAH'S FLOOD AND THEEXODUS FROM EGYPT/19!22-Q WAS HE ONE OF THE SONS OF JACOB/20!21-Q IS THERE A SANDWICH THAT BEARS HIS NAME/54!53-Q WAS HE THE FATHER OF MANY NATIONS/56!55-Q DID HE LEAD IN THE BATTLE OFWAS HE THE FIRST PERSON/52!51-Q DID HE LIVE BETWEEN NOAH'S FLOOD AND THEEXODUS FROM EGYPT/19!22-Q WAS HE ONE OF THE SONS OF JACOB/20!21-Q IS THERE A SANDWICH THAT BEARS HIS NAME/54!53-Q WAS HE THE FATHER OF MANY NATIONS/56!55-Q DID HE LEAD IN THE BATTLE OF JERICHO/58!57-Q DID HE LIVE BETWEEN THE TIME WHEN THE CHILDREN OF ISRAEL ENTERED THE PROMISED LAND AND THE TIME WHEN THE KINGS BEGAN TO RULE (THE TIME OF JOSHUA AND THE JUDGES)/24!25-Q WAS HE THE STRONGEST MAN WHO EVER LIVED/60!59-Q DID HE LIVE DURERT/120!119-Q EUTYCHUS-A WAS SHE EATEN BY DOGS/96!95-Q RAHAB-A BARAK-A GIDEON-A WAS SHE DAVID'S SECOND WIFE/112!111-Q JEZEBEL-A WAS HE THE FIRST MURDERER/100!99-Q SETH-A YES/122!121-Q CAIN-A LLOS -A MAHALALEEL-A ABLE-A 22 SIMON THE CANAANITE-A THOMAS-A DID SHE DECEIVE TO GET A HUSBAND/114!113-Q HAGAR-A HAMAN-A DANIEL-A NAHOR-A PHARAOH-A MEPHIBOSHETH-A NABAL-A WAS SHE SOLOMON'S MOTHER/116!115-Q ABIGAIL-A ZIPPORAH-A LEAH-A PENINNAH-A BATHSHEBA-A ABNER-A NABOTH-A PAUL-A APO2 -122 LEAN IN BOAZ'S FIELD/80!79-Q ESTHER-A PENINNAH-A RUTH-A A ABRAHAM-A ABIHU-A JOSHUA-A BARAK-A SAMSON-A MEPHIBOSHETH-A DAVID-A AHAZIAH-A JOASH-A OMRI-A JEHU-A AMOS-A JEREMIAH-A HERODIAS-A MARY-A BERNICE-A DORCAS-A DID SHE LAUGH WHEN SHE WAS TOLD SHE WOULD HAVE A BABY/76!75-Q EVE-A ZIPPORAH-A SARAH-A DID SHE G BIBLE (BOOKS OF MOSES PENTATEUCH TORAH)/42!44-Q WAS SHE THE MOTHER OF SETH/74!73-Q PLACE HOLDER/1!1/Q DID SHE WIN A BEAUTY CONTEST/78!77-Q JAMES-A JOHN-A SIMON THE CANAANITE-A JUDAS ISCARIOT-A PAUL-A TIMOTHY-A MAHALALEEL-A ADAM-A ZEBULUN-A REUBEN-A NAHOR-ET/68!67-Q ABNER-A WAS HE A MINOR PROPHET/36!37-Q HAGGAI-A HAMAN-A IS THIS WOMAN MENTIONED IN ONE OF THE GOSPELS/39!40-Q WAS SHE JESUS' MOTHER/70!69-Q DID SHE MAKE CLOTHES FOR THE POOR/72!71-Q WAS THIS WOMAN MENTIONED IN ONE OF THE FIRST FIVE BOOKS OF THEANIEL WAS TAKEN TO BABYLON (THE EXILE THE BABYLONIAN EXILE)/28!35-Q WAS HE ONE OF THE KINGS/29!32-Q WAS HE A KING OF JUDAH/30!31-Q WAS HE RAISED BY HIS AUNT JEHOSHEBA/64!63-Q DID HE DRIVE FURIOUSLY/66!65-Q WAS HE A PROPHET/33!34-Q WAS HE THE WEEPING PROPHING THE REIGNS OF THE FIRST THREE KINGS OF THE UNITED KINGDOM (MONARCHY) OF ISRAEL/26!27-Q WAS HE THE YOUNGEST SON OF JESSE/62!61-Q DID HE LIVE DURING THE TIME OF THE DIVIDED KINGDOMS (MONARCHY) OF ISRAEL AND JUDAH BUT BEFORE THE TIME WHEN DILL GET ONLY THEPOINTS YOU HAVE COLLECTED SO FAR IN THE GAME."::" HIT ANY KEY TO CONTINUE.";-!A$::10:"IF YOU FINISH THE WORDS IN LESS THAN 1 MINUTE, YOU'LL RECIEVE A 2% BONUS OF YOUR FINAL SCORE FOR EVERY SECOND UNDER A MINUTE YOU FINISH."f1,110,208,2201 8169,255,141,164,3,104,96,168U @173,16,192,152,168,104,170,152x H201,141,240,45,201,136,240,42 P201,255,240,38,201,155,240,28 X160,1,217,127,4,240,9,204 `168,3,240,174,200,76,90,3 h157,255,5,232,169,160,153,127 p  I768A:A256Ā.I,A:II1:20M169,0,141,164,3,174,168,3n189,127,4,157,168,3,202,208247,232,138,72,173,0,192,201128,16,36,24,173,167,3,105 1,141,167,3,173,166,3,105(0,141,166,3,173,165,3,105 00,141,165,3,209,1,141,156- p3,96,224,1,240,243,202,169L x160,160,1,217,127,4,240,4l 200,76,123,3,189,255,5,217 160,3,208,11,153,127,4,169 160,157,255,5,76,18,3,169 160,76,128,3,0,0,0,0,256c,3,105% 00,141,157,3,76,20,3,168I 8173,16,192,152,168,104,170,152l @201,141,240,45,201,136,240,42 H201,255,240,38,201,155,240,28 P160,1,217,127,4,240,9,204 X160,3,240,182,200,76,82,3 `157,255,5,232,169,160,153,127 h4,76,18,3,16  I768A:A256Ā.I,A:II1:20M169,0,141,156,3,174,160,3{ 189,127,4,157,160,3,202 ,208 247,232,138,72,173,0,19 2,201128,16,28,24,173,159,3,105 1,141,159,3,173,158,3,105 (0,141,158,3,173,157.lZ5Z.:103::OUFGUESSES:II:GAME6n78QxZ121,122,123,124,125dySCSC10:Z.:wzSCSC07:Z.:{SCSC05:Z.:|SCSC03:Z.:}SCSC01:Z.:III10242023:A(I):B(I1):C(I6):ACBA7ĺII Z5İNOME:PV1:100'U(924)178=V(924)2TIMEOUTWD$"":VT1(C$):XM(1535VT):XMXM128:D$D$(XM):VT:100d NEXTPARTfPV1PV.:II:GAMEhD$NN$(II)ĺ:::"RIGHT":ZZ1:120:II:GAMEjZZ1:::"WRONG":X1100::(S)):K(N$(S))#DF((1)K1)3FA%(F)168bGA%(F)1:SN$(ZZ)SN$(ZZ)(N$(S),F,1)::ZZhJLII112:Z.:Y.:SN$SN$(II)N::SN$20)"#"II29)"SCORE "SC::C$SN$:"WHO IS THIS?"RXZ(C$):928,XZ:768T(924)1YY1:ZZ1:HELP:2/'A$"H"ĺ"HARD":BB163:EE257:DL16:42X(A$"A"ĺ"ALL":BB1:EE257:DL11:42`)37*22:" PLEASE WAIT..."<HO.:WE1:ZZ112:C120:A%(C).::SN$(ZZ)""@S((1)(EEBB)BB):N%(S)164BN%(S)1:NN$(ZZ)N$(S)CT1(N$::" HIT ANY KEY TO PLAY THE GAME.";:A$#:" CHOOSE YOUR SKILL LEVEL":9:17)"EASY"::16)"MEDIUM"::17)"HARD"$:17)"ALL":::"YOUR CHOICE IS? ";%A$:A$"E"ĺ"EASY":BB1:EE92:DL1:42&A$"M"ĺ"MEDIUM":BB93:EE162:DL6:44,76,18,3,169,1,141,1649 x3,96,224,1,240,243,202,169X 160,160,1,217,127,4,240,4x 200,76,131,3,189,255,5,217 168,3,208,11,153,127,4,169 160,157,255,5,76,18,3,169 160,76,136,3,0,0,0,0,256FL((T2)100):FL(T2)100TF2:420OP100FL(T2)100İ820:TFTF2_P100430A$((T2)FL1001)A$(101):A$((T2)FL1002)A$(102):A$(101)""A$(102)"":840:44084096:" PEOPLE I KNOW":FL0:820:LL1T1 FROM "/~(A$(BB),W2)".";:P$:P$"E"70X:"HANG ON, I AM REMEMBERING "E$"."t(T100)FLP100:400PT(T100)100A$(P1)A$(BB):A$(P2)E$"-A":A$(BB)P$"/"(T2)"!"(T1)"-Q"TT2:TFTF2)P100TFTF2:840:1200:),F,1)"!"āEF1W22P(A$(BB),F,1)"!"ĂFMTE$E$(A$(BB),E,1):E^B(E$):((B1)100)FLB1FL((B1)100):820h240rR$"Y"96t:I$((7(1)1)):E$:E$"E"70 |:"TYPE IN A 'YES' QUESTION THAT WOULD DISTINGUISH "E$""ĂL!"W$(A$(BB),L1):E$""*,W$;56"? ";Z@R$:R$"Y"R$"N"R$"E"320iAR$"E"70~CR$:R$"Y"İ670D:R$"N"İ700JS$"-A"SP$W$:750:370KR$"Y"āEL1W:(A$(BB),E,1)"!"340LR$"Y"350NFL1W:(A$(BB"R"170E$"Q"850(E$"E"701450d:B1:FL0FL0:O(6(1)1):ID$(O)::820910:BBBFL100:W$"":W(A$(BB)):S$(A$(BB),2)S$"-A"LW1S$"-A"280W$"IS IT "W$;290LW11:(A$(BB),L,1)"/0 E$ E$"R"170+ E$"Q"510: E$"E"70C 480w " LIST TO SCREEN":::" Q- QUESTIONS": " A- ANSWERS"::" R- RETURN TO Q & A MENU" ::" YOUR CHOICE? "; E$:E$"R"E$"Q"E$"A"E$"E"220 E$ YOUR CHOICE? "; E$) E$"E"709 E$"S"210J E$"P"180 :" LIST TO PRINTER":::" Q- QUESTIONS": " A- ANSWERS"::" R- RETURN TO Q & A MENU" ::" YOUR CHOICE? "; E$:E$"R"E$"Q"E$"A"E$"E"20 ESCAPE TO COMMAND MENU"6 :" YOUR CHOICE? ";> E$N E$"Q"600^ E$"A"550m E$"E"70v 160 ::" LIST QUESTIONS & ANSWERS"::" P- TO PRINTER"::" S- TO SCREEN" :" E- ESCAPE TO COMMAND MENU"::: " C$"L"170 u100X x:"DO YOU WANT DATA TO BE ECHOED TO THE PRINTER (Y/N)? ";} A$:A$"Y"A$"N"A$"E"130 A$"E"70 Z0:A$"Y"Z1 A$:96 :" CORRECTION MENU"::" Q- QUESTIONS" :" A- ANSWERS"::" E-iNU"::" C- CORRECTION MENU"j Z:" P- PRINTER ECHO OPTION"::" L- LIST QUESTIONS & ANSWERS" ^:" N- ENDS GAME": `" COMMAND-- (H=HELP) "; dC$ gC$"N"720 jC$"S"230 mC$"H"70 oC$"P"120 rC$"C"150 s( D$(4):D$"PREFIX /HOOSEYWHATSIS/FO$D$"PR#1":P$D$"PR#0"`(A$(102),I$(7),ID$(6)s<890:T01300ATT:900:TT:FL9:X17:I$(X)::X16:ID$(X):F:" COMMAND MENU"::" S- START GAME":! P" H- RETURNS TO COMMAND ME((LL1)100)(LL1)100LL1FL(LL1)100:820gLLLFL100:(A$(L),2)"-A"ĺ(A$(L),(A$(L))2)vLL::210FL0:820:X0:II1T((II1)100)(II1)100II1FL(II1)100:820IIIFL100:(A$(I),2)"-A"500 O$:(A$(I),(A$(I))2):P$II::190:FL0:820:O$::P$::Q0DQQ1v((Q1)100)(Q1)100Q1FL(Q1)100:820QQQFL100:(A$(QQ),2)"-Q"540 L(A$(QQ))11:(A$(QQ),L,1)"/"ĂL LLL:L0:L:LLLW$(A$(QQ),L1):O$:W$:P$RUN (Imm & Def) Run a BASIC program from a file Form: RUN pn [,@#] [,S#] [,D#] Example: RUN BINGO ,@100 This example loads the file BINGO from the prefix directory, and then runs it beginning at line 100. pn must indicate a file of type BwD BP"(A):B:D$;"CLOSE":CA100B:D$;"OPEN BPT":D$;"WRITE BPT":C:D$;"CLOSE BPT": DIG UP SOME QUESTIONS."`D$;"OPEN BPA":M(T100.99):D$;"WRITE BPA":M:D$;"CLOSE BPA"::"PLEASE WAIT...YOU DIDN'T END THE GAME CORRECTLY LAST TIME!!!"D$;"OPEN BPA":D$;"READ BPA":A:AA1:D$;"CLOSE BPA":D$;"OPEN BP"(A)YD$"REANOW. WHOS IS IT","OK, YOU TELL ME WHO IT IS","YOU REALLY THINK UP HARD NAMES. WHO IS IT""JUST A SECOND, PLEASE!","HOLD ON WHILE I GET MY ACT TOGETHER!","LET ME THINK--","HANG ON, LET ME REFRESH MY MEMORY.""GIVE ME A FEW SECONDS, OK?","LET ME RASE THAT READS THE SAME FORWARDS AND BACKWARDS)"Z:13);::"MADAM I'M ADAM"::" HIT ANY KEY TO CONTINUE":A$:: "I GIVE UP. WHO IS IT","I'M STUMPED. WHO IS IT","OK, I GIVE UP. WHO IS IT","GOT ME. WHO IS IT"\"I DON'T KQ::210BzD$;"OPEN BPT":D$;"READ BPT":T:D$;"CLOSE BPT":zD$;"OPEN BPT":D$;"WRITE BPT":T:D$;"CLOSE BPT":R$"Y"ıSP0:SP$"ADAM"SP$"":9265:10:" THE FIRST WORDS ADAM SPOKE TO EVE MIGHT HAVE BEEN A PALINDROME (A PH"WRITE "NF$:MTF:LZ1TF:A$(LZ)::D$;"CLOSE "NF$:bR:" QUESTIONS":FL0:820:Q1TW((Q1)100)(Q1)100Q1FL(Q1)100:820\QQQFL100:(A$(QQ),2)"-Q"880^V(A$(QQ))11:(A$(QQ),V,1)"/"ĂVf:(A$(QQ),V1) p":P$ 7:13:" THANK YOU FOR PLAYING!!!"O900:LP15000:LPUn CHECK FOR SURPRISEw910}4NF$"BP"(FL)>D$;"OPEN "NF$:D$;"READ "NF$:TF:LZ1TF:A$(LZ)::D$;"CLOSE "NF$: HNF$"BP"(FL):D$;"OPEN "NF$:D$;GE (Y/N/R)"vA$$xA$"E"704zA$"R"150D|A$"N"650U~A$"Y"630w"NEW QUESTION";N$:E$"E"70A$(Y)N$(A$(Y),(A$(Y))V1):840YY:150Z1ĺO$:" 80N";W$;"? YES.":P$Z1ĺO$:" 80N";W$;"? NO.70"D"NEW NAME";N$:N$"E"709IA$(I)N$"-A":840FNII:150^XFL0:820::YY1TZ((YY1)100)(YY1)100YY1FL(YY1)100:820bYYYFL100:(A$(Y),2)"-Q"650gV(A$(Y))11:(A$(Y),V,1)"/"ĂV l:(A$(Y),V1)::"CHANQTĺ:1905111&FL0:820:II1T:g+((II1)100)(II1)100II1FL(II1)100:8200IIIFL100:(A$(I),2)"-A"5905:(A$(I),(A$(I))2)::"CHANGE (Y/N/R)":A$;A$"E"70<A$"R"150=A$"N"590?A$"Y"5AS. Without the [,@#] option, ProDOS starts running the program at its first line. With this option, ProDOS starts running the program at line #. The other options are used as usual. y-7) [,@#] BASIC line number pn = Pathname, partial pathname snum = Slot number (0-7) [,Ttype] type = File type abbrev. See: HELP FILE for file types; HELP BINARY for A#, B#, E#, L# SYNTAX of ProDOS command options [,A#] Address of 1st byte to transfer [,B#] Bytes to skip [,D#] Drive number (1-2) [,E#] End address for transfer [,F#] Fields to skip [,L#] Length of record [,R#] Record number in file [,S#] Slot of disk drive (1} type VAR. The values of these variables can be brought into memory using the RESTORE command. The other options are used as usual. STORE (Imm & Def) Save all variables into a file Form: STORE pn [,S#] [,D#] Example: STORE /GAMES/HIPPO.VARS This example places the names and values of all the BASIC variables that are currently defined into the file /GAMES/HIPPO.VARS, of{e or partial pathname of the file in which the program is to be saved. If pn already exists, it must be unlocked, and it must be type BAS. The other options are used as usual. SAVE (Imm & Def) Save a BASIC program to a file Form: SAVE pn [,S#] [,D#] Example: SAVE /CUSHION/WHOOPEE This example stores the BASIC program in memory into the BASIC program file (type BAS) /CUSHION/WHOOPEE on a disk. pn is the pathnamUNLOCK (Imm & Def) Remove protection from a LOCKed file Form: UNLOCK pn [,S#] [,D#] Example: UNLOCK /IMPORTANT/INFO This example unlocks the file INFO on the disk named /IMPORTANT. When a file is unlocked, it can be written to by a program, ren "I'M A PRACTICE PROGRAM"EXTRASuHUSTON!'  'TIME A5READ.DIRECTORYA5APA ! 5POSTAGE.RATES A5AAPOKER.EXECAADATAuHUSTON!'  'FOUR.FRUITSAAVERB.LIST$AATEXT!AABLACK.BOOKAAPICTURE A ALISTFILEnAAE.S.P.AALISTSELFAAMAKE.FRUITAAGET.FRUITAACONJUGATEAACONJUGEATEN AAPROGRAMSuHUSTON!' 'WHIZBOOM?AATWO.LINER1AAVERY.SHORTAAONERR.DEMOwAAPART1AAPART2!A5LOCK.ME.1!A5LOCK.ME.2!A5LOCKED.UP.1!A5LOCKED.UP.2!A5PRACTICEuHUSTON!' 'RENAME.ME.1!A5RENAME.ME.2!A5RENAME.ME.3!A5DELETE.ME.1!A5DELETE.ME.2!A5DELETE.ME.3 to be written. After WRITE, PRINT sends characters to pn until a ProDOS command is issued. With random-access text files, [R#] is the record to be written. [F#] and [B#] are the number of fields and bytes to skip before writing. WRITE (Deferred) Prepare an open file to be written Form: WRITE pn [,R#] [,F#] [,B#] Examples: WRITE SOON WRITE /LY/SO,R26 The top example prepares SOON from the prefix directory to be written. The other prepares record 26 of /LY/SOamed or deleted. The other options are used as usual.  "I'M A PRACTICE PROGRAM" "I'M A PRACTICE PROGRAM" "I'M A PRACTICE PROGRAM" "I'M A PRACTICE PROGRAM" "I'M A PRACTICE PROGRAM" "I'M A PRACTICE PROGRAM" "I'M A PRACTICE PROGRAM" "I'M A PRACTICE PROGRAM" "I'M A PRACTICE PROGRAM" E.S.P.# : CLEAR SCREEN>D$(4): CONTROL-D `B$(7): CONTROL-G IS BELL z( GET A RANDOM NUMBER2I(10(1))<"I AM THINKING OF A NUMBER FROM 0 TO 9."F"DO YOU KNOW WHAT IT IS?": P"TYPE Q TO QUIT":"OR CHOOSE A NUM  PART2/"PART2: WRONG LINE NUMBER."745Y#"PART2: RIGHT LINE NUMBER."l-"PART2: ";I$  PART1% D$(4): CONTROL-DID$;"PREFIX /EXAMPLES/PROGRAMS"nI$"THE STRING I$ IS PRESERVED."("PART1: I$ HAS BEEN SET."2D$;"CHAIN PART2,@35"NAME ";F$;",";N$% D$;"LOCK ";N$+ M "ERROR #";(222);" DETECTED"o "AT LINE ";(218)(219)256u  ONERR.DEMO* D$(4): CONTROL-D4100O"FILE TO RENAME? ";F$d("NEW NAME? ";N$2D$;"RENAME ";F$;",";N$<d(222)10200n"FILE IS LOCKED. RENAME ANYWAY? (Y/N) ";Y$xY$"Y"Y$"y"ĀD$;"UNLOCK ";F$ D$;"RE "A VERY SHORT PROGRAM" "I'M LINE 10. ";/"I'M LINE 20. ";  WHIZBOOM I1800"WHIZBOOM ";7I=( BER FROM 0 TO 9 -> ";< Z GET THE NUMBER, CHECK FOR QUITa dN$:N$::(N$"Q")(N$"q")200~ n CHECK FOR VALID NUMBER x(N$"0")(N$"9")ĺB$;"NUMBERS ONLY, PLEASE."::80 N(N$): CHANGE LETTER TO NUMBER GG1: ADD ONE TO TOTAL GUESSECONJUGEATAAUSE.SUBAAMAKE.TEXT9AAGET.TEXTAAADDRESSRAAMAKE.BLACK.BOOKAAEXEC.DEMORB.LIST" CONJUGEATEN+ D$(4): CONTROL-DJR$(13): CARRIAGE RETURNUC$","u(D$;"PREFIX /EXAMPLES/DATA"2D$;"OPEN VERB.LIST"<D$;"READ VERB.LIST"FA1$,A2$,A3$,A4$,A5$,A6$PA1$;C$;A2$;C$;A3$;R$;A4$;C$;A5$;C$;A6$ ZD$;"CLOSE VE CONJUGATE D$(4)=D$;"PREFIX /EXAMPLES/DATA"VD$;"OPEN VERB.LIST"p(D$;"WRITE VERB.LIST"2"DRINK,DRANK,DRUNK"<"THINK,THANK,THUNK"FD$;"CLOSE VERB.LIST" GET.FRUIT) D$(4): CONTROL-DHR$(13): CARRIAGE RETURNhD$;"PREFIX /EXAMPLES/DATA"(D$;"OPEN FOUR.FRUITS"2D$;"READ FOUR.FRUITS"<I03F:A$(I)P:A$(I)ZIdD$;"CLOSE FOUR.FRUITS" MAKE.FRUIT D$(4)>D$;"PREFIX /EXAMPLES/DATA"YD$;"OPEN FOUR.FRUITS"x("THIS GOES TO THE SCREEN"2D$;"WRITE FOUR.FRUITS"<"APPLE"F"BANANA"P"CANTALOUPE"Z"DATE"dD$;"CLOSE FOUR.FRUITS" PROGRAM LISTSELF2 D$(4): CONTROL-DRD$;"PREFIX /EXAMPLES/DATA"jD$;"OPEN LISTFILE"(D$;"WRITE LISTFILE"2<D$;"CLOSE"S. NISS1:"YOU GUESSED IT!!";B$:170V "NICE TRY. THE NUMBER WAS ";I;"." :"YOU HAVE GUESSED ";S;" NUMBERS IN ";G;" TRIES." "THAT IS ";100SG;" PERCENT." :50  AANEW.PROGRAMYAAAWAYiAAMAKE.DOITAADOIT.EXEC,AAPOKERAASTARTUP Ap CONJUGEATEN+ D$(4): CONTROL-DJR$(13): CARRIAGE RETURNjD$;"PREFIX /EXAMPLES/DATA"(D$;"OPEN VERB.LIST"2D$;"READ VERB.LIST"<A1$:A2$FA1$;R$;A2$PD$;"CLOSE VERB.LIST"00 xC2İ2000 C3Ā& 30;  READ NEW INFOT "NAME: ";N$m "ADDRESS: ";A$ "CITY: ";C$ "STATE: ";S$ "ZIP CODE: ";Z$ $"PHONE: ";P$ .D$;"OPEN ";F$;",L200" 8D$;"READ ";F$;",  D$(4)0F$"/EXAMPLES/DATA/BLACK.BOOK"6Z("WHAT WOULD YOU LIKE TO DO?":z2" 1 ENTER A NEW ADDRESS"<" 2 LOOK UP AN ADDRESS"F" 3 END":P"TYPE A NUMBER AND PRESS RETURN ";C$ZC(C$):dC1C3ī30 nC1İ10D$;"READ ";N$ xI1100/ I;": ";:10006 IL :D$;"CLOSE ";N$T :a C$:C$;n C$R$ı A$(I)A$(I)C$ 1000  150(A$(100): 100 LINES MAX4D$(4)A(R$(13)I2:i7D$;"PREFIX /EXAMPLES/DATA"<"LIST WHAT TEXT FILE? ";N$F:"TYPE: CONTROL-S TO STOP LISTING"P" ANY KEY TO CONTINUE"Z::34,6dD$;"OPEN ";N$ n C$:C$; C$R$ı- A$(I)A$(I)C$7 1000E" d:34,6: SET WINDOW0 nII1:I;": ";: x1000M A$(I)""110m D$;"PREFIX /EXAMPLES/DATA" "SAVE TO WHAT FILE? ";N$ (N$)0ī230 D$;"OPEN ";N$ D$;"WRITE ";N$ J1I1 :A$(J) J D$;"CLOSE ";N$ :  A$(100): 100 LINES MAX6D$(4): CONTROL-DUR$(13): CARRIAGE RETURN](:2" TEXT FILE CREATOR"<:"TO ADD A LINE:"F:" ENTER CHARACTERS, AND PRESS RETURN"P:"TO END:" Z:" PRESS RETURN ON AN EMPTY LIN: START AT A$(0), II1: NEXT ELEMENTE C$: READ CHARACTERW C$","ī1010d C$R$ı A$(I)A$(I)C$: ADD TO ARRAY ELEMENT $1020 USE SUBROUTINE. D$(4): CONTROL-DMR$(13): CARRIAGE RETURNmD$;"PREFIX /EXAMPLES/DATA"(D$;"OPEN VERB.LIST"2D$;"READ VERB.LIST"<1000FD$" CLOSE VERB.LIST"PJ1IZ:A$(J)dJn READ A FIELD I0R0" BTR:TRTR11 LD$;"WRITE ";F$;",R";TRA VN$:A$:C$Q `S$:Z$:P$k jD$;"WRITE ";F$;",R0"s tTR ~D$;"CLOSE ";F$  D$;"OPEN ";F$;",L200" D$;"READ ";F$;",R0" TR: GET # OF RECORDS TR0ī2210  "WHOSE ADD"PRINT"Q$"YOU CAN DISPLAY A DIRECTORY..."Q$O"FOR X=1 TO 4000:NEXT X"y"RUN /EXAMPLES/PROGRAMS/NEW.PROGRAM""PRINT"Q$"AND RUN PROGRAMS."Q$"FOR X=1 TO 4000:NEXT X""PRINT"Q$"DONE SHOWING OFF."Q$D$;"CLOSE" "IT'S D"1 T"PRINT"Q$"AND THEN SAVE IT TO A FILE!"Q$^ ^:"SAVE /EXAMPLES/PROGRAMS/NEW.PROGRAM"i h"HGR" r"BLOAD /EXAMPLES/DATA/PICTURE" |"PRINT"Q$"YOU CAN EVEN DISPLAY PICTURES!!"Q$ "FOR X=1 TO 4000:NEXT X:TEXT""CAT /EXAMPLES/PROGRAMS"1 5"7 "110 PRINT";Q$;"THIS IS A PROGRAM CREATED"Q$l "120 PRINT";Q$;"ENTIRELY BY AN EXEC PROGRAM."Q${ ""130 END" ,"PRINT"Q$"YOU CAN LIST THE PROGRAM..."Q$ 6"LIST" @"PRINT"Q$"PAUSE TO LOOK AT THE LISTING."Q$ J"FOR X=1 TO 8000:NEXT X$:A$"Q"A$"q"Ā+ A$" "ĺB$;:190O :"CREATING SHOWOFF.EXEC...":s D$;"PREFIX /EXAMPLES/PROGRAMS" D$;"OPEN SHOWOFF.EXEC":D$;"WRITE SHOWOFF.EXEC" 1000 "PRINT"Q$"YOU CAN ENTER LINES OF A PROGRAM."Q$ :"100 TEXT:HOME:VTABSIC PROGRAMMING WITH PRODOS";Q$P "DESCRIBES THE PROGRAM IN MORE DETAIL.":x " << HAPPY EXECUTING >>": "PRESS THE SPACE BAR TO MAKE THIS" "PROGRAM CREATE THE FILE SHOWOFF.EXEC .": "PRESS Q TO STOP THIS PROGRAM NOW. "; ALE II COMMAND.":( F"WHEN YOU TYPE"F P" EXEC SHOWOFF.EXEC"s Z"THE COMMANDS IN THE FILE SHOWOFF.EXEC" d"TAKE CONTROL OF YOUR COMPUTER. EACH" n"COMMAND IS EXECUTED JUST AS IF IT HAD" x"BEEN TYPED IN FROM THE KEYBOARD. "! Q$;"BA EXEC.DEMO& D$(4):Q$(34)P:" << EXEC DEMONSTRATION >>":~"THIS PROGRAM CREATES A SEQUENTIAL TEXT"("FILE NAMED ";Q$;"SHOWOFF.EXEC";Q$;". EACH STRING"2"THAT IS PLACED IN SHOWOFF.EXEC BY THIS" <"PROGRAM IS A LEGAL APP  D$(4);D$;"OPEN /EXAMPLES/DATA/BLACK.BOOK,L200"hD$;"WRITE /EXAMPLES/DATA/BLACK.BOOK,R0"o(02D$;"CLOSE" Z$:P$ D$;"CLOSE ";F$' 23:8J "PRESS RETURN TO CONTINUE";T$P  RESS DO YOU WANT? ":# I1TR> :D$;"READ ";F$;",R";IG :N$R *:I,N$Y 4Ic >D$: H"TYPE A NUMBER AND PRESS RETURN ";R$ RR(R$) \R1RTRī2120 f pD$;"READ ";F$;",R";R zN$,A$,C$,S$,Z$,P$ N$:A$ C$,S$ ONE!!!"::"YOUR APPLE IS READY TO SHOWOFF A LITTLE"d"BIT. ALL YOU HAVE TO DO IS TYPE":" EXEC /EXAMPLES/PROGRAMS/SHOWOFF.EXEC":&"PRESS THE RETURN KEY, AND ENJOY.":0"OH, BY THE WAY. IF YOU WANT TO SEE THE":"COMMANDS IN THE FILE SHOWOFF.EXEC, USE"ED"GET.TEXT FROM CHAPTER 6. TYPE":_N" RUN GET.TEXT":X"AND WHEN IT ASKS FOR A FILENAME, JUST"b"TYPE IN":l" /EXAMPLES/PROGRAMS/SHOWOFF.EXEC"E(222): GET ERRORfE4Ģ5:B$;B$;"YOU CAΠɠ/HELPSCREENS̠Š̠̠Ԡà ՠؠű͠ ΠϠάϠ͠à̳ŠϠɠŠӠŠΰĠ٠ŠΠƠϠԠ Šնՠ̠̠ŠϠ̠Ӡ̠   `Ɋ L HHHH"hhhh0% X R`ԠҧӠԠΠԠŠҬl0 `L` ΠűŠ3 d:COUNTERCOUNTER15 n:COUNTER10COUNTER1J x:COUNTER1150^ ::LINENUMBER;{ :LINENUMBERLINENUMBER1 :" POKE ";PLACE;",";(PLACE);" :"; PLACE D$;"CLOSE POKER.EXEC"  MACHINE LANGUAGE POKER6 D$(4): CONTROL-DVD$;"PREFIX /EXAMPLES/DATA"pD$;"OPEN POKER.EXEC"(D$;"CLOSE POKER.EXEC"2D$;"DELETE POKER.EXEC"<D$;"OPEN POKER.EXEC"FD$;"WRITE POKER.EXEC"PLINENUMBER7000 ZPLACE76878PREFIX /EXAMPLES/PROGRAMS CAT RUN AWAY LIST  MAKE.DOIT) D$(4): CONTROL-DMD$;"PREFIX /EXAMPLES/PROGRAMS"fD$;"OPEN DOIT.EXEC"(D$;"WRITE DOIT.EXEC"2"PREFIX /EXAMPLES/PROGRAMS"<"CAT"F"RUN AWAY"P"LIST"ZD$;"CLOSE DOIT.EXEC"  AWAY% "A WAY TO JOURNEY,":"A WHALER JOE."T"AWEIGH THE ANCHOR,"g("AWAY WE GO." d::5-n"THIS IS A PROGRAM CREATED"Qx"ENTIRELY BY AN EXEC PROGRAM."WNNOT RUN THIS PROGRAM ON A WRITE":"PROTECTED DISK. MAKE A COPY OF THE DISK":"AND TRY AGAIN.":1100E9ĺ"YOUR DISK IS FULL. DELETE SOME OLD":"FILES AND TRY AGAIN.":1100"ERROR"LD$"CLOSE": LLԠLLLKLl;73-)# &B7 mBA bi ĩƧeեi8LRȩPQSTUƧ PRINT"YOU CAN ENTER LINES OF A PROGRAM." 100 TEXT:HOME:VTAB 5 110 PRINT"THIS IS A PROGRAM CREATED" 120 PRINT"ENTIRELY BY AN EXEC PROGRAM." 130 END PRINT"YOU CAN LIST THE PROGRAM..." LIST PRINT"PAUSE TO LOOK AT THE LISTING." FOR X=1 TO 8000:NEXT X PRINT"AN CAPTURED$(4)7D$;"OPEN LISTING.EXEC"TD$;"WRITE LISTING.EXEC"b10,32000D$;"CLOSE LISTING.EXEC"CAPTUREAASHOWOFF.EXECdAAjsmg ˓ȱLԓ ˓ȱPȱQ f kPȱkQP ˓Q ˓ȱ ˓Hhk 헢  f kPȱkQ kȌȹNJJJJ)  ) ˓ۈح,В ˓La L` ˓ghPQLȱPPȱQQ `PPQ ,ȱPȱQPQPťQ妰ƠΥghiFH 헦  f kPȱkQPٶQɬкɠ# ` d'smtnML)gms )8minj8sit ũ媰 L)d ץPQ TȥћȥH ML)kȑkȥkȥk `eeimjn`ikũ媰MghLIȱPȱQPQjPũQ媰PťQ妰, H h`sog^⥙ )LLϐљ,љ#ȱ ȱȱȱȱ ůДL5st / ^ikm` PLtL)g `  gh^_sŖt嗐ML) )s8t& `L)  ` ^_ML) ghIEљ%/Qљ(!P$ 0 ȱ ȱ $   L" 8寅P尅Q Η ˜ `ɍQɤRɭȩPQɰ9ɺ5 3.ȹɍ䥥ɭQIQPIiPQ Η `L)Ȣ0ȹɍ" ɰɺѝȹɍIHh Q)QQ P )P `L) ghנC6 Ȑ  f "ML)PkȥQk,ȰТ ghȱTȱPȱQȱ3ɲȱ  :  fȩ /ikm J L) P'( H  h`l'` LOɠK g ʎNJJJJ)   옭و֭穠$`ɘN `ɍ/N *mm  ;`LrH  h{HzHɠȰɍX Q ʩPQɠȰɍ wLiɬH) j(hɺ# Ȑ wɍ ``hhL)PQ` gPhQ Η ˜ `έ "͍%& д  `ɍɀɠ)?H&h @hl%H  ;h#JD THEN SAVE IT TO A FILE!" SAVE /EXAMPLES/PROGRAMS/NEW.PROGRAM HGR BLOAD /EXAMPLES/DATA/PICTURE PRINT"YOU CAN EVEN DISPLAY PICTURES!!" FOR X=1 TO 4000:NEXT X:TEXT CAT /EXAMPLES/PROGRAMS PRINT"YOU CAN DISPLAY A DIRECTORY..." FOR X=1 TO 4000:NEXT X RUN /EXAJOE SMITH 23 MAIN STREET ANYTOWN NEW YORK 10116 (345) 678-9101 6-2157 (408) 296-2157 BOB BLEICHER 1192 HIGHLAND AVE SANTA CLARA CALIF 95050 (408) 296-2157 0 PERSON 1 HERE AND THERE CUPERTINO CA 95014 NONE IF 95050AF ASDFSDAFASDF SADFASDFASDFSDAF THIS IS LINE ONE THIS IS LINE TWO THIS IS LINE THREE THIS IS LINE FOUR THIS IS LINE FIVE AF SDAFSDA FSDAF SDAFSADFSDAF SDAFSADFSDA FSDAFSDAFSDAF ASDFASDFSAD FSADFASDF SADFASDFSDA FSADFSDAF ASDFSADF SDFSADFASDF SADFASDF SADFSADF ASDFSDAF ASDFASDF ASDFSDAFSDDRINK,DRANK,DRUNK THINK,THANK,THUNK APPLE BANANA CANTALOUPE DATE MPLES/PROGRAMS/NEW.PROGRAM PRINT"AND RUN PROGRAMS." FOR X=1 TO 4000:NEXT X PRINT"DONE SHOWING OFF." 3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL1%hU 3fL3fL3fL3fLP*B"t*U*U :UjU|3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fLU*P*2fL3fL3@L3fLU.U2UjU*W(]*u*U+U.Q:UjU|~$@+!fL3fLЃժՂ[OH0ժ-P" a3fL3fL3fL3fL3fLW3fL3fL3fL3fL3f **E*U*UU*U;UBx?V|U*Q**E*U(U DPnU:Wp"D"D"D"D"D"D"D"O(O3fL3fL3fL3fL3fLa1W3fL3fL3fL3fL!U UU*T*U T*U*U*U*W|3`L3fL3f D"D"D"D"D"D"D"D"D"D"ʩ3fL3fL3fL3fL3fL3FL3fL3fL3fL3fL3fL3f U*3R@0f P:cL3B U(Q T fLDDU:WED;UnU:W (] p@"("`)O3fL3fL3fL3fL3fLRB3fL3fL3fL3fL3fLH T(U*U*P*E*A(X0V|?L@*(*Q*E*LDlU:Wj] &D"U;UnU:Wj]*w*]+"@"_ OJ3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3&L3fL3&@U:Qj%fL3fL3fL.U;UbU:Wj*w*]+u.U;TnU:WJp?+u.U3D"e Comput3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fLTB3fL30T @jfL3f Q"Q"2fL.U;UNU:WjY*w*]+u.UUnU W ~@"Dl "3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fLa8W 3fL3fL3fL3fL30!P "A]`*]+u.UBnU:W|3fL3fL3fLuUiI 3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fL3fLlU:A*2fL3fL3DL3fL,U;UlU:Wj](w*]+u.U;QnU:W|3\+p.d2fLTX4@l蝺ݻݻժѻͻݛ" ݣݻݻݻݻժՂ 8ݻћAoݻժݹѻ.code ժ̇@xfull%,Ёѣժ" +"y݃ժ0035&8'ժ left co3fL3fL3fL3fL3fLE3fL3fL3fL3fL3f P (E*U*U T (U.ExA$H18:2:BL$RA$(A$):A$;! :DD31DD1545' <@ > GET MONTH INTO M1$F @i D23:"MMM";:23:COUNT1:M1$"" IA$:M1$M1$A$:A$;:MM4 KM1$(MO$,MM,COUNT)ī595 LMMMM3:MM39ī587 M580 SCOUNTCOUNT1:COUNT4ī585 XMM(MM1)3 -D TIME? Y/N "; A$( 18:2:BL$A A$"N"A$"n"Ģ22:I 13n " ENTER DATE: DD-MMM-YY";t   -READ DAY INTO DD  !20:"DD";:20 &A$:(A$"0")(A$"3")545 +DD(A$):A$; 0A$:(A$"0")(A$"9")545 5DDDD10 ^DD;"-"; cMM$;"-";- hYY10ĺ"0";5 rYY; |W " TIME: ";~ HH12MI0DD0ĺ"":460 HH10ĺ"0"; HH;":"; MI10ĺ"0"; MI; PM1ĺ" PM" PM0ĺ" AM" 18 " UPDATE SYSTEM DATE AN $ - CONVERT 24 HOURS TO 12* : HH11PM1N HH12HHHH12^ HH0HH12 " THE CURRENT SETTINGS ARE:" :  "- PRINT DATE AND TIME , 6" DATE: "; @DD0ĺ"":380 TDD10ĺ"0";ITY *" FS2$:S1$! P10' Z? d- READ SYSTEM DATEE ng xDD(49040)((49040)32)32| YY((49041)2) MM((49041)YY2)8((49040)32) MM$(MO$,MM31,3) - READ SYSTEM TIME MI(49042) HH(49043)2 BL$" "dS1$"***************************************"S2$"* *"#MO$"???JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"(2S1$:S2$ <"* SYSTEM DATE AND TIME UTIL 7000 POKE 768,1 : POKE 769,2 : POKE 770,0 : POKE 771,0 : POKE 772,0 : POKE 773,0 : POKE 774,0 : POKE 775,0 : POKE 776,0 : 7001 POKE 777,0 : POKE 778,0 : POKE 779,0 : POKE 780,0 : POKE 781,0 : POKE 782,0 : POKE 783,0 : 5 REM PROGRAM LISTSELF 10 D$ = CHR$ (4): REM CONTROL-D 20 PRINT D$;"PREFIX /EXAMPLES/DATA" 30 PRINT D$;"OPEN LISTFILE" 40 PRINT D$;"WRITE LISTFILE" 50 LIST 60 PRINT D$;"CLOSE" ܛܻݻݻժE B B`лЃݹݛժB "N"A$"n"510+\13:8:" ":15:8If"ENTER TIME: HH:MM AM";Opgz-READ HOUR INTO HHm20:"HH";:20A$:(A$"0")(A$"1")910HH(A$):A$;A$:(A$"0")(A$"9")910HH10HH(A$):A$;HH12HH1910-READ MINUTE INTO MI"523:"MM";:23UA$:(A$"0")(A$"5")1000gMI(A$):A$;A$:(A$"0")(A$"9")1000MI10MI(A$):A$;MI591000$.-GET AM OR PM8B27"LP$:(P$"A")(P$"a")(P$"P")(P$AARON ABEL ABRAHAM ABSALOM ADAM BARABBAS CAESAR CAIN DAN DANIEL DAVID DORCAS ELIJAH ELISHA ENOCH ESAU ESTHER EVE EZEKIEL GOD GOLIATH ISAAC JACOB JESUS JOB JOHN JONAH JOSEPH JOSHUA JUDAS LOT LUKE MARTHA MARY MATTHEW MOSES NOAH PAUL PETER PHARAOH SAMSON SARATOM DICK HARRY PETE JOE JACK 9h'h(`7H6H%6&7h%h&`L #%.#%4=HQZ=c4=qu}INVALIPROGRALENGTH I BYTESAVENHOLD FILIN USDUPLICATLINE NUMBEINCREMENTOO LARGCONTINUEINTERLEAVED OLINTOO LONON HOL0$: PQ hh `ȱ0:8`` `8喨嗪ʘ ^8^Ɯ8^ƚ`ikjlkmln`kP ȱkQ`keׅklץnlmkeׅmnsmtn`8u`H hHH-UH h hh` `l09H8H'8( Q*P*QP . .ePPeQQ )ePPQ`QP*,QP . .ePPeQQ )ePPQiQ`PQPQ.u0؈` kNJJJJ) 옭ۭ` 옩 옩 옦PQ A ``ı`8iׅkjl 2 ɠ ߩ = $iH!)hi)h!  ׈PQ ׈k nLmL `g^h_^1^ hh`8e^^e_ȑ^^_^_ː؈^e^^_`Hȱkhk ” j k ” j $% ”( r k k`ML)HHHhhh`0: A[`8`mnRikeׅjli1 ᕰ ׈k ⥜ۥklЪ`k`׈Hkhkȱ ٥st )ȑ gL5 a  LF ~  `L) ץgh`stopijkmln` ”Ƀ ɲ r` ”: Qք "" QLꔌ`H hXkȱ D$(4)+ D$;"OPEN /EXAMPLES,TDIR"DD$;"READ /EXAMPLES"^L1$:L1$: READ NAMEy(L2$:L2$: READ TITLE2L3$:L3$: READ BLANK LINE<L4$:L4$: READ FILESFL4$""ī60PL5$:L5$: READ BLOCK COUNT ZD$;"CLOSE /EXAMPLES".<" (DOES NOT SET CLOCK/CALENDAR CARDS)"4F49041,YY2(MM7)<MM7Ĺ49040,(MM8)32DDVMM8Ĺ49040,MM32DD\-UPDATE SYSTEM TIME (24 HOUR CLOCK) HH12HH0P$"P"P$"p"HHHH12(49043,HH:49042,MI2:20:" SYSTEM DATE AND TIME UPDATED":"p")(P$" ")(P$(13))1090?V(P$"P")(P$"p")ĺ"P";E``j-REPEAT UNTIL CORRECTft~18:2:" CORRECT? Y/N ";A$18:2:BL$(A$"N")(A$"n")120086015:8:" "-UPDATE SYSTEM DATEH SAUL SETH SOLOMON ZACCHAEUS AHAB ANDREW BAAL BALAAM BARNABAS BATHSHEBA BENJAMIN BOAZ CALEB CHRIST ELI ELIZABETH EZRA GIDEON HANNAH HEROD ISHMAEL JAMES JEHU JEREMIAH JEZEBEL JOCHEBED JOEL JONATHAN JUDE LABAN LAZARUS LEAH LEVI LUCIFER MARK METHUSELAH MIRIAQ TC$"4"ė:. ^(C$)0(C$)4380> h(7);(7);G r330O |C$[ C(C$)a z  GET WEIGHT OF ITEM  16H "PLEASE ENTER THE WEIGHT OF THE PACKAGE: FOLLOWED BY AN 'O' IF IN OUNCES, OR BY A 'P' IF IN POUNDS. (FOR EXAMPLE, 2 21(TITLE$)2" TITLE$) 6: "1. EXPRESSO "2. FIRST CLASSb "3. PRIORITY h "4. END THE PROGRAM , 1 GET CLASS OF MAIL 3 614 @"PRESS THE NUMBER OF YOUR CHOICE: "; JC$ O P CHECK FOR VALIDITY  POSTAGE RATES9 DETERMINES POSTAGE FEESV( FOR EXPRESS, 1ST CLASSn2 AND PRIORITY MAILt7< V2 09/01/82F BY JOHN SCRIBBLEMONGER Kd MENU OF POSTAGE CLASSESik(21)nxTITLE$"POSTAGE RATES" I925927:I,0:' 928,4::23"THUR"<768X(I925927:(I);" ";: MAHLON NABAL NADAB NUN SAPPHIRA SENNACHERIB SIMEON SIMON TERAH URIAH VASHTI ZEBEDEE ABINADAB ALEXANDER ASA BARAK BELIAL BELTESHAZZAR BERNICE BEZALEEL BUZ CHILION CLEOPAS CORNELIUS DOEG EHUD ELEAZAR ELIEZER ELIMELECH EPHRAIM EUTYCHUS FESTUS HARAN HUR JAEL MANASSEH MEPHIBOSHETH MICAH MORDECAI NABOTH NATHAN NATHANAEL NEHEMIAH OBED ORPAH PRISCILLA REBEKAH TABITHA THOMAS ZEPHANIAH ABIHU AGRIPPA AHASUERUS ANNAS AQUILA ARTAXERXES ASHER ASHPENAZ BEELZEBUB DINAH ELKANAH ENOS EUNICE ISSACHAR JOASH JOSIAH KORAH LOISK MESHACH MICHAEL NERO OBADIAH PHILEMON PHILIP POTIPHAR RAHAB REUBEN RHODA TIMOTHY TITUS ZACCHAEUS ZACHARIAS ZECHARIAH ABNER AMOS AMRAM ANANIAS BALAK BARTIMAEUS CAIAPHAS DIANA FELIX GAD GEHAZI HADASSAH HAGGAI JAIRUS JEHOSHAPHAT JEROBOAM JOAB LAMECH MALACHIM NAAMAN NAOMI NEBUCHADNEZZAR NICODEMUS PILATE RACHEL RUTH SAMUEL SHADRACH SHEM SILAS STEPHEN ZACHARIAS ABEDNEGO ACHAN ANNA BARTHOLOMEW BELSHAZZAR CYRUS DARIUS DEBORAH DELILAH GABRIEL HAGAR HAM HAMAN HOSEA ISAIAH JAPHETH JESSE JETHRO JUDAH LYDIA MELCHIZEDEHɀiiiLhɍ-Ɉ*&ɛ ̠LR詠L`ʩL{٠ LL.7 P OR 11 O.) AFTER ENTERING THE WEIGHT, PRESS THE RETURN KEY. ";R 868] "";W$m W1$(W$,1)y &W(W$) + WAS ENTERED WEIGHT VALID? 0W0(W1$"O"W1$"P")710 :(7);(7) D500   CHECK CONSISTENCY $ C10000,11000,120004 EFLAG910J 60000: KEYSTALLV EFLAG0\ e 100k   FIND APPROPRIATE CODE  C1000,2000,3000 61000: FORMATTER    DISPLAY RESULTS  "POSTAGE NEEDED: $ ";T$ DIRECTORYuHUSTON!' 'A5RELOC.CODEA5USER.DEFINER.1A5DIRECTORYuHUSTON!'  'DIRECTORYA5TEXTA5APPLESOFT.PROGA5APPLESOFT.VARSA5SYSTEM.PROGRAMA5BINARYRT$(T)&\T(T)T$T$".00"Cf((T$,2))46T$T$"0"Ip0 SEE CHAPTER EIGHT OF THE APPLESOFT REFERENCE MANUAL FOR A COMPLETELY DOCUMENTED VERSION OF THIS PROGRAM $OR PRIORITY MAIL - "BX/"TRY ONE OF THE AIR EXPRESS COMPANIES"Nb/EFLAG1Tv/Z]q^ UTILITY ROUTINESw_}`a KEYSTALLbj24t~"PRESS THE RETURN KEY TO CONTINUE...";A$HJ MONEY FORMATTERKL"*+EFLAG14+.7. PRIORITY MAIL VERIFY=.P.W1$"P"12090`.W1212080f./(7);(7);"TOO LIGHT FOR PRIORITY MAIL - "/"TRY FIRST CLASS"/EFLAG1&/121500/WW16:/W7012150D/N/(7);(7);"TOO HEAVY F'WW16t'WX10140~'h'(7);(7);"TOO HEAVY FOR MY TABLES - PLEASE CALL THE POST OFFICE"t'EFLAG1z'** FIRST CLASS VERIFY*+W1$"O"W12.0111060 ++(7);(7);"TOO HEAVY FOR FIRST CLASS" +"TRY PRIORITY MAI12T2.95 W13T21.420 W14T21.90< TT1T2B H'c' EXPRESS MAIL VERIFYi'' 9.35,9.35,9.55,9.90,10.30,10.65,11.00,11.40,11.75,0 $'X0.'XX18'R(X)B'R(X)010070L'10030V'XX1`'W1$"P"10100 j.73 W4.5W5T3.971 W5W6T4.44F& W6W7T4.92[0 W7W8T5.39p: W8W9T5.87D W9W10T6.35N 3240X Y PRIORITY RATES OVER 10 LBSZ b T1(W51)2.383.97l W1W(W5)5v W11T2.47  WON   W(W.99)( W103160. M PRIORITY RATES TO 10 LBSS d W1T2.24{ W1W1.5T2.30 W1.5W2T2.54 W2W2.5T2.78 W2.5W3T3.01 W3W3.5T3.25 W3.5W4T3.49 W4W4.5T360000: KEYSTALL $ 100* D  SUBROUTINES FOLLOWJ P o  EXPRESS MAIL CALCULATIONu  W(W.99) TR(W)    FIRST CLASS CALCULATION  T.20(W.991).17   PRIORITY MAIL CALCULATI MALCHUS MELZAR MELZAR NIMROD RUFUS TAMAR ZERUBBABEL JARED JEMIMA KISH MANOAH MILCAH NAHOR NAPHTALI OG ONESIMUS PELEG PHINEHAS REHOBOAM SANBALLAT SISERA THADDAEUS UZZAH ZEBULUN ABIGAIL ADONIJAH AGAG AHAZ AHAZIAH AHIMELECH AMALEK AMNON ATHALIAH BARUCH BENHADAD CLEOPHAS HIRAM HOPHNI HULDAH ICHABOD JASON JUBAL 2,157,0% p6,76,18,3,169,32,76,932 x3,0,256