' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  1 '&&*  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0(#*!!.<,$94>94="4; +,E!r ; $ Hh Լ ռ ռ ռ`HJ>݌h Hh݌`DF DF /L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p ߩRP1Q ɿ, P\L˵B̵C8pBZ\  յյ\BIR Z-^ Jp\IZLL-(Q `ϭà@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B ߼ / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8` ܫ 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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(`i d£àĠˣ٠Ơ͠ԡ# u`MBER AND RETURNS TO BASIC"H& :"PROGRAM ON HOLD, USE '&M' TO RECOVER"t& :" THIS IS DISPLAYED WHENEVER A"& " PROGRAM IS PUT INTO THE HOLD FILE."& " TYPING '& MERGE WILL RECOVER"& " THE PROGRAM."&* 3860'4 TT)"NOTTINUE (Y/N)?";% :" THIS OCCURS WITH SMALL SYSTEMS"i% " OR LARGE PROGRAMS. THE RENUMBER"% " MAY OR MAY NOT SUCCEED."% :" * PROGRAM DESTROYED IF IT FAILS"% :" * ANY REPLY BUT 'Y' CANCELS"& " RENUWER STATEMENTS PER"&$b " LINE."F$l :"ERR HOLD FILE IN USE"r$v " ONLY ONE PROGRAM MAY BE IN THE"$ " HOLD FILE AT A TIME."$ 3860$ TT)"OTHER MESSAGES"PT)"PAGE 13"$ $ "LIMITED MEMORY, MAY DESTROY PROGRAM" % "CON"# :" TO FIX USE"@#& " * SMALLER INCREMENT OR"l#0 " * DIFFERENT FIRST LINE NUMBER"#: :"ERR LINE TOO LONG"#D " RENUMBERING WOULD CAUSE A LINE TO"#N " BE LONGER THAN 239 CHARACTERS."$X :" TO FIX USE FEORE MEMORY THAN IS AVAILABLE."(" 3860O" TT)"ERROR MESSAGES"PT)"PAGE 12"U" y" "ERR DUPLICATE LINE NUMBERS"" " ONE OF THE UNCHANGED LINE NUMBERS"" " WOULD EQUAL ONE OF THE NEW LINE"# " NUMBERS IF RENUMBER CONTINUED.999.";'! :"ERR NO LINES IN RANGE"T! " THIS INDICATES THAT NOTHING WAS"! " CHANGED BECAUSE THE SPECIFIED"! " RANGE OF LINES WAS EMPTY."! :"ERR OUT OF MEMORY"! " OCCURS WHEN AN OPERATION REQUIRES"" " M ONE OF THE PARAMETERS WAS LARGER"= T " THAN 63999."_ ^ :"ERR LINE INCREMENT = 0" h " THIS IS DISALLOWED." r :"ERR LINE INCREMENT TOO LARGE" | " THE INCREMENT WILL CAUSE A LINE"! " TO BE NUMBERED GREATER THAN 63 & MERGE RETURNS THE "? " PROGRAM ON HOLD TO MEMORY"U :"ERR SYNTAX" " THE FIRST LETTER OF YOUR COMMAND" " OR PARAMETER WAS INVALID."" 3860, TT)"ERROR MESSAGES"PT)"PAGE 11"6 @ "ERR > 63999"$ J " -"( "EXPLANATORY. ERRORS WILL STOP"U "EXECUTION BEFORE ANY CHANGES ARE MADE"r "TO THE BASIC PROGRAM." :"ERR NO PROGRAM IN MEMORY" " THIS OCCURS IF YOU TRY TO RE-" " NUMBER WITH NO PROGRAM IN MEMORY." :" *Z " BY COMMAS, ','"Hd " * MULTIPLE PARAMETERS CAN BE IN ANY"Zn " ORDER"x " * A COMMA MUST BE FOLLOWED BY A" " PARAMETER LETTER" 3860 TT)"ERROR MESSAGES"PT)"PAGE 10"  " MOST ERROR MESSAGES ARE SELFSET UP RENUMBER"# "PARAMETERS."S( :" * PARAMETERS ARE DECIMAL NUMBERS IN"z2 " THE RANGE OF 0 TO 63999"< " * IF NO NUMBER FOLLOWS E,F,I,OR S"F " THEN THE PARAMETER IS SET TO 0"P " * MULTIPLE PARAMETERS ARE SEPARATED"COMMAND ARE IGNORED" 3860C TT)"INPUT SYNTAX"PT)"PAGE 9 "I x " THE FIRST LETTER AFTER '&' MUST BE" "C,E,F,H,I,M,OR S" :" C,H,AND M EXECUTE IMMEDIATELY." "THE REST OF THE LINE IS IGNORED." :" E,F,I,AND S (t " I - LINE NUMBER INCREMENT"I~ " S - START OF RANGE"h " E - END OF RANGE" :"COMMAND LETTERS" " M - MERGE" " H - HOLD" " C - CONVERT" :" EXTRA LETTERS AND SPACES AFTER" "A PUT SYNTAX"PT)"PAGE 8 ". K8 " THE FIRST CHARACTER OF ANY INPUT"_B "MUST BE '&'."L :" RENUMBER / MERGE ONLY RECOGNIZES"V "THE FOLLOWING SINGLE CHARACTER COMMANDS"` :"PARAMETER LETTERS"j " F - FIRST NEW LINE NUMBER":" * MERGING WITH NO PROGRAM IN"M" MEMORY RESTORES THE HOLD FILE"m:" CONVERT":"& CONVERT":" WILL CONVERT AN RAM APPLESOFT" "PROGRAM TO RUN WITH A ROM CARD AND" "VICE VERSA." 3860$ TT)"IN/" MERGE WILL COMBINE THE HOLD FILE"\"WITH THE PROGRAM CURRENTLY IN MEMORY.":" * LINE NUMBERS ARE ARRANGED IN"" ASCENDING ORDER":" * DUPLICATE LINE NUMBERS WILL BOTH"" APPEAR, HOLD VERSION SECOND"# ( *********************5<( *** CHANGE LINE ***;n(S("LINE TO CHANGE ";_)EC$NU$h)GD$"NN":FV(1)1:LV(1)T:26500)EC$"ESC"ī11150)L(FE$(1)))(L1)(LT)ĺ"NO LINE WITH THAT NUMBER!":104500*:::*:"HIT (ESC) OR FC32:LC95:660:LNSW: GET LINE2L$(L)T$I(EC$"ESC")ī7850YFLBSī7450uxLBSME$"BUFFER FULL"}TLNM$NU$@ *******************' *** PRINT MARGIN ***B'MA$BL$(L)BL$t'L9MA$(L)BL$'MA$;' FINISH.":LNSWTI$"TIME"ĺ"ENTER A VALID TIME LIKE 7:30 AM,":"THEN ENTER YOUR APPOINTMENT MESSAGE":"BELOW IT..."::"TIME (HH:MM AM/PM): ";L0LL1L(NM$"NUMBER")İ10000~WR$"WRAP":LNSWTI$"TIME"WR$"NOWRAP":LN8% INPUT REC ***  IMPORT: PR$8& EXPORT: L$(T),ME$>XYbT0TY$".MES"ī7050l::"OKAY TO ERASE CURRENT MEMO IN BUFFER? ";:K$vK$"Y"ME$"CANCELED":7950EC$NU$WW$NU$ "ENTER YOUR ";PR$;":": R"HIT (ESC) TO";ME$;" ***"pME$NU$ĺ'ME$NU$-7::?8N0IjNN1bOM: OPTION NUMBERnO1OMvO$2(NOF)ĺ10);O$:d(NOF)ī6250"SELECT ONE OF THE ABOVE: ";:CH$,^ ********************** ***CH$"D")(CH$"E")(CH$"P")İ24650:5150H(CH$"Q")(CH$EK$)ī5500eJME$"CHOICE NOT ON MENU"k| ******************** *** MENU GENERATOR *** IMPORT: ME$,DATAv EXPORT: CH$,EC$EC$NU$  >(ME$NU$)ĺ"*** ***********************B *** CARD FILE FIND MENU ***H\V GOSUB MENUGENhEC$NU$tOP$NU$ CASE CH$,ESC QUIT (SAME PATH)OF4:5600PCH$"D"OP$"DISPLAY"(CH$"E")OP$"DELETE"(CH$"P")OP$"PRINT")( ɛ 8`hhLԠ   ˠΠŠԠ ˠΠŠӠ٠ٮӠϠŭĠˮT"; -(A$-2(A$)3Ā--<(A$)2739303-F9-PC-Z1000I-dl-n20:"":20:"RUN RENUMBER":T"&";z$"&";4);"COPYRIGHT 1980 APPLE COMPUTER INC";40);"&";.::8BTT)"CONTENTS"PT)"PAGE 1 " L"PAGE TITLE "2,"CAN USE THIS MEMORY FOR THEIR OPERATION.";_,"THEREFORE FOR MAXIMUM USEABLE MEMORY,","USE THE HOLD FILE ONLY WHILE MERGING","PROGRAMS.",3860,1000, 536443710 4APR80, ,24-"PRESS SPACE FOR MORE, ESC TO RESTARRENUMBER IS PROBABLY INTACT."L+:" THE INTENDED USE FOR MERGE IS TO"x+"BE ABLE TO INSERT SUBROUTINES INTO A"+"PROGRAM FROM A SUBROUTINE LIBRARY."+:" THE 'HOLD' FILE IS A SEPARATE PART","OF MEMORY. NEITHER BASIC NOR RENUMBERUSERS, DO NOT USE 'MAXFILES'"I*8"AFTER RENUMBER IS IN, DOS WILL WRITE"_*B"OVER RENUMBER."i*L3860*VTT)"NOTES"PT)"PAGE 16"*`*j" TO SEE IF RENUMBER IS OK, TYPE"*t:"& INC 0"*~:" IF YOU GET 'INCREMENT = 0' ERROR,"+""RENUMBER WILL RETURN TO BASIC COMMAND"9) "MODE, ']'."i)::" RENUMBER IS ABOUT 2K BYTES LONG")::" RENUMBER MAY TAKE UP TO ONE")"MINUTE TO RENUMBER OR MERGE A 16K BASIC")$"PROGRAM. DO NOT HIT 'RESET'!!!"*.::" DISK IF X=0 THEN 250'"( ( J( :" RENUMBER WILL NOT RENUMBER ANY"w( "REFERENCE THAT IS A PART OF A REMARK."( 3860( TT)"NOTES"PT)"PAGE 15"( ( " RENUMBER COMMANDS MAY BE PUT IN"( "BASIC PROGRAMS, BUT ON EXECUTION "') ES"PT)"PAGE 14"'> ='H " RENUMBER FIXES LINE NUMBER"d'R "REFERENCES IN THESE STATEMENTS;"r'\ A10:B20'f :A)"GOTO"B)"ON...GOTO"'p :A)"GOSUB"B)"ON...GOSUB"'z :A)"DEL"B)"LIST"' :A)"RUN"B)"THEN"( :" 'THEN' AS IN '7 M:13);"READING"(-bMDE$"DATA":41555?-MD$;"OPEN ";F$TY$V-MD$;"READ ";F$TY$n-M18500: GET RECORD- N:D$;"CLOSE ";F$TY$-NME$F$" RETRIEVED"-N-O **********************-LO *** DELETE INDEX ***-O IMPORT:EX,FT$(LE)-P.FL$(L)C$',K19050: END WITH RETURN-,2K3,dKP,K **********************h,K *** LOAD FILE ***o,K {,,LEC$NU$,LCF$"SHOULD BE":15700: GET FILE NAME,L(EC$"ESC")ME$"CANCELED":20200,L(ME$NU$)ī20200,&M17200: WAITMESS-X$+JGME$"SAVED AS: "F$0+|G13250: ADD INDEX6+GP+H *******************i+DH *** GET RECORD ***+H EXPORT: L$(T),ED$+ I+>IED$NU$+I(ED$"EOF")ĄT+I(ED$"EOF")ī19300+JL1T+8JL$(L)NU$+jJC$+J(C$RE$)ī19250 ,JL$(L)LOWED":184004*E(EC$"ESC")ME$"CANCELED":18400K*E(ME$NU$)ī18400b*E17200: WAITMESSx*F:13);"WRITING"*(FDE$"DATA":41555*PFD$;"OPEN ";F$TY$*FD$;"WRITE ";F$TY$*FOU$"DISK":11250: PUTREC +F:D$;"CLOSE ";F$TY*** )bC)C12/)C" PLEASE WAIT"5)CQ)*D *********************i)\D *** SAVE FILE ***o)D{)DEC$NU$)$E(T0)ME$"NOTHING TO SAVE":18400)VECF$"SHOULDN'T BE":15700: GET FILE NAME *oE(LE1FL)(EX0)ME$"NO MORE "PR$"S AL"OVERWRITE ";F$;"? ";:K$:(K$"Y")ME$"CANCELED"?((K$EK$)EC$"ESC":16750Z&?(K$"N")(F$NU$)ī16500}&H?::"ENTER A ";PR$;" NAME: ";&z?WR$"NOWRAP"&?LN16:FC32:LC95:660: GET LINE&?(EC$"ESC")((T$)0)EC$"ESC":16750&@F$T$:C$(F$,1)\'B@((C$ FOR NO EXIST%Z%N>EC$NU$:ME$NU$%>OU$"DISPLAY":13850: GETINDEX&>(F$NU$)ĺ::"DO YOU WANT THE")ĺFT$(F)"$9(FT$(F)"0L")LEF($:_$4:(LE1)(OU$"DISPLAY")ĺ"NO ";PR$;"S";" YET."::v$f::D$;"CLOSE ";FI$$:OU$NU$$:$: *********************$.; *** FILE EXISTS ***$`; IMPORT: FT$(LE)$; EXPORT: EX$; %(011250: PUTRECn R0E$ W0TY$".MES"āN1(PSTTM):E$: p0D$;"PR#0" 0E$NU$ 0PP$NU$ 0 1 ********************* 81 *** PUT INDEX *** !1 IMPORT-L$(L);E$F-((L20)L20)(PP$"PRINT")(OU$"DISK")İ16850::L-`.OU$NU$:NM$NU$fJ.|. **********************. *** PRINT RECORD ***./PP$"PRINT"D/v/E$LF$/(T0)ME$"NOTHING TO PRINT":12500" /10:8);"MAK(RETURN) WHEN FINISHED:":2*NM$"NUMBER":10000M*+LNSW:FC32:LC95:660Z\+L$(L)T$`+}+ **********************+ *** PUT RECORD ***$, IMPORT: L$(T),OP$,,MA$NU$-(OU$"DISK")ĺTP-L1T-(NM$"NUMBER")İ10000 .APT" =o1=o *** DELETE OLD APPOINTMENTS ***A=pN111::q=&p"SO THAT PAST APPOINTMENTS CAN BE ERASED,"w=Dp=Np"PLEASE ENTER THE CURRENT DATE: ";=pGD$"MM/DD/YY"=pFV(1)1:FV(2)1:FV(3)61>pLV(1)12:LV(2)31:LV(3)99:26500: DIGIT FEAD CALENDAR DATA *****b(ME$NU$)ī2640064*] EXPORT: GI$4] #4]EC$NU$/4$^GI$NU$R4V^(KE$"*")GI$"GOT IT":245504^(FU$"ORDER")(K2$KE$)GI$"GOT IT":245504^(FU$"ORDER")(K2$KE$)ī245504^L04_LL14P_L$(L)KE$GI$"GOT IT":245504_(LT)ī243504_FU$NU$:5A":415553[(36[D$;"APPEND ";F$TY$@3h[D$;"WRITE ";F$TY$O3[OU$"DISK"c3[11250: PUTREC{3[D$;"CLOSE ";F$TY$30\ME$"APPENDED TO "F$" FILE"3b\3\ *************************3\ *** KEY/ORDER MATCH ***3\ IMPORT: KE$,L$(T),FU$ ";F$TY$!2YD$;"WRITE ";F$TY$92BYD$;"CLOSE ";F$TY$P2tY13250: ADD INDEXf2~YME$"CREATED "F$2YEX0ME$"CLEARED "F$2Y2Y ********************2 Z *** APPEND RECORD ***2D}MDMD1:CO$NU$aD,~MD$(MD):MD10MD$"0"(MD)D^~F$"C"(YY$,2)MM$MD$:15150: EXISTSD~MD9S3D~MD9S4D~(CP$"PRINT")(EX0)N1:CO$":"D&SN);DXEX0Ğ ECONEXT MONTHCp{C{5C{ *** DISPLAY CALENDAR ***]C{CP$"PRINT"ĺ:D$;"PR#";PS$:E$LF$}C{DWWD: SAVE FOR FUTURE REFC|:E$:E$C8|16);MN$(MM);E$:E$Cj|D17C|3);(DN$(D),2);C|C}E$D2}"--------------------------------------KDAY COUNTER-BJy COUNT UP TO SELECTED MONTH5B|yM0?ByMM1RBy(MMM)ī31700rBzMD0: DAY OF MONTH COUNTER~BDzMDMD1BvzWDWD1BzWD7WD1: START WEEK OVERBz IF MONTHDAY < MONTHSIZE(M)B {MDMS(M)ī31300: NEXT DAY C>{MMMī31150: 1960.Av 28 #'S IN SEQUENCE, SEE LINE 44100KA$w(YI28)YIYI28:30500XAVwCAC(YI)rAw FIND THE MONTH NAMEAwMO$MN$(MM)Aw IS IT A LEAP YEAR?Ax(CA7)MS(2)29Ax FIND THE FIRST DAY OF YEARAxFDCAAx(CA7)FDCA7 ByWDFD: WEE GETDIGITS"@tEC$"ESC"ī35900@@0uMM(FE$(1)):YY(FE$(2))Z@buMM$FE$(1):YY$FE$(2)@u:10:13);"HOLD ON"::10);"I'M COUNTING..."@u@*v@\v@v **** CALCULATE INDEXES ****@v FIND CALENDARAvYIYY1959: SEQ OF CAL #'S STARTS AT;?rCP$:CP$EK$ī359006? sCP$"P"CP$"DISPLAY"O?qEC$"ESC"ī35900A>HqF2$"C"(FE$(3),2)FE$(1)FE$(2)W>zq13850: GETINDEXt>qX1: FOR EACH APPT FILE>q(XLE)ī29300: NO APPTS ANYWAY>rF2$FT$(X)F$FT$(X):21150:29100>BrXX1:29150>tr:1:12?r"DISPLAY OR PRINT (D/P)? "******** ] *** MENU DATA ***0]ҥ MAIN MENUP] 7,"WRITE MEMO (W)"r]6 "CARD FILE (F)"]h "APPOINTMENTS (A)"] "CALCULATOR (C)"]̦ "HARDWARE TYPE (H)"] "INIT DATA DISK (I)"^0 "QUIT -BOOT."X\:"IF YOU KEEP GETTING THIS ERROR, YOUR":"DISK OR DRIVE MAY BE DEFECTIVE."c\41900\"THERE MAY BE A PROBLEM WITH":"YOUR COMPUTER'S MEMORY."\"ERROR CODE: ";ER\ޣ"AT LINE NUMBER: ";(218)(219)256\<]n *****************N ECOUNTERED":"BY DESKMASTER."::>[\ER$"COMPUTER"ī41880m[f"THIS PROBABLY MEANS THAT THE WRONG DISK"[p"WAS IN THE DRIVE AT THE WRONG TIME, OR"[u"IT WAS WRITE PROTECTED, AND SHOULDN'T":"HAVE BEEN."\z:"RE-INSERT THE PROGRAM DISK AND RE LINE NUMBER$Z(ER5)ED$"EOF":DZ (ER9)ME$BE$"DISK FULL"aZ%(ER16)ER$"COMPUTER"Z*ME$BE$"DISK FULL"ER22ġ:41770Z4ME$BE$"DISK FULL"ī2110Z>ZCER$"COMPUTER"ZH(ER16)(ER0)ER$"DISK"#[R"A ";ER$;" ERROR HAS BEE(DK$"PROGRAM")(DE$"PROGRAM")ī415957Y]:N17::cYb"INSERT THE DESK MASTER ";DE$;" DISK."vYx16850: PAUSEYy41557Y{Y} **************************Y **** ERROR HANDLING ***YER(222): ERROR CODE ZEL(218)(219)256: GETXED$"EOF"ĄT"XD$;"CLOSE"8XꡭED$"EOF"İ21150>X]XN ************************yXS *** CHECK DISK ID ***XTDK$"NOID"XU:D$;"OPEN IDENT.DM":D$;"READ IDENT.DM"XVDK$:D$;"CLOSE IDENT.DM"XW(DK$"DATA")(DE$"DATA")ī41595&YX00: NUMBER MARGIN#WNM$"NUMBER"IWğWR$"WRAP":LNSW:FC32:LC95:660VWL$(T)T$mW(EC$"ESC"ī40800sWZW ********************W *** DELETE EMPTY DAY ***WȠDE$"DATA":41555W:D$;"OPEN ";F$TY$W"ED$NU$WTD$;"READ ";F$TY$CF$"SHOULD BE":PR$"FILE":15700:PR$"CARD"QVEC$"ESC"ME$"CANCELED":40600fV4ME$NU$ī40600~Vf23050: APPEND RECVVʞ **************************V *** APPEND LINE ***V.V`TBSME$"BUFFER FULL":41050VTT1:LTW100C"ī40100UD(FE$(1))&UܛNDT18UL$(N)L$(N1)>U@HUrTT1NUhU֜ *******************U *** ADD RECORD ***U:NM$"NUMBER":6800Ul::"WOULD YOU LIKE TO CHANGE THIS? ";:K$:(K$"Y")İ37450UK$EK$ME$"CANCELED":40600,VН5 T660T L$(I)T$:TT1'TRII1=TEC$"ESC"ī39450NTTBSī39000jT虭TBSME$"BUFFER FULL"pTTL ***************************T~ *** DELETE LINE ***TT⚺"LINE TO DELETE ";TGD$"NN":FV(1)1:LV(1)TTF26500 UxEC$"ESNSERT A LINE ***S;S,(TBS)ME$"BUFFER FULL":39450VS^"LINE BELOW INSERT ";zSGD$"NN":FV(1)1:LV(1)T:26500S—EC$"ESC"ī39450SI(FE$(1))S&SXLT1I11:L$(L)L$(L1):SNM$"NUMBER":10000TWR$"WRAP":LNSW:FC32:LC9 SPACE IN BUFFER":37650(RԔ1:39):1BRK$"C"İ10300:37650\R8K$"I"İ38600:37650vRjK$"D"İ39550:37650RK$"A"İ40700:37650RΕ(K$EK$)K$NU$:38500RME$"CHOICE NOT ON MENU"R237650RdR *******************SȖ *** IQ|QEC$NU$:Q(T0)ME$"NOTHING TO CHANGE":38500@QDaQvME$NU$ĺ"*** ";ME$;" ***"pQME$NU$ĺ|QړME$NU$Q ::Q>NM$"NUMBER":11250: PUTRECQp::"CHANGE, INSERT, DELETE, APPEND, ESC? ";:K$R(K$"I")(TBS)ME$"NO MOREPOU$"DISK"uER$"DISK"?uER0ER15ER$"COMPUTER"DuER$"DISK"ĺ"DISK ERROR. MAKE SURE THE PROGRAM DISK":"IS IN THE DISK DRIVE, AND RE-BOOT.":#NU$ pNC0zNCC1:C$:N(C$(27))EC$"ESC":20250ZN(C$(13))ĺ41C);:20250N(((C$)FC)((C$)LC))(C$(08))CC1:20090N(C$(08))(C1)ĺ;:20060NC$;N(C$(08))(C2)ĺ;:20060N(C$(08))(C2)CC2:T$(T$,C)0"LIKE HELP, TYPE COMMAND AFTER COLON":6RX *** ERROR ROUTINE ***Xb{lME$"ERROR IN EXPRESSION":300N ******************** N *** GET STRING ****N CONST:CW4N IMPORT: LN,FC,LC>N EXPORT: T$,EC$HN\NEC$NU$:T$N")"POFF......... TURNS PRINTER OFF"W"LIST......... LIST VALUES OF VARIABLES""CLEAR........ ERASES ALL VARIABLES""HELP......... LIST THESE COMMANDS""EXAMPLES1.... SIMPLE CALCULATIONS""EXAMPLES2.... VARIABLE ASSIGNMENTS"C$"Z")TP$"ALPHA"F((C$"0")(C$"9"))(C$".")TP$"NUMERIC"(C$")")(C$"(")(C$"+")(C$"-")(C$"*")(C$"/")(C$"=")TP$"OPERATOR" ******************p:5);"LIST OF COMMANDS"z"PON.......... TURNS PRINTER ODE$"PROGRAM")ī2670%F :N17::PP "INSERT THE DESK MASTER ";DE$;" DISK"bZ 2500: PAUSEld 2590rn x ************************** *** DETERMINE CHAR TYPE *** IMPORT: C$ EXPORT: C$,TP$TP$"BAD CHAR"(C$"A")(IT ANY KEY TO CONTINUE...";# K$+ :1 M *********************i *** CHECK DISK ID ***x DK$"NOID" :D$;"OPEN IDENT.DM":D$;"READ IDENT.DM"( DK$:D$;"CLOSE IDENT.DM"2 (DK$"DATA")(DE$"DATA")ī2670< (DK$"PROGRAM")( ::::::::::"hrN1LE5|N$(N);"=";V(N);E$;Ad *** EMPTY OPERATOR STACK ***jzTP0ī2080NTP11S$(TP)"("PP1:P$(P)S$(TP) TPTP1  ****** WAIT FOR RESPONSE ***  :: "H)NU(I$(3))?(I3)(TP$"ALPHA")ID$I$(3):1400: GETVAL^(I3)IB3:1000: POSTEX{ID$I$(1):1300: PUTVAL"@ *** PRINT CONTENTS OF ALL VARIABLES ***JT:YLE1ĺ"NO VARIABLES SET":1699 ^":::::::::: SET VARIABLES**********TURDAY"&c ************************RURDAY"Oc ************************Rc "AUGUST","SEPTEMBER","OCTOBER"c> "NOVEMBER","DECEMBER"cp "SUNDAY","MONDAY","TUESDAY"c "WEDNESDAY","THURSDAY"cԭ "FRIDAY","SATURDAY" d **************IDAY","SATURDAY"/b ************************R"Nbԭ "FRIDAY","SATURDAY"mb ************************R"AUGUST","SEPTEMBER","OCTOBER"b> "NOVEMBER","DECEMBER"bp "SUNDAY","MONDAY","TUESDAY"b "WEDNESDAY","THURSDAY"cԭ "FRIDAY","SA8,3,4,51av 31,28,31,30,31,30,31,31,30,31,30,31Ta "JANUARY","FEBRUARY","MARCH"vaڬ "APRIL","MAY","JUNE","JULY"a "AUGUST","SEPTEMBER","OCTOBER"a> "NOVEMBER","DECEMBER"ap "SUNDAY","MONDAY","TUESDAY"a "WEDNESDAY","THURSDAY"bԭ "FR#` "ERASE CARDS (E)"F`J "PRINT CARDS (P)"g`| "QUIT (ESC)"` *********************`૲ **************************` ** PERPETUAL CAL DATA **aD 13,1,2,3,11,6,7,1,9,4,5,6,14,2,3,4,12,7,1,2,10,5,6,7,C)"_V CARD FILE MENU4_ 6,"CREATE FILE (C)"R_ "ADD CARD (A)"o_쩃 "FIND CARD (F)"_ "DELETE FILE (D)"_P "LIST FILES (L)"_ "QUIT (ESC)"_ CARD FILE FIND MENU`檃 4,"DISPLAY CARDS (D)" (ESC)"^b MEMO MENU<^ 8,"ENTER MEMO (E)"Z^Ƨ "CHANGE/VIEW (C)"v^ "PRINT MEMO (P)"^* "SAVE MEMO (S)"^\ "RETRIEVE MEMO (R)"^ "DELETE MEMO (D)"^ "LIST MEMOS (L)"_$ "QUIT (ESĠĠàɍ԰ԲӍàɍ԰Բ΍à֍԰ĽŽԱԲĵµ٠Ӎ԰ԱӠ٠ԱԱԱԱԱԱ٠ԱԱ®٠̠Ҡ̠ө԰ԲӍč԰ĽŽԱ®Ӡî٠ԱԱԱԱԱԱ٠ԱԱ®٠Ӎ԰΍ԱԴƠ莼ԵԷ®Ů٠ٍ԰Բҍ԰΍ԳԱƺóIJҍ԰΍ԳԱƺóӍ԰ӍԱԱӍӍ԰΍ԱԴƠĠōԵԷ®ŠĽŽԱƮӺýĵŠ͠Ӎ԰ԲĽŠ͠΍԰ԲӺŠҠɍ԰΍ԲԴӍӍԱóˠٍ԰΍ԲԴӍӍΠӍ԰Բ΍Դý ŹIJàԍ԰ԲƠŠ ƍȍ԰½ƠĽŽƽðĠñòôõĵö÷øùˠٍ԰Բ½ˠҍ԰ԲκĽ ҠĠӠˍЍ԰ԵӍԶԲ΍ ҠҮ԰΍ԱԵӍԶԲ΍ԲĽĠōŠӠˠɍˠРΠɍ԰ĽŽԲԲӺýĵƍ؍԰ԲӺԳӍԵԲӍ΍԰ԲӍ#8172,96 <#8173,1! A#8175,1- [#8176,29 \#8177,0G n#8187,150U #17436,76c #17437,50q #17438,68} T$7678,0 u THANK YOU DE-PROTECTO!8175,1 8176,2 8177,0, 8187,150; 16454,234J 16455,234V L8189,0c V8190,60o `8191,0| @8174,96 J8172,96 T8173,1 Y8175,1 s8176,2 t8177,0 8187,150 5184,234 5185,234 4!8189,0 (#8174,96 2KEY = NONE"'  "MEMORY END/256 = 150"F "ADDRESS EOR MARK = NONE"m  "GAME PADDLE OPTION NOT INCLUDED"  "NO SPECIAL INTERFACE DRIVER LOADED"  "PRINTER INITIALIZATION CHARACTERS ="  "2"  "0" X8174,96 b8172,96 l8173,1 qc27904,9632512,96+32512,969532512,96G32512,96i " BASIC = APPLESOFT" " MASTER SLOT = 6" " MASTER DRIVE = 1" " TEXT SLOT = 6" " TEXT DRIVE = 1" " SPOOLER = NONE" " SHIFT ," "B!à ": TOTAL=A+15"," ",": TOTAL", " 30"F " 30" IuER$"COMPUTER"ME$"MATH ERROR"8 NuER22ġ:30030A Xu300_ Pà "SIMPLE CALCULATIONS: "m Zà " "," " dà ": 2+2"," 4"," ", ": 5*5"," 25"," " nà ": 2+ (8/2)"," 6" à "ASSIGNMENTS: "," "," ",!à ": A = 15"," ",": A"," 15"`  Fح I L f` Q Q 9 ` "  C 劢  ;  IL$ !9 WRP K 6  m     0 쉐       ɲ*" #$       t r D ɱ  ߊ ɵ#ɲ  fLL g fL f Q `   `Ln m ʢ`Ld l Q  , 0 d  rLA  r GLd  r  y Q  I`  ɳɱ6 ̢` , ߏH h9`  助 L? LB lLD  r ߊ y LD  r ߊ  ɱL  r Ld 0 r L  r ߊ ҠҠƠӠҠ Ǡ / X g > " ` X  r b        0 L ] b ɺɻ J Ld X ) ʽ+Hʽ+H` L r +LƠƠƷҠԍ԰ԲĵĠō԰Բ΍à׍԰Բƽàҍ԰Բƽàč԰ԲƽҠӠӍ԰Բ΍ҍ԰ԲӍҠĠ΍԰ԱӠ٠Šҍ԰ԷӍԹԲӍԸý ŹIJō Šٍ԰Բҍ԰Բ΍ԳƠΠԠҍ԰ԲӺҠԱԱōč΍ŠӠ΍ӠŠӠ̍԰ԵӍԶԲ΍Ӡƍ԰ԲκŽµӠӍ԰ԲӠԱŮӺýĠĠΠɍ԰΍ԳԲĴµԱºý ŹȭԲŽԳý IJĠŽƍΠ΍԰΍ԱӠ٠ԲΠ٠Ġȍ԰ԲĽŽ΍԰ĽŽӍŠӠӍàԍ԰ĽŽԱԳ ĵԴԶԷ®ĺĴĵŮԱĠµōҍ԰ΠԠĢԢϠ̠ŠҠĢԢҠΠӠԢԢŠԍЍΠԍԢҠŠԢԠԠԢԠŠԢҠŢԢԠ٠ŢԠ٠įԢӠҠˠŢԢŠŠűűŸŸŸŠŠŠŠŠŠԢàԢԠҠԠų͠ˠՠŭϡŸŸŸŸŸŸŠűűŵŵűЍĠвŸŸŸŸŸŸŸŸŸŸŸŸųŲųų  ?<=8 A A 8BC ,8  L̄`8` '? 쉰80 쉰1& 0& & ֱ0) 쉰0` ' 0   F`8`' ( ɲ ) * k8 , ` u 8 ح Э к  8` F` ' 쉰H00, 쉰50, 880 )Lq, г` ' 쉰&0  )`    0 p i ڭ > > m= ɖɫ `= `= ? ʆBeiLK0B  ' 쉰K8  ̉0)`` ' A0  *` ' 쉰&0< 0 쉰0  쉰0` ' 쉰&  쉰0) 쉰0` ' 쉰;0 D 8@ @ 0 )L@ ` ߂0 ߂͆  轆  )L  hh```8  J (j`  ``܇p΁,\΃4Y @fffjnrvz~ '4 5 ` ȱ4 5 ee`4 5 )`  ` ' 쉰 03  9`1׀ڀ  @ J(* H  πр! jɰ݀( `( hLn ݌8  =< ݌$=Hhꝍ݌L$L8j<齎 hԠȮ  ɍ7B  ;"B )MC m  L ɍB `hh8`) B ɍT )MC  ; )MC B ɍ )MC ` `Z8`l6Lş_Ȍb_Ͳ] )Y h(ee`FG8`0($ p,&" ߊ q ɲ  Î  L+ Lb ԠȺ ٠Ƞ͠ ٠Ƞ͠Ҡ îΠϠΠ ȺŞ Q`  !   Uȩ+ݍ `   Ս( ;` : ɛ `` ɫ ɫ驮 m Lded Ob c8d1I i bb 8  c  b  )* S | |8#i((ͼͽ L5HJJJ h) e)i) ((' (`81*j( jf(Hehi `נˠĠ @ S` l   8鰍 l ,W,S,P X [$  Q    J Ȍ!  Ս( ;?ɛ%ɛ??L, ߊ L>8>? >?8>? >?ξLgɠ  1 32 0 H# 3h 3 LP" 3 +<=  Ì<=  ÌL LF ɲL  ɳL  J 1 > 00 I` 3`  8   8 ̉ ̉  !      LQL{Q  "L~ 0LжL ɲ! ɳ  ! LP iee 3LP81 8 8 8큉 L ɲɳ7Lh  D    O   ɱ  fLbɴ ɵL}ɶLɲLL < =  Ìm  쉰0 쉰  ߩL i A b L A 7 LS i Ls ɲ  ɳ f m Ls9` "LN U ` Ld 3     ɲL H ɲV .ɳhLG  芑hb LL+  $  3LL ɲL9` ; ! ɳL  ɳL ( f  L ` ɲ"   8 6  אLL6 i`8 א8 8   H ( )Lɉ ρLɆxF ,ɛXɰT[W)e`ea0` .'`LF``)(a) 3 L . ɓ ߊ KLɁ _LL`0?2 $JJJJ ŕ) ɺi%2(Ȅ$``-"() 8(())a L퓠8` a   8` a    LɭɽR`a )8` a   8` a     L,R,W,P,,QLɅ?` a ` ` a`)8鈍(a .LLj `+ ,ɚ Lɛ+` Lɠ ƖL ɍ + +и +)+Lݓ 0`  &`L +*` (j` L  ֕LɈ Lɕ ƖL LɫɻoJa`[ȑ`,ɚ L`)` L` `Ɏ  Lɼɬ ֕0 `)a Lɾɮ 0` aɂ)` a Lޑ `)( )a 3Lɛ XLɨ8 ` a0+` a Lɩ 8` a 0 ` a L j !0 8 j*)8 :8h` 3L8(p)0 p()`a$" [(`)a a8 ` (ȩ(ȑ(Ȅ$a` S a` d `a`)ť%* bLe`a` X#*(` )a J ` ɲ9" 2 " ` `  `  ! `LL؅   < Ldɽ Y Ld`LHl `8`)m,(`H .  hj0 ` l 'L쉩` D  J ` J D) qLb JLx8` >0 >``hh !l   ̏`   ` )` Î >` ԏ ɮ ȹɵ$ [hL Iɱ ɚ ɛLs H b b<@ =`>=i?> > % 9` ` 6  ' 쉰  L`% 2 ɲ% L / ,  H(, P )? Ld h Ld`     Y7 1Q/  0  ɲ #   ; `  `  8``$pڱ`e8 ELE8 L9` L ߊ @  `L ɛ00 0Q0͊i i $8`` XLb !  Q σ߃H߃h` ̉0 쉤 F`HH)JJJh)*h)`` a `)(a)` ߊ O $ ԏ  : :L3 )? 3 )? )Hʽ)H` 5 ߏ H ߏ  Y ߏ  ` 8``ei`0`88 F`8` ' 쉰+0  0 0ݠ  쉐`م    -`   ȹ ` ԏ`?i aLRL   ̉0  `Ȍ Ȭ `߃H߃h ЭCթ w   w i 0  L        8   3  F` !߅ w w i  F  ` 38` ' 쉰0 D B C_ 8 , Q   =i?B>< =?C8   kL`  0 :  8 B CBC`??B00>8 > ?å> ?   Q`  !   Uȩ+ݍ `   Ս( ;` : ɛ `` ɫ ɫ驮 m Lded Ob c8d1I i bb 8  c  b  )* S | |8#i((ͼͽ L5HJJJ h) e)i) ((' (`81*j( jf(Hehi `נˠĠ @ S` l   8鰍 l ,W,S,P X [$  Q    J Ȍ!  Ս( ;?ɛ%ɛ??L, ߊ L>8>? >?8>? >?ξLgɠ  1 32 0 H# 3h 3 LP" 3 +<=  Ì<=  ÌL LF ɲL  ɳL  J 1 > 00 I` 3`  8   8 ̉ ̉  !      LQL{Q  "L~ 0LжL ɲ! ɳ  ! LP iee 3LP81 8 8 8  L ɲɳ7Lh  D    O   ɱ  fLbɴ ɵL}ɶLɲLL < =  Ìm  쉰0 쉰  ߩL i A b LԠȮ  ɍ7B  ;"B )MC m  L ɍB `hh8`) B ɍT )MC  ; )MC B ɍ )MC ` `Z8`l6Lş_Ȍb_Ͳ] )Y h(ee`FG8`0($ p,&" ߊ q ɲ  Î  L+ Lb ԠȺ ٠Ƞ͠ ٠Ƞ͠Ҡ îΠϠΠ ȺŞ Q`  !   Uȩ+ݍ `   Ս( ;` : ɛ `` ɫ ɫ驮 m Lded Ob c8d1I i bb 8  c  b  )* S | |8#i((ͼͽ L5HJJJ h) e)i) ((' (`81*j( jf(Hehi `נˠĠ @ S` l   8鰍 l ,W,S,P X [$  Q    J Ȍ!  Ս( ;?ɛ%ɛ??L, ߊ L>8>? >?8>? >?ξLgɠ  1 32 0 H# 3h 3 LP" 3 +<=  Ì<=  ÌL LF ɲL  ɳL  J 1 > 00 I` 3`  8鸍ȠՠˠՠōΠՠƍǠՠԠՠ̠ԠΠϠàӮޠҠڠԍޠՠčԠ΍ՍԠƍðՠñՠԠՠȠՠРՠ͠ՠȠՠ֠ՠ̠ՠȠՠ̠ՠаҠ؍ͫԠƍؠ͍бӠ΍֍ؠбҠ؍ūؠŠˠРͬōӠޠŠŠӠ֍àލޠҠаȍбҠčύРŬōؠааؠбàбčύРͬōаРбŠбލаРбѠލбޠаؠ[ЍԠƍύƠŬϮҍабабčύԠǧ٠ލލҠōРލޠàаˍޠՠčύ٠¬d6?e`$q`$q"PbE()[?d2e?Pa(Ԡ)Gd8.?)r.?(rre`[ `%[ `%[M6`@*#r9()%c1a(Ԡ)E@E(ˠĠӠ)GR@ M6 'ENABLED' ACCUM,VALUE (ź)Gqq\[Fq.?6@r`$Pd2e?a()Gd2ea()G^M]ŠhoPa()r`.?r$9|od2e?a(ŠϠŠ)_3od2e?a(ŠϠĠ)hod2ed6?ecS(ϠՠoPa()`.?r$"`$J]ԠԠ&,@p()\]ԠР-6oPd2e?a()d2e5@a(Ԡج)FE()FE()F.?rq_T&J@p()\]ԠР4To LŠӠŠ  $ [ ͵6 F LOLd\ Ld ɛɉЫ` X  Z$ [ک LŠԠȠ$ [    $ [ 8$1 L9$ [ T , $ [] LgӠQP  $ [   $ [   `QFP``ȌȌ DʎEDE0EʦD džƭˮ ɆȦƥɰːI   DEDE0EʦD džƭˮ ɆȦƥɰːI  0 DEL`$ [ …$ $ [ (8$   (F X  $ [0 LQĠŠҮŠϠ ` x     ɛ ɉ  L` + 8#PQT \ HEQQhEPiPQiQ `T \ P PeP` + ePPʽeQQ 8jT \ `  L  4 ` X$ [* L1 < `7 X$ [M LT $ [g LoǮ $ [ Lɠ $ [ LϠ$ [ҩ L߰߫ Š٠ L/ĠԠӠŮ  ɛɉ W I`݌HhHhHhꝍ݌HhHh꽌 L$JJJԠԠ$ [Q L`ԠԠ$ [s L}$ [ L$ [ L`F > -  U LH)h)     `` `ˣ٠Ơ͠ԡ#    "Ӯ͠ Ӡ Ԡ׮Ӡ7" ­Ӡ !ˠԠĠˠԠРOҮ͠^Ԯ͠ ˮ͠ î͠!Ԯ͠ϭàǠӠ Ҡ ҠҮ'˴! ϠԮ͠ ժժժՊժՀժՊ T@PPPTPPժ@Պ ժՀժՊ ժժժ D@@@@ժՀժՊ  ժժժՊժՀժՊ ժժժՊժ@Պ ժժժՊ ժժժ ĈժժժՊ  ժժժՊժՀժՊ ժժժՊ@@@@ժ@Պ ժժժՊ ժժժ @D@@ժժժՊ  ժժժՊ*ժՀժՊ ժժժՊQ :::255:"DISK #05B FOR APPLE ][C ... READY!"O:FR(0):FR0:ժЪՊ ժՀժՊ ժժժ P@@P@@ժЪՊ  ժժժՊժՀժՊ*ԂЂЂЂԀЂЂժ@Պ ժՀժՊ ժժժ ĀժԪՊ SYNTAX ERRORLINE NUMBER TOO BIGLINE TOO LONGOUT OF MEMORYBAD INCREMENTNO PROGRAM IN MEMORY &INDENT, &UNDENT, &RENUMBER INSTALLED LȪ`樥sthhL`EȱEi樠 ȱȱ`ijEȱEi椠`͔H h`:808`/j? ,i8嫅ijjȱ8e朠ȱȱLhhLԢ KƔFg: PQȄ  zst lL<Ԡ؄ 7RLIU& gh,,,L oC ֠ Bȱȱ C, Ȇ BЧ YО ДДȘH      ժժժ ЂЂժЪՊ  ժժժՊ*ժՀժՊLINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&M" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM CONTINUE (Y/N)?SYNTAX> 63999LINE TOO LONGINCREMENT = 01978 APPLE COMPUTER INȪ`樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIFee'Lѥȥ񥰶NO PROGRAM IN MEMORYNO ` Lӆ Ԇ8stijRLghLABCՆ>ֆ?sȥ Ȫ͆0 ҅ >&eee膝 & &ghȱ y y;L ۥghij L L  ͆0 ҅ >&eee膝JJJJ)ŝƝLpƞߥ ,LLL )WHLC L , Ɇ ɀL  , ҅LзLgş堰G L & & & .ee'Lѥȥ񥰶Ls 8tit8sB@tCtABCB>?><>=?>BPݱ>BL@ /@i ipm@8e@@AiA8ϥ_^8LKLKꤸ ML#gA$ (A$)3Ā% (A$)13220Q :4)"RENUMBER IS INSTALLED AND READY" 8:"IF YOU USE 'FP', 'HIMEM', OR 'MAXFILES'" :" YOU WILL HAVE TO RE-RUN RENUMBER" ' DO NOT CHANGE 10010 '(121)(122)256316yi<>zi=i?:"& HOLD"[H:" NEXT, LOAD THE SECOND PROGRAM."R"YOU MAY RUN OR RENUMBER THIS PROGRAM"\"AS NEEDED."f:" THEN, TO MERGE THE TWO TYPE"p:"& MERGE"z3860TT)"MERGE"PT)"PAGE 7 " 39 PRINT A"2"99 RETURN 45 RETURN"<3860ZTT)"MERGE"PT)"PAGE 6 "`" THIS PROGRAM CAN ALSO MERGE" "THE BASIC PROGRAM IN THE HOLD FILE TO""TO THE BASIC PROGRAM IN MEMORY." *:" FIRST, LOAD THE :"1 INPUT X 1 INPUT X"N"2 IF X<1 THEN 1 2 IF X<1 THEN 1"{"3 ON X GOSUB 39,87 3 ON X GOSUB 39,30""27 END 27 END""39 PRINT A 30 PRINT A * A""45 RETURN 35 RETURN""87 PRINT A * A TO RENUMBER PART OF A PROGRAM,"GX"YOU MUST SPECIFY WHICH PART BY"rb:" START SETS THE FIRST LINE AND"l" END SETS THE LAST LINE TO BE"v" RENUMBERED":"& FIRST 30, START 87, END 99":"OLD NEW"$"/"3 ON X GOSUB 39,87 60 ON X GOSUB 65,75"T"39 PRINT A 65 PRINT A"x"45 RETURN 70 RETURN""87 PRINT A * A 75 PRINT A * A"&"99 RETURN 80 RETURN"03860:TT)"RENUMBER"PT)"PAGE 5 "D!N" THE STEP TO THE NEXT LINE"2" NUMBER"c:" YOU CAN SET THE NEW FIRST LINE AND""LINE INCREMENT TO ALMOST ANY VALUE.":"OLD NEW":"1 INPUT X 50 INPUT X""2 IF X<1 THEN 1 55 IF X<1 THEN 50$h"45 RETURN 60 RETURN"Mr"87 PRINT A * A 70 PRINT A * A"q|"99 RETURN 80 RETURN"{3860TT)"RENUMBER"PT)"PAGE 4 ""& FIRST 50, INC 5":" FIRST SETS THE FIRST NEW LINE NUMBER"" INC SETSTEN AND GOING BY TENS."9,::"OLD NEW"`6:"1 INPUT X 10 INPUT X"@"2 IF X<1 THEN 1 20 IF X<1 THEN 10"J"3 ON X GOSUB 39,87 30 ON X GOSUB 50,70"T"27 END 40 END"^"39 PRINT A 50 PRINT A"" IT WILL DESTROY RENUMBER!"-3860NTT)"RENUMBER"PT)"PAGE 3 "T" THIS PROGRAM CAN RENUMBER ALL OR""PART OF A BASIC PROGRAM. BY TYPING":"& ":"IT WILL RENUMBER THE ENTIRE PROGRAM"""STARTING AT A R R N N I N N G G"P "W W A A R R N N III N N GGG "X 13{ " DO NOT PRESS RESET" :" DURING RENUMBER OR MERGE" :" IT WILL DESTROY YOUR PROGRAM!" :" ALSO DO NOT USE 'MAXFILES'"#:AGE 2 "6 Z"W W A RRRR N N III N N GGG "e d"W W A A R R N N I N N G G" n"W W A A R R NN N I NN N G " x"W W W AAAAA RRRR N N N I N N N G " "W W W A A R R N NN I N NN G GG"! "WW WW A ERROR MESSAGES"1 "13 OTHER MESSAGES"G "14 NOTES"] "15 NOTES"s "16 NOTES"{ 23 "PRESS RETURN TO RUN RENUMBER" "HIT ANY KEY FOR INSTRUCTIONS"; (A$ 2(A$)3Ā <(A$)133950 F PPT)"P"0 " 6 MERGE 14 USAGE NOTES"_ " 7 MERGE 15 USAGE NOTES" " 8 SYNTAX 16 USAGE NOTES" 1290 "9 INPUT SYNTAX" "10 ERROR MESSAGES" "11 ERROR MESSAGES" "12 PAGE TITLE " VI `" 1 CONTENTS 9 SYNTAX "w j" 2 WARNING 10 ERROR MSGS" t" 3 RENUMBER 11 ERROR MSGS" ~" 4 RENUMBER 12 ERROR MSGS" " 5 RENUMBER 13 OTHER MSGSm% RENUMBER*::255:TT15:PT34t"&";05);"APPLESOFT RENUMBER INSTRUCTIONS";40);"&";z$"&";4);"COPYRIGHT 1980 APPLE COMPUTER INC";40);"&";.::8BTT)"CONTENTS"PT)"PAGE 1 " L"PAGE TITLE                ϩЩBqFmL$nlkUL[¥L䰥Lqpo0jL?ХBts0r0ȥjL?8uLİLаꯍ믩쯩B%% "$ øˠź DS& d    ЊA0Lխ A eL˭ xw`пHJh*`ο$ȹϿȹпʿ̿ ` L䰩% "Ӎɿ Ҭ   L _$0I   G   6 d0Lխꯍw믍xwwx`ALVA$LVS х x ԍɿ Ҭ  6хȥ҅ɥv `x  $0 `+*xS&x'8*3Ixix&& 8 l ~' o ~& ~x)*++`FG8`0($ p,&"Ӎɿ`x Ҭ`x Ҭj)i % "$ ø٠8ҭ LBHhɛ  9,ɛLz`,ɛLzA X øWRITE`PROTECTEDlNgy-݌$HhHhꝍ݌0 0݌꽎`LH hjA($0  ժժժՊ ժժժՊ(U*U*U*U*ժЪՊ ժՀժՊ Y(SD1),EMT0ē140,95MX(59),MY(59):601JO140,95MX(MT1),MY(MT1)oYHR0ē140,95HX(59),HY(59):621c140,95HX(HR1),HY(HR1)m3w140,95SX(SD),SY(SD):SS(SO%)140,95MX(MT),MY(MT)140,95HX(HR),HY(HR)4810:MTMT1:MT60MT0:HRHR1:HR60HR0A MT12SD0HRHR1Y MT24SD0HRHR1q MT36SD0HRHR1 MT48SD0HRHR1 HR5(HR5)MT0SD0ĺ"" ZC0860: 'SD0Ē0:140,95SX(59),SY(59):581 10;140,95SX(SD1),S* DRAW HANDS ******+ MT48HRHR4:431C MT36HRHR3:431[ MT24HRHR2:431n MT12HRHR1 3:140,95HX(HR),HY(HR) 140,95MX(MT),MY(MT) 140,95SX(SD),SY(SD) RE$  ***** TIMER FUNCTION *****) SDSD1:SD60SDAV1.574.7(6.2860)0 #MX(AC)79(AV)140H -SX(AC)79(AV)140` 7HX(AC)40(AV)140w AMY(AC)79(AV)95 KSY(AC)79(AV)95 UHY(AC)40(AV)95 _91(AV)140,91(AV)95X(BC),Y(BC) iACAC1:BC(AC(62860)) sAV } ****.01 X(AC)95(AV)1401 Y(AC)95(AV)95B X(AC),Y(AC)N ACAC1V AVg AC0:BC0:2 AV1.574.7(6.2812) HY(AC)40(AV)95 80(AV)140,80(AV)95X(BC),Y(BC) ACAC1:BC(AC(62812)) AV AC00:BC0:3 ;MT' [MT0MT59MT(MT)ĺ"":81I e" AND BEGINNING SECOND:";SDn oSD0SD59SD(SD)ĺ"":101 y::"NOW, PLEASE WAIT WHILE I DRAW THE CLOCK FACE AND SET THE TIME ..." ZC12000:::3 AC0:HC0:MC0:SC0 AV1.574.70SO%16336M X(629),Y(629),HX(61),HY(61),MX(61),MY(61),SX(61),SY(61)U:}" THIS IS THE HOME-MADE CLOCK")::"ENTER BEGINNING HOUR:";HR3HR1HR12HR(HR)ĺ"":41=HR12HR0GHRHR5 Q"ENTER BEGINNING MINUTE:"     /~)𪽈~}"# X7ɦ L } L= b{ :U;<L}mz8~}L} :  z :kL}~L~)𪽈})𪽈=;< n~} X % L% Laɦ Lˍ :: :i )i )𪽀~M}) V(`8`)𪽀p :`L ~  b{ :~}'~)𪽈"# Xɦ L  z :kޭ~M}) L `ʽʽʽʽ~)𪽈"# XL Hj ( h H Ah 8Ii  o J o  JL  8`ɦ LLɦ L`ΧԠĠ|L Lm0 L  L syxLZ sx׭w% swɵLH hhhLh` i  m0 LL к L`n***Lh` s8% Lhq`8I )*  i  Ln 8 ) ) ? L:)𪽀`mtL1  Lrr L쭭ԠӠϠΠϠԍϠԠ/Ϡ٠H%sv$3 jrqLHɰ0Fɺ0 0>:i )#ȹɫqLɠL*ˠҠٍؠˠưưҠӺϠԍŠҠˠԺ =01̠Ժ =ź =ŠԺ =ź =ҠԠ˺ =00ҠĠ˺ =22ɰ0)$ )H h` X.ɦ L hhhhl٠ɠӠΠ٠̠Ġ΍Ԡ̠ԠŬîӠΠϠԮ     3.1Ԡ̠ԠōŠ =ҠàԠ = 8ҠҠ =5  96٠Š ̠ Šɢ) `8`8ɦ L ") Ɂ3ɛ hh6L ɍL ɷ L )|L @ X/ɦ L v y ȥx wL n"H#H"# XPɦ Lr h#h"L " Xɦ L LҠŠàҠ٠Ҡ͠à HhɛL ;" Xɦ L+ ɠ XLi})JJJJ lɍL ɯ" X ɦ Ln ɍL 8 Xpɦ L ɍ !lkL PlkL nL t > X ɦ L r wӍtn879" Xɦ L Dž  L **** e~  ****~)Lw  e}ɦ L !v * q{ɦ L " * qɦ L  * qz"# Xɦ L 5 `0݌HhHh 4 ꝍ݌`p8`n~} Xx ɦ LI %Le % ji$pi `Ǯ~)ml  `׍ I6LX 6|rk!lՍyx Lmp ipLP ɿ p})  L ݌.݌݌ L HhLt Hh꽎})  ppL  ݭpm0L     ƵԱԱӺµō԰΍ԳӍԱԱӍō԰΍ԴӺƵԱԱúµǍ԰ԲƠƸĽŽˠԍ԰ԲӍˠԍ԰ĵŠý Πҍ԰Բ΍Աóō԰Բ΍ԱóĠÍ԰ԲӺ½ȬŠЍ԰ԲӍō԰΍ԴӠō԰Բ΍ԱºύŠӠĠȍԠ΍ŠӠˠРΠɍӠӍ԰ӠŠӠΩԱƮ㺠ӍŠӠΩΠҍ԰Բ΍ԱŠŠƠӍ԰ӺԱԲӺ  Š΍԰ԲӺµҠҠԍ԰Բ½ҠȍŠҠԍŠҠӍŠΠøùΠ΍԰Բ΍Դý ŹIJŧӠŠ͍԰΍Ǡˍ԰ԱӠ٠ҩԱźó̠ڍ԰ԲԳƺóӠĠӍԽýĠĠԱîӍĭԲӍɠӠǠ͍԰Բ½ƠĽŽŶƽðƠñòôõĵö÷ĠĠǍ԰ӺĠčýԱ®ӍĭԲӍǍ԰ĽŽàҍ԰ԲƽŠƠȍŠҠ΍԰ĽŽԱĮӍҠ΍԰΍ԱĮӺýԲ΍ŭҠŠɩ԰ԲӍŭҠɍ԰ԲŭҠɍ԰ԲӍ΍԰΍ԴԶӺԹîӍ΍԰΍ԴԶԹîǠƠӍ԰΍ԱԱĶ԰Բ ƠƳÍŠԠǍ԰ԲӍŠɠӠӍ԰ԲӺŠč԰ӍΠ΍԰ӍΠ΍԰΍ԱԵčԶźōӍ԰Բ΍Գ΍Բ΍Šύ԰Բ΍ԱóƠŠÍ԰΍ԱúčŠ͍Ԡҩ԰΍ԱԲ٠ ƠŽԷԸԹ±ԠΩЍ԰΍ԱԱ  ƠŽȍ԰ԱӺčΠ΍԰ˠΠԠӍĠ٠ŠĠōŭΠǠŠӬϠȍРΠŠҠĮƠҠ͠ӠԠĬٍ԰Բ̮ӱԠҩ԰ԲΠ٠ԷԸ΍Թ΍ӱčӠčĠϠŠԠӍӠϠŠĠōǠӠč٠ӠˠԠƍԠŠĩРŠԠŠǍؠؠÍŠÍӮȠӍ̠ǍԠӠϠٍΠ̠Ԡ                   Š ŭҠŭ ҠˠҺǺ ӠȠΠӠ ΠŠԠˮ ԠȠź ŠԠө ͠Ԡө ŠԠө Ӡ ŭ ˠŠ ӠˠĠ ƭ ҠӠ ԠӠ àΠϠΠ Šĺ ŠŠƠ Ԡˠ ĠҠҺҠҠź ӠŠϠźҨͩԠ ӠԠ ԠӠŠ ٠ ˭Πˠ ٠ Ҩͩ ůŠϮƠźԠŠĠӠŠҠԠˠةĠˠةԠˠԺԠ٠ź àҠ ̠Ҡ ĠҠ ĠӺ Ҡ ԠˠϠŠ ӠŠҺ Ԡ٠Š ӠŠҺ ŠŠ Ԡź ٠Š ӠϠ Ġ Π̠ˠө ٠Ġ ӭ Р ŭĠˠŭ ŭԠԠˠ ΠĠ ԠӠ ӠŠҺ ŠϮƠ̠źŠϮƠ٠ź Ԡ̠Š ӠŠӠâϠԯ ŠȠŠŠ ؠˠưư ˠ ҠŠ ŭĠ ŠˠL  !"#(018@ABCDEFGHPQX`abchpqxﯯPENCBCBNONO `Ԡ   x h& @ Pժ          ի߿ϟժ!@,!@,<86_LV ou Ԡé Ŭî ӮŠ Ϭ̠ ٠٠Ҡ٠ ت٠Ϊ / X" X  r  > L=ΠƠӠ͠Ӡ`ŠȠ`<ӠӠ̠٠ƠԠéŠ/`LeeĠŠŮ.SLHhH#J h`BBFF>~BBBFF~~~F~BBF UU.5(6?@--V !"#$%&'($$D )*+,-./0123456789LLLL`ª`LQLY8LXL                                       [`3`i>78??L$???? ?L?hh 报HH`KiK ,KL>H&G? =LT??? ???`?E11E@@L? =C@?<>BBHHL,`?``  `L- + 'A@JJJJ?]> C F=MA=>??l>2JJJJ><& <&3*jj:O>3>?6?&7w&7wo&7w2CLBBL,V jɍjLɮ/ Tɮ!ɍ( T ɮ ɵ8*`LSɿȿȿHA $h øINSERT`ORIGINALL øINSERT`COPY ɪɵ Gѿj0ҭF  - Z P X X K $0& L X E X X ɷ X $0 X øԠӠĠӍŠŠҠϠ,ɛɠȿ j`3  øŠŠӠ٠ϩ j` X3 øŠˬξנˬѾ j`HKH`89`,(,ɛɯLtLzL`hhH  LٸhHH`  ҭ`  øԠˠԍ٠ H0Hʅ`3  øŠӿ٠ϩ j``3  ø͠ҠƍӠ٠ HJҭ`3  øӠȠƍˠ٠ϩ`3 ø٠ŠŠԠӍ٠ө j``3  øԠˠة٠ HHͅ`3  øĠˠة٠E HHʅ`3  øŠ̠ō٠٠ϩ jưưԺߺ%"x` X øӠçϠԯԍ`3  ø̠ŠӍΠŠ1Ҡ HJм`% "$HMH`  ø٠ŠӠ΍ŠҠ2 HJąÅĠοȹϿȹп8$` ((` 9 X øˠԠРۍ%"QTlNI øi``LKI```ʿå /qpo0åȱɪ ȱɖ/ȱȱ0ʿ Qv@ 5Q0LY`ʿ̥0$ L,HhBť1%鯭 gLv0j̱i LͲ0%!8̅ji j8e`i@jj&uﯠj )ML/L\>}:믐2ꯐ(xw꯭﯍믭쯭L۩鯭쯅0 쯅٠ԷƮӠ٠ԱԳӠ٠̍԰΍ԴԶ΍Թ΍ŭԱ΍ԱԱ΍ԱԱ΍ԲԲĽŽӠƠ΍԰ԲӍԳԲ΍ԵӍԹӍō԰Բ΍ԳóΠɍ԰Աҍ԰΍ԵԱӠĠōԶԱӠԷƮӠ٠ԱԳӠ٠ҠҠנө԰ԵԱӠ٠ĠŠԶԱӠԱŭӍԠԍ԰½Ԡԍ԰½΍԰ԱĺҠɍ԰ӍԱîԱĮӍԲӺčԱԱӍԱԱ®Ӎˠҍ԰΍ԲԱӍҠ̠ƠƳàƠƳÍƍӠנΩŠӠŠ͍Ӡō԰΍ԲԱúčҍ԰ԲӍ̠԰ӍԱŭӍ̠԰ӺµӍŠӍ԰Բ΍ԲŠΠč԰ԲӠɍ԰ԲκŽԳóӠĠΩЍҰ԰΍ӠӠĠΩԱԱ΍԰Ơ΍԰ԲӺµϭӍ԰ԲϭӠנΩ԰ԲĽŽýŠƍ΍ŠӠ΍Πō԰Բ½ԍŠӠٍ԰ԵŽˍ԰ԲԲóɠˠǠɍ԰ԲӍ٠ō԰ԲӍ٠ō԰Ա΍ԱԲŠٍ԰ԲĽŽà ƍϠ͍ŠӠϠҍō԰Բ΍ԱóΠȍ԰ԲýµΠč԰ԲӍŠō԰ԲӍ٠Ӡдý ŹIJҠō԰Բ΍ԳԱĴԱíԲҠō԰Բ΍ԳԱĴԱíԲϠ̍԰Դ΍ԵԲӍϠҍ԰ԲκԱƺ ƍ"; PER8ĺ"DISK PROBLEM. RE-INSERT DISK AND TRY AGAIN."L QER6ER8iju T"ERROR CODE: ";ER;" ENCOUNTERED AT" ^"LINE NUMBER: ";EL h r"START OVER, OR CONSULT YOUR COMPUTER MANUAL." | |D *** ERROR ROUTINE ***5 EER(222): GET ERROR CODEf FEL(218)(219)256: GET ERROR LINE NUMBER| JER5ED$"EOF": OER6ĺ"THE PROGRAM DISK SHOULD BE IN THE DRIVE.":"IF IT IS, THEN THERE IS PROBABLY":"SOMETHING WRONG WITH YOUR PROGRAM DISK.:295< N12ĺ5);"PERSONAL COMPUTING MAGAZINE";4);:295g "N18ĺ12);"LEON LJ STARR";11);:295 #N19ĺ9);" -------------";11);:295 %36); '"*": ("**************************************" ,D$;"RUN DESKMASTER.DM" 6 @, BRING UP THE MAIN PROGRAM ***O :"**************************************"[ N221e "*"; N15ĺ17);"BY";17);:295 N10ĺ16);"FROM";16);:295 N8ĺ7);"PRESENTING DESK MASTER";7);:295 N17ĺ9);" -------------";11); PD$(4)ZNU$"""d320.nED$NU$4x] *** SEE IF SPECS HAVE BEEN SET ***uD$;"OPEN SPECS.DM"D$;"READ SPECS.DM"(ED$"EOF")ĄPS$:AL$:SW$ED$"EOF"ĺD$;"RUN SPECSET.DM"D$;"CLOSE" *** NOW THAT ALL IS SET     $"C")İ22200:4150"PR$"CARD">(CH$"A")İ40250:4150Y(CH$"F")İ4800:4150h0PR$"FILE"b(CH$"D")İ21150:4150(CH$"L")OU$"DISPLAY":13850:16850:4150(CH$"Q")(CH$EK$)ī4700ME$"CHOICE NOT ON MENU"*4150\THE BUFFER IS ERASED? ";7K$:K$"N"CH$"S":3350ST0:ME$"BUFFER ERASED"Ys *******************  *** CARD FILE MENU ***<PR$"FILE":TY$".CDX"EC$NU$ CASE OF CH$, ESC QUIT6OF3:5600;PR$"FILE"h(CH"L")OU$"DISPLAY":13850:16850:3150C (CH$"D")İ21150:3150b(CH$"Q")(CH$EK$)ī3750BME$"CHOICE NOT ON MENU"t3150T0ī3799"IN CASE YOU HAVEN'T ALREADY,""WOULD YOU LIKE TO SAVE YOUR MEMO ON DISK""BEFORE ENU *** "  EC$NU$3 PR$"MEMO":TY$".MES"G GOSUB MENUGENVN OF2:5600 (CH$"E")NM$"NUMBER":6800:NM$NU$:3150 (CH$"C")İ37450:3150 (CH$"P")İ11950:3150 (CH$"S")İ17500:3150H (CH$"R")İ19400:3150'z (CH$OR..."::D$;"RUN CALC.DM">zCH$"H"ĺ:D$;"RUN SPECSET.DM"cCH$"I"ĺ:D$;"RUN DATADISK.DM"~CH$"Q"CH$EK$ī2200EC$"ESC"ī2200ME$"CHOICE NOT ON MENU"2140: END WITH ESC: *********************** *** MEMO MEC$NU$R GOSUB MENUGEN7W CASE OF CH$,ESC QUITM\F$NU$:OF1:5600faCH$"W"İ2800:2140fCH$"F"İ3850:2140k(CH$"A")İ27900:2140sCH$"C"CH$"H"CH$"I"DE$"PROGRAM":41555uCH$"C"ė:N111:::10);"GETTING CALCULAT STUFFC(28): CALENDARS7 MS(12): MONTH SIZESRMN$(12): MONTH NAMESjDN$(7): DAY NAMESFV(3),LV(3),FE$(3): DIGIT FIELDS  *** ONE TIME VALUES ***%4 *********************> *** MAIN MENU ***CHT$,LN):M,R ***********************J *** MORE CONSTANTS ***PnBS50: TEXT BUFFER SIZEFL40: MAX FILES PER TYPE *** ARRAYS ***L$(BS),L2$(BS): TEXT BUFFERSFT$(FL): FILE INDEX TABLE CALENDARWR$NU$) ***** WORD WRAP ****< IMPORT T$,LNQ  EXPORT: T$,WW$W%c*LNLN1t/CLN:WW$NU$4CC1:C$(T$,C,1)9(C$BL$)WW$(T$,LNC):T$(T$,C):1:39);:1:MA$;T$:845>(C1)ī820CWW$NU$H((T$)LN)T$( (C$BS$)(C2)ĺ;:690F (C$BS$)(C2)CC2:T$(T$,C):705w CLNTI$"TIME"ĺ:::T$T$C$:TI$NU$:780 (CLN)(WR$"WRAP")T$T$C$:780 (CLN)(C$BL$)ĺS1):780 (CLN)(C$BL$)T$T$C$:790:780 T$T$C$:705 (WW$):WW$NU$ CC1:C$8 (C$EK$)EC$"ESC":780G SSW5C1a (NM$"NUMBER")SS3 (C$RE$)(TI$"TIME")ĺBL$:::TI$NU$:780 C$RE$ĺS);:780 (((C$)FC)((C$)LC))(C$BS$)CC1:705 (C$BS$)(C1)ĺ;:690 C$;"Y"LF$NU$ bSW(SW$) = 2000: BYPASS GET LINEe  GET LINE IS WAY UP HERE FOR SPEED|  *** GET LINE ***  IMPORT: LN,FC,LC  EXPORT: T$,EC$  EC$NU$:T$WW$:WR$"WRAP"āN1LN:US$;::N1LN:BS$;: WW$; CANK,NULL PS66:TM52 PAGESIZE, TOP MARGIN8 D D$(4)m DE$"PROGRAM":41555: CHECK DISK ID ,D$;"OPEN SPECS.DM" ^D$;"READ SPECS.DM" PS$:AL$:SW$ D$;"CLOSE"  SET LINEFEED FOR PRINTER AL$"N"LF$(10) &AL$**& 7 *PERSONAL COMPUTING MAGAZINE*J < *****************************P FV P\ Z| d *** PROGRAM CONSTANTS *** nRE$(13):BS$(8):EK$(27):BE$(7) x RETURN,BACKSPACE,ESC,AND BELL KEYS }US$(95):BL$" ":NU$""  UNDERSCORE,BL0Z(4);"MAXFILES 5"$41600*N *****************************r ** DESKMASTER MAIN PROGRAM ** ****** COPYRIGHT 1982 *******( ***** BY LEON LJ STARR ******- ***************************** 2 ******* PUBLISHED BY ******                            ƍ԰ԲƠƽ ԴԵӺŽýč԰Բ΍ԱԲóӠΠŠ׍԰Բ½ӠΠŠ׍԰Բ½Šō԰ӍԵԲ΍ҵ԰Ե΍Ҡƍұ԰ԱԲóҠŠÍ԰Բ΍ԳͭĠٍŠɍ԰Բ΍ԳκŠɍŠӠӠɍؠҍ԰Բýɠҍ԰΍ԷԲӠ٠ýƠĠōҠҍ԰ԳӠ٠ԵӍԱԱӍԴӺĠҠӍ԰΍ԱԲčԴҠӍԳԵԷԹŠĠƍ®ŠĭŠҍ԰ŽԲԳƠĠōԵԸ٠ԶԱ٠ō԰Բ΍ԳóΠč԰Բ½ĵŠӍ԰΍Բ΍Ա΍ԱčŠӍ԰ĽŽԱԲ ĴŠӠ΍Ӎ԰ĽŽԱĮӺýĠĠō԰΍ԱԱӍΠκƠýƠҠɍ԰ԲĽĠō԰ԲĠŠש԰ýƠ ԱԲĴ·Šҍ԰ԲӍ**********NLOSE IDENT.DM"32 (DK$"DATA")(DE$"DATA")ī2670^< (DK$"PROGRAM")(DE$"PROGRAM")ī2670oF :N17::P "INSERT THE DESK MASTER ";DE$;" DISK"Z 2500: PAUSEd 2590n x **************************************N**************** AND START OVER." : ****** WAIT FOR RESPONSE ***@ J ::m "HIT ANY KEY TO CONTINUE...";u K${ ********************* *** CHECK DISK ID ***  DK$"NOID"  :D$;"OPEN IDENT.DM":D$;"READ IDENT.DM"( DK$:D$;"CER(222): GET ERROR CODEK @EL(218)(219)256: GET ERROR LINE NUMBER JER4ĺ"THE PROGRAM DISK SHOULD NOT BE WRITE-":"PROTECTED AT THIS TIME.":"PEEL OFF THE WRITE-PROTECT TAB":"AND START OVER." TER8ĺ"DISK ERROR.":"RE-INSERT PROGRAM DISKNS" D$;"OPEN SPECS.DM"4 D$;"WRITE SPECS.DM"G PS$:AL$:SW$W D$;"CLOSE" DE$"PROGRAM":2570: CHECK DISK ID :N111:::6);"LOADING DESK MASTER" D$;"RUN INIT.DM" + , ************** ERROR ROUTINE *************** 6(AL$NU$)ī130% AL$NU$AL$DF$+ 8 DF$"40"W "MAXIMUM COLUMNS ALLOWED" "ON SCREEN (1-132)? <";DF$;:"> ";SW$ ((SW$)1(SW$)132)SW$NU$ī175 SW$NU$SW$DF$ SW$((SW$)5) :N112:::6);"SAVING SPECIFICATIORN";::" KEY." v:# wDF$"1"F x"PRINTER SLOT# (1-7)? <";DF$;T y"> ";PS$ z(((PS$)1)((PS$)7))(PS$NU$)ī120 ~PS$NU$PS$DF$  DF$"Y" "AUTO LINEFEED FOR PRINTER (Y/N)? <";DF$; "> ";AL$ (AL$"N")(AL$"Y") P300ZNU$"""dD$(4)(nVo"******* HARDWARE SPECIFICATIONS ******"^p:s"JUST HIT ";::"RETURN";::" IF YOU WANT THE"t"ANSWER IN BRACKETS <>." u:"OTHERWISE, TYPE IN THE APPROPRIATE":"RESPONSE AND HIT THE ";::"RETU      p S   #  Rs S  H ~x S   b S V  L} [ b [ i p w p ~ S L SP`  ` %L ` ` ` ` ` `з  弼ŽԳóˠɠĠˠɠנө԰ԲŠ԰젠ԱԲƽóȠý ŹȠý ó٠ſŠˠŮԱԲԱúƠƠŠӍϮˮĠҠɍ԰ԱԲԱúƠƠōŭƠΠҠӠٍˠԠĠΠ̠ĮˠĠө԰Բ ƍԍ԰Բ΍ԷƠō ƍРҍŠĠĠŠӍ԰ԲӍ٠Ѝ԰Թ΍ƭԲ΍ӺĠҍ԰Ơ Ơà͍԰Բ΍ԶƠƠ Íč԰Բ΍ԷƠōұ԰Ա΍àŠɩ԰ԲӍ؍԰ԲƠ Ơ čōŠӠˠРΠɠԍ͠ðĠĠŠðÍō԰ԲýĠčԱӍխԠč԰ԲŽŽ½Ľ Ơ ԰ԲŽӍ԰Բ΍ԳóàӠΩ٠̍԰Բ΍ԳԵ٠ϠōŠӍŠӠ΍ӠԱúý ŹIJӍ԰ĽŽԱŮӺAM")(DE$"PROGRAM")ī2670+ F :N17::V P "INSERT THE DESK MASTER ";DE$;" DISK"h Z 2500: PAUSEr d 2590x n 7:: P "INSERT THE DESKMASTER ";DE$;" DISK" Z 2500: PAUSE d 2590 n 6 ::) "HIT ANY KEY TO CONTINUE...";1 K$7 S *********************o *** CHECK DISK ID ***~  DK$"NOID"  :D$;"OPEN IDENT.DM":D$;"READ IDENT.DM" ( DK$:D$;"CLOSE IDENT.DM" 2 (DK$"DATA")(DE$"DATA")ī2670 < (DK$"PROGRE$"PROGRAM":2570: CHECK DISK ID( U N111:::9);"RELOADING DESK MASTER"q D$;"RUN DESKMASTER.DM"w   ** WRITE BLANK INDEXES ** "0L" F139 "0N"  D$;"CLOSE"  ****** WAIT FOR RESPONSE ***  MEMOINDEX"% D$;"WRITE MEMOINDEX". 700F D$;"OPEN CDXINDEX"_ D$;"WRITE CDXINDEX"h &700 0D$;"OPEN APTINDEX" :D$;"WRITE APTINDEX" D700 D$;"CLOSE" :N111:: "INSERT PROGRAM DISK AGAIN AND HIT KEY..";:K$:" D:: *255 +TI11000:C ,"HIT ANY KEY WHEN READY.";:K$I i ****** SET UP FILES ***** :D$;"OPEN IDENT.DM" D$;"WRITE IDENT.DM" "DATA":D$;"CLOSE IDENT.DM" N111:::6);"WRITING FILE INDEXES..." D$;"OPENy DATA HELLO PROGRAM$3000D$(4):N111:::"INSERT A BLANK, INITIALIZED DISK TO BE":"SET UP AS A DESK MASTER DATA DISK.":#::"WARNING";::":"%TI11000:'100(:" THE CONTENTS WILL BE OBLITERATED..." ):     XPORT: NUN0NN1F(NLE)ME$"UNDEFINED VARIABLE":1470e(N$(N)ID$)NUV(N):1470o1430ME$"UNDEFINED VARIABLE" ****************** *** ASSIGN A VALUE ***C$(I$(3),1):5000 (I3)(TP$"NUMERIC" IMPORT: NU,ID$(N0'2NN1F<(N$(N)ID$)V(N)NU:1380XF(NLE)ī1330P(LEMV)ME$"TOO MANY VARIABLES":1380ZLELE1:N$(LE)I$(1):V(LE)NUdw *********************x *** GET VALUE FROM TABLE ***  IMPORT: ID$ E0C$"-"S(TP1)S(TP1)S(TP):TPTP1:1230`C$"*"S(TP1)S(TP1)S(TP):TPTP1:1230C$"/"S(TP1)S(TP1)S(TP):TPTP1:1230TPTP1:S(TP)(C$)NUS(TP) *********************** *** PUT VALUE IN TABLE ***:PCPSİ2000:TPTP1:S$(TP)C$:1090N<(C$"(")TPTP1:S$(TP)C$:1090_> IDENTIFIERr@PP1:P$(P)C$xBD2000: EMPTY STACKt *** EVALUATE POSTFIX ***~TP0C1PC$P$(C)C$"+"S(TP1)S(TP1)S(TP):TPTP1:1230I$(C)0*(C$")")İ2000:1090: EMPTY OPSTACK>,PC1:PS1q.(C$"*")(C$"+")(C$"/")(C$"-")ī10840(C$"*")(C$"/")PC22TP0PS0:10804(S$(TP)"*")(S$(TP)"/")PS26S$(TP)"("PS08PCPSTPTP1:S$(TP)C$:1090(LOADING DESK MASTER..."5:D$;"RUN DESKMASTER.DM"X *** POSTFIX AND EXECUTE ***w *** REM INFIX TO POSTFIX ************************** IMPORT: I$(I) EXPORT: P$(P)  POSTFIX FROM I$ TO P$$TP0:P0&CIBI(C$11:X$:X$::300RI$(1)"EXAMPLES2"Į::X111:X$::X1224:X$:X$::300yI1ID$I$(1):1400:ME$NU$ī690I1ME$NU$ī300IB1:1000: POST/EXNU;E$300 DE$"PROGRAM":2570: CHECK DISK ID:N111:::8);"REASSIGN VALUE9mI$(1)"HELP"İ6000:300: LIST COMMANDSVoI$(1)"LIST"İ1600:300qI$(1)"CLEAR"LE0:N1MV:N$(N)NU$::300vI$(1)"PON"ĺ:D$;"PR#";PS$:E$LF$:300I$(1)"POFF"ĺ:D$;"PR#0":E$NU$:300I$(1)"EXAMPLES1"Į::X1C1))):N$"VAL":570>(TP$"OPERATOR")II1:I$(I)C$:570D:D(IN$"ID")(I1)ID$I$(I):1400:I$(I)(NU):ME$NU$ī300W ************************X *** DETERMINE FUNCTION ***b IMPORT: I$(I) l(I$(2)"=")(I2)İ1500:300: (TP$"NUMERIC")(N$"VAL")ī570M (TP$"NUMERIC")(N$"VAL")N$"NOTVAL" (TP$"ALPHA")(IN$"NOTID")II1:I$(I)C$:IN$"ID":570 (TP$"OPERATOR")(IN$"ID")I$(I)I$(I)C$:570(TP$"NUMERIC")(N$"NOTVAL")II1:I$(I)(((T$,(T$)000: GET CHAR TYPE TP$F (TP$"BAD CHAR")ME$"BAD CHARACTER":300s (TP$"NUMERIC")(N$"VAL")N$"NOTVAL" (TP$"OPERATOR")(IN$"ID")(C$"=")ID$I$(I):1400:I$(I)(NU):ME$NU$ī300 (TP$"OPERATOR")(IN$"ID")IN$"NOTID":508 TSTRING ^EC$"ESC"ī800, hT$NU$ī300H  *********************y  *** PARSE INFIX EXPRESSION INTO TOKENS ***  IMPORT: T$  EXPORT: I$(I)  N$"NOTVAL":IN$"NOTID":N1:I0 C1(T$) C$(T$,C,1) C$BL$ī570 5 VARIABLE ASSIGNMENTS,":"OR COMMANDS."::"TYPE HELP FOR A LIST OF COMMANDS.":i + ****************** , *** PROMPT AND GET INFIX EXPRESSION *** 6 EXPORT: T$ J NME$NU$ĺME$;E$:ME$NU$ OE$:": "; TLN80:FC32:LC90:20000: GE LF$""" AL$"N"LF$(10)= ********************X *** PRINT HEADER ***^ d "----------------------------------------";E$ 11:"DESK CALCULATOR";E$ "----------------------------------------";E$P :"ENTER FORMULAS,C 30000+ *** CALC SUBPROGRAM ***1D*** SETUP ***K( ^2NU$"":BL$" "j<D$(4)AMV30:LE0:V(MV),N$(MV)CI$(80),P$(80),S(80),S$(80)FPD$;"OPEN SPECS.DM"ZD$;"READ SPECS.DM"dPS$:AL$:SW$ nD$;"CLOSE"                    3  -   U L' C T W  `腀```JJJJ `) `腀``ȅɹٴ)L` < / X $ [թ LˠԠ$ [ L!%( ( $`ɠȱ(ɠ` $ [ L ŠĠ``L+ ( Ȅ$ [ %%' [(ɠ( $ [ $' [ ɛ ɉ hh`) %ʭ( ʥʥʎ) ( + ȱ, * ) ( $' [) `( I(ԠˠX , `JJJJ`$ [. L; èŠ`$ [O L[ Ǡ$ [n L ǠӠΠ̠X$ [ L Ԡ , $ [Ʃ L Š , $ [ L  ` X)ߝɍ `' Ɉɘ P` > Lh PJ TuVTvP`RS  f/EPPEQQPQ`P&Q&R&S8RTSURSP`/T P 8/`$ [  ɛ `$ [ L `èōԠӨHh ED L3 EDZ[Dw E| EDw D[[ɰZ$Z0X $Y` d' HIihIi`3H3 h3] `H)h)𪆋  ` `< 0`$$3  ɕ(ɛɉ   L ӊH0}Hh 頻Hh݌Hh ݌Hh ɪ 0 꽎 L" h`ŠŠîҠl8`l6` !!!!!!!       CAN'T RELOAD " (768)0Āu ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."{ ,,192:832,96: 769) (768)12500 T --IF THERE, LOAD INTG AND PA#1[ 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082 --NO CARD OR 3,205:Y n804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }83175,192:776,104:b _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:80|$ :"BRUNDISK ALIGNMENT AID":+ 3:9(d2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:7! ! ! ! !͍! ( S   #  R2 S    /  < S   #  RF S    /  K S   #  RP S  H iZ S    /  _ S   #  Rd S  H wn S    / `L! L9<<    cLp =LL'L'BLL'L'LLQLLLL1 L1 L1 L1 L1 LH S  S [ b [ i p w p ~G ' S ȑ` ^_ z SՠZȑZ L   VW x, 6,E" 湱 :,Z목Z"ȱ:, L e ? `Z^[ȑ^L'``````````````````````````````````````````````````````````````` [Z䢐š eȄ̤̠ͣ͟`Z[ȅȱZLeZZ[LH  h Lh`  ΑZLZ `[eZȪ{{` y \` S80 `   * L'   L L Lȱ[Z`  i` ! x PZ` ! x 8PPL+` ! x P L8PPPL+  H S L ]hL6 L{` Z[5ŝ ȑІ`^_^ȑ^` ^_ ^^( eZZ[`_^  x _^  Z%ﭥ Z[` ` yȱL* yL4 4  zL  yL LJ  y``` L L LIQQIQPQ`*۩eL`HH` L L iL`hPhQ PQ`i Lh^h_HHvHuH|H{HQHPH{|_H^HLh{h|huhvhh` PL GL  `!l Q\%,`\]hhHH #L\ȥ\ȥ\`LѥLl L Lvu$ # \ WۺyzɃ8L`؅ L PQF ePeQP&Q`$ II &&`Q+Ɂ')0)#&*&Q$La L ` 0` ee`   f`  j %`hh #HH # #hhlHH / hh , qL* lL aL PL1 GL1 ߚLphh 7 ȱ Q +,'E -+.Я JϦΥ +L+ ' ,Ћ VW`υΦ VW`XY \V]W\" ` PL* " LܠVXWȑX` L6 LE,,-`]L L LW ]\L: ߦ\]` ^`PQ`^_^` lP$Li)$ PP W` PP8$NP L LY L  ZhhHH脁 ,թVW" `" L Z ZL Έ`" Lv$Lhh Z l & D # " 3` 7` \]` \` L( Lhhϥ^8 _ ŝiMLԥHHHϦΠ hh` ^H^H``ahPhQa `ʚL iڢLԼʚ`a  饪 r 2 E^Ȍ 4864 ΄ϠΪȱΨ` L ΄ L5΄ϠPȥQ` L+΄ϥLY΄ &$΄ϥLw΄ & &e몘e쨊e΅PeυQP`  ` %L ` ` ` ` ` `з  " " " " """""""""ٍ"