L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u` :X121:X:25:A$. Z150:Z:X: MODIFIED FOR AAA BY PAUL RAYMER OF LAS VEGAS NV 89121 ------------------Q( 7:"CHEYENNE * WY * USA * 82009":1 255b 2:"PRESS C FOR CATALOG OR RETURN TO QUIT";j C${ C$"C"1500 x(1155)3000 ::(4);"CATALOG": A$"APPLE ][ AND AAA" X112 1:X1:A$; X:" ";:Z125:Z:X JOY AND USE."6 6:"-- PLEASE, SEND 3A A COPY --":c "WE'LL RETURN YOUR DISK, RECOPIED WITH" R"ANY VOLUME YOU CHOOSE FROM OUR PUBLIC" "DOMAIN LIBRARY, WITH MANY THANKS.": 150 10:"AAA COMPUTER PRODUCTS" L13:"721 PIKE STREET";"FAULTY";Q$;" PUBLIC"B "DOMAIN PROGRAMS ON THIS DISK AND YOU"W "FIXED THEM?": &"MAYBE YOU EVEN TOOK LOTS OF TIME TO" X"REWRITE A PROGRAM FROM END TO END?": "WE WOULD LIKE TO HARVEST YOUR ";Q$;"IMPROVED";Q$;"PROGRAMS FOR OTHERS TO ENpd3A COMPUTER PRODUCTS 721 PIKE STREET CHEYENNE WY USA 82009 ---------------------zn::xQ$(34)(1155)İ2000::,2:" AN INVITATION FOR APPLE PROGRAMMERS ": "PERHAPS YOU FOUND SOME ";Q$𸜎𸜎8`0($ p,&"  !"#$%&'()*+,-./0123456789:;<=>?I꽌ɪVɭYY，ٗЁ꽌ɪV0^*^* L;  F`O81Ii 8 ໹  ⻹! )*`  )p)J ``HhHh݌؅( ( 0O꽌ɪɖ*%E 꽌ɪH` h Ӡ  e (`hh HH "  L-hh HH`hh HH  LThh HH`LaJHeeh8Lӹee ح,MCIAL) HJJJJ h) H`  !"#$%&'({d2 9N PS6S51:S7S6NHFS7\RT3T:T21n\XT2(1F)T3fT2(LF)(11X):T3T2pT2180(T2180)T3T2.01zP1((T3180))100(12C1N)(12C1N)950S5S1(12C1N)522:2:" "PA740(M$):A7(A72)_A72A72:22:" ";::A7:M$;::40:" ";: ** MATH FUNCTIONS ** S1CR12001:S2(CN12):S3S12:S4S21 S40910S5(S4S3S1S3S4$;DAP1TL#N960:" ";A$4XRR01630FbRR.25:VV1Ol550kvM$"PRESS ANY KEY":700 * MARK CORRECT DATA * 15:7::" "15:21:" "15:35:" ":22:30:A7$20 * AGAIN OR END PROGRAM * 310T(T$):T0T125(T2)T2T255450DT510450dAT:960:8:24:" ";A2$ * WORKING PROGRAM * 10:" RATE";:14:"MONTHLY";:26:"LOAN COST"RR01:V11&7600V:AR:960:(A$,6);:AP1:960:" ";A"C3:I$"QUARTERLY"5 I$"S"C6:I$"SEMI-ANNUAL"T I$"A"C12:I$"ANNUALLY"a C0310q 7:26:" " 7:30:I$ N12:PAYMENTS A YEAR 8:25:"--- (RET = 12) ":M$"EG. 300 = 25 YRS...12 = 1 YEAR":700 8:24:" ";T$T$"B"R0R99.99İ950:R0:240$ "R0R@ ,AR:960:6:25:A$;"%" 67:25:"- (RETURN = M) ":M$"M=MTHLY..Q=QTRLY..S=SEMI-ANN..A=ANNUAL":700 @7:24:" ";I$ JI$"B"240 TC0 ^X$I$ hI$""I$"M" rI$"M"C1:I$"MONTHLY" |I$"Q5:24:"$ ------ "B M$"ENTER LOAN OR MORTGAGE AMOUNT":700U 5:25:" ";L$| L(L$):L0L1000000İ950:190 AL:960:5:25:A$ 6:24:"----- " M$"ENTER INTEREST RATE":700 6:24:" ";R1$ R1$"B"190 R(R1$):"AMOUNT OF LOAN"::"INTEREST RATE":"COMPOUNDED"O n8:"AMORTIZATION PERIOD"k x * BOTTOM OF SCREEN * q 21:Z140:" ";:Z 22:" ";:22:40:" " 23:" B (RETURN) - TO CORRECT PREVIOUS LINE ";: ** USER INPUT **  : ) ::::::::::::::::::::::::::D * SET TEXT WINDOW * J c  * TOP OF SCREEN * i ( 21:Z140:" ";:Z <2:" ";:2:40:" " F3:Z140:" ";:Z P:T$"THE COST OF A LOAN":1050 Z * USER PART OF SCREEN * 1 d5:1:  APPLE RANCH9::::::::::::::::::::::::::Y: :: T H E : : C O S T : : O F A : : L O A N : :          22:"OR TYPE CTRL/RESET TO END ****"/# Z$:C# (27)(87)(1)`# :"YOUR COMPANY NAME":t# (27)(87)(0)# "PAYROLL REPORT ANALYSIS FOR ";PM;"/";PD;"/";PY# :# P(I)12840# P(I)22830 $ "WEEK ENDING ";PM;"/";PD;"/";PY36)"M";OLL PROGRAM"3"n 10:6:"WITH OVERTIME PROVISIONS"R"x 3:10::"PAYROLL DATE":m" 10:11:"MONTH:";:PM" 12:12:"DAY:";:PD" 11:13:"YEAR:";:PY" 1:9::"APPLE RANCH SOFTWARE (C)":" 3:20:"**** TYPE ANY KEY TO CONTINUE"%# 8:D ENTRY":420/!( 24:16:"INVALID ENTRY":450Q!2 24:17:"INVALID ENTRY":520s!< 24:18:"INVALID ENTRY":570!F 24:19:"INVALID ENTRY":610!P 24:20:"INVALID ENTRY":640!Z 24:21:"INVALID ENTRY":670 "d 3:4:"THIS IS A SEMIMONTHLY PAYR.6: A(I)0TC0:, A(I)1TC1.5:A A(I)2TC2.9:V A(I)3TC3.4:k A(I)4TC3.8: A(I)5TC4.3: A(I)6TC4.8: A(I)7TC5.2: A(I)8TC5.7: A(I)9TC6.2:  A(I)10TC6.6: ! 24:14:"INVALILE8 P(I)22480: MARRIED0B A(I)0TC0:EL A(I)1TC1.5:ZV A(I)2TC1.9:o` A(I)3TC2.4:j A(I)4TC2.8:t A(I)5TC3.3:~ A(I)6TC3.8: A(I)7TC4.2: A(I)8TC4.7: A(I)9TC5.2: A(I)10TC5:I202170(I3I2182.3:I302170BI4I3180:I402170^I5I4180.8:I502170zI6I5178.5:I602170 I7I6180.8:I702170 I8I7180:I802170 I9I8180:I902170$ TC0: TAX CREDIT TABLE D. P(I)12370: SINGfI8I790:I702170/pI9I890:I902170WzSRTII0I1I2I3I4I5I6I7I8I9fVSR.01:xP(I)12060P(I)12210T385V0:T3852230Q118:TITQI0TI240:I002170I1I0179.2:I102170 I2I1180192V0:T1922060* Q59:TITQDI0TI120:I002170_ I1I089.6:I102170x*I2I190:I2021704I3I291.2:I302170>I4I390:I402170HI5I490.4:I502170RI6I589.2:I602170\I7I690.4:I7021705.32:$MM1158:YM.34237.62:.Y0:DMM100:YM.12:`MM400:YM.1736.00:}MM799:YM.22103.83:MM983:YM.25144.31:MM1204:YM.28199.56:MM1425:YM.33261.44:A(I)12040A(I)22190 T940M1001950$M40019604&M7991970D0M9831980U:M12421990fDM14252000wNM18672010XY0:bMM58:YM.12:lMM171:YM.1513.56:vMM396:YM.1947.31:MM600:YM.2586.07:MM917:YM.316F USER BYTE IN MEMORY=";(0)L" ***OR RESET/CTRL TO END***";:Z$:820XJ41.66eWA(I)JoMTWP(I)11740P(I)21810M581880M1711890M3961900M6001910M9171920M11581930M13791+,7)"FWT"30)"="32)"$"(Y1100.5)100W67)"SWT"30)"="32)"$"(V1100.5)100y@V10:S10:Z10:Y10:G10:T10JT"PAYROLL REPORT COMPLETE FOR ";N;" EMPLOYEES"^h:r(19)|"***TYPE ANY KEY TO CONTINUE***""AMOUNT OATION"30)"="32)"$";Z1@7)"FOOD & CHARGES"30)"="32)"$"F1N"TAXES:"z7)"SDI"30)"="32)"$"(C1100.5)100C107)"FICA @ 13.4%"30)"="32)"$"((G1.134)100.5)100"7)"FICA-TIPS @ 6.7%"30)"="32)"$"((Z1.067)100.5)1005)(1)6" "J(27)(45)(0)P"GROSS TOTALS FOR WEEK ENDING"30);PM;"/";PD;"/";PY7)"PAYROLL"30)"="32)"$";G17)"HOURS"30)"="33)H17)"OVERTIME HOURS"30)"="33)O17)"REMUNERF"NAME"22)"WORKED"32)"PAY"2P(27)(45)(1)bZ" "vd(27)(45)(0)nI1Nx: PRINT GROSS TOTALS(E$(I),20)22)H(I)O(I)32)"$"((H(I)R(I)(O(I)(R(I)1.5)))100.5)100I(27)(4.5)100f"PUSH ANY KEY TO CONTINUE ";:756: TO PRINT YOU MAY WANT TO REMOVE THIS LINE! mIu :(27)(45)(1)" "((27)(45)(0)22760<"EMPLOYEE"22)"HOURS"32)"GROSS"V0:TC0&D((CYSV)100.5)100M"TOTAL DEDUCTIONS"26)"="29)"$"DZ"LESS:"7)"REMUNERATION"26)"="29)"$"Z(I)7)"FOOD & CHARGES"26)"="29)"$"F(I)30)"------""NET PAY THIS PERIOD"26)"="29)"$"((T(DF(I)Z(I)))100.8 IF T <= 20 THEN S = 0:REM $20 MIN FICAVB7)"FICA"17)"= $"(S100.5)100bLS1S1SlV1690`7)"FWT"17)"= $"(Y100.5)100jY1Y1Yt2020~2340VVTC:V0V07)"SWT"17)"= $"(V100.5)100V1V1VUNERATION"26)"="29)"$"Z(I)9T((GZ(I))100.5)100_"TOTAL GROSS PAY"26)"="29)"$"Tr"DEDUCTIONS:"C.008T: SDI% IF T< = 20 THEN C = 0: REM $20 MIN SDIC1C1C$7)"SDI"17)"= $"(C100.5)100.S.067T: FICA % "p(27)(45)(0)z'2810-M"EMPLOYEES' NAME = ";E$(I)_O(I)12850"HOURS WORKED"17)"= "H(I)26)"@ $"R(I)G((H(I)R(I))100.5)100G1G1G7)"PAY THIS PERIOD"26)"="29)"$"GZ1Z1Z(I)7)"REMB$"Y"740H1H1H(N)"240V4:12:"COMPUTED FOR-------------------------"i24:12:E$(N)s NN1|240 *NN14:> PR#1 FOR PRINTER ONHI1NR\(27)(45)(1)f" X2630-b17:19:R(N):R(N)9999700>l40:19:"+"Iv2640k17:20:Z(N):Z(N)9999700|40:20:"+"265017:21:F(N):F(N)999970040:21:"+"F1F1F(N)33:24:B$B$""760B$"YES"740 0 P(N)2510" P(N)05003 P(N)3500U 24:16:"INVALID ENTRY":450f 40:16:"+"q 2610 17:17:H(N):H(N)9999700 40:17:"+" &H1H(N)H1 02620 :17:18:O(N):O(N)9999700 D40:18:"+"NO1O(N)O1ES =" hL140:"-";:L rQ |"ANY CHANGES ";::" (YES OR ) ";:q 17:13:E$(N):40:13:"+" E$(N)"END"810 2590 17:14:A(N):A(N)9999700 40:14:"+" 2600 17:16:P(N):P(N)9999700 P(N)151 L140:"-";:L ( 34,122 936J "EMPLOYEES' NAME="b "W-4 ALLOWANCES ="u ""SINGLE (1)" ,"MARRIED (2) =" 6"HOURS WORKED =" @"O.T. HOURS =" J"PAY RATE =" T"REMUNERATION =" ^"FOOD & CHARGRGES xN1! L140:"=";:L' L 7)"PROGRAM TO COMPUTE PAYROLL"R g L140:"=";:Lm "AFTER ALL EMPLOYEE DATA HAS BEEN ENTERED" :"**";::" TYPE 'END' TO PROCESS DATA" :"**";::" TYPE '9999' IF MAKE A MISTAKE" SET UP FOR CALIFORNIA TAX A LINE 830 TURNS ON PRINTER O ::2660W :m (E$(88):EMPLOYEE 2A(88):W-2 ALLOWANCE <P(88):STATUS FH(88):HOURS PO(88):OVERTIME ZR(88):RATE dZ(88):RENUMERATION nF(88):FOOD CHA APPLE RANCH:::::::::::::::::::::::::::Z: :z: SEMI-MONTHLY :: PAYROLL :: ::::::::::::::::::::::::::: * FED TAX UPDATE JULY 1983                  5334$  * ENDING ROUTINE * b I24131:1:I:868:(25I):868:J150:::936:z  * B. CHRISTOPHER * PROGRAMMERD O R :: ::::::::::::::::::::::::::: ** CLEAR SCREEN ** :12 K1(1MR)TM* PAFMRK1(K11)G "MONTHLY PAYMENT = $";PS "TPTMPY ,y 6"TOTAL OF PAYMENTS = $";TP @ * USER INPUT * J T:7:" ANOTHER COMPUTATION (Y/N)?";:X$ ^ hX$"Y"80 rX$"N"340 | * CALL SOUND * WN:";PD ' DPPCPD100:AFPCDPB "DOWN PAYMENT = $";DPb :"AMOUNT FINANCED = $";AFh "ANNUAL INTEREST RATE (%):";AR:ARAR100 "TERM IN YEARS,MONTHS:";YT,MT COMPUTE & PRINT ANSWERS TMMT12YT MRAR  * PRINT APPLE ][ * $ (1184; 2 * BLOAD SOUND * \ <D$(4):D$"BLOAD CALL 5334"y F ** TOP OF SCREEN ** P::3:8 Z" MORTGAGE COMPUTER ": d * START MAIN SEQUENCE * n6 x"PRICE OF PROPERTY $";PC: "PERCENT DO APPLE RANCH8::::::::::::::::::::::::::X: :{: M O R T G A G E : : C A L C U L A T O R :: ::::::::::::::::::::::::::: ** CLEAR SCREEN ** :  :J150:::33,40:32,0'34,0:24> * L. REENST PROGRAMMER G: BALANCE :: C H E C K :: B O O K :: :::::::::::::::::::::::::: * DEFINEld now be"%:18)::(14)"$ ";B]::::"Last check - listed on statement...# ";B$j(140);~(27);:(147) *TURN PRINTER OFF * D$(4)D$"PR#0" * CLOSING SEQUENCE * 33,1:I020:32,I:936:32,(40I):936 * CALL SOUND *  5548(*:N4"Track down and correct,then:":|>:"Add $ ";I;" to Y O U R balance and"H"Deduct $ ";SR\B(B1000.5)100fBADp"Unless the bank made a mistake, your" z"Check book balance shou"Interest $";I!BBI8B(B1000.5)100j"Check book balance should be ";::"$";Bp"Check book balance is $";ADBAD(D1000.5)100D0830 (7);(7);(7)::"DISCREPANCY IS"::18::(14)"$ ";D:"How many deposits after"?"statement closing date ? ";ZJY1ZW&Z1610l0"Deposit $";Dv:BBDDB(B1000.5)100NYXb"Balance $";Blv"Service charges $";SBBS"Balance $";BINTER OFF SEQUENCE *  |+ X15::XO "Bank statement balance $";Bf B(B1000.5)100l  "How many outstanding checks ? ";N K1N N1520 "Check #";B$:19):"$";C BBC K  "Balance $";B CE * ) ::"TURN ON YOUR PRINTER !!!"/ ; D$(4)I "D$"PR#1"Q ,:W 6 @(27):"Attach to your bank statement for easy reference, next month." J: T14):(14)"Check book reconciliation" ^ h14):"Date...";A$ r * PRER TYPING CONTROL X >":6 * USER INPUT * F "Choose :"_ :8)"<1> CRT only"y :8)"<2> Print-out" :"Which : 1 or 2 ? ";G * CALL SOUND * 5472 * PRINTER ON/OFF * G1380:G2260 * PRINTER ON SEQUENN S T R U C T I O N S" x: :" IN ";Q$;"CRT ONLY";Q$;" MODE, YOU MAY IGNORE THE ";Q$;"CHECK#";Q$;" PROMPT BY TYPING ." :" IF A PROMPT DOES NOT APPLY, INPUT ";Q$;"0";Q$;"." :" IN ";Q$;"PRINT-OUT";Q$;" MODE, CORRECT ERRORS":"AFT QUOTE *  Q$(34).  * CLEAR SCREEN * 6 (:N 2 * BLOAD SOUNDS * <D$(4):D$"BLOAD CALL 5472":D$"BLOAD CALL 5548" F * SET TOP OF SCREEN * P12)Q$;"BALANCE CHECK BOOK";Q$ Z34,2:3:11: d * PRINT INSTRUCTIONS *  n"I U  APPLE RANCH7:::::::::::::::::::::::::V: :u: BALANCE :: C H E C K :: B O O K :: :::::::::::::::::::::::::: * DEFINE          "ENTER CENTIGRADE # THEN HIT RETURN ";:T2:CX(T9532)v"'";T;"' DEGREES CENTIGRADE IS EQUAL TO";::"'";X;"' DEGREES FAHRENHEIT"11601210 * K. ARMSTRONG PROGRAMMER *F:X((T32)59))"'";1260( * FAHRENHEIT * $2:S<"ENTER FAHRENHEIT # THEN HIT RETURN ";:T[F:nPX((T32)59)Z"'";T;"' DEGREES FAHRENHEIT IS EQUAL TO";::d"'";X;"' DEGREES CENTIGRADE"nx11601210 * CENTIGRADE * :* * CONVERSION * %T0:X0.:5T"FAHRENHEIT TO CENTIGRADE OR":"CENTIGRADE TO FAHRENHEIT IS THE FUNCTION":"ENTER F OR C ";:T$(T$,1)"F"ī1320(T$,1)"C"ī1420 :"ENTER AN 'F' OR 'C' ONLY":9C2:(LC2C1C1:C33.14159C1C1:CV"THE RADIUS IS ";C1:``"THE DIAMATER IS ";C2:j"THE AREA OF THE CIRCLE IS ";C3t1160~1030 * USER INPUT * :"DO YOU WISH TO CONTINUE (Y) OR (N) ";:Z$(Z$,1)"N"10 ROOT OF ";Q1:'" EQUALS ";(Q1)11160:930T * AREA OF CIRCLE * jC10:C20:C30s:5$"CALCULATING THE AREA OF A CIRCLE IS THE FUNCTION".::8"ENTER THE RADIUS ";:C1:BC2C1C1:C33.1415" R::"\"ENTER # ";:E1:4f" ^ ":Kp"ENTER # ";:E2:YzE1E1E2l"TOTAL = ";E1v1160810 * SQUARE ROOT * Q10:5"SQUART ROOT IS THE FUNCTION"::"ENTER # ";:Q1::"THE SQUARE"ENTER # ";:D1:*" / ":A"ENTER # ";:D2:uD20ĺ"YOU CAN'T DEVIDE BY ZERO ":1160::740D1D1D2 "TOTAL = ";D11160 680* * EXPONENTIAL * 4E10:LSTE20>:5H"EXPONENTIATION IS THE FUNCTIOND:5,N"MULTIPLICATION IS THE FUNCTION"6X::Mb"ENTER # ";:M1:_l" * ":vv"ENTER # ";:M2:M1M1M2"TOTAL = ";M11160560 * DIVISION * D10:D20:5"DIVISION IS THE FUNCTION"::20  * SUBTRACTION * ) S10:S202 :5U "SUBTRACTION IS THE FUNCTION"_ ::v "ENTER # ";:S1: " - ": "ENTER # ";:S2: S1S1S2 "TOTAL = ";S1 1160 &440 0 * MULTIPLICATION * :M10:M2040:::. ,:"ENTER CORRECT SYMBOL PLEASE"7 6160K @ * ADDITION * [ JA10:A20d T:5 ^"ADDITION IS THE FUNCTION" h:: r"ENTER # ";:A1: |" + ": "ENTER # ";:A2: A1A1A2 "TOTAL = ";A1 1160 3 (F$,1)"/"ī680* (F$,1)"^"ī810@ (F$,1)"S"ī930W (F$,1)"A"ī1030n (F$,1)"T"ī1210 (F$,1)"E"170 (F$,1)"E"280:(F$,1)"E"10  * FANCY SCROLL ENDING * "L140:33,L::PAUSE140:::L124::PAUSE1SQUARE ROOT"8 " A FOR THE AREA OF A CIRCLE" " T FOR FAHRENHEIT TO CENTIGRADE CONVERSION": " E TO END THE PROGRAM" 10:F$ (F$,1)"+"ī320 (F$,1)"-"ī440 (F$,1)"*"ī560. ("ENTER THE FUNCTION YOU WISH TO PERFORM"4 2: <Z F" + FOR ADDITION"} P" - FOR SUBTRACTION" Z" * FOR MULTIPLICATION" d" / FOR DIVISION" n" ^ FOR EXPONENTIATION" x" S FOR  APPLE RANCH:::::::::::::::::::::::::::Z: :z: APPLE ][ :: CALCULATOR :: ::::::::::::::::::::::::::: : * SET SCREEN * 5:   {  D$(4)+(A$" "dFNAME$"B"(8)(8)(8)(8)(8)(8)(8)(8)A$zdD$" SAVE ";NAME$DŠŠ !! YOU CAN EXEC/ -->APPLE TEXT FILEC -AND- ] SAVE THE PROGRAM ASv AN APPLESOFT FILE. **************************************** OPTIONS ** ?::"YOU WANT TO POKE ANOTHER FILE? (Y/N)";:GA$VA$"Y"20fA$"N"ĉ:A$"Y"A$"N"4020 *********************  BE CAREFUL  ANY TEXT FILE IN -->APPLE TEXT FILE WILL BE ERASED!!* PRINT & SET BORDER * !:1<X140:"^";:X:34,1kY124:1:"^";:40:"^";:Y:32,2:33,37v35,23X188:"^";:X  * ONERR INSTRUCTIONS *  17:X138:" ";:X:210  19:X138:" ";:X:240  ** END"?:"TO RUN TYPE....";::"EXEC APPLE POKE FILE":::4000Z&"POKE ";SA;",";(SA);f0SASA1l: ** CENTER A$ ** B(20((A$)2)):B0B1B:A$: ** CENTER B$ ** B(20((B$)2)):B0B1B::B$:: for ";::Q$;"APPLE POKE FILE";Q$::E D$"OPEN APPLE POKE FILE"d D$"WRITE APPLE POKE FILE"t SAEAD520} SL; 550 SAEAD520 ":";:550 SAEAD520 ":";:550: SLSLLI 430 D$"CLOSE APPLE POKE FILECheck CATALOG for ";::Q$;"APPLE POKE FILE";Q$::Q ^D$"OPEN APPLE POKE FILE"p hD$"WRITE APPLE POKE FILE" rD$"CLOSE APPLE POKE FILE" |:"Empty contents of ";::Q$;"APPLE POKE FILE";Q$:: D$"DELETE APPLE POKE FILE"' :"New contentsSA 3020 19:33 "ENDING ADDRESS:";EADU :"STARTING LINE NUMBER:";SLx :"LINE NUMBER INCREMENT:";LI " ** SCROLL SCREEN UP ** ,SCROLL119::SCROLL 634,2:* SET TOP * @ * START MAIN SEQUENCE * JD$"MONICO"3 T"7 3:Q$;"APPLE POKE FILES";Q$;" can be added to"g A$"any APPLESOFT program by typing:":1000m B$" EXEC APPLE POKE FILE ":1030 : ** INPUT IN DECIMAL ** D$(4):CONTROL D 3000 17:1 "STARTING ADDRESS:";34): QUOTES* ( ** MAIN TEXT SCREEN ** B 2A$"APPLE ][":1000H <n FA$"This program makes an ":1000 PB$" APPLE TEXT FILE ":1030 Z dA$"from your choice of specific":1000 nB$" DECIMAL ":1030 xA$"memory addresses...":1000  APPLE RANCH:::::::::::::::::::::::::::Z: :z: EXEC :: APPLE POKE FILE :: :::::::::::::::::::::::::::  2000 Q$(  ͠ŠȠŊ͠͠ŠŠŠ͠ӠԠŠč͠ŠȠ͠" LIST TO SEE PROGRAM!"SYPE> LIST TO SEE PROGRAM!"8lX5:X3::(A$,X9,1):$vX5X11500:X?FASTq:" 6 , DEL 8,2000 ":"WRITE A PROGRAM USING LINES 10 - 63999":" RUN, THEN NEW TO CLEAR MEMORY":" MONICO, THEN EXEC APPLE RANCH":  A$ ON THE SAME LINE ** +SLOWHC(39(A$))2:D(A$)CTC:A$;]D1nW12200:W$T(A$)11." ";8DD1:D1BTLFASTVD ** ENDING ROUTINE ** NSLOWXA$"APPLE RANCH"bX10(A$)10BE IN MEMORY.":1000012:* RESET V-TAB * TA$"ONE WORD OF CAUTION:":1000l8:* RESET V-TAB *&A$"TEXT FILES ARE AS MUCH FUN":100004:* RESET V-TAB *::A$" AS APPLESOFT FILES! ":1000DN1860! ** PRINT AND ERASE20:* RESET V-TAB *DA$"TYPE 'EXEC APPLE RANCH' AND":1000]21:* RESET V-TAB *A$"THE SCREEN WILL SHOW YOU":100022:* RESET V-TAB *A$"EXACTLY WHAT IS HAPPENING,":100023:* RESET V-TAB *A$"AND YOUR PROGRAM WILL TAB *7rA$"YOUR PROGRAM WILL BE CAPTURED IN A":1000P|17:* RESET V-TAB *}A$"T-FILE, INSTEAD OF AN A-FILE.":100018:* RESET V-TAB * A$"TO RETRIEVE YOUR T-FILE":10001خլV(ڬߵعجH500:X ":* CLEAR SCREEN *7 ,13:* RESET V-TAB *d 6A$"NOW, RUN THIS CAPTURE PROGRAM":1000} @14:* RESET V-TAB * JA$"AND A TEXT FILE CALLED":1000 T15:* RESET V-TAB * ^A$"'APPLE RANCH' WILL BE CREATED...":1000h16:* RESET V-":1000 10:* RESET V-TAB *I A$"HERE IS A SAMPLE PROGRAM:":1000b 11:* RESET V-TAB *{ * SET V & H TAB * 12:1 "10 PRINT 'APPLE RANCH'" "20 PRINT 'SOFTWARE'" "30 FOR X=1 TO 20:NEXT X"  ** PAUSE **  X120 n6:* RESET V-TAB *A xA$"FIRST: LIST THIS PROGRAM":1000Y 7:* RESET V-TAB * A$"SECOND: DEL 6 & 8,2000":1000 8:* RESET V-TAB * A$"THIRD: WRITE A PROGRAM USING":1000 9:* RESET V-TAB * A$"LINE NUMBERS FROM 10 - 63999  SLOW150:FAST2554 (3:* SET V-TAB * L 2 * INSTRUCTIONS * } <A$"INSTRUCTIONS FOR ONE LINE CAPTURE":1000 F4:* RESET V-TAB * PA$"THIS FILE CREATES A TEXT FILE CALLED:":1000 Z12:* RESET V-TAB *  dA$"APPLE RANCH":100(4):D$"MONICO":D$"OPEN APPLE RANCH":D$"WRITE APPLE RANCH":33,30:10,63999:D$"CLOSE APPLE RANCH":33,40::  *RUN THIS EXAMPLE, THEN* DELETE LINES 6 & 8,2000 *********************** : * CLEAR SCREEN *  * SPEED VALUES *     {  D$(4)+(A$" "dFNAME$"B"(8)(8)(8)(8)(8)(8)(8)(8)A$zdD$" SAVE ";NAME$D916Q$"N"ī63938"ENTRY-63910P34,0::X12000::39825:13t169,183,160,232,32,217,3,96,000:: ::::::::::::::::::::::::::: TO LIST PROGRAM: LIST 14-   APPLE RANCH SA "SIZE$;" "NAME$;:33:CLASS$;:> CLASS$" INTACT "ī63949f " UNDELETE THIS ENTRY?";::"Y";: "ES OR ";::"N";::"O" 31:Q$:1:(64578) Q$"Y"63948 ADDRESSOFFSET,FTRACK A,160 47092,2 768 47092,163TYPE4TYPE$"B"' TYPE8TYPE$"S"> TYPE16TYPE$"R"k SIZE(ADDRESSOFFSET33):SIZE0ī63951} SIZE$(SIZE) SIZE10SIDE$"0"SIZE$ SIZE100SIZE$"0"SIZE$ SIZE99SIZE$(SIZE) CLASS$"DELETED"Ğ LOCKED$;TYPE$;"ADDRESSOFFSET)255CLASS$"DELETED"1 NAME$""[ AADDRESSOFFSET3ADDRESSOFFSET31u NAME$NAME$((A)): FTRACK(A) LOCKED$" ":TYPE127LOCKED$"*":TYPETYPE128 TYPE0TYPE$"T" TYPE1TYPE$"I" TYPE2TYPE$"A" 4,17:47085,0 768. DTRACK(ADDRESS1)F DSECTR(ADDRESS2)X 47084,DTRACKj 47085,DSECTRs 768 DTRACK(ADDRESS1) DSECTR(ADDRESS2) ENTRY06 OFFSETENTRY3511 TYPE(ADDRESSOFFSET2)$ CLASS$" INTACT ":(YS "UNLIST!"  FP. 1014,165:1015,214= ::1184v 2::10)" ";"APPLE ][ UNDELETE!!";9)" ":::34,3 I768776:A:I,A: 47080,1:47080,95:47083,254:47086,251:47087,183 ADDRESS38400 47088,00:4789,150:47092,1:4708u APPLE RANCH9::::::::::::::::::::::::::Y: :y: UNDELETE!! :: ::::::::::::::::::::::::::: TO LIST PROGRAM: LIST 14-   APPLE RANCH SA     z#?Xղ 蠨é  ̠ԠŠ󠰱 ̠ ̠̠̠̠̠̠ ̠̠̠̠̠̠ ̠ נӠ РΧŠ ٠͠ǠŠҠ٠ԠŠ̠ΠŠҠ Ӡ۠ ̠Š۠Ҡ Šˠˠ ŠҠ ̠ɭ٠ ŠԠƠΠ ԠҠΠ۠ ŠŠӠšԠӠ۠ŠȠԠŠ ŠȠàŠŠŠ  ŠŠŠ ӠƠ۠ ԠǠԭ̠àŠŠ٠ ٠Ҡ!٠Πˠ!٠Πˠ " Ҡ٠Р"ˠˠŠ٠ ªӪŠêϪΪ֪ҪԪŪҠ ٠ŠԠ  àĠԠĮʠˠҠĠӠ ˠҠĠӮӠӠ   Šӭ̠ Š׭̠ͨũͨө̠Ҡ̠ǭ̠ ޠŠ̠ Ġ۠ ŠԠҠ ˠˠˠР ˠЭ̠ŭڠխ̠ӠҠ̠ӠҠ©̠ɭϠ٠͠Ҡ ̠ޠӭ̠ Š٠٠Š٠٭̠̠РҠנӠ̠РҠ׭̠ ˠŠӭ̠ ˠˠӠ Ӡ  ΠŠ۠ԠǠРԧӠҠԿ  ˠǠӠҠŠ͠Ӡ̠Ӡ۠٠ ΠŠȠԠ ŠӠŠŠŠԠտӠΠӠˡ ȭȡԠϠԠӠ 蠠󮍍ō̠ή렠堠栠젠堢򢠠۫嬠򮍠򠠠䬠 0 * SET FOR CATALOG * (:39769:<D(4);"CATALOG"BNBALOG * Z:39769:nD(4);"CATALOG"tNB2:BA$;%  SLOW SPEED & CALL SOUND G :" ";:1008::" ";:1008P 768Y 420g "CLOSE"  * RESET SPEED & SCREEN * 255:  * READ IT AGAIN? * :"Read Another From Menu? (Y/N)";:B$ 34,0 B$"Y"20&B$"N"570*  " , * POKE SOUND * C 6768,44:769,48:770,192:771,96b @ * SET SCREEN LOCATION * n J::: T * SET SPEED * ^230 h * INPUT TO DISK * r"MON I" | * ACCESS TFILE * "OPEN "A$ "READ "A$ 480 A$ COPYRIGHT":2907 B$"2"A$"APPLE USERS GUIDE":290c B$"3"A$"BFILE WHERE ART THOU?":290 B$"4"A$"DOS ON THIS DISK!":290 B$"5"A$"OH-OH! FORGOT TO BOOT DOS":290 B$"6"A$"PROGRAMS":290 B$"7"560  * CLEAR SCREEN # n10:"3. Bfile Where Art Thou?"C x10:"4. DOS On This Disk!"k 10:"5. Oh-Oh! Forgot To Boot DOS" 10:"6. Programs" 10:"7. End" :15:"Select One";:B$ B$"1"B$"7"Ĺ34,0:20 * DEFINE A$ *  B$"1"A$"APPLE RANCH * CLEAR SCREEN *  5  * SET TOP OF SCREEN * G (:" ";40):z 212:"APPLE RANCH SOFTWARE";8);::" ";40): <34,3 F * SHOW MENU * P8:10:"Information Menu:" Z:10:"1. Apple Ranch Copyright" d10:"2. Apple Users Guide"C APPLE RANCH9::::::::::::::::::::::::::Y: :y: INTRODUCTION :: FOR :: "READ THIS FIRST" :: :::::::::::::::::::::::::::  X120:A$;:E 23:X120:A$;::2:X222:1:B$;:40:C$;:: A0:B031:AA1:33,A:32,0:912:32,39B:912:C14:SOUND(49200):: :0769:$769:D69:XX:0769:Be-Be Ranch ":140:16:12:X118:" ";::17:A$"Fort Dick, CA 95538":140a F * PAUSE * w P0768:X12500: Z170 d * CATALOG * n:(4);"RUN INTRODUCTION" x0768: * SUB-ROUTINES * (21(A$)2):A$: 1:1710& D$(4):D$"BLOAD CALL 0768"D * OPENING SEQUENCE * j 34,1::X1800:" : ";:X:34,0| B$"]":C$"[" (:A$"][":150: 26:A$" A p p l e R a n c h ":140:7:10:X120:" ";::8:A$" S o f t w a r e ":140L <15:A$"  APPLE RANCH 8:::::::::::::::::::::::::W: :v: APPLE RANCH :: SOFTWARE :: HELLO PROGRAM :: ::::::::::::::::::::::::::  (768)   ۠㮍庍Šجٍ̤堠ؠ堠٠嬠宠̤ō堠ؠ٠嬠宠ŠĠ­嬠̠Ҿ堠Ҿ󺍍ŠŠȍŠŠԠտŠ쬠堠栱멍Ӡ롩묠Ӡ砠򠠠򠠠堠䬠宠䬠Íﬠ렣Ϡ䬠Ҡ۠󠠪ŠƠΠ砠卹ᬠϠϠ묠Ƞ堠멍Ϡɠ庍󮍳嬠Ϡƍ嬠̠ϠϠϠﬠԍϠᬠϠ嬠٠۠󠦠ϠϠ⍱Ӯ묠Š򠠨멍Ҡ젭ЮЮ̮ŮӮ׮   묠䬠䠠젠嬠堠ᠠ뮍䠠󡍠묠ﺍʮ򍠠占謠Ϡ묠̠򩮍󺍍ޠŠ̠砠堦ĠӢ堠ͨ뮠ɯϩ̠Ӣ栠Ԡ٠̠­̯Ԡ堠󍍍άάà堠ΠŢŠ۠堠   ͍̠àξԍƍ̠à宠ήԍĮ묠󮍍̠Ʈ°͍̠àξң̠ϠԠ䡍ﬠẍҠҠǠӠנǠҠ뮍󺍤ƠԮ렠ݠ򮍍ң묠Ӡ蠠Ϡ䬠堤̠͍͍蠠ᠢ䢠ᮠͨ͠婮̠à宠ή栠à󠠠䡍庍ƠĠƬ砠󠤱Į󠠠Ʈ򡍠̠Ӯ̠ΠƮ°ᠠ䢠Ӭ젠堠٠ﮍȭȡԠϠԠӍ묠堠Ӭ򬠠ɠ쬠纍àؠ堠    ŠǠ箍ĠԠ䡍ӺӠ롍Ӡ䬠䠠ӠˠŠ堠Š򮍍Ǡ󠠠HR$ CHARACTERS* V18:H5:TAB VALUESD  ** SET SPEEDS ** Q (SLOW200^ 2FAST255m <PAUSE3000 F ** CLEAR SCREEN ** P Z *SET 1ST TEXT WINDOW* d35,16:34,11 n *8 BIT CPU = 16^2 MAX* xX0256 640 *START O APPLE RANCH9::::::::::::::::::::::::::Y: :y: CHIP A5- :: WHAT'S YOUR SECRET? :: :::::::::::::::::::::::::::  THIS PROGRAM PRINTS C    AEXT SCREEN*  634,0:::0:PR$(A$,X)(A$,X):1:21X:PR$:B ** SET TEXT SCREEN ** L 34,3g ** PAUSE ** x X1100::~   ** WAIT FOR KEYPRESS ** ":24:15::"PUSH ANY KEY";::" ";:64780 , *SET NORMAL TEXT SCREEN* 634,0::: x * DEFINE SOUND * % V(49200): Y127ĺA$,:110H A$;:110b ** PRINT 1ST A$ ** u X140:A$;: *PULL TEXT FROM CENTER* V(37) S$"":X120(A$)2:S$S$" ": A$S$A$S$:(A$)2((A$)2)A$A$" "% X12 * CLEAR SCREEN **  ** DEFINE A$ ** 6 A$"<>"? (170Z 2 ** REDEFINE A$ ** <A$"<> APPLESOFT PROGRAMMING COMMANDS <>" F170 P *DEC=53455 HEX=0D0CF* ZX53455 d WORKING PART OF PROGRAM nXX1:Y(X):A$(Y):Y290 APPLE RANCH8::::::::::::::::::::::::::X: :x: APPLESOFT :: PROGRAMMING :: COMMANDS :: ::::::::::::::::::::::::::: :{  D$(4)+(A$" "dFNAME$"B"(8)(8)(8)(8)(8)(8)(8)(8)A$zdD$" SAVE ";NAME$D 򺍍ŠԠ䠵󡍍䬠뮍㮠ӠҠ婠ŠԠҮ򠠠Š۫嬠ﮍƢ䠢ԠҠΡήҠ٠ԠԠᠠ䡍ӢΠŠ۠ǠԠŠӢԭ򠠠ԭ堠ͨ멠󮍍Ӡ䠠ͨŠŠ̠ƠǍԠǠԭ̠ȠӠˠΠŠō120:"] ";:N:N120:" [";:N& NL=43378 HEX=A972* ! xLOOK43378? *FIND & PRINT MESSAGE* ~ LOOKLOOK1:SEEK(LOOK):MESSAGE$(SEEK):SEEKĉ:34,0: ** CALL SOUND ** S(16336) SEEK127ĺMESSAGE$;" ":140 MESSAGE$;:140 ** DOUBLE BORDER ** N * MAY NOT WORK WITH OTHER DOS FAST BOOT SYSTEMS * Y ** CLEAR TEXT SCREEN ** d 64600m 190 ( **FORMAT TEXT SCREEN** 24:7 <"ROM ERROR MESSAGE COMMANDS": F190 P ** SET TEXT SCREEN ** Z34,6 d7 n *DECIMA' APPLE RANCH9::::::::::::::::::::::::::Y: :y: ERROR MESSAGE :: SYSTEM :: COMMANDS :: :::::::::::::::::::::::::::8 10. DECIMAL=43139 HEX=A887 N REDEFINE A, B: DEFINE A$ Z A43139 AA1:B(A):A$(B):BČ2921:: **PRINT DOS COMMANDS** B127ĺA$,:190 A$;:1901 ::::::::::::::::::::::::::: CALL - 936  )  * BLOAD SOUND * J (D$(4):D$"BLOAD CALL 2921"c 2 **DEFINE A, B, B$ l <A40t FB1 PB$"-" Z2 d **FORMAT TEXT SCREEN** nCBA:B$;: x5:6 "DISK OPERATING SYSTEM COMMANDS": CBA:B$;:  APPLE RANCH:::::::::::::::::::::::::::Z: :z: DISK OPERATING :: SYSTEM :: COMMANDS :: ::::::::::::::::::::::::::: Y1PAUSE::0 *BLANKS CONDITION LINE* HV:Z140:" ";:ZNV:Z140:" ";:Zm2AM** &270<0V3:H:"Finished! Type 'RUN' to repeat"\: *SET NORMAL TEXT WINDOW* fD34,0qN35,24zX650bH18:2:"RUN"lH17:v ONLY 1ST TWO LETTERS ARE USED IN A VARIABLE NAME SLOW:FAST: PAUSE racters" 270 650# 690M V:H:"These are NUMERIC characters"V 270_ 650h 690 V:H:"These are UPPER CASE characters" 270 650 690 V:H:"These are ";::"LOWER";::" CASE characters" **END OF PROGR "34,57 ,"This program prints CHR$ characters in"Z 6"Apple II decimal locations."` @f J T *PRINTS CHR$ CONDITION* ^650 h690 rV:H:"These are CONTROL characters" |270 650 690 V:H:"These are SPECIAL cha: UPPER % X97X225İ510:LOWER= X256ī560:FINISH^ **PRINT THE CHR$ DATA** "|";15);X;"=";(X);:38:"|" :THE (X) IS NOT REQUIRED :SIMILIAR TO RETURN  *SET 2ND TEXT WINDOW* 34,2 1184:APPLE ][OF CHR$ LOCATION* p X33X48X58X65X91X97X123X128X161X176X186X193X219X225X251İ670 X0X128İ350:CONTROL X33X58X91X123X161X186X219X251İ390:SPECIAL X48X176İ430:NUMERIC X65X193İ470O. 6RESTORE THAT "JUST" DELETED FILE - TYPE4 @B J]CALL768\ T -OR- ^]BRUN CANCEL FP OR NEW-CALL 768 h rAND IT WILL BE RESTORED. |--->TO TEST - "NEW" THIS PROGRAM... AND THEN "RESTORE" IT! " "A" "" NEW" 228 " BRUN CANCEL FP OR NEW-CALL 768"@ 23M " LIST"U 19\ 1b y  ** B$ DATA ** THIS WILL RESTORE AN APPLESOFT PROGRAM THAT YOU "JUST" DELETED FROM MEMORY! " ,BRUN THIS PROGRAM AND WHEN YOU WANT T* CLEAR TEXT SCREEN ** # 64600;  ** PRINT A$ ** ` (A$" CANCEL FP OR NEW-CALL 768 "g 23w <21(A$)2} F PA$ Z d ** READ AND PRINT B$ ** n6 xB$ B$ B$" "170 ** USER INPUT ** 120 20  APPLE RANCH8::::::::::::::::::::::::::X: :x: CANCEL FP OR NEW :: :: CALL 768 :: ::::::::::::::::::::::::::: * X % i <#L   o >VU X i`0iLh LT VU A VVVLOMS START AT PAGE 0800."5 ** END OF PROGRAM ** d 23:"]BRUN APPLE MEMORY DISPLAY-CALL 768"n 22: * CENTER A$ ON SCREEN * 21(A$)2::A$::768 :: ::::::::::::::::::::::::::: *INTO 256 ";Q$;"PAGES";Q$;" EACH HAVING 256 BYTES--OR A TOTAL OF 65336 BYTES OF MEMORY." x:"START BY ENTERING A -->HEXADECIMAL PAGE LOCATION WHEN ";Q$;"ASKED.";Q$;" LET THE PROGRAM DISPLAY THE APPLE ]['S COMTENTS. MOST ";::"APPLESOFT";::" PROGRAAGE PROGRAM WILL ALLOWYOU TO LOOK INSIDE THE APPLE ]['S MEMORYA PAGE AT A TIME, AND VIEW THE CONTENTS OF EVERY PAGE."W n:"IT DOES THIS BY DISPLAYING ONE ";Q$;"PAGE";Q$;" OFMEMORY-OR 100 HEX (256 DECIMAL) BYTES ATA TIME. IN THE APPLE ][ MEMORY DIVIDES DEFINE Q$ FOR QUOTES * % Q$(34)>  * CLEAR SCREEN AND\ (* PRINT TOP OF SCREEN * 2::A$" APPLE MEMORY DISPLAY ":170 <A$"------> CONTROL RESET TO EXIT <------":170 F P34,3 Z * PRINT INSTRUCTIONS * u d"THIS MACHINE LANGU APPLE RANCH8::::::::::::::::::::::::::X: :x: APPLE :: MEMORY DISPLAY :: CALL 768 :: ::::::::::::::::::::::::::: *   0ۅ67l,0ɠɍɈ)? ,,,(L {  D$(4)+(A$" "dFNAME$"B"(8)(8)(8)(8)(8)(8)(8)(8)A$zdD$" SAVE ";NAME$DCLEAR SCREEN *  n:64600> x ** PRINT TEXT SCREEN ** ^ 3::A$" DISK MAP ":360: 5:A$"ALL USED SECTIONS OF YOUR DISK":360 A$"WILL BE DISPLAYED ON THE SCREEN,":360 A$"INCLUDING TRACKS 0-2 FOR DOS AND":360 A$"TRACK 17 FO:::::::# * CHECK IF DISK MAP.B? IS IN MEMORY & IF SO,V  DO NOT RELOAD * i (8192)3280 ( * DEFINE DOS COMMAND * 2D$(4) < * BLOAD DISK MAP * FD$"BLOAD DISK MAP-CALL 8192" P * DEFINE "QUOTE" * ZQ$(34) d *  APPLE RANCH :::::::::::::::::::::::::::Z: :: D I S K : : M A P : : C A L L 8 1 9 2 : : : ::::::::::::::::::: jHHH ȩ  ȥ   H  #hhh`wTING ADDRESS * % 21:"]CALL 768"/ 20:O  ** CALL SUBROUTINES ** i 21(A$)2::A$:: 21(A$)2:A$: " * D. CUSIMANO , PROGRAMMER *A 768 : : ::::::::::::::::::::::::::: SHOW AT THE BOTTOM OF THE SCREEN"l :" IF THERE ARE ";::"NO";::" BAD SECTORS-- ";::"NOTHING";:: :A$"EXCITING WILL HAPPEN":280 :A$"AND THE PROGRAM WILL END.":280 22:X140:"-";:X 23::"T__ S__": * CALL STAR *  d34,2: nA$" DISK CHECK INSTRUCTIONS ":270g xA$"CHECKS YOUR DISK AND SCANS FOR":280 :A$" BAD SECTORS ":270 : A$"PUT DISK TO BE CHECKED IN THIS DRIVE":280 :A$" BAD TRACK AND SECTORS ":270! :" WILL * CLEAR SCREEN *  :=  * CHECK IF IN MEMORY * O (768)7270m ( * IF NOT, THEN BLOAD * 2D$(4):D$"BLOAD DISK CHECK" < * PRINT INSTRUCTIONS * FA$" DISK CHECK ":270 PX140:"-";:X Z * SET TOP TWO LINES APPLE RANCH8::::::::::::::::::::::::::X: :x: D I S K :: C H E C K : : CALL 768 : : :::::::::::::::::::::::::::   ? XL@@ ȑȑ   H8  @@ @@ $@  L# _ XL  X Xȱȱ XL$ X X Xikmjln``   Thi8hi9 `H)?(hL4,27 795,253 2324% 768C  CALL 768 TO RE-ACTIVATEf  * FLASHLESS CURSOR * l HLESS CURSOR *  768,32:769,84:770,255: 771,154:772,104:773,24X 774,105:775,17:776,133v 777,56:778,104:779,105 780,0:781,133:782,57 783,32:784,234:785,3 786,96:787,72:788,41 789,63:790,145:791,40 792,104:793,76:79m APPLE RANCH:::::::::::::::::::::::::::\: FLASHLESS : |: CURSOR :: CALL 768 ::::::::::::::::::::::::::: *FLASHLESS CURSOR WILL NOT WORK ON THE APPLE IIC*  E 6E7LHɺ  JhLӠĠȠŠӠ`$% "! f ` H@A$Lk!% "LI!H@Ah % Ls!%L.! L2!%$ "! %% $ " " @A $`ˠРˠҠҰȠĠҠ  X 1 J   c   & L!% $ "! `%$ "! `%$ "  %$ "  ` `! `%$ " Ӣ Lޢ L`$% "! f     21:(8); @1:30:B$* JB$"N"280: TB$"N"380Y ^ *CENTER TEXT ON SCREEN* o h21(A$)2:A$: r * CLOSING SCREEN WIPE * |I1324:1:1:I:64668:(25I):64668:J150:: :Q : ::::::::::::::::::ISK TO BE VIEWED IN YOUR DRIVE":3606 A$"AND":360R A$"PRESS ANY KEY":360k * USER RESPONSE * { 20:28:B$  *CALL DISK MAP ADDRESS* 8192 " * TOP OF SCREEN FOR , 2ND USER RESPONSE * 61:A$"ANOTHER DISK? (Y/N)":360:R CATALOG INFORMATION.":360Y 10:"DO NOT ";Q$;"BRUN";Q$;" DISK MAP OR YOU WILL JUMP" "INTO THE MONITOR MODE AND SEE AN ";Q$;"*";Q$;"..." 13:A$"TO RETRIEVE THE DISK MAP PROGRAM:":360 15::A$" CALL 8192 ":360:$ 18:A$"PUT THE DPإgh Hȱh`籅ɲX<ȱ=>B867 `ɍ9 L3 L͠ 12:2:"LOMEM: <--PUT NUMBER HERE"0 A,CB 14:2:"RUN"b *SET NORMAL TEXT WINDOW* k A,C ** POSITION CURSOR ** 9:15: HIMEM WILL NOT BE SET EXACTLY AS YOU TYPED ::::::::::::::::::::::::::::::::::::ALL-1184* d643527 n *WORKING PART OF PROGRAM* x3:"HIMEM = ";:(116)256(113);12);"LOMEM = ";:(106)256(105) X140:"-";: ** SET TEXT WINDOW ** A,B 8:"" 10:2:"HIMEM: <--PUT NUMBER HERE"' :: HIMEM MAX= 65535=  HIMEM SET: 38000-39000 u  LOMEM IS RESET BY DELETE, NEW, OR RESET ( LOMEM SET: 2200-2600 2 ** SET POKE VALUES ** <A34:B4:C0 F *DEC VALUE FOR CALL-936* P64600 Z *DEC VALUE FOR C APPLE RANCH::::::::::::::::::::::::::: Z: :z: HI -- LO :: MEMORY : : SYSTEM -- CHANGER :: : :::::::::::::::::::::::: 64600:* HOME *1  * TOP OF TEXT SCREEN * H BR140:"";:BR (BR18:"";:BR:15:"Base Converter";:33:BR18:"";:BR 23:BR140:"";:BR <:10 F34,3 P * 1ST CHOICE * ZHEX$"":5M d6)"1. Decimal to Hex and B APPLE RANCH8:::::::::::::::::::::::::W: :v: B*A*S*E :: :: C*O*N*V*E*R*T*E*R :: ::::::::::::::::::::::::::       *WIPES SCREEN TO CENTER* I112:35,I:936:34,(24I):936:35,24:34,0:33,I:32,(I1):936:32,(40(2I)):936:32,0:33,40:J125::::pple ][c": --> OR APPLE CLONEG h(637)223Z$A$:` r(637)234Z$C$:y |(637)255Z$B$:  **CENTER SUBROUTINE** X(20((Z$)2)):X0X1 X:Z$:  **WAITS FOR RETURN** "Return to end ";:676 IN HERE 0 ***********************6 U SN162ĺ"DISK DRIVE CARD"u  **NOTICE NEXT(X):NEXT(Y) ":::23 , **SET TOP TO NORMAL** 634,0:420 @ APPLE, APPLE, OR APPLE JA$"Apple ][ +" TB$"Apple ][e". ^C$"ASlot ";Y;"...";NSN" x62Y:25I W(Y)X(Y):X(Y)SN:X(Y)W(Y)ī290f **PRINT APPLE SLOTS** l N491520ĺ"16K RAM CARD" SN24ĺ"PRINTER CARD" *********************** CONFIGURE YOUR COMPUTER *  936: HOMEH  **GOSUBS HERE FOR FASTER EXECUTION** Q 330Z (390o 2X140:"~";:X <34,2:FREEZE TOP LINES FX115 P **PEEK LOCATIONS** ZY07:N49152256Y:SN(N) d **PRINT MAIN SCREEN**  n62Y:8:" APPLE RANCH5:::::::::::::::::::::::R: :o: APPLE SLOT :: LOCATOR :: ::::::::::::::::::::::::  * APPLE SLOT LOCATOR WILL NOT WORK ON THE IIC {  D$(4)+(A$" "dFNAME$"B"(8)(8)(8)(8)(8)(8)(8)(8)A$zdD$" SAVE ";NAME$D 767L l6!((!` X!!` 067 `ɇL J I  ?`,0`L:I84488474:J:I,J::I89608980:J:I,J::RWADV8448:TA8964:SA8965:RD8972:SL6:DR1:DA37148DA,SL16:DA14,SL16:DA1,DR:DA15,DR:} 76,0,032,32,12,225,165,160,160,0,162,9,24,42,16,1,200,202,208,249,165,161,162,9,24,42,16,1,200,202,20:LLTCLLLL216[15:Z(AA):"("A")";:28:Z(LL):"("L")":LCLC1:TNCT:SNCS:19:|TA,TN:SA,SN:RD,1:RWDRV:d8191: 169,035,160,00,32,217,3,96,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 1,96,1,0,17,0,17,35,0,36,0,1,1,0,254,96,1,0,1,239,21611)"FREE SECTORS = ";CNT:24:11:"READ ANOTHER DISK ?";:29:A$:A$:A$"Y"Į:1Z 26 I315:((B3I));:I:TN(B3):SN(B31):19:TN(BASE12):SN(BASE13):19:A(BASE)(1BASE)256:AAA:AATCAAAA216L(BASE2)256(BASE3):LLLINUE ?";:25:A$:A$:A$"Y"11t 1:24:" ";:35,23:21:958::21::14 1:24:" ";:LC1:21: B2:CTNTC:CSNSC:5 21:958:10)"NO MORE BINARY FILES"R SNVS:19:CT(BASE1):CS(BASE2):LC1:35,21:22:25 TNCT:SNCS:19:NTC(BASE1):NSC(BASE2):B21122435:B3BASEB2:(B3)0(B31)0Ĺ35,23:21:958::13 (B3)255ī8 PR(B32):PR4PR1284İ16 LC1612 24:16:"CONT"HIT < RETURN > TO CONTINUE":19:"OR":8:"HIT ANY OTHER KEY TO QUIT ?";:34:A$:A$:A$(13)ī268 VT17:VS0:BASE9216:NULL$"":TC2151:::" FILE NAME START LENGTH ":" (13 CHAR) HEX(DEC) HEX(DEC) ":34,3:6:::TNVT:FIRST" 3:"13 LETTERS OF THE FILE NAME FOLLOWED":3:"BY THE FILE START ADDRESS AND FILE":3:"LENGTH IN BOTH HEX AND DECIMAL."::3:"THE NUMBER OF DISK FREE SECTORS IS":3:"ALSO CALCULATED.":16:8:"INSERT DISK TO BE SEARCHED":18:"THEN"d 8:1 " * MAXIMUM LINE LENGTH *  20:::R140:1:R:"*";:23:R:"*";::R222:1:R:"*";:40:R:"*";::3:8:"BINARY FILE PARAMETER LIST":5:2:R239:"*";:::7:3:"THIS PROGRAM WILL SEARCH A DISK FOR":3:"ALL BINARY FILES, GIVING THE  SE1500:PAUSE:120HPAUSE:120C SOFTWARE W:::::::::::::::::::::::::v: :: B*A*S*E :: :: C*O*N*V*E*R*T*E*R :: : ::::::::$,1)"N"410) ** RESET SCREEN ** <34,0:39680:\ ** ERROR MESSAGES ** ::"DO NOT USE NUMBERS GREATER THAN 65535 ":"OR LESS THAN -65536 ":18010:">>>>>>>> ERROR Enter 1-3 only <<<<<<<<"PAU";(BI$,4)#:">Hex ";HEX$> * CLEAR VTAB 23 * [23:ZIP140:" ";:ZIPy * CONTINUE, OR QUIT * 23:"ANOTHER NUMBER? (Y/N) ";:D$(D$,1)"N"490(D$,1)"Y"ė:90 ALL Y__ OR N__ ANSWERS (D$,1)"Y"(D JBA4096:HXDEC:HX$"0123456789ABCDEF"f TI14:B(HXBA):HEX$HEX$(HX$,B1,1):B1HXHXBABv ^BABA16:I h ** PRINT ANSWER ** r5:64578:">Decimal ";DEC;" (";NEG;")": |">Binary ";(BI$,4);" ";(BI$,5,4);" ";(BI$,9,4);" A:NEG(DEC65536)# NG270A NEGDEC:DEC(NEG65536)_ NEG65536DEC65535510|  * DECIMAL TO BINARY * "BA32768:BIDEC ,I116:B(BIBA):A$((B0)48):BI$BI$A$:B1BIBIBA 6BABA2:I @ *DECIMAL TO HEXADECIMAL*( CLEAR TEXT LINE,CURSOR TO RIGHT 216,0:14:64668:"Enter ";TP$;:" number: ";NM$:(NM$,1)"-"NM$(NM$,(NM$)1):NG1 F(NM$):C1:DEC0 * DEFINE PARAMETERS * AF11 N((NM$,A,1))48:N9NN7 DEC(DECNC):CCBAinary":6)"2. Hex to Decimal and Binary":6)"3. Binary to Decimal and Hex":U n: x">>> Which Conversion ";CH$:D(CH$):D140,150,160:530 * 2ND CHOICE * BA10:TP$"DECIMAL":180 BA16:TP$"HEXADECIMAL":180 BA2:TP$"BINARY"#::::::::::::::::::::::::::Y *ONLY 1ST & 2ND LETTERS OF A VARIABLE ARE VALID* o SPACENUMBER$(4)  *CHECKS $6000 FOR RELOAD* ((24576)3290 2 * LOAD A BINARY FILE * < * A$6000,L$53 *  FSPACENUMBER$"BLOAD DISK SECTOR Ag APPLE RANCH:::::::::::::::::::::::::::Z: :z: DISK :: SECTOR :: AND :: BYTES : : :     H0}Hh 頻Hh݌Hh ݌Hh ɪ 0 꽎 L" h` ȱ`]ĠԠ]]]ΠŠԠҠˮȠŠӠîL]̠ԠŬԠŠƠҠΧԠĠԩ&]Š]]]àxPbE()[a,]̠ӠԠĠԠӠΠàĠԠĠŠҠΠàZ]̠ӠҠĮƠàΠΠŠϠŠүנҩ\]ƠˬΠӠĠP8 ra()Gd2e?bGd2ea()q.?6@rd6?e`%QM _2Sdca@E()Gd.?)r.?(reP d2e?a(Ԡ)FGd2eRnq.?6@r`$nd6?e`$x`$nqϠԠįҠҩ)d2eQw<q8#.?r.?rrq8ur`%q`'%q'`$PqUVWoPa()YbFq`%q`!%q!oPd2e?a()Pa()Pa()Pa(ө)d2ecPo2eaM q.?r@p()\ddeq.?rq@p()\dde.?rp(a()oa(ש)GPa(ͩ)GP"a(ԩ)Gb6dGPbGP#a()qq6M H2`.?r($<d2e?a(jP a(ĠĮ)]̤ưźӠԠŠ٠Šo N@"(rKM6d2ea(Š˭ɠҠĠԠ͊ŠԠȠŠ)G d2e?a(κȠ̠ŠĠ)d    :0#:::::::::::::::::::::::::I40:1:R:"*";:23:R:"*";::R222:1:R:"*";:40:R:"*";::3:8:"BINARY FILE PARAMETER LIST":5:2:R239:"*";:::7:3:"THIS PROGRAM WILL SEARCH A DISK FOR":3:"ALL BINARY FILES, GIVING THE 8202:Z:I,Z:I:334,0:35,24:23:39732:22:@ W APPLE RANCHv:::::::::::::::::::::::::: :: BINARY : : FILE :!: LIST :": 8,249,169,0,32,242,226,96,96:I1012:Z:I,Z::I81928227:Z:I,Z::CNT0:I561954:S(BASEI)256(BASEI1):V(S2)S2(S2)CNTCNT1CNTCNT(V):: 76,0,032,32,12,225,165,160,166,161,32,65,249,96:I1012:Z:I,Z:I:I8192,10,134,1,173,48,192,202,16,250,136,16,232,230,0,165,0,201,24,208,217,165,1,208,207,96_660u * CALL 39936 * &"SCREEN YO-YO"0700:M3993640017DDNM,DXMb39936l0,169,1,133,60,74,144,10,166,60,32,112,252,202,208,169,160,145,40,232,224,24,208,208,198,254,208,202,96=660S * CALL 39884 * j"SCREEN W/ NOISE"s700M3988439934DM,DM39884V169,0,133,1,133,0,165,0,32,91,251,160,39,177,40,201,160,240,15,56,233,1,145,40,162  ^"SCREEN BOTH SIDES"# h7006 rM3982539883= |DF M,DM MX 398254162,40,134,254,162,0,138,32,193,251,160,1,177,40,136,145,40,200,192,39,240,3,200,16,243,169,160,145,40,232,138,32,193,251,136,177,40,200,145,40,136,240,2,208,245, ,M 639769 @ 160,20,132,254,162,0,160,18,138,32,193,251,177,40,200,145,40,136,240,3,136,16,245,169,160,145,40,160,21,177,40,136,145,40,200,192,39,240,3,200,16,243,169,160,145,40,232,224,24,208,211,198,254,208,205,96 J660 T * CALL 39825 * M 39732 169,40,133,254,162,0,160,0,138,32,193,251,200,177,40,136,145,40,200,192,39,208,245,169,160,145,40,232,224,24,208,230,198,254,208,224,96 660 * CALL 39769 * "SCREEN CENTER" 700 M3976939824 D "M,D138,32,193,251,165,40,133,6,165,41,133,7,202,138,32,193,251,160,39,177,40,145,6,136,16,249,224,0,240,2,16,228,160,39,169,160,145,40,136,16,251,198,254,208,209,96 660 * CALL 39732 * "SCREEN LEFT" 700 M3973239768 D M,D: :< :::::::::::::::::::::::::: m ::701711::13::"PRESS ANY KEY";:756s | 660 ( * CALL 39680 * 2"SCREEN DOWN" <700 FM3968039731 PD ZM,D dM n39680 x 169,24,133,254,162,23,f  APPLE RANCH ;::::::::::::::::::::::::::[: D O S P O K E S :{: :: C 39680, 39732, :: A 39669, 39825, :: L 39884, AND :: L 39936 :   `S ᥡ)p>`)?``= = ";BYTENUMBER;" FREE SECTORS" 6 @12:"---> ";BYTENUMBER256;" FREE BYTE 8:12:">>> SLOT TO TEST? ";SLOTNUMBER1 ` 10:12:">>> DRIVE TO TEST? ";DRIVENUMBER BYTENUMBER(SLOTNUMBER16DRIVENUMBER) (37):958 *CHECK FOR DISK ERROR* (24650)0400 IF DISK OK, OR DRIVE CLOSED, THEN PRINT FREND BYTES.$6000"- P *POKES (USR) FUNCTION* > Z11,0:12,96^ d * 1ST PART OF SCREEN * r n:CLEAR SCREEN x1184:APPLE ][ 2:X117:"/-^";:X 3:"DISK SECTORS AND BYTES" 34,3:TOP OF SCREEN 9:12:X1128:"=";:X+ Ԡ堢Ԡ󬠠Ԡ宮ή  Ԡ  Ԡ  ȠԠ̠󮢍ҠΠϠԠԠԠ庢ԠԠñİϢԠ õԠIJñŠóø  ȠԠ̠Š̠Ԡ Ⱥ̠̠͠  ŠԠŠŠ٠̠ԠԠ梺Ԡ墺Ԡ퍱͠Šȍ͠͠͠Š͠Š͠٠͠͠          . Do you want the catalog sorted? N ɍ  Disk Slot? JJJJ Drive Number? Lh