8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LC! $ " " &#M8nf $ ) L! " " &J, )7(P0  ( @p !"0 *%"0"" &/) )"" &ЭL!)0I0 (Щ ߍ \ DATA' &PRODOS:! +FRED.SYSTEM&!>¬7 ¬ POKESG GPEEKSRvCALLSW ZCOPY.PROTECT`? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R)f 8'  )ɀ)4,- U JNT)  !N)Gi/ "4 "" " " iL X%!L!ΠΠҠ`  !"#$@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ# ߐ ߐ ߐ 0 HϭߍLпllllhh8` QSTV،h@ihAiȱ@JJJJq@)@evȱ@Hȱ@Ah@@cee J) LxL LxJiB LxJ) GxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJlBJ,~آ <B*IBGF08Lé'+8H <(h`@ڍL3<>=?<>CAB@?A` 1 L  <>` ڢF]PL8i m L   6< L  BLRAM' hLDLHB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`bLJCAB@=?,<ʆ>*=?BC8 é&'112`݁(݉(`}(`e`H)hJJ?(0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <((ȱ( Y'( ' f'L&`L' 'L' Y' L& Y'L'8ei` ,$`ee` `( '( (` *( ' (`hh8`8`(l&j"L  <8# ȱ)ɀ  )t& ` (Xp< @t& )mt&t&.t&w& Mt&i  ``rȱȱȱȱ0]cȱeem(ȱ(ȱ((ȱԠŠҬîʎ1DžϠl&8f ZHH)hh8JhJJJJJ j&Hk&8H) 12 (j21 h!hH h %)Ђ12H)M0 h10200I20h2 |&`L($_뿩 8!@8` MNЩUMܩ  L 5   8 0 8 `0 / x X$$%&%0`ŠӠЭ[ V7 c L '0%O '8O JmO * ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`;YYZLYLYLY"7"Y"/"ll"*# HQ$WON!-PB}OBiB ,m# m# J Qڨ)̰n]e мȱ ; ̀𩠙< iO P F V >Z SY ɘL` X _ 'P0ōҍJJJJ ɺi) ɺiLD )?      `l@Hȱ@IױHXATȱH ɯȩ׍̞5H)/@a)_ .0 :A[8@`,뎞׮Б` L` @>_)I38Ypqם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA <'KI؍_JJJJح}) ) )в|J8` GpF $ ᭔ع+ؠ HH  Jh8` 䮑ٽ ٬ؠ@` ( X )8`)i пJGBJ a FإG`BH aFإG`H hHB؅F  ؅GxDE؍00C ް(`(8` L7J  G"L H  G 9ؙ` @ P8`B8` X؈ ;JHIH ILFFHGI ѭJjHIH;7IؙJJ g3HIHILJKJK`FHIG ( Ȣ؝؈JL)eKM`)` J Jͫ $0 ΚJFJL8`0C ް(`(8`ؑ@`M8`8@ؐʈI묒)8 L LةC8`؍)@ i)8zJ _ ؅F L) +&J(b ;FإGؐ/8`*J۩ ٰ`JJJJi LdH8`ͦ ٍ0  ` `ٍyٍiB0H0FG h0`שB5xED "8`  `ٽJJJJ`H͜hn)NjNjNjN. dH͜ ;٭ *Nۙ۰ڙک `Z8` d# B` . . .8۰0٭)ܝ٭*ܝ٥F٥G٭'ܝ٭(ܝ`) 8ʈ` )0ٝ)i `8`R "ꍜ NمFمG < Μ0 FGL鮑0 ٭٭ٽ8`H8`  ,0 d01 E8`100 v$0ʩGF 밽 谸 谳`12)1`0`Ȏi 0U`)8`θ` )W G JA)H ܝʈh٭ )ȱHθ`Κ8QeHI SBF0Y ٙWٙUFZSʈ {猺`8m0`,0H hi L荸Ƚθhٍ0GF8yאFG  `* ΙQ8`5IF܅G 됾`\܍]^ {8D`F` tlH)HFȍZHG[ $%܍&܍!ܢ8* J8` L ܝJ)I 'ܝF`R8i^F\G]`R5IH3H (  밯ZF[G 밠S%܈P" X)Im'܅F(܅G)܍^*܍Q 4 䭐 $H %HFFHGHG 됨`R8`)` QH_` :R(5IHH__Ѝ_@`8 e ͙_ʈ@}ȱ@oȱ@y{|rZ[_)7_I0ܢܽ \'Q*ܩu 7pqFG (ST L܅I^ mQIH` } }Y0\F]G Q_HZF[G` G8`F@ 0 e LK8`F GI8`FHGH hGhF܌ բFܽܕF芝ܝ 밶FFGG H܅I mIIHHyHȘI Lܝ` @o@ w@Ю׍_)m0JHi 뎑`C8` @ 3N@) d莽 ⭺i`0 v0GF #0 W,0 ).H hȑNWȮّNW8`ٍّNθ0NN` H h)N$% LL L L H  :pJ덯 )@፲NJOK HiKKήή IJί JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@LH쬒8NNO 8 ؍JL`RήʱLN.MOMEKP/MEKήLML-M O,p莭eNNO(`JNKOL H/  :P L8 gؑJ`L@ȱ@LL`BLLޢޢޢޢޢޢޢޢޢޢޢޢޢޢޢCOPR. APPLE,1983LM Mh@8nЍLޭ 0J @,,L:,L@   !"#$Ԡ͠ˠĠԠhhhhILhH),dx8 (8`@Ae f!55s+aIJK,-NOPQRSuHUSTON!' J5 s9X(K sXXK تKo`V8`no` < on sI9XX`)HJJJh`OeNeO࿰ s9XАO`@ȭ@` ON YNJKO`HHHHх܅F݅G ` ͬ 밽܅F݅G ` * % L`FGL 4܍ݍ8`FHGH 4ܙhGhF`@Bɼ>K@yٙ٩`O dIpFqG :%&N  # 4܅F܅G `J HH hh` 0 @ L\L# [Tܝ ݝ0ȩFG  0` רם__)׍_pFqG 밍 hPם8`;Zx3QTTSRWVUHEVhEhH)IWHPHHHAHHHLaVEWLӿ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>)")"(`)"$HJhTlYUlY$JT(`U(`$JTLS"U(I`@@( &"T`HJJJJ t"h) ii0 HhH45 "54Th` ɜɌLT#ɇL ɍ=ɓ9,0,ɈƧ Ʀ E#p` ɠ)%2 "槥p%'()*+,-./0123456789:;<=>?@ABCDE *") i@ٝ  H  h $0H ~#h "  LE! `a!b!`! "a!b!`HH !H)?h@hh``54)?@45`45 !¤45T`,0`,0 !L! "b aj),lY *"lYL ` `  k L5) dȐi iL) `ip` +" #P$ p L Jp 2L"Ư` !$0H "h` ,0`$0H&& "&&h`H Z!h ʩ " ! &@DEF   %LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ ƠϠ î ƠϠ 'ĝL  LL L)'L L L'L  (L(L $ʩ $$ $L `ީ % XʩXύX`6 5L9L )L 莀 7L  LL) (L)'L "L'+3 2L6'L4.5/ * ((L(L `8V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌1֍ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` *L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| #AƦ"H G#(&)'hi#"H G#T'(&$ܠ'U(&0Π # %(%)`"H G# #hi#LE#"LG#& "&p` 3Hp'©8…8岐 8 L#ʐ 8ʰh , %зeiL' ) 󄮥宅寅`$p5 #ȽY ȘlL B0  BL:?>@> Q* >>B 8>` Z@   a5`hhL: FrEdWriter Printer -- Use ARROWS to choose; -- Press "RETURN" to go -- Press "ESC" to quit PRINT THIS DOCUMENT L:MBBWBAL:ZBAL:MBBWBAL:ZBAL: Q*B 8>  G a5@BB 8>  , a5%B BBàA m;ȩ-BɠA m;L:BB]BAA n@ BA m;L:MBBWBAL:ZBAL: m;ȹB. =L>cL=BB🩠В 8>ɍ \>`?>@>>># H,Bɍ 1 "hɍ ?>@>` "1A n@A B>A m;L:aA n@&"0BBwA m;B8B0ԍBL:JA n@0BBWA m;L>MBBxB*AL:B*AH`i ȽȄi`hdɍ =,B =hb >dbBhh`Ɂ ɂ`'*P曠`H Ʉ =ɍ ,B =h`lY$g,BL=b0 =B 0 e =e`fB > B # = = = >Bb`cfB=L; =B,`B) 7g6䍝=Y=`6"76==g``ɛ ɛ`i u=;Ɏ) `l-iLX<Ʉ!,B0 `i u=Ƀ𰜆``i`B!dɍ Bi` =$b``Lp< =мƦ Ъ E#& *"ɠ A"`8 C;D;A;B;L@;;::>t>>>?)??O??@&@ʆlA m;`H.hȘ 4`  Q* ?<hBbBfigd&fB$g BfL?ind oad(?=Catalog) ew (Erase Memory) Yes/No ?

