' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?  ( =+. ".$ (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#?((#)<;?+0<#0?2$4:?(Eb)+ H+ `H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`   ɑ `HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  Lӌu`".Q`pNФbptťܥm2<(-޼y0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( 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 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õ`  \ 濭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`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINFILEDUMFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@ 0@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-F^"("   -     83 @跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(`# d ֠Ġz# u`z!#?????    !Ӡ  ҠŠŮӠҠŠŠ̠ŠҠŠǠϠŠǠҮӠŠǠҠ Р  -     83 ӠҠŠŠҠԠҠǮӠǠàŠŠ  YOU WANT TO USE ";NAME$:"AS THE NAME OF THE NEW FILE? (Y/N) ";:A$:A$A$"Y"1070:A$"N"ĺ:"WHAT NAME DO YOU WANT TO USE? ";NAME$:1070$1030.D$;"BSAVE";NAME$;",A16384,L8192"853040 RPIC,(TEMP)" \PICPIC12 fTEMPTEMP1< pBITEL zPICPIC984V LINEg PICPIC8064q SECT PICPIC984 SCREEN:  RING BELL AND WAIT FOR A RETURN TO CONTINUE BEL$ A$:530:  SAVE THE PICTURE H:"DO384:TEMP24576(40X)* (X)1ī770: 9  MOVE UP J COL(32255)Z I1(40X)m (32255I),COL| I:810: MOVE DOWN COL(24576) I(40X)1 (24576I),COL I *SCREEN13 4SECT18 >LINE18 HBITE1HE PICTURE, SAVE THE PICTURE OR QUIT . :f "MOVE PICTURE, SAVE IT, OR QUIT? (M/S/Q)";:A$:A$ &A$"M"630:A$"S"1030:A$"Q"ĺ"THE END":: X MOVE PICTURE UP OR DOWN v"HOW MANY LINES TO MOVE UP? ";X 49232,0:49237,0 PIC166 TSCREEN13 ^SECT18- hLINE18< rBITE140M |TEMP,(PIC)[ PICPIC1k TEMPTEMP1u BITE PICPIC984 LINE PICPIC8064 SECT PICPIC984 SCREEN:  FINISHED WITH PICTURE &  WHAT NEXT? - MOVE TE"1 ::"NAME OF HI-RES PICTURE FILE? ";NAME$? BEL$(7)Q D$(13)(4)W z "D$;"BLOAD";NAME$;",A$4000": , MOVE DATA - REARRANGES AND MOVES PAGE 2 (16384 TO 24575) DATA TO PAGE 3 (24576 TO 32255) BYTE BY BYTE  JPIC16384:TEMP2457Fd GRAPHICS MOVER BY HOP PORTER CALL -A.P.P.L.E. : SEPT. 1983 v SET UP - LOADS HI-RES PICTURE ON PAGE 2 ~:10:"GRAPHICS MOVER MOVES A HI-RES PICTURE UP OR DOWN ON THE SCREEN":12:"BY HOP PORTER" 13:"CALL -APPL     HAPES INTO FIRST TABLE$K0YB16A3K,(A6K)=KXNXNXYA:LXLXYB2YAhSX,NX:330 ** INSERT FROM SECOND INTO FIRST "ENTER # OF FIRST SHAPE (SECOND TABLE)""TO BE MOVED ";:YF"HOW MANY SHAPES TO MOVE ";YA2K:A3SY2(K1)0ZA4,D1:A3,D2:DLTAD1D2EdA1A12:JJDLTAPnA1,JWxKr * SIZE BLOCK TO MOVEA5SYLY:(SY2YF),A6:A6SYA6YLYFYA1:YLNY1450(SY2(YL1)),A5:A5SYA5YBA5A6A3SXLX2YA * MOVE SA41(A32YA),(A3)#A3D * INCR PRECEEDING POINTERSOJ2YAf A1SX2:A2SX2NXn90 * INSERT FIRST NEW POINTER(A1SX2(NX1):JLX2YA:A1,J2YA11420< * INSERT REMAINING PNTRSFKYF1YFYA1PA4SYTO BE MOVED";:YF3"HOW MANY SHAPES TO MOVE";YA[:"APPEND ";YF;" THROUGH ";YFYA1"FROM SECOND TABLE. CORRECT?(Y/N)":B$:B$"Y"350YFYA1NY1140 * MOVE SHAPES BACK 2*YA(SX2),A4:A4SXA4A2SXLX1A3A2T=";SY/8"LENGTH=";LY;" BYTES. SHAPES=";NY\B"1=APPEND SHAPES TO END OF FIRST TABLE"L"2=INSERT SHAPES INTO FIRST TABLE"VA:A1A21090`A21530j * APPEND FROM SECOND TABLE *t"ENTER # OF FIRST SHAPE (SECOND TABLE)"~"TER DECIMAL ADDRESS ";SY7(SY10000)(SY37000)350N:"FILE=";TYNAME$d"START ADDR=";SY:"IS THIS CORRECT (Y/N)?":B$:""B$"Y"360(4)"BLOAD ";TYNAME$;",A";SY43616,LY$NY(SY).:"SECOND TABLE IN MEMORY. STAR SECOND TABLE"pA"zA1920:(A2)(LY0)1090C860] * LOAD SECOND TABLE:"ENTER FILE NAME OF SECOND TABLE""TO BE READ FROM DISK":TYNAME$:"END OF FIRST TABLE IS ";SXLX"ALLOW ROOM FOR EXPANSION""ENESA1(SX2XF2XA)A613(A12XA),(A1); A1JXLNX840c  * MOVE SUBS SHAPESx*A1A5(SX1LX)4(A1XB2XA),(A1)>A1HLXLXXB2XA:NXNXXARSX,NX:330\:"1=NEW SECOND TABLE":LY0920fLY0ĺ"2=CURRENT1):A9,A5:A5SXA5!XBA5A6/XF1710P * DECR PRECEEDING POINTERSkA1SX2:A2SX2(XF1){J2XA:90XLNX750 * DECR SUBSEQUENT POINTERSA1SX22XL:A2SX2NXJ2XAXB:90 * MOVE SUBS PNTRS AND PREC SHAPHAPES TO DELETE ";XA# :XLXFXA1E D(XF0)(XFNX)(XLNX)610i N"TABLE HAS ONLY ";NX;" SHAPES"r X350 b:"DELETE # ";XF;" THROUGH # ";XL l"IS THAT CORRECT (Y/N)":B$: v(SX2XF),A6:A6SXA6 A5SXLX:XLNX660A9SX2(XL0,250 360. "WANT TO SAVE SHAPE (Y/N)"G B$:"":B$"Y"350j "WHAT IS NAME OF SAVE FILE ?"w TXNAME$ (4)"BSAVE ";TXNAME$;",A";SX;",L";LX 350  * DELETE A SHAPE * &"ENTER # OF FIRST SHAPE TO DELETE ";XF 0"HOW MANY S ^ * MENU *( h10)"SELECT OPTION"D r"1=DELETE SOME SHAPES"s |"2=MERGE A SECOND TABLE INTO FIRST TABLE" "3=SEE SHAPES ON HI-RES" "4=SAVE TABLE ON DISK" "5=LOAD NEW FIRST TABLE" A (A1)(A6)0360 A540,860,150,48APE TABLE FROM DISK *= :"ENTER FILE NAME OF SHAPE TABLE"[ "TO BE READ FROM DISK":h TXNAME$u "SX17000 ,(4)"BLOAD ";TXNAME$;",A";SX 643616,LX @NX(SX) J:"TABLE IN MEMORY. START=";SX T"LENGTH=";LX;" BYTES. SHAPES=";NXX100:Y50:3:1:0F :22:"ENTER SHAPE # (0=RETURN TO MENU) ";DSe (DS1)(DSNX)ĺ(7):350 "X=";X;" Y=";Y;" O.K.(Y/N)":B$ B$"Y"230 "ENTER X";X:"ENTER Y";Y :DSX,Y:"HIT KEY TO CONTINUE";:B$: :180 * GET SHK SHAPE TABLE SPLICER : CYRUS ROTON CALL -A.P.P.L.E. : AUG. 1983 e2(4)"BLOAD PEEKPOKE"r<1013,76{F768P250Z * INC/DECR POINTERSdA9A1A22nA9,DN:DNDNJxA9,DNA9 * SEE SHAPES232,SX         VE SHAPES INTO FIRST TABLE6(SX2DS),A3:A3SXA3DK0YB1VA3K,(A6K)]KxNXNXYA:LXLXYB2YASX,NX:330 REQUIRES & PEEK/POKE, CALL -A.P.P.L.E. 2/83 1S :J2YA'DA1SX2:A2SX2DS:906NYA11980>XL1]b * INSERT REMAINING PNTRSulK(YF1)(YFYA1)vA4SY2K:A3SY2(K1)A4,D1:A3,D2:DLTAD1D2A1SX2(DSL):(A12),D1:JDLTAD1A1,JLL1K * MO(SX1LX)A21"A1DLTA,(A1)*A1U * MOVE SUBS PNTRS & PREC SHAPES BACKqA1(A21)(SX2DS)1(A12YA),(A1)A1 * INCR SUBS PNTRSJDLTAA1SX2YA2DS:A2SX2YA2NX&900 * INCR PREC & FIRST NEW PNTRING # ";A:0r"IS THAT CORRECT (Y/N)":B$:""A|B$"Y"350fA5SYLY:(SY2YF),A6:A6SYA6YLYFYA1:YLNY1700(SY2(YL1)),A5:A5SYA5YBA5A6:DLTAYB2YA * MOVE SUBSEQ SHAPES BACK(SX2DS),A2:A2SXA2A1"YFYA1NY1540K,"INSERT AFTER WHICH SHAPE (FIRST TABLE)";A:DSA1:c6(ANX)(A0)1630@"CAN NOT INSERT AFTER ";AJ"LAST SHAPE (FIRST TABLE) IS ";NXT1580^"INSERT ";YF;" (+";YA1;" MORE) FROM TABLE 2" h"INTO TABLE 1 FOLLOWBITBIT(BIT(PSN)MLT):MLTMLT2& 2 " = ";@ BIT" $";v 26,165:27,25:28,76:29,218:30,253:25,BIT:26 ," This program prints the decimal and hex values of an eight-bit pattern input by the user NE BIT CONVERTER : VAL J GOLDING A CALL -A.P.P.L.E. QUICKIE d:"ENTER 0'S OR 1'S FOR ALL 8 BITS, LEFT TO RIGHT...":nMLT128xPSN18BIT$(PSN):(BIT$(PSN))"0"BIT$(PSN)"1"130BIT(PSN)(BIT$(PSN))BIT$(PSN);  1̠ 䍠Р٠ ҠҠΠ Р ѠčР ѠčРà ѠĠ Ӡɠ Ҡؠ 덠˭؍Íàҭҫ̠ àˬ؍Ƞ 荠Рà 卪Ġ Ԡˠՠàՠ٠ՠİÍΠՠı̠ՠƳɠՠƵ̠ՠȠՠàՠ Ҡ Σ ҤΣ Ģ î  Ǡ Ԡ ЮЮ̮Ů      + Xi8}9L :L ɬɺɃ`16,2,7,9,5,11,14,4,10,8,1,15Y J.J.TAYLOR 14 WOODWAY CLOSE, TEIGNMOUTH DEVON ENGLAND E5,14,1 4 7,12,1,14,2,13,8,11,16,3,10,5,9,6,15,4e 1,8,13,12,14,11,2,7,4,5,16,9,15,10,3,6  16,2,3,13,5,11,10,8,9,7,6,12,4,14,15,1 7,12,9,6,14,1,4,15,2,13,16,3,11,8,5,10 15,10,8,1,6,3,13,12,9,16,2,7,4,5,11,14 3,13,12,6,40,60,80,20,40,60,80,20,40,60,80,20,40,60,80,50,50,50,50,70,70,70,70,90,90,90,90,110,110,110,110: X,Y COORDINATES FOR HI-RES 10,11,8,5,6,7,12,9,15,14,1,4,3,2,13,16: DATA FOR SELECTION OF MAGIC SQUARES  16,3,2,13,5,10,11,8,9,6,7,12,4,1L I116: PLOT ODD8 A(I)1ēX(I)180,Y(I):560> &L 0L3162X :J116t DA(J)LēX(J)180,Y(J)~ NJ:L X(24):(30):Q$ bCOUNTCOUNT1 lCOUNT8Ā v60 I113:(255);:: I119:(255);::: } 20,):X(I)180,Y(I):) I116: PLOT ALLE A(I)1ēX(I),Y(I):420K W L216c J116{ A(J)LēX(J),Y(J) J:L I116: PLOT EVEN A(I)2ēX(I)90,Y(I):490  L4162 J116 A(J)LēX(J)90,Y(J) J:1):" PLOT ALL PLOT EVEN PLOT ODD"Z J" -NUMBERS------NUMBERS------NUMBERS-"c T:3 ^10,4090,4090,12010,12010,40 h100,40180,40180,120100,120100,40 r190,40270,40270,120190,120190,40 |I116:X(I),Y(I):X(I)90,Y(I HTHT3& I4I8I12HT1::, ` :::" IN A 4X4 CELL MAGIC SQUARE THE SUM OF" :" ANY SIDE, HORIZONTAL, VERTICAL OR " ":" WILL TOTAL 34." ,(9):(24)::" ANY KEY TO CONTINUE ";: 6(24):(31):Q$, @(1):(2COUNT1;:(255) n(11):650. x(4):(12); S192L (S4):(14)U 640[ d (6) I116: SQUARE TO TEXT SCREEN (HT13):(255); (26):(255); A$(A(I)):A(A$) A2Ė(HT14):A(I);:240 A1Ė(HT15):A(I);Z? MAGIC SQUARE DANCE BY J TAYLOR CALL -A.P.P.L.E. E\X(16),Y(16),A(16)hCOUNT0|(I116:X(I):2I116:Y(I):<I116:A(I):: SQUARES DATAFHT1P:Z(1):(11):650 d(11):(255);:"MAGIC SQUARE NO.";     占ŠŲàūŲàԠ ōŠŰàԫŠŰ ˍųӍԠƍH t ōŠՠÍԠՠ͠ՠǠƍŰà͠ ͍РƠпŠűàͫɠų宮űũ٠占ԩ٠àŠ  OPPQ0"260) D$;MO$9 D$;UN$;TI$T D$;RE$;TI$","F$"."TI$i D$;LO$;F$"."TI$~ SNSDND250 D$;UN$;NA$ D$;UN$;NI$ D$;RE$;NA$","F$"."NA$ D$;RE$;NI$","F$"."NI$ D$;LO$;F$"."NA$ D$;LO$;F$"."NI$ RITE ":C$"CLOSE ":V$"VERIFY ":D$(4):MO$"MON C":NO$"NOMON C"K F100 PD$;V$;TI$:D$;O$;TI$:D$;R$;TI$:F$,S$,T$,S,D,V,NS,ND,NV:D$;C$;TI$ Z110 d216,0:F$"" n:"CURRENT FILE IS: ";F$ x:"SWITCH, RENAME, OR QUIT (S/R/Q)? ";Q$[ APMAIL ][ VERSION 3.0 FILE CONTROLLER BY KEN KASHMAREK CALL -A.P.P.L.E. ::9::"APMAIL FILE CONTROLLER":(LO$"LOCK ":UN$"UNLOCK ":RE$"RENAME "2TI$"TITLE":NA$"NAMES":NI$"NAMES INDEX"A <O$"OPEN ":R$"READ ":W$"W    20 3D DB 20 73 F2 60 N D9C6G"Q I1(X$):511I,((X$,I))128::72,0:144W DVERSE TEXT USING A LITERAL"! KQ PA$"THIS IS INVERSE WITH A STRING VARIABLE"Y ZA$_ _ dA$" IN A STRING EXPRESSION." i n"SEE HOW EASY ";:"YOU CAN MIX":" NORMAL ";:"AND INVERSE":" TEXT?"  X$"300:20 7B DD 20 6C DD 20 77 F2XR INVERSE STRING PRINTER DEMO BY STOWE KELLER CALL -A.P.P.L.E. X"INVERSE STRING PRINTER DEMO BY STOWE KELLER"SET UP AMPERSAND HOOKS:(1013,76:1014,0:1015,3:$3002500<"THIS IS NORMAL TEXT" F"THIS IS IN  ëԍë ӍԠҠ̠ ፠ҠҠ 獠Ҡ֠ ōҠԠ 獠Ҡ͠ ӍԠƍ)ǠƵàՠƵԠՠ³Ġ ҠՠĶà ̠ՠķ  ͠ՠƲ ֠ՠƲ 􍪍ԍ ǭ Ҭ Ԡ Ԡ ЮЮ̮Ů    ` { l w = s`