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` * T-TOP OF SCREEN*J&, * B-BOT. SCREEN * ******************^&YCE958:CL868&Z******************* * CALL CE TO CLEAR* * F/CURSOR TO END * * OF SCREEN. *&[* *Q'\* CALL CL TO CLEAR* R$D$"READ" %U$D$"UNLOCK"2%W$D$"WRITE"C%L$D$"LOCK"]%'LM32:SW33:T34:B35%( ****************** * POKE LM,SW,T,B * * WITH VALUE TO * * SET FOLLOWING *%) * LM-LEFT MARGIN *%* * SW-SCREEN WIDTH*&+D$"PR#0"$Xu:325d$` ***************** * SETUP ROUTINE * *****************l$:x$D$(4)$A$D$"APPEND"$B$D$"BLOAD"$BS$D$"BSAVE"$C$D$"CLOSE"$DE$D$"DELETE"$O$D$"OPEN"$P$D$"POSITION" %LINES 30000-30025)"A# ";A7$:5000 NER4ĺ"DISK IS WRITE PROTECTED."::RS,0:"CHANGE DISK & TRY AGAIN ? Y/N ";A7$:A7$"Y"20000 NER4380!NER9ĺ:"DISK IS FULL"::"NOW DELETEING FILES NOT COMPLETE."::;"DELETE REM"!aND$"NOMONI,C,O"-fN:5000kN ****************** * DISK ERROR * * HANDLE ROUTINE * ******************pNER(222):216,0:768qNX111X111sNXSX1tN:uNC$;FI$(X1):X112:I zNER10ĺ"F*ND$"MONI,C,O",N!/N33,30-2N20080:4NX1111V>NO$;FI$(X1):W$;FI$(X1)HNX16100,6200,6300,6400,6500,6600,6700,6800,6900,7000,7100JNC$;FI$(X1):L$;FI$(X1)MNRNO$;"DELETE REM":W$;"DELETE REM"WN7200 \NC$;"DELETE REM":L$0,6800,6900,7000,7100D)'"'ESC'=RET. TO INST. / ANY KEY=NEXT PAGE"h.'RS,0:HA:SE(RK):SE27X111nB'wG'325 N *************** * CREATE TEXT * * FILES FOR * * MANUAL USE * ***************21,60329"1%"DEL60351,60356":"60382":"60387"7*' *************** * PRINT * * ASSIGNMENTS * * TO SCREEN * ***************'X1111::FI$(X1)$'X16100,6200,6300,6400,6500,6600,6700199,60204:60249,60252:2d60270,60277:E60299,60302:X,60320,60329:k60350,60356:60380,60382:60390:X60385,60390:60400,60405:  "DEL60200,60204":"DEL60250,60252":"DEL60274,60277":"DEL60300,60302":"DEL603111:AN(X1)05600SX16100,6200,6300,6400,6500,6600,6700,6800,6900,7000,7100YlAN$"N"5700v7200D"NOMONI,C,O"E"DELETE TEMP EXEC"IC$;"TEMP EXEC"KND$;"EXEC TEMP EXEC"X60100:860101,60113: 6IS A"::"DISK IN THE DRIVE AND THAT IT HAS SOME"::"SPACE AVAILABLE..":RS,0::"THEN HIT ";A9$O$;"TEMP EXEC":W$;"TEMP EXEC""NEW""MONI,C,O""1 GOSUB 60000""60000 REM SET UP ROUTINE":"60499RETURN"33,30X1.* * NOW CREATE * * AND EXECUTE * * TEMP. FILE * ***************:RS,0:"DO YOU WANT 'REM' STATEMENTS ? Y/N ";AN$j:8:"A DISK TO CREATE A TEMPORY TEXT FILE"::"IS NEEDED. MAKE SURE THAT THERE ? ";:AN$:AN$(3)Ā+AN$"M"ĀMAN(AN$)64:AN1AN125100AN5200,5200,5200,5200,5200,5200,5200,5200,5200,5200,5200,5500PAN(AN)AN(AN)Z:AN:AN(AN)0Ğ_AN$:d5100r| *************** * DONE SELECTOT$:600 CM$"4"CS1:3006 CM$"5"DS1:300J CM$"6"ī60000S 220Y +h , GET NAMEn 6 @"ENTER ";::"FIRST";::" NAME> ";GN$ J OLU1ĺ"ENTER LAST NAME ";::"(OPTIONAL)";::" >";LN$:350 T"ENTER ";::"LAST";::" LISTING" / 10);"5) DELETE A LISTING"5 I 10);"6) QUIT"O f COMMAND SELECTORn : NF0:CS0:DS0:AS0:LU0 "WHICH? (ENTER NUMBER) ";CM$ CM$"0"ī30000 CM$"1"AS1:300 CM$"2"LU1:300 CM$"3"T$к12);"BY TOM DOWNING" s1 xI140:"=";:N }::"DO YOU WISH TO..."T t 10);"0) SEE INSTRUCTIONS"z 10);"1) ADD A LISTING" 10);"2) FIND A LISTING" 10);"3) REDIAL LAST NUMBER" 10);"4) CHANGE Az  PHONE LIST WITH AUTO-DIAL5 BY TOM DOWNING=:P(DD$(25),D(25)e2D$(4):Z$(26)x<SLOT2:PFX$""FKBD16384:CLKBD16368:MM21625116SLOT:OH136:O0P34,5:1Z125d MENUi7);"PHONE LIST WITH AUTO-DIAL" n:         TER FUNCTIONS."1S "READ & SET KBD. LOCATIONS."D0(FI$(6)"CURSOR POSITION LOCATIONS."j0)FI$(7)"SCREEN SELECT LOCATIONS."0*FI$(8)"SPEAKER & PADDLE LOCATIONS."0+FI$(9)"ERROR HANDLE RTN./CALL768."0,FI$(10)"ERROR HANDLE RTN./CALL945."1-FI$(11)"APPLESOFT POINAGE O/DL(X)(123)(124)256:DATA LINE BEING READ\/"FI$(11)/#FI$(1)"TEXT & HOME COMMANDS."/$FI$(2)"DOS COMMAND STRINGS."/%FI$(3)"WINDOW PARAMETER LOCATIONS."/&FI$(4)"CLEAR SCREEN CALL LOCATIONS."0'FI$(5)ART OF VARIABLE SPACE }.AS(X)(107)(108)256: START OF ARRAY SPACE .EV(X)(109)(110)256: END OF VARIABLES IN USE /SS(X)(111)(112)256: START OF STRING STORA:CY,DA::-******************* * THIS WILL POKE * * ERROR HDL. RTN * * IN HIGH PAGE 3 * * CALL 945 * *******************- 104,168,104,166,223,154,72,152,72,96+.VS(X)(105)(106)256: ST *!,*******************1,CY768777D,DA:CY,DA::,******************* * THIS WILL POKE * * ERROR HANDLE RTN* * IN LOW PAGE 3 * * CALL 768 * *******************,CY945954 -D * POKE OR PEEK TS * * TO TOG. SPEAKER *+* * * POKE TC TO TOG. * * CASSETTE OUTPUT *+* * * PEEK B0,B1,B2 * * TO READ STATUS *+* OF PDL. BUTTONS *,* 0,1 OR 2 * P1-PAGE ONE *-** P2-PAGE TWO *F** LR-LOW RES *_** HR-HI RES *x** FS-FULL SCREEN *** MS-MIXED SCREEN * ********************TS16336:TC16352:B016287:B116286:B2162854+******************* . POS. * *******************x)TD16303:GD16304:P116300:P216299:LR16298:HR16297:FS16302:MS16301)******************* * POKE TO SELECT * * THE FOLLOWING.. *)* TD-TEXD DISPLAY *)* GD-GRAFIC DISPL.**BOARD *!(u*******************1(CH36:CV37(******************* * PEEK OR POKE CH * * TO READ OR SET * * CUR. HORZ. POS. *(* *$)* PEEK OR POKE CV * * TO READ OR SET * * CUR. VERT * F/CURSOR TO END * * OF LINE. * *******************i'nRK16384:RS16368'r******************* * PEEK RK TO READ * * KEYBOARD. *'s* *(t* POKE RS,0 TO * * RESET KEYHENS"-y" FOR BETTER LEGIBILITY.)"3yly" DO ";::"NOT";::" ENTER AREA CODES FOR"y" NUMBERS IN THE SAME AREA CODE"y" AS YOURS."yy:"NOTE";::" ";::"PROGRAM CREATES TEXT FILE NAMED":'y5);CE"1jy" PROGRAM ONLY USES IT TO CHECK"]ry" FOR DUPLICATE FIRST NAMES.)"ty(24):(20):"PRESS RETURN. ";RT$vy:"I. TO ADD A LISTING (CONT.)"wy|y" 3) ENTER PHONE NUMBER"}y~y" (YOU MAY USE BLANKS OR HYP IF";4@y" LISTING IS FOR A COUPLE, SINCE"eJy" PROGRAM FILES LISTINGS BY FIRST";|Ty" NAME.)"Yy^y" 2) ENTER LAST NAME."cyhy" (UNECESSARY IF FIRST NAME IS"iy" UNIQUE IN YOUR LISTINGS, SINN:"LISTING ADDED."::(20):"PRESS RETURN. ";RT$9N?NR0u INSTRUCTIONSZ:u:sy HOW TO ADD LISTINGyy"y"I. TO ADD A LISTING"'y,y" 1) ENTER FIRST NAME."1y6y" (USE ONLY ";::"ONE";;y:" FIRST NAME EVEN20#HN:"ENTER THE PHONE NUMBER.")RNX\N"ADD 1 + AREA CODE IF NOT SAME AS YOURS."`fN:ipNPN$zND$;"OPEN PHONE DIRECTORY,L44"ND$;"WRITE PHONE DIRECTORY,R";RNGN$:LN$NPN$ND$;"CLOSE PHONE DIRECTORY"NCS1DS1ī201403RR13'R300RR300&(R0R0, (2(b N WRITE RANDOM ACCESS DISK FILEh*N4NLU1ĺ:"WOULD YOU LIKE TO ADD THIS LISTING?"::"(Y/N) ";E$:>N(E$"N"E$"NO")LU1ī20140CN(E$"Y"E$"YES")LU1ī20040ENLU1ī200RDL' NUMBER FOR RANDOM-V' ACCESS FILE.3`'Ej' ENCODE NAMESt'RP0:DF0a~'LG(GN$)j'GC0{'LG010250'GC(((GN$,1,1))64)13'LG110190'RP2LG'GCGC((GN$,RP,1))64'' CREATE RECORD#'RGC'LG4S1ĺ:"NUMBER DELETED."::(20):"PRESS RETURN. ";RT$J>DS1DS0:125Pe CHANGE LISTINGsAS1:CS0y320' HASHING SUBROUTINE'$' CONVERTS FIRST FOUR.' LETTERS OF FIRST8' NAME ENTEREDB' TO UNIQUE RECOBD)127ĹCLRKBD,0:MM2,0:::"** ABORTED * HUNG UP"::198:H11000:::125{:"YOU MAY PICK UP THE PHONE NOW....":198H12500:HMM2,0CLKBD,O:125  DELETE LISTING*GN$"":LN$"":PN$""42009069D"Y"E$"YES"ī560.550*0NB0:T$"";5NB1(PN$)O:NB$(PN$,NB,1)r?(NB$)47(NB$)58T$T$NB$xDIOT$T$WX DIAL NUMBERZT$""ī660]125bPH$PFX$T$gD$"PR#"SLOTl(17)PH$(10)qD$"PR#0"Ov(KHIS LISTING? (Y/N) ";E$RE$"N"E$"NO"ĺD$;"CLOSE PHONE DIRECTORY":RR1:410lE$"Y"E$"YES"ī535u522CS1ī800DS1ī800!NF1(E$"N"E$"NO")ī125&:"DO YOU WISH TO DIAL NOW? (Y/N) ";E$+E$"N"E$"NO"ī125-E$ CHECK PHONE NUMBERTAS1ĺ::"THAT LISTING ALREADY EXISTS."::AS0ZsN1$" "N2$" "PN$y LU1Ą"IS THIS THE CORRECT LISTING? (Y/N) ";E$ DS1ğ:"DELETE";::" THIS LISTING? (Y/N) ";E$ CS1Ğ:"CHANGE";::" TCLOSE PHONE DIRECTORY":RR1:410F D$;"CLOSE PHONE DIRECTORY":500f D$;"CLOSE PHONE DIRECTORY"u AS1ī475 :10);::"LISTING NOT FOUND": NF1 AS0 DS1CS1ĺ::(20):"PRESS RETURN. ";RT$:DS0:CS0:125 20000 545 NAME> ";LN$ ^ 0  SEARCH DIRECTORY; 10000^ D$;"OPEN PHONE DIRECTORY,L44" D$;"READ PHONE DIRECTORY,R";R 455 N1$,N2$ PN$ GN$N1$ĺD$;"CLOSE PHONE DIRECTORY":RR1:410 LN$""LU1ī450! LN$N2$ĺD$;" Y0:A0:B0:C0936?"ENTER DECIMAL ADDRESS ";XP(I125::I\2Y122h<A039rFBXAPC(B):(2000A),CZAdXX40nxY"ADDRESS IS NOW ";X,"CONTINUE? ";A$A$"Y"5010 STING. OTHERWISE THE LISTING"@!" WILL NOT BE FOUND.)"F!p! " 3) THE PROGRAM WILL ASK IF YOU"!*" WISH TO CHANGE THE LISTING"!/" IT FINDS."!1!4" IF YOU ANSWER 'N', NOTHING IS"">" CHANGED AND THE ЄHOW TO CHANGE LISTINGS" ՄE ڄ"IV. HOW TO CHANGE A LISTING"K ߄k 䄺" 1) ENTER FIRST NAME."q 鄺 " 2) ENTER LAST NAME." " (YOU MUST ALWAYS USE THE LAST" " NAME IF IT IS IN THE ORIGINAL"! " LILECT NUMBER 3 ON THE MENU."F" THE MODEM WILL REDIAL THE LAST"n" NUMBER YOU ACTUALLY DIALED."t:"NOTE";::" ";::"NOTHING HAPPENS IF NO NUMBER":" ";::"HAS YET BEEN DIALED.": Ƅ(24):(20):"PRESS RETURN. ";RT$E A HAYES MICROMODEM II. ":"~P"~" (IF IT IS NOT IN SLOT 2, YOU MUST"|,~" CHANGE LINE 60 OF THE PROGRAM.)"ހ(24):(20):"PRESS RETURN. ";RT$耲HOW TO REDIAL퀗"III. HOW TO REDIAL THE LAST NUMBER"" SIMPLY SE ANSWER 'Y' AND PICK UP THE PHONE"G}" WHEN IT TELLS YOU TO."M}x}" AN ANSWER OF 'N' RETURNS YOU"}" TO THE MENU."~~:"NOTE";: ~" ";:~"TO USE THE AUTO-DIAL FEATURE, YOU":~" ";:~"MUST HAV) IF YOU ANSWER 'Y' IT WILL ASK"Hn}" IF YOU ARE READY TO DIAL."n}(24):(20):"PRESS RETURN. ";RT$}:"II. TO FIND A LISTING (CONT.)}}" 5) IF YOU WISH TO HAVE THE MODEM"}" DIAL THE NUMBER FOR YOU, SIMPLY"#}" SEARCH IN CASE OF":2}" DUPLICATE FIRST NAMES.)"@7}m<}" 3) THE PROGRAM WILL ASK IF IT HAS"F}" THE CORRECT LISTING."K}P}" IF IT DOES NOT, ANSWER 'N' AND"Z}" IT WILL CONTINUE THE SEARCH."_} d}" 4::"PHONE DIRECTORY. DO NOT DELETE.":M|(24):(20):"PRESS RETURN. ";RT$i} HOW TO FIND A LISTINGo} }"II. TO FIND A LISTING"}}" 1) ENTER FIRST NAME."}}" 2) ENTER LAST NAME IF DESIRED."#}(}" (SPEEDS UP Ȓ :L s ?LُL7^8_9Z:[`1'8tp`8M``i^j_kZl[`28tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?ՠ)ZQZ Ȓ :L s ?LُL7^8_9Z:[`1'8tp`8M``i^j_kZl[`28tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?ՠ) K(LOK U(NLK D(EL Q(UIT ----------------------------------------VOL PG OF SECT-FREE N(DRIV ---------------------------------------- $% 0 4'  `` C iiLح) 0JJJJ 0 0`% $ B2 3 3 Hi&eh Li`$3  ɍ ` X̅0 `JOHN'S SUPER UTILITY PROGRAM L(OAD R(UN C(ATRIFY\  2m2R&QPNQmRJnPmPee2`8322 ` :` 3^څ6789 Q H Ȓ @^38JJJJi 0`6798 Q`Hɍ3h`` 6  H5/5 s r > a ` `$$(ɠ$I $4 ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START A$\ LENGTH L$\,D\I/O ERROR\VELLx4 6 s j S5 B ꐭ5 L L P65 s j00   L222  Lx SO qLЪVТ2'56 s j S" $ j q L :L9% 5.:10::" PRINT USING COMMAND ":8:"THE PRINT USING COMMAND ALLOWS YOU TO FORMAT NUMBERS FOR PRINTOUT."::"FORMATTING CAPABILTIES INCLUDE:"B:" UP TO 9 SIGNIFICANT DIGITS"L:" RIGHT JUSTIFIED IN FIELD"V:" AUTOMATIC R:"YOUR APPLE CURRENTLY HAS ";(0);" BYTES AVAILABLE.":"PRESS RETURN TO CLEAR ARRAY 'S$(20)' AND SEE HOW MUCH MEMORY YOU RECOVER.";:A$:A$ARRAYS$21:EOP"YOU NOW HAVE ";(0);" BYTES OF MEMORY AVAILABLE.":$40$OUARE FINISHED WITH THAT ARRAY.":"FOR EXAMPLE, THE ARRAY USED IN THE PRECEDING BUBBLE SORT EXAMPLE CAN BE RECOVERED.":"THE FORMAT FOR THE DELETE ARRAY COMMAND IS AS FOLLOWS:":" 10 DIM S$(20):" 90 & DELETE > S$<J1BOUND1\S$(J)S$(J1)įSWAPS$(J),S$(J1):TJ:J:S$(J)" ":S$(J1)" "byT0BOUNDT:89040:10::" DELETE ARRAY COMMAND ": :"THE DELETE ARRAY COMMAND ALLOWS YOU TO RECOVER SPACE USED BY AN ARRAY AFTER YEIGHT,NINE,TEN,ELEVEN,TWELVE,THIRTEEN,FOURTEEN,FIFTEEN,SIXTEEN,SEVENTEEN,EIGHTEEN,NINETEEN,TWENTYgR|\I120:S$(I):f:"PRESS RETURN TO SEE A BUBBLE SORT OF THEABOVE NUMBERS USING THE & SWAP COMMAND";:A$:21::EOPpBOUND20zT0 ARE SEPARATED BY A COMMA.q:"BOTH VARIABLES MUST BE OF THE SAME TYPE,OR A 'TYPE MISMATCH ERROR' WILL OCCUR." :"PRESS RETURN TO SEE AN EXAMPLE OF STRINGSWAPPING.";:A$*S$(20)4>I120:S$(I):aHONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,O GARBAGE BUILDUP WILL OCCUR."(40:a:"THREE EXAMPLE FORMATS FOR THIS COMMAND FOLLOW:":" 10 & SWAP > I1%,I2%":" 20 & SWAP > R1,R2":" 30 & SWAP > S1$(K),S2$(L)" :"THE TWO VARIABLES FOLLOW THE '>' SYMBOL,AND NY TWO INTEGER, TWO REAL OR TWO STRING VARIABLES."~:"THIS COMMAND CAN BE VERY USEFUL IN BASICSORTING PROGRAMS.":"NO TEMPORARY STORAGE VARIABLE IS USED, WHICH MAKES THE ROUTINE VERY FAST. IN THE CASE OF STRING SWAPPING, ABSOLUTELY NHE LISTING."2&(24):(20):"PRESS RETURN. ";RT$G&X RETURN TO MENUP&b125V&lk&` END OF PROGRAMs&j:y&~D" IT FINDS."%D%" IF YOU ANSWER 'N', NOTHING IS"t%&" CHANGED AND THE SEARCH CONTINUES."%+(24):(20):"PRESS RETURN. ";RT$%-:"HOW TO DELETE A LISTING (CONT.)":%0" 4) IF YOU ANSWER 'Y', IT DELETES" &:" T (YOU MUST ALWAYS USE THE LAST"P$ꈺ" NAME IF IT IS IN THE ORIGINAL"~$" LISTING. OTHERWISE THE LISTING"$" WILL NOT BE FOUND.)"$$" 3) THE PROGRAM WILL ASK IF YOU"$" WISH TO DELETE THE LISTING"%NEW INFORMATION WILL"<#p" REPLACE THE OLD LISTING."b#(24):(20):"PRESS RETURN. ";RT$~#HOW TO DELETE LISTINGS##ˆ"V. HOW TO DELETE A LISTING"#Lj#̈" 1) ENTER FIRST NAME."#ш#ֈ" 2) ENTER LAST NAME."#ۈ#$" SEARCH CONTINUES."9"C(24):(20):"PRESS RETURN. ";RT$d"E:"HOW TO CHANGE A LISTING (CONT.)":"H" 4) IF YOU ANSWER 'Y', IT WILL ASK""R" YOU FOR THE SAME INFORMATION IT""\" ASKS FOR IN A NEW LISTING.""a#f" THE . TIP BOOK ::2:233uST$"THIS IS AN EXAMPLE OF A BILLBOARD DISPLAY....THAT KEEPS REPEATING....AND REPEATING......." L(37):SU$" ":ST$SU$ST$SU$:X1(ST$)40:L:(ST$,X,40)::5 FROM BEAGLE BROS 30:11#(E$" , $.00":30:12?(E$"***,**$.00":30:13[(E$" ":30:14~(E$"TOTAL = , $.00":30:15(E$"S T R A N G E":30:16(N123456789(::"NUMBER = ";N::(E$"0000000.00":30 )"E$"SOC SEC=000-00-0000":V'4:" EDIT STRING";:28:" RESULT ":"==================== ==================="e'N1234.555~':"NUMBER = ";N::'E$" .00":30:7'E$"0000000.00":30:8'E$"*******.00":30:9'E$"$ .00":30:10(E$" $.00":PRINT' PART OF THIS COMMAND MAY BE ABBREVIATED USING THE '?' SYMBOL."&n:"FOLLOWING IS AN EXAMPLE OF HOW TWO NUMBERS WILL BE PRINTED USING TWELVE DIFFERENT EDITING STRINGS. PRESS RETURNAFTER EACH EXAMPLE TO SEE THE NEXT EXAMPLE."'x40:ES SPECIFIED IN THE EDITING STRING."%Z:"IF THE NUMBER IS TOO LARGE OR THE FIELD IS TOO SMALL, THEN THE ENTIRE FIELD WILLBE PRINTED AS '#'S. THIS IS BETTER THANPURE TRUNCATION, SINCE OTHERWISE AN INCOMPLETE ANSWER MAY GO UNNOTICED."E&d:"THE ':"TERMINATING THE COMMAND WITH A SEMICOLONSUPPRESSES PRINTING OF THE CARRIAGE RETURN."g$F40:%%P"DEPENDING UPON THE EDITING STRING, UP TONINE DIGITS OF ACCURACY MAY BE PRINTED. THE NUMBER IS AUTOMATICALLY ROUNDED TO THE NUMBER OF DECIMAL PLAC NEXT COMES THE NUMERIC VARIABLE, NUMERIC LITERAL OR NUMERIC EXPRESSION WHICH IS TO BE PRINTED."#2:"IF MORE THAN ONE NUMBER IS TO BE PRINTEDBY THE SAME EDITING STRING, THEY MUST APPEAR IN THE SAME COMMAND LINE AND BE SEPARATED BY COMMAS.]$ E$;Ad:" 20 & PRINT USNG > ";(34);"000.00";(34);";A,B,C":" 30 & PRINT USNG > ";(34);"TOTAL = ";(34);" + A$;A"l:"THE FIELD EDITING STRING IMMEDIATELY FOLLOWS THE '>' SYMBOL. THE EDITING SOUNDING"%`:" LEADING ZEROES"Ij:" LEADING ASTERISKS (*)"ut:" FIXED OR FLOATING DOLLAR SIGN"~:" COMMA INSERTION":" ABSOLUTELY NO GARBAGE BUILDUP"40:"THREE EXAMPLES OF THE PRINT USING FORMATFOLLOWS:NG %NROUTINE IS NEEDED.2 &N BEAGLE BROS. IDEAW3:WW1:10:1(W(W2)20):1);"WORKING";1)KI1500W:TI:cW30100010:1:"DONE! THANK GOD!";:958:20L1 NTHIS IS A PAUSE!NROUTINE THAT CAN"NBE USED IN OTHER#NPROGRAMS WHERE A  $NPAUSE OR WORKI ѠŠҠԠ٠ĠԍŠƠÍԍàԍԫàԫĠ *-------------------------------- POPRLDY#12-CHARNAME! JSRAS.ADDONADDYTOTXTPTR JSRAS.CHRGETGET:OREOL BEQPOP.ITOK JMPAS.SYNERRNOTTHERE ZZ.END.EQ* ZZ.LEN.EQ*-START -------------# POP.ITTSXEXPTRUE,SOENDLOOP( LDA$103,XMAKESUREITISAREPEAT  CMP#$B8( BNEBADFOR2 TXA< CLCF ADC#$7PULL7THINGSP TAXZ TXSd JMPAS.NEWSTT%n *--------------------------------x BADFORJMPAS.BADFOR%$106,X STAAS.CURLIN LDA$107,X STAAS.CURLIN+1) INXWEDON'TNEEDTHERETURNADDRESS INX TXSKILLSUBCALL JMPAS.NEWSTTNEWSTATEMENT% *--------------------------------! *POPAREPEATLOOPOFFSTACK% *-------------------8 LDAFAC.EXPGETEXPONENTB BNEPOP.ITTRUE,ENDLOOPL TSXKEEPLOOPINGV LDA$103,X` CMP#$B8ISITAREPEAT?j BNEBADFORNO,ERRORt LDA$104,XGETTHEDATA%~ STAAS.TXTPTRANDTELLAPPLESOFT LDA$105,X STAAS.TXTPTR+1 LDA1PUTRETURNADDRESSONSTACKPHA LDAPTRPHARTSANDGOBACK%*-------------------------------- *PROCESSUNTILCOMMAND% *-------------------------------- UNTILLDY#55-CHARNAME$ JSRAS.ADDON!. JSRAS.FRMEVLGETEXPRESSIONURLIN+1PUSHCURRENTLINENUMBERfPHApLDAAS.CURLINzPHA&LDAAS.TXTPTR+1PUSHTEXTPOINTERPHALDAAS.TXTPTRPHA(LDA#$B8IDENTIFIERFORREPEATLOOP,PHASOTHISISN'TMISTAKENFORFOR/NEXT*ORGOSUB/RETURN*LDAPTR+SRAS.ADDONADDYTOTXTPTRJSRAS.CHRGETGET:OREOL BNESYNERRNOTTHERE%*-------------------------------- *PUSHDATAONSTACK%**--------------------------------4PLASAVERETURNADDRESS >STAPTRHPLARSTAPTR+1-\LDAAS.CC5'AT'TOKEN .HS00T.UNTIL.AS/UNTIL/ .HS00T.POPR.HSA1'POP'TOKEN .AS/R/.HS00END%*--------------------------------*REPEATCOMMAND%*--------------------------------*REPEATLDY#45CHARACTERSIN'REPEAT'!JROM THE DIRECT EXECUTION MODE."&,IHIMEM WILL BERESET, AND NEW STRING VARIABLES WILL OVERWRITE THE PU&F.O PROGRAM."+h:"WOULD YOU LIKE TO REPEAT THESE INSTRUCTIONS (Y/N)?":A$:A$"Y"170+rA$"N"ĺ(7):1640 ,|:"YOU MAY WANT TO TRY SOME OF THE PU&F.O COMMANDS NOW FBE AT $9600 (DEFAULT VALUE FOR 48K AND MAXFILES 3). IT IS 533 BYTES LONG AND LOADS AT $93EB.WHEN PU&F.O IS BRUN, ALL VARIABLES ARE CLEARED AND HIMEM IS AUTOMATICALLY RESET."S+^:"PU&F.O WILL BE DESTROYED BY FP, INT OR MAXFILES COMMANDS, BECAUSE (34);E$;(34)!),22:USNGE$;N))640)@:"PRINT USING & FRIENDS MAY BE APPENDED TOANY PROGRAM BY ADDING THE FOLLOWING STATEMENT NEAR THE BEGINNING OF THE PROGRAM:")J:" PRINT CHR$(4); BRUN PU&F.O"*T:"PU&F.O REQUIRES THAT HIMEM ,AE:L13,0 :10:5:"TYPE AN '&' AND THEN A (CR) RETURN","FOR A CATALOG. A 'CTRL. C' WILL MAKE","A CLEAN BREAK IN THE CATALOG. ANY OTHER","KEY WILL CONTINUE THE CATALOG.""1013,76:1014,110:1015,1650KEY$(3)T256:DOS(978)T4410:AE174(157(978)):LDOS3119:DOS,L(LT)T:DOS1,(LT) L0,32:L1,12:L2,253:L3,201:L4,(KEY$)128:L5,208:L6,3:L7,76:L8,44:L9,AE:L10,76:L11,60:L12  !   LL+!  ŠҠ )!*! A )!*! A !   ӠԠ̠Š %!&!  Ԯ  L)!*! A ! A +!,! A  b J)! !  G -!.!/!0!1!2!3!4!5!6!1!2! A )! A -!. ! !  L L-% aL!  LEL A  A !    LlLr XL A  A !    LL XL! A )! A !  W A +! A %!&! A W)!*! A )!*! A ! +!,! A +!,! A " A  " A   d u  ͠ź %! %!&! A  %!&! A % LtL   L d u  Ϡź '! '!(! A  '!(! A % LL   L" A  !9!9!t YР A ! Р A ! $ A ! =Р A ! =!  $  X d !ŠͧӠŠ  ŠӺ    к   h eȱe ` A A Й     A dLa  aLHH L^HH hhPȵpȱ0` }   L0 L A L Rr 0` }  ȱϠȱѠ0б L k I" Ȅҡ8e e 奡JJJ` G ` G C` G 9` G /+2 ` A ЦΤ V` A ΦϤ 9`L G G ΄ᆔ`L `."/#1.2/ ЦΤ  G ТHf&i'`'i, &i,&iPII&if&HhH8H婅 hIiH壅hh媐Iif8堪塅 d8e&E%0Q&&I eeP٥& ')*& 'JJ) e ʥ0)Je橅`ӪJJJJ)!  })`H)&JJ&&h' &' &' f&')'#iA0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&ҩ%0)&E%0Q&&e)j00', "&,i8i#H&ii&hi A L  L  vL  oH A o A he`HH NL A NLJ  vLN oH oh A `"ȱ ѦHh`ħ ĦL ` A Эѭ ` L A LUR@TS WP , Υ,ΐΥL G  LV @` G  G iLVL G pP%0 Lb` G Єѩ `L G H G ΄ϠёΈh` G ЄѠHШhLA G H h  A LA HJJJJ h) ɺi` G eЅΥeхphe΅ХiPL7Hh𡥓I 8ЅЩхѥL;䝐L=ɠ` 6` G $L[ G L L 8!$` G ܆ ` G ͆ ` G оLd G д(` G Ш0` G  - ѥ-ѐХL( G hLA HH hhЄѵPȵp`HH L A LJ A LJ  P膔 ЙљɀɬЯ`I i)&шЅLLL;Ѕ GɤɫDɭ@ɬLɀHЫI SH ΅ĘLG A L A op X G ЄъHΩڥej ѥe ɰ$ h` d'$ Ș8! Lu$` o G Є G ΄Ϡ0α ` A Qq3 u A ' L A L O𤝈HčŠРčԠԩ٠ԠԠԍððð٠Ӡ  ::0CURS$"!/-\":C1:L(CURS$):255X:10:"! PRESS ANY KEY WHEN READY"y#20:"! TO SEE THE CATALOG."(10:(CURS$,C,1)-20:(CURS$,C,1)2KEY(16384):KEY128CC1L(CL):40<(4);"CATALOG"C"C MBER TO A STRING SO IT'S LENGTH CAN,BE COUNTED. THEN...,(B) MAKE THE COUNT AND SAVE THE VALUE,SO WE'LL KNOW HOW FAR AHEAD OF THE,DECIMAL POINT TO PRINT THE '$' SIGN  ,"PAGE"y ,"WHY, YOU ASK !! LOOK ABOVE AND YOU'LL",SEE THAT IF WE WANT TO PR OF THE NUM-,BER. BASIC WILL NOT COUNT THE NUMBER,OF FIGURES ...ONLY THE NUMBER OF CHARAC-TERS. "<<< THIS IS NOT A COURSE IN BASIC.",IF YOU DO NOT UNDERSTAND PLEASE ASK,SOMEONE..>>> ," SO WE MUST...",(A) CONVERT THE INTEGER PORTION OF THE,NUT'S LABEL EACH NUMBER AS 'AMT',JUST BEFORE WE SEND IT FOR FORMATTING.v IF WE HAVE MORE NUMBERS WE WILL CALL,EACH ONE 'AMT' IN TURN AND THEN SEND,IT FOR FORMATTING...{ "PAGE"` NOW WE NEED TO KNOW HOW MANY CHARACTERS,ARE IN THE INTEGER PORTION : NGE FILE. CONTRIBUTED BY ED AYMONDYPRESS 'A' TO RUN AUTONUMBER.B OR ANY OTHER KEY TO RERUN B.MENU. ";:A$:D$(4)h A$:A$"A"190 D$;"BRUN B.MENU": ::D$;"BLOAD AUTONUMBER.B":770: INFORMATION FILE PHIL FAULCONER UNKNOWN AUTHOR FOR MACHINE LANGUAE ? ";:K$:""; nK$? xK$"R"ĺ(4)"BRUN B.UNDERLINE":O K$"Q"75U K KHE UNDERLINE AFTER RESET, OR IN#0.": F"THE ROUTINE RESIDES AT MEMORY LOCATION $300 -CARE MUST BE TAKEN TO ASSURE THAT THIS DOES NOT CONFLICT WITH OTHER USES." K21 P7)"ENTER 'R' TO BRUN THIS ROUTINE" Z7)"ENTER 'Q' TO QUIT d15)"CHOIC82" 725)" AND 9/13/82" <"THE BINARY PROGRAM NAMED 'B.UNDERLINE' IS DESIGNED TO PROVIDE AN UNDERLINE STYLE CURSOR WITH AN ACCOMPANYING CLICK FOR EACH KEY STROKE.":% A"THE UNDERLINE CAN BE CANCELLED BY IN#0. A 'CALL 768' WILL RE-ESTABLISH TV6 ******* INSTRUCTIONS FOR B.UNDERLINE ********S::10)"B.UNDERLINE":5);"SOURCE - ";(34);"APPLE ASSEMBLY LINE";(34)#6)"AUGUST 1982 & SEPTEMBER 1982"(5)"PROGRAM WRITTEN BY BILL LINN" 25)"ENTERED BY MICHAEL MOORE 8/19/    L Y XL L P G /!0!/!0! A ! A 5!6! A J3!4!-!.!3!4! A LK L !   Š %!&!    /!0! A )! A  A A ^)!*! A ! Z P )!*! A ! Z P !  )!  Š '!(!    ! A W5!6! A %!&! )!*! A ! Z M G 5!6!5!6! A '!(! G 7!8!5!6! A '!(! A 7!8! e G 5!6!3!4! A i LL3!4! A  P G 3!4!3!4! A ! A 7!8! A JL7!8! A i LL3!4!L)! /!0! A #!1013,76:1014,18:1015,217dd  $123.44"::"*************************************"L255:34,5:e ==================::"PRESS A KEY TO CONTINUE..";::R$::<LOCN30:PLACES2FA$((AMT)):L(A$)PLOCN(L1))"$";LOCNL)(AMT);".";:(((100(A.","PAGE"  "SWITCH-4"* ,,," USE IT AS A SUBROUTINE AND IT WILL",GIVE YOU AN ABREVIATED 'PRINT USING',CAPABILITY,," HAVE FUN",," MURRAY MACKENZIE" "END":50:"DISPLAY THIS.. LIKE THIS..":;" 123.4367 POINT.","PAGE" "(5) NOW ROUND OFF THE ORIGINAL AMOUNT",'AMT' AND PRINT ONLY THE LAST TWO,FIGURES (PLACES) IMMEDIATELY AFTER,THE DECIMAL POINT ...,  ,"E U R E K A, WE'VE DONE IT !!","===========",,  "LET'S HAVE A LOOK AT THE FINISHED PGM.'",SETS THE DECIMAL POINT AT POSN.(30),"(2) BACK UP 'L+1' SPACES (THAT'S 4)",AND PRINT A '$' SIGN "(3) NOW BACK UP 'L' SPACES (THAT'S (3)",FROM THE DECIMAL LOCATION AND PRINT THE,INTEGER PORTION OF 'AMT'(THAT'S 123), "(4) NEXT, PRINT THE DECIMAL ==========","SWITCH-2",, ,THAT IS WHAT THE THIRD COMPOSITE,STATEMENT LOOKS LIKE. LET'S 'GLUE' IT,TO THE TOP OF THE PAGE WHILE WE HAVE,A CLOSER LOOK AT IT... "PAGE","SWITCH-3"a HERE'S HOW IT WORKS ...,,"(1) REMEMBER THAT THE VARIABLE 'LOCNIT IMMEDIATELY,AFTER THE DECIMAL POINT... ,THE STATEMENT WILL REQUIRE SPECIFIC,PUNCTUATION IN ORDER TO PRINT THOSE,FOUR ITEMS SEQUENTIALLY ON THE SAME,LINE - RATHER THAN ON FOUR LINES,,READY FOR STATEMENT #3 ..,"PAGE" ,"STATEMENT #3..","====RDER TO,DISPLAY THE '$123.44' REQUIRED..,,(1) THE '$' SIGN LOCATED AT (30-4), (2) '123' STARTING AT LOCATION (30-3), (3) NOW THE DECIMAL POINT ...) (4) CONVERT THE DECIMAL PORTION OF OUR,ORIGINAL VALUE (.4367) TO THE ROUNDED,VALUE (44) AND PRINT E (3),FOR THE NUMBER WE ARE WORKING WITH.,BE SURE YOU UNDERSTAND WHY..., " WE'RE JUST ABOUT READY NOW TO GIVE",THE COMMAND FOR PRINTING..,,IF YOU CAN DO IT WITHOUT PEEKING THEN,YOU DON'T NEED ME !!!, "PAGE" ,WE WILL PRINT FOUR ITEMS IN OED BY A COLON ..),,"0.K....PEEK IF YOU MUST ...",,,,A "PAGE" ,"STATEMENT #2..",,"5190 A$=STR$(INT(AMT)) : L=LEN(A$)"  "===================================",,H "WHEN THIS STATEMENT IS EXECUTED, THE",VALUE IN THE VARIABLE 'L' WILL BINT AN AMOUNT,"$17452.45, THEN THE '$' SIGN MUST BE",ADVANCED TWO POSITIONS IF THE DECIMAL,POINT IS TO STAY IN ALIGNMENT.4 ,"COULD YOU WRITE THE PROGRAM STATEMENT",TO ACCOMPLISH THOSE TWO GOALS?,(TWO COMMANDS CAN BE PUT ON ONE LINE IF,THEY ARE SEPARAT: BACK ZD$"CLOSE"W dAB$: THIS SHOULD PRINT - TEST FOR , AND : SAVE TO TEXT FILE"7,66:672: CHANGES,AND:8 <D$"WRITE FAKE.TST,R0":AB$P AD$"CLOSE FAKE.TST" FAB$"Z"::"VALUE OF AB$ HAS BEEN RESET TO ";AB$::"ABOUT TO READ BACK THE DATA ON THE DISK": KD$"OPEN FAKE.TST" PD$"READ FAKE.TST,R0":AB$:676: CHANGES , AND Y ENTERED AND MODIFIED BY= PHIL FAULCONER, 8/29/82O :::D$(4)gD$"BLOAD FAKE.OBJ"AB$"TEST FOR , AND : SAVE TO TEXT FILES"#"ABOUT TO SAVE AB$ TO THE DISK.":"AB$ CURRENT DATA FOLLOWS.":AB$(D$"OPEN FAKE.TST" 26,65: $"1013,76:1014,165:1015,214dM  F U N ! !",,'X "SWITCH-3","END">R$:R(R$):R1ĂMR25000bD$"": (CTL-D)(13):D$;"RUN CRAWLER"::"PRESS A KEY TO CONTINUE...";::R$::pA$::z12:A$(A$,2)(A$,1):A$6010FAGE"N ,,," THE PROGRAM THAT YOU RAN HAS SOME",'WINDOW DRESSING' ADDED BUT ITS BASIC",OPERATION IS AS HAS BEEN EXPLAINED...,S " IN FACT, IF YOU NOW TYPE 'GOTO 6000'",THE THREE LINE PROGRAM AT THE TOP OF,THE PAGE WILL RUN ..,,,,," H A V E TIME ....N ,W IS THE TIME ....NO ,.IS THE TIME ....NOW ,IS THE TIME ....NOW ,S THE TIME ....NOW I,I VISUALIZE THE LINES SUPERIMPOSED,ON A CRT AND YOU'LL UNDERSTAND,THE CRAWL..,"PMT1).5)),PLACES)$34,0::5200R"******************************":34,8:np34,0::5:5180,5200:N*.10CMP#$1CISITCOMMACODEBNE.11NOLDA#',GETCOMMA BNE.3.11CMP#$1DISITCOLONCODEBNE.5NOLDA#':GETCOLON BNE.3.LISTOFF.ENNLDA#$1CCHANGETO$1C.3STA(PNTR),YSAVE BNE.5.4&CMP#':ISITACOLON0BNE.5NO:LDA#$1DCHANGETO$1D DBNE.3N.5XDEYAREWEDONEbBPL.2NO lRTSEXITv*2*READFLIP(CHANGE$1C&$1DTOCOMMA&COLORLO-BYTE|STAPNTRSAVEDEYLDA(VARBLE),YGETLENGTHTAYY=LENGTHDEY.2LDA(PNTR),YGETCHARLDXFLIPISITWRITEBNE.10NO3*WRITEFLIP(CHANGECOMMA&COLONTO$1C&$1DCMP#',ISITACOMMABNE.4NOROFVARIABLESTANAMESAVE$LDA$7GET2NDCHAROFVARIABLE"CLC",ADC#$80MAKESTRINGVARIABLE6STANAME+1SAVE@JSRFINDFINDVARIABLE JLDY#4#TLDA(VARBLE),YGETADRHI-BYTE^STAPNTR+1SAVEhDEY#rLDA(VARBLE),YGETADd*CHANGE$1CTOCOMMAn*CHANGE$1DTOCOLONx***CALL676RDLDA#$FFGETREADFLAG STARTSTAFLIPSAVEFLIPFLAG**-*******************************************FINDVARIABLE*.1$LDA$6GET1STCHAFLIP=00:WRITE-CALL672:*!*=FF:READ-CALL676:***-*******************************************CHANGECOMMATO$1C *CHANGECOLONTO$1D**(*CALL6722WRT <LDA#$00FBEQSTARTALWAYSBRANCHP*Z*NAME`NAME.EQ$81VARIABLENAMEjPNTR.EQ$83BUFFERADR'tVARBLE.EQ$9BPOINTERTOVARIABLE~FLIP.EQ$D1"FIND.EQ$E053FINDAVARIABLE**-********************************************COMMA&COLONFLIPFLAG***&*-********************************************FAKECOMMA&COLONAS**DELIMITERSWHENWRITING**ANDREADINGFROMDISK***-$*****************************************.* 8.OR$2A0B.TFFAKE.SVL*VVNAME.EQ$6ASCII      ANY KEY":756: H ASCII SREEEN DISPLAY6dH$"0123456789ABCDEF"_n:4:I116:" ";(H$,I,1);::34,2x:I116:" ";(H$,I,1)::33,32:32,4::I0255I17JI64I63ğ:JII127ĝ:JI64I159JI (J);" ";:JJ1:::" HIT  Ҡ٠ϠĠŠ٬ԠŠ͠Ӡ̠ŠҠ̮ΠΠȠŠ̠ˠӠ͠ˠˠϠĠĮ͠͠ŠӬϠԠĠ͠­ԮΠ͠נԠ ͠Šͬ׬Ԭ ȠŠϠԠǠͭ͠ԠΠ͠׭ΠȪ͠ԭРƠΪ͠Ţ̤ĤˢRѥi S,:`,:  _9) d16368,0::: NEW : END K THE END E));F$;5);"PADDLE-1=";3(G$));G$d 12:4:"PADDLE-2=";3(H$));H$;5);"PADDLE-3=";3(I$));I$ 2A(16287):B(16286):C(16285) 7X$" ":Y$" ":Z$" " <A127X$"ON" FB127Y$"ON" PC127Z$"ON" Z19:9);X$;9);Y$;9);Z$55"e (15):" CHECK BUTTONS - PRESS TO SEE IF O.K.":23:2:"PRESS < SPACE > KEY TO EXIT PROGRAM." 18:2);"SWITCH #0 SWITCH #1 SWITCH #2" E(16384):E160ī100 F$((0)):G$((1)):H$((2)):I$((3))" 10:4:"PADDLE-0=";3(F$M; PADDLE TESTER I n BY DAVE HOFFMANt: ::5:5:"THIS PROGRAM TESTS THE RANGE":5:"OF YOUR PADDLES OR JOYSTICK." 2:"NORMAL RANGE OF DISPLAY IS 0 TO 2   ĤҤĤĢ¤ĤĢӤĤŢäĤŢŤĤŢϤĤ΢ФĤ΢ҤĤĢդĤˢפRESS ANY KEY TO CONTINUE ";:A$:::L0:CALL 676:A$(R)=A$":500 "IN ALL CASES, THE POKES CAN BE DONE BE- FORE THE READ OR WRITE STATEMENTS, IF THAT IS THE ONLY VARIABLE USED." ::"PRESS ANY KEY TO RUN FAKE.SAMPLE ";:A$ A$::D$(4) D$"RUN FAKE.SAMPLE" ):"PNG SEQUENCE SHOULD BE PERFORMED, EITHER IN-LINE OR AS A GOSUB.": x"POKE 6,65:POKE 7,00:CALL 676"::"EXAMPLES OF USE:":"PRINT D$'READ XX,R'R:INPUT A$:POKE 6,65:POKE 7,00:CALL 676":" OR" "PRINT D$'READ XX,R'R:INPUT A$:POKE 6,65:POKE 7,0FORMED, EITHER IN-LINE OR AS A GOSUB.": d"PRINT D$'WRITE XX,R'R:POKE 6,65:POKE 7, 66:CALL 672:PRINT AB$":" OR":"PRINT D$'WRITE XX,R'R:AB$=AB$(R):POKE 6,65:POKE 7,66:CALL 672:PRINT AB$"A n:"AFTER READING A STRING FROM DISK, THE FOLLOWITTER."Z F:"EXAMPLE POKE'S OF VARIABLE VALUES:"::" STRING-AB$=POKE 6,65:POKE 7,66" P" STRING-A$ =POKE 6,65:POKE 7,00":" STRING-ED$=POKE 6,69:POKE 7,68"::500( Z"BEFORE WRITING A STRING TO DISK, THE FOLLOWING SEQUENCE SHOULD BE PERSTRING VARIA- BLES ARE HANDLED BY THIS ROUTINE AND NOTARRAYS (I.E. A$(?))." 2:"LOCATIONS 6 & 7 MUST CONTAIN THE STRING NAME, WHERE 6 IS THE FIRST LETTER AND 7 IS THE SECOND LETTER OF THE STRING."; <" A ZERO IS REQUIRED IF THERE IS NO SECOND LE+ ENTERED AND EDITED BY; PHIL FAULCONER, 8/29/82C :]"'FAKE' INFORMATION":"THIS ROUTINE IS DESIGNED TO ALLOW A TEXTFILE TO HAVE EMBEDDED COMMAS AND COLONS WHICH ARE NORMALLY FIELD DELIMITERS IN TEXT FILES.";L (" ONLY SIMPLE    z  32,32,32,32,32,32,87,82,73,84,84,69,78,32,66,89,32,67,82,65,73,71,32,67,82,79,83,83,77,65,78,10,10 N:2 r"SCROLL CURSOR OVER CODED DATA STATEMENT"_ |"AND #200 STATEMENT (BE SURE TO DELETE" "THE PARANTHESES WHEN INSERTING THE CHAR" "LENGTH!)" "THEN CLEAR SCREEN, DELETE LINE #470":"AND TYPE RUN. "  I133 A (A);Bĺ","; ::C " 430 FOR B=1 TO () INSERT CHAR LENGTH"I w "THE STRING IS ";A;" CHARACTERS LONG. " 360 A39Ģ4 A39Ģ5 "A39A79Ģ5 ,A79Ģ6 6A79A119Ģ6 @A119Ģ7 JA119Ģ7 T100,420 ^ h JUST APPEND THE SMALL"Y x"PROGRAM THAT IS LEFT BY THIS PROGRAM TO":"YOUR PROGRAM. " 20:"HIT RETURN WHEN READY ";:756 : "INPUT STRING TO BE CODED" A$ A(A$):: " 490 DATA "; B1A B$(A$,B,1) (B$);:A|d:430::e4f =======================Rg "INVISABLE SIGNATURE" Xhvi SOFTSIDE/APPLE ED-04/80|jk > TYPED BY C.E.WALKER <l =======================m n"THIS PROGRAM DISGUISES YOUR COPYRIGHT":"AND CREDIT LINES.     hHH_HohLl Ƙ`ЄLƘ1/?ιOϠHȱШh A Τ P Ф` L  A dL  hhݵR r0`phhHHHHP@pPQq0Q R0rƘ! 10A@QPa`qpŠuSȱusϵPеpшQq0QБ` A BChhL A BCL HHƗ0hhhhLl Ɨ0hhhhhhHH`Эѭ ҅΄Ϡ`бPȱp ȱHȱΨh8`  ʤHh b 褘OY?hqQéL 1ϱHPȱpPQpqܵQqQhuQHuqP8QQpqqhL kOȵo` A kЕPȱЕp`PеpQ6qL ȱQȱquQHȱuqhЈ` A Qq`SsSsL Rr 1Sȱs爵QuSȵqusРРЈРа ȱ0 LЄѠЅȱЅ܅` PpP6pL ЄѠ`  G ۠PȵpХuPup8Pp`hhѠЈ A 8eШeHHeФѐ A ` 1ʕpЕPЕQȱЕq` 1ϱЅΠHHPp0"PPeHpeϨh A 8hQQhqGpP&(JJJJ)L L G ) ! LA QqҵPеpL G ЄѥNO A ONi)OpO i@ &N&OФL F٭%   hh A L FF֩LLLH h  L: Э ΠHh0ΈQqLb A PpQqH G ΄ G ڄ G ЄѵP'p!0h0L\ h0Lb L , %L A pٵPHPеph` G ЄѠLA A p0 P`Pp` A pLX G ` A pPJ iАѭL'F֭i ۩ککVΠ Έ Hȱh` A pPL L A QP qpLb L\ A l LV A p0q0QPqp0ܵq0 A LV A p0q0µPQpq0q0 A LV A Pp`hihiHH` A PpL\ &&&ۥХѐ ۥЅΈ` A pL G G ܄ݩ A 0!ܤ LA A 8PPppPL] `hhѢ HH ЭѠ' Ј)?eЅАѥ !"#$`ЙȽ~wpjd^YTOKGC?;852/,*(%#!ŴxaI1*UʕPp`Pp` G uPPuppp`L A Q8PQqpqPpUp X  G Єѵp X  G ΄ϩڅ۠` A v &ϐ eЅڥeхۈ&0ڤLU LA A v ΤL A v L LL& 7ϠGX͠LΠ GĠHSĠNSĠTĠ 5EMҠL Š ֠٠0͠ĠEĠˠRĠƠAĠEϠA          "::216,0:9 T::10:12:E$""ĺ"PROGRAM ENDED":360I ^FI$" IS"E$T h:2:E)130:F2$F2$(8):+ ERR0:C$"H"290_ ERR0ĺD$"RENAME"F2$","FI$:E$" NOW RECOVERED"h 190 "ERR0ĺD$"RENAME"FI$","F2$:E$" NOW HIDDEN" ,190 6(222)6ĺ:"FILE NOT FOUND !":ERR1: @(222)255340 J:3:"UNEXPECTED ERROR !$;E$:::"(H)IDE, (R)ECOVER, (C)ATALOG, (E)ND : ";:C$O C$(3)C$"E"340_ C$"C"180x C$"R"C$"H"190 :"WHAT IS THE FILENAME : ";FI$:FI$""190 (FI$)11ĺ:"FILE LENGTH MUST BE LESS THAN 11 CHRS "::190 F2$FI$:I(FI$Ud ********************7n *** HIDE ! ***Rx *** MARK CAPELLA ***m *** 07.07.79 *** ******************** :100,140D$(13)(4):310D$"NOMONCIO":"( ... HIDE ... )":I11000:D$"CATALOG"7 ::FI   z#1,cccXհҠŠή̹ԠҠӮŠ͠ӠĠӠҠŠή̹ ҠנҠӮҠΠ̠ӮĠԠĮӮҠΠӮΠԠӮҠŠӮ!ҠŠή̷ ӭǭҠؠԠ٠ŮǠ ŮǮ̠!Ҡ"Ү̠ ӠĠӮ Ůà ŮŠ ®ŠӠ ®ŠҠΠҮ ӭǭҭӠ ͠Π ͠! ͠Ҡ" Ӡ ®Ӡ ŮӠ Ůʠ  ԯ̠Ӡ ®ԯ̠ Ӯԯ̠ԯ̠Ϡ ٠Ҡ٠Үʠ ٠Үà  ٠ŠԠȠϭ̠  Š٠ ԠǠĠӠϠ&զƮϠ ӠӠ ӠҠ ɠΠ٠ ĠԠ٠ ĠΠ٠ ǠҠ Ġ̭ǠŠǩŠĠ٠Ϡ ̠Ԡ ̠Š!ŮԠ"ԠŠӮŠŠŠ˯ŠҠ ͠ҠϠŠŠҠҠ ԠŠҠ+ҤΠҠҠР ٠ҠXհհ]Ϡՠ ͠Ԡˠ ԠŠҠĩ͠ҠҠ ٧Ӡ͠Ҡ̶̶̶̶̶̶čˠ͠ĠƠӠΠŠƠΠӨةˠˠ͠ԠƠǠŠƠΠ̨ةˠˠ͠ŠǠƠΠӨةˠˠ͠ԠƠŠŠƠΠӨةˠˠ͠ԠƠ٠ŠƠΠ֨ةˠŠ̠̠͠ŠϠҪƯҠϠĠƠή̠̠͠͠ϠҪƯҠϠĠƠŮ? 89LHNHߤ$(hH(P0h $NhL& ͍Ǎ̍ҍ̍ҍ   (4);"BRUNMENU" 01" 0AND PRESS RETURN TO SEE THE RESULTS OF THE THREE COMMANDS LISTEDABOVE";:A$:`RPT"*",38;pRPTA$,10RPT"*"A$,1540:4:14::" SWAP COMMAND ":;:"THE SWAP COMMAND ALLOWS THE QUICK AND EASY SWAPPING OF THE VALUES OF AA COMMA, FOLLOWED BY THE NUMBER OF TIMES THE STRING IS TO BE REPEATED.N:"TERMINATING THE COMMAND IN A SEMICOLON ';', SUPPRESSES THE CARRIAGE RETURN."X:"UP TO 255 REPEAT PRINTS ARE ALLOWED."b40l13:EOPvN"ENTER A STRING LE FORMATS ARE AS FOLLOWS:"P&:" 10 & RPT PRINT>";(34);"*";(34);",38;"r0:" 20 & RPT PRINT>A$,10::" 30 & RPT PRINT>";(34);"*";(34);" + A$,15"ID:"THE STRING TO BE PRINTED IMMEDIATELY FOLLOWS THE '>' SYMBOL. NEXT COMES L WILL SOUND TEN TIMES WHEN YOU PRESS RETURN.":A$GI110:BELL:O40w:10::" REPEAT PRINT COMMAND "::"THE REPEAT PRINT COMMAND PERMITS THE MULTIPLE PRINTING OF ANY STRING LITERAL,STRING VARIABLE OR STRING EXPRESSION. ACCEPTAB& CLEAR TO EOL"b:"NOTE CURSOR LOCATION AND PRESS RETURN TOCLEAR TO END OF LINE.":17:18:A$mEOLu401:24:EOL17:18:"& CLEAR TO EOP"20:17:"PAGE."17:1:A$EOP401:24:EOL:193"THE BELBUTCAN BE ACCESSED FROM A PROGRAM."[^:"FORMAT FOR THESE INSTUCTIONS IS SHOWN BELOW:"h:"CLEAR TO END OF LINE: 10 & CLEAR TO EOL"r:"CLEAR TO END OF PAGE: 20 & CLEAR TO EOP"|:"SOUND BELL: 30 & BELL":"DEMONSTRATION OF LESOFT BASIC PROGRAM BY USING THE APPROPRIATE AMPERSAND (&) COMMAND."P 640V @ J:6:"CLEAR AND SOUND BELL COMMANDS":#T:"THESE COMMANDS HAVE NO PARAMETERS, AND DO EXACTLY WHAT THEY SAY. THEY ARE MOSTUSEFUL IN THE DIRECT EXECUTION MODE, E CAPABILITIES INCLUDE:"" 32,8@ :"CLEAR TO END OF LINE"\ "CLEAR TO END OF PAGE"n "SOUND BELL" "REPEAT PRINTING" "SWAP VARIABLES" "DELETE ARRAY" "PRINT USING" "32,0H ,:"THESE FEATURES ARE ACCESSED FROM ANY APP" :\ "THIS PROGRAM DEMONSTRATES THE CAPABIL- ITIES OF 'PRINT USING AND FRIENDS'." :"PRINT USING AND FRIENDS IS A 533 BYTE MACHINE LANGUAGE UTILITY WHICH ADDS A VARIETY OF FORMATTING AND OTHER CAPA- BILITIES TO APPLESOFT. :"THESN SCOTT 7/8/82 *"A d"* PROGRAM FROM *"p n"* CALL-A.P.P.L.E. IN DEPTH NUMBER ONE *" x"* 'ALL ABOUT APPLESOFT' *" "***************************************" I12000: D$(4) D$;" BRUN PU&F.O;22);:USNGE$;N:A$:K (24:7::"PRESS RETURN TO CONTINUE ";::A$:S 2: <9:"***************************************" F"* DEMONSTRATION OF *" P"* 'PRINT USING AND FRIENDS' *" Z"* DEMONSTRATION BY KE'$ ************************** PRINT USING AND FRIENDS ** DEMONSTRATION PROGRAM ** BY KEN SCOTT 6/12/82 ** ORIGINAL PROGRAM FROM ** CALL-A.P.P.L.E. IN DEPTH ** #1 - ALL ABOUT APPLESOFT *****************************50 (34);E$;(34)         I8Mt;=CH?JÍ QVQT_ɔ%8^7Z9[:^Z_[ 04 q1  )ȹ)ȹ)   L jɠ 0   LL M4'4В  X5 QLi     IS NOOPTION TO BEGIN AT ANY OTHER NUMBER OR"X "CHANGE THE SIZE OF THE INCREMENT.": "CONTROL-X (^X) CANCELS AUTONUMBERING.": "CALL 770 RESTARTS AUTONUMBERING AT THE BEGINNING (100) IF IT HAS BEEN CANCELLEDOR WAS MERELY BLOADED.":T :"/4d::"APPLESOFT AUTONUMBERING INFORMATION"::n"THIS MACHINE LANGUAGE ROUTINE PERFORMS THE EQUIVALENT FUNCTION FOR APPLESOFT AS 'AUTO' DOES FOR INTEGER BASIC."- x:"NUMBERING AUTOMATICALLY STARTS AT LINE 100 AND INCREMENTS BY TENS. THERE  =8m>mn?nL,ZNEF- ,00 *$,XǘP$,ȱ8# =ۥ % ,L;LL { lݥHH g hh  = 8 ߅HH hE0hE0$0$0Hh`Lv Bq