ave(?=Catalog) idth ŠӿٯΩ _;@ +> ;H ;h) L-;`  榥  m7 8` F7 7ɍI z'цL;& 'ı*ɍ!Ʉ)a8aj U& 7L5 'a z'HɄ g'Ls9$a0'H Q*: Z!  1)ͷYh`haɃ z'0 ;& ' 2 2L58'88#'V/7877-1:'8`*B762 F72$PɍL7 7L<8`ĩ m7)$Pɍ 70 7LF7` JA[ {a Ll8[i (j`Ƭ  z&L 2` ')欘L 2 g' &L 2 8$Pꄹ 8) g'L8 ' &L5$k0 Ʉ g' 7L5`I`jIj`` b&`L 2 & ;&τ3Ȅzxrk`$k0$ F7>Ʉ: 7 F7Ƀ 7Ƀ( 7 f7 'L&$ N8 'Hh`Hh`$k0 7ɃɃ 7 70 z'L;&$ N8 g'L^7,0,a0 $`$PL87 $PLp8m7 8777L7ĩ 7) 8L5 6L5$pL6s$r0 ) e r$P4)a8 PEkk`$kRLl9A Z k r6$ $kx b& !`L 2)$ 2L6: ' 'L < ') '9H9H  `rIr`8j) ` 5 0`&&*  ` 45L48内凅8ee(&e`ȹ+- 0:- 8Hh`I0H 5 5 5eeheLj5&` 7  & & 2wyq !$p $ ! % " "C H T#hL C``V Z!L! Ծ оԠ ӾŠ ̾Ġ ƾĠ ľŠ ׾ þŠ Ҿ̯ ¾ ž ξנ堨 ؾҠ ѾԠ䠨 ־ ŭР ȠӮ 󮠠Π 堼Ҿ źǠ ӭˠ ̠Ӡ 堼þ䮠 %堼Ҿ ƾ䠺 %堼׾ 謠׬  %堼þ%ƾ 堼ƾ ƾ䠺 姮 䬠 堧姠  ƾ䠺 謠 䬠 ƾ䠺 Π 䧮 堼¾ 堲 堲 報砧ı %堼ƾ 堼ƾ 堼̾Ӿ 󮠠 嬠ᠧ 堲 IJ ̾䠨空IJ 堼̾䮠 䬠 Ġ   Ǡ %Ǡ 䮠 宠٧ %堼̾ %堼Ӿ ź 堼Ӿ % % 嬠 à% Ү 嬠 嬠 Š 嬠 宠Ҡ %堼ؾҩ 堼ؾҠ 򮠠Ԡ ؠ %堼Ѿ Ѿ 仠 TEXT WINDOW (0-23 NORMAL=0) POKE 35,X ($23) : SETS BOTTOM OF TEXT WINDOW (0-23 NORMAL=23) POKE 36,X ($24) : SETS CURSOR HORIZ. POSITION POKE 37,X ($25) : SETS CURSOR VERT. POSITION POKE 48,X ($30) : SETS COLORS FOR LORES GR POKE 50,X ($32) : SETS MODE (63++++++++++++++++++++++++++++++++++++++++ Apple Pokes ++++++++++++++++++++++++++++++++++++++++ POKE 32,X ($20) : SETS LEFT SIDE OF TEXT WINDOW. (0-39 NORMAL=0) POKE 33,X ($21) : SETS WIDTH OF TEXT WINDOW (1-40 NORMAL=40) POKE 34,X ($22) : SETS TOP OFlable on request. Complete lower case kits for Apple II & II+, and Spanish conversion kits for Apple IIe, are available at low cost from: Hands-On Training Company 4021 Allen School Road Bonita, California 92002 oject Walden Software, Inc. (C) P. Lutus 1984 FrEdWriter Works on Apple II and Apple II Plus Computers equipped with lower case and shift key modifications. It is also available in SPANISH for Apple IIe Computers. Other languages may be avain 4.1 6/1/86 Prompted Writing Concept by Bruce Fleury (c) 1986 CUE, Inc Softswap All Rights Reserved == FreeWriter == <> You are free to distribute copies but you may not sell them The Freeware Pr)44))`ȄYȌ&& k p8 ʠA$0& S X[ X[ T# [ s#l[m[[)$iLc[ "Lc[,` s# [ E#pʩ_ "` ===== FrEdWriter ===== <> by Al Rogers Versiop kZ DZLZ kZ`$p MkZkZ@ DZ @`$r0Ԣ FZLZ SZ`_Z`^]@ AZRPNMP Z ;& &3L `ZZ 0 -  I))+YBZ)[c7!7YY 1Y'Memory is Full (Press RETURN) Name Modified Time Length You are about to MERGE a new file from disk with the text already in memory. DO YOU WANT TO DO THIS? (Y/N) YNA FrEdWriter Size: ? utor!lZYYYY(` Y Y`l6` @$HIJKNQRWProDOS Error ind:RETURN=Proceed / Y=Replace Press RETURN to ExitOne Moment - Adjusting Your Text Blocks Remain sk). RETURN TO MAIN MENU NOW (Y/N)? Place FrEd in Drive 1 and press RETURNDelete old $ (Yes/No) ?&'ɯϠ(+.@DEFG à à堼Ծ Π婠 QUIT FrEdWriter and Return To Main Menu Text in memory will be lost (unless you aved it to di ӾѾ Ԡ報 Ѿ堼Ծ à堼Ծ 堼Ѿ %The ESC Command: àFHIJKLMNOP=INVERSE, 127=FLASH, 255=NORMAL,128=VIDEO NON-PRINT) POKE 51,0 ($33) : DEFEAT "NOT DIRECT COMMAND" (SOMETIMES) POKE 72,0 ($39) : RESETS THE STATUS REGISTER POKE 82,128 ($ ) : MAKES CASSETTE PROGRAM AUTO-RUN WHEN LOADED POKE 109,PEEK (107)($ ):POKE 1 -21912,X ($AA68) : TO SELECT DISK DRIVE ON 48K SYSTEM WITHOUT ACTUALLY EXECUTING A COMMAND POKE -21503,0 ($ ) : PREVENTS CATALOG (NORMAL = 17) POKE -20940,96 ($AE34) : TO OMIT PAGE PAUSE FOR A CATALOG POKE -16368,0 ($C010) : CLEAR KEYBOARD POKE -TOPS DRIVE POKE 49385,0 ($ ) : SPINS DISK WITHOUT READING, WRITING OR ERROR POKE 49386,0 ($ ) : CHANGES TO DRIVE #1 POKE 49387,0 ($ ) : CHANGES TO DRIVE #2 POKE -25250,105:POKE -25249,0 ($ ) : TRAPS AND DISABLES CTRL-C POKE0 ($ ) : SHOWS FULL SCREEN GRAPHICS POKE 49235,0 ($ ) : SHOWS SPLIT GRAPHICS AND 4 TEXT LINES POKE 49236,0 ($ ) : SHOWS PAGE 1 POKE 49237,0 ($ ) : SHOWS PAGE 2 POKE 49238,0 ($ ) : LO-RES POKE 49239,0 ($ ) : HI-RES POKE 49384,0 ($ ) : S45621,234 ($ ) : KEEPS REPEATING FIRST LINE IN CATALOG (NORMAL 105,35) POKE 47617,12 ($BA01) : SPEEDS DISK ACCESS (SAME AS ADR -17919) POKE 49232,0 ($ ) : SHOWS CURRENT GRAPHIC SCREEN POKE 49233,0 ($ ) : SHOWS CURRENT TEXT SCREEN POKE 49234,X" LENGTH (NORMAL 189,231,180) POKE 44611,1 ($ ) : CHANGES CATALOG SECTOR NUMBER FROM 3 TO 2 DIGITS POKE 44723,4 ($AEB3) : MARKS TRACKS 1 & 2 AS FREE (12 NORMAL) POKE 44793,11 ($AEF9) : PREVENTS SAVE OF DOS (5 NORMAL) POKE 45620,234:POKE (SAME AS -21031 & -21030) POKE 44509,76:POKE 44510,19:POKE 44511,174 ($ ) : OMITS FILE TYPE AND SECTOR LENGTH (NORMAL 189,200,180) POKE 44545,169:POKE 44546,X:POKE 44547,234 ($ ) : WHERE X=0 TO 255 SHOWS SECTOR LENGTH TO BE "5,21 ($ ) : CONTROLS NUMBER OF FILES DISLPAYED IN CATALOG. THE FIRST POKE IS ALWAYS 1 MORE THAN SECOND POKE POKE 44505,234 ($ADD9) : SHOW THE DELETED FILES WHEN CATALOG POKE 44506,234 ($ADDA) : NORMALIZE WITH 48 AND 74 IN SAME LOCS 12) POKE 43626,X ($AA6A) : WHERE X = 0 TO 7. WILL SET/CHANGE CURRENT SLOT TO X. (SAME AS ADR-21910) POKE 43698,X ($AAB2) : WHERE X= ASCII OF DOS CMND CHARACTER. (IE.POKE 43698,64 MAKES @ = [SAME AS ADR-21838] POKE 44452,22:POKE 4460N:N=52, EXEC:N=20) POKE 42344,76 ($A568) : PREVENTS SAVE OF "HELLO" (32 NORMAL) POKE 43273,65 ($A909) : ALLOWS INIT WITHOUT "HELLO" NAME (33 NORMAL) POKE 43624,X ($AA68) : WHERE X = 1 OR 2. WILL SET/CHANGE CURRENT DRIVE TO X (SAME AS ADR-21915,165 ($3F7) WILL MAKE & CATALOG POKE 2049,1 ($ ) : PREVENTS A PROGRAM FROM LISTING ONCE ITS BEEN RUN POKE 40286,35:POKE 40287,216 ($ ) : PREVENT CTRL-C AND RESET POKE 40514,N ($9E42) : CHANGES "HELLO" COMAND (RUN: N=6, BRU76:POKE 1014,88:POKE 1015,252 ($ ) : MAKES "&" = HOME POKE 1013,76:POKE 1014,156:POKE 1015,252 ($ ) : MAKES "&" CLEAR TO END OF LINE POKE 1014,165 ($3F6) : POKE 1015,214 ($3F7) WILL MAKE & LIST POKE 1014,10 ($3F6) : POKE 10KE 1015,252 ($ ) MAKES "&" MOVE CURSOR UP ONE LINE POKE 1013,76:POKE 1014,58:POKE 1015,255 ($ ) : MAKES "&" RING BELL POKE 1013,76:POKE 1014,66:POKE 1015,252 ($ ) : MAKES "&" CLEAR TO END OF PAGE POKE 1013,KE 241,X ($ ) : SETS SPEED. X = 256-SPEED POKE 243,X ($F3) : WHERE X= 1 TO 255,WILL USUALLY MAKE LISTINGS UNREADABLE, EXCEPT 64 AND 192.(X=63 IS ALL ?'S. POKE 1010,102:POKE 1011,213:POKE 1012,112 ($F2/$F3/$F4) RESET RUN POKE 1013,76:POKE 1014,26:PO10,PEEK(108) : DELETES ALL ARRAYS. ALLOWS REDIMENSION OF ANY OR ALL ARRAYS WITHOUT ERROR POKE 214,128 ($D6) : TURNS APPLESOFT INTO "RUN ONLY MODE" POKE 214,0 ($D6) : CANCELS "RUN ONLY" MODE POKE 216,0 ($D8) : RESETS ERROR FLAG. DISABLE "ONERR GOTO" PO16336,0 ($C030) : TOGGLE SPEAKER POKE -16304,0 ($C050) : SETS COLOR GR MODE POKE -16303,0 ($C051) : SETS TEXT MODE POKE -16302,0 ($C052) : CLEARS MIXED TEXT MODE POKE -16301,0 ($C053) : SETS TEXT MODE POKE -16300,0 ($C054) : CLEAR PAGE 2 POKE -16299,0 ($C055) : SETS DISPLAY TO PAGE 2 POKE -16298,0 ($C056) : CLEAR HIRES GR MODE POKE -16297,0 ($C057) : SETS HIRES GR MODE POKE -16152,0 ($C0E8) : SLOT 6 MOTOR OFF POKE -16151,0 ($C0E9) : TURNS ON SLOT 6, DISK MOTOR ONLY POKE -16136,0 ($C0F8) : SLOT 7 MOTOR OFF P CLEARS HGR2 SCREEN TO BLACK CALL 11250 ($ ) : CLEARS HGR2 SCREEN TO THE HCOLOR LAST HPLOTTED CALL 42340 ($ ) : LOCKS UP DISK TO PREVENT WRITING ON IT. (CAUTION!: BACK UP DISK BEFORE USING) CALL 42350 ($ ) : CATALOG CALL 54514 ($ ---------->> CALLS <<------------ CALL 768 ($ ) : OFTEN USED TO CLEAR ONERR PROBLEMS CALL 976 ($3D0) : RE-CONNECT DOS CALL 979 ($ ) : DOS COLD START CALL 1002 ($3EA) : TO RECONNECT DOS I/O HOOKS CALL 3314 ($ ) : ROM TO RAM CALL 11246 ($ ) : VALUE >127 = SWITCH ON PEEK (-16285/$C063) : READ PDL (2) SWITCH. IF VALUE >127 = SWITCH ON END OF PEEKS OKE -16368,0 PEEK (-16352/$C020) : TOGGLES THE CASSETTE OUTPUT PORT PEEK (-16336/$C030) : TOGGLE SPEAKER ONCE FOR EVERY TWO PEEKS PEEK (-16287/$C061) : READ PDL(0) SWITCH. IF VALUE >127 = SWITCH ON PEEK (-16286/$C062) : READ PDL (1) SWITCH. IF-19472) PEEK (-18070/$B96A) : IF 150 IS RETURNED THEN YOU ARE USING DOS 3.3. THIS PEEK WORKS FOR BOTH APPLESOFT AND INTEGER PEEK (-16384/$C000) : READS KEYBOARD. IF VALUE IS >127 THEN A KEY WAS PRESSED. THIS PEEK SHOULD BE FOLLOWED BY A POR DATA PEEK (43702/$AAB6) : RETURNS THE LANGUAGE THAT IS ACTIVE. (0=INT 64=FP ON TAPE OR DISK) (SAME AS ADR -21834) PEEK (46064/$B3F0) : RETURNS THE NUMBER OF SECTORS ON DISK CURRENTLY BEING USED. (16=DOS 3.3 13=DOS 3.2) (SAME AS ADR WHICH CAUSED AN ONERR TO BE TAKEN PEEK (36/$24) : READ CURSOR HORIZ. POSITION (VALUES 0-39) PEEK (37/$25) : READ CURSOR VERT. POSITION VALUES (0-23) PEEK (-21902/$AA72)+PEEK (-21901/$AA73)*256 : TO FIND STARTING ADDRESS OF LAST BLOADED PROGRAM K (203/$CB)*256 : RETURNS MEMORY LOCATION OF 1ST LINE OF INTEGER PROGRAM PEEK (218/$DA)+PEEK(219/$DB)*256 : APPLESOFT LINE NUMBER WHERE ERROR OCCURRED IF AN ONERR WAS TAKEN PEEK (222/$DE) : RETURNS ERROR CODE WHICH IDENTIFYS THE ERROR QSTUNTEGER HIMEM RND(PEEK (78/$4E)+PEEK (79/$4F) * 256 :PROVIDE "TRUE" RANDOM NUMBER GENERATION IN APPLE SOFT PEEK (115/$73)+PEEK (116/$74)*256 : CURRENT APPLESOFT HIMEM PEEK (175/$AF)+PEEK (176/$B0)*256 : POINTER TO APPLESOFT PROG PEEK (202/$CA)+PEE ----------->>PEEKS<<------------ PEEK (43)($2B) : BOOT SLOT NUMBER * 16 (AFTER BOOT) PEEK (44)($2C) : LO-RES LINE END POINT PEEK (48)($30) : LO-RES COLOR * 17 PEEK (74/$4A)+PEEK (75/$4B) * 256 : CURRENT LOMEM PEEK (76/$4C)+PEEK (77/$4D) * 256 :CURRENT IOKE -16135,0 ($C0F9) : TURNS ON SLOT 7, DISK MOTOR ONLY END OF POKES VXYZ[\]^ ) : RAM TO ROM CALL 54915 ($D683) : CLEANS STACK. DOES AWAY WITH "OUT OF MEMORY" ERROR WHEN YOU REALLY HAVE MEMORY LEFT. (SAME AS ADR -10621) CALL 62450 ($F3F2) : CLEAR CURRENT HIRES SCREEN TO BLACK. (SAME AS -3086) CALL 62454 ($F3F6) : CCOPY PROTECT YOUR DISKS Residing within DOS is the 'RWTS' (read or write a track and sector). When you initialize a disk, DOS calls the 'RWTS' which writes the address and data marks for each track and sector. If you change the address of data mark0. NOTE: IF USING APPLESOFT DO NOT USE THIS CALL WITHIN A GOSUB END OF CALLS LL -167 ($FF59) : ENTER MONITOR AND SET TEXT MODE. FUNCTIONS THE SAME AS RESET CALL -155 ($FF65) : ENTER MONITOR WITH BELL CALL -151 ($FF69) : ENTER MONITOR WITHOUT BELL CALL -144 ($FF70) : SCAN AND EXECUTE CONTENTS OF KEYBOARD BUFFER AT $20 LOCATIONS 58-59 BEFORE CALL CALL -384 ($FE80) : SET INVERSE VIDEO MODE CALL -380 ($FE84) : SET NORMAL VIDEO MODE CALL -321 ($FEBF) : DISPLAY A,X,Y,P AND S REGISTERS CALL -211 ($FF2D) : PRINT ERR MSG AND BEEP SPEAKER CALL -198 ($FF3A) : BEEP SPEAKER CAL -665 ($ ) : LF PROMPT AND WAIT FOR INPUT CALL -662 ($ ) : PROMPT AND WAIT FOR INPUT CALL -657 ($FD6F) : BETTER INPUT. COMMAS/COLONS OK CALL -550 ($ ) : PRINTS HEX VALUE OF A-REGISTER CALL -415 ($FE61) : DISASSEMBLER.NOTE POKE START ADDRESS AT : CLEAR CURSOR TO END OF LINE CALL -856 ($FCA8) : TIME DELAY. POKE 69,XX TO SET AMOUNT OF DELAY CALL -756 ($FD0C) : WAIT FOR KEY PRESS CALL -678 ($FD5A) : WAIT FOR RETURN KEYPRESS CALL -676 ($ ) : RINGS BELL AND WAITS FOR CARRIAGE RETURN CAL26 ($FC62) : SEND CARRIAGE RETURN AND LINEFEED TO SCREEN CALL -922 ($FC66) : MOVE CURSOR DOWN ONE LINE WITHOUT CHANGING HORIZ. POSITION CALL -912 ($FC70) : MOVE ALL TEXT IN WINDOW UP ONE LINE CALL -875 ($ ) : CLEARS ENTIRE LINE CALL -868 ($FC9C)D (RIGHT) ONE SPACE CALL -1008 ($FC10) : MOVE CURSOR BACKWARD (LEFT) ONE SPACE CALL -998 ($FC1A) : MOVE CURSOR UP ONE LINE CALL -958 ($FC42) : CLEAR SCREEN FRON CURSOR TO LOWER RIGHT CORNER OF THE SCREEN CALL -936 ($FC59) : CLEAR SCREEN (HOME) CALL -9STEM CALL -1321 ($FAD7) : DISPLAY ALL REGISTERS CALL -1233 ($ ) : TEXT CALL -1216 ($ ) : GR CALL -1184 ($FB60) : CLEARS SCREEN (HOME) AND PRINT "APPLE ][" CALL -1052 ($FBE4) : BEEP APPLE SREAKER FOR 1/10 SECOND CALL -1036 ($FBF4) : MOVE CURSOR FORWAR MODE. IF IN LORES CLEARS SCREEN TO BLACK CALL -1953 ($F85F) : INCREMENT LO-RES COLOR BY THREE CALL -1728 ($ ) : PRINTS HEX OF X AND Y REGISTERS CALL -1438 ($FA62) : PSEUDO-RESET CALL -1401 ($ ) : WARM BOOT CALL -1370 ($FAA6) : RE-BOOTS DISK SY3082 ($F3F6) : CLEAR HI-RES TO LAST COLOR HPLOTTED CALL -2613 ($ ) : HI-RES CUSOR COORDINATES TO 224-225 CALL -2458 ($F666) : ENTER MINI ASSEMBLER CALL -1998 ($F832) : CLEARS LO-RES SCREEN TO BLACK CALL -1994 ($F836) : CLEAR TOP 20 LINES TO @ IF IN TEXTBASIC TRACE CALL -3318 ($F30A) : EXEC INT BASIC "CON" CMD CALL -3305 ($0CE9) : RESUME FRON APPLESOFT ONERR CALL -3100 ($F3E4) : REVEAL HI-RES PAGE 1 CALL -3116 ($ ) : HGR2 CALL -3106 ($ ) : HGR CALL -3086 ($F3F2) : CLEAR HI-RES SCREEN TO BLACK CALL -N CALL -8192 ($ ) : END AND CLEAR CALL -8117 ($E04B) : LIST INTEGER BASIC CALL -7036 ($E484) : DO APPLESOFT GARBAGE COLLECTION ROUTINE CALL -6090 ($E836) : RUN INTEGER BASIC CALL -3727 ($F171) : TURN ON INT BASIC TRACE CALL -3722 ($F176) : TURN OFF INT LEAR CURRENT HIRES SCREEN TO THE HCOLOR LAST PLOTTED. MUST BE PRECEDED BY A HPLOT (SAME AS -3082) CALL -41881 ($ ) : SAVE CALL -23186 ($A56E) : TO CATALOG DISK CALL -25153 ($9DBF) : RECONNECT DOS 3.3 CALL -9477 ($DAFB) : OUTPUT A CARRIAGE RETURs in the 'RWTS' core, then any disk you init fron this core will have the changed address and data marks and will be uncopyable (at least by normal methods). The locations for DOS 3.3 are 47413 and 47262. These are only two of a number of locations. PO BOX 696, STATION B WILLOWDALE, ONTARIO M2K 2P9 p your program, they would not be able to access your disk! I trust these techniques are of some interest. Be certain to practice them using disks which do not contain valuable data! Reprinted fromm: THE MAPLE ORCHARD step for true copy protection... Now you must add a line in front of your program to change the two locations back to the original values. 0 POKE 47413,222:POKE 47262,222 Line 0 changes DOS back to normal. If by chance someone were able to stof your program.) 0 ONERR GOTO 1 1 POKE 214,128:POKE 1010,102:POKE 1011,213 POKE 1012,112:PRINT CHR$(4);"RUN (YOUR PROGRAM NAME) Line 0 and 1 set 'RUN' command, locks out 'CTRL-C' and 'RESET' auto runs your program. The final benefit of this method of copy protection, a special 'HELLO' program should be used. This program should set the run flag as well as lock out the reset switch and 'CTRL-C', and then it should run your program. An example (insert these lines ahead oert the protected disk in drive 6. Save (program name) Now, transfer all your programs to the new copy-protected disk. After you have transfered all your programs to the protected disk, you need to consider one final point. In order to get fulld the changed DOS. In order to 'load' programs onto this disk, you must change the two new locations that you poked in earlier. Follow these steps: 1. Boot normal DOS 2. Load your program 3. Poke 47413,(new number) 4. Poke 47262,(new number) 5. Insn your drive 4. Poke 47414,(new number) 5. Poke 47262,(new number) 6. Init (name of your hello program) You now have a protected disk! The normal Apple copy programs will not work on this diskette. To use it, you must boot this disk. This will loa The normal values at these addresses are 222. When you change this byte, be sure to change both locations to the same value. Use a value betwen 160 and 250. Follow this routine: 1. Boot normal DOS 2. Load your 'HELLO' program 3. Insert a blank disk i_abcde