' +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:;<=>?   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"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!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<(-Py0\|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`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-(0 ՠ@跻~!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 ~(` F d ֠z# u` 迍Šб 𱍠Ӡ Աՠ ԱԠƠ 宍3Š ԱǠƠ ŠҠŠ ҠΠ ؠ бάؠ ҠԠ ؠ 占ؠŠӠ Բՠ Բ 󍪍 Բ  ï 䮍ԱՠԲԲ 庍 򍪍Π Ϋ 占Ϋ  󍠤 ң Ҥ Σ 䍪Š Ҡˠ Ҡˠ 占Ӡ 卪 占٠ 占Ӡ ō 󺍪 Ҥ ң Ҥ Σ 䍪 卪 򍪍Šՠ 占άؠ Ԭ٠ 占ؠ宍ҠŠҠŠҠŠ Ԭ٠ ٠ 占 Ԭ٠ ٠ Ԭ٠ Р° Š 占ҠŠҠŠҠŠ 占Ԭ٠ ٠ 占ؠ 占ҠŠ ҠŠ Šՠ ԮҠŠ ٠ؠ ؠ 퍠ҠΠ ҠŠ Ҡʹ 占Šų 占Ӡ 箮 򮍪ԲՠǠŸŠ 卪 󬍪 䍪٠ ųԫ٠퍠ԫ٠٠ٽ٫٠ԭ 宍ԧ ŢԠ Ӎɧ 占ԫ ͢ 占͢ 占ԫ宮 占Ԡƍ ͬ 䍠 덠РǠ 占ѠԠ 占ԠĠ ͬ ԠӠ 獠ŠŠ  ŠŠ ͠ ŠԱ Í 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      ::"1":: O 3:8:SETUP$:SETUP$"F"SETUP$"H"SETUP$(13)İ200:500s SETUP$(13)DUPLEX$(8):210 SETUP$"H"DUPLEX$(8):210 SETUP$"F"DUPLEX$(6):3:220 5:8:SETUP$:SETUP$(13)SETUP$"E"SETUP$"O"SETUP$"N"13:(7)::' 8::"H";::"ALF":A 8::"F";::"ULL":[ 8::"E";::"VEN":u 8::"O";::"DD ": 8::"N";::"ONE":: ,:3:"DUPLEX-";:210 65:"PARITY-";:230 @7:"DATA WORD LENGTH-";::"7": J9:"STOP BIT-";:ëԍë ӍԠҠ̠ ፠ҠҠ 獠Ҡ֠ ōҠԠ 獠Ҡ͠ ӍԠƍ)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 FOLLOW 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     "E"FLAGSTTUS254PARITY$"O"FLAGSTTUS29: J (0)3070:4000W 3070:  D$"IN#"MODEMSLOT:D$"PR#"MODEMSLOT:SETUP$(1):H$(8):SETUP$DUPLEX$ 2040MODEMSLOT,FLAGSTTUS I1500:I MULTFILESı D$"FILEDUMP ";FYLNAME$S1:30000 FLAGSTTUS5:PARITY$"N"İ200:300W FLAGSTTUS9:PARITY$"N"İ200:300u PARITY$"O"FLAGSTTUS13 2500: STPBIT2PARITY$"N"FLAGSTTUS17:3000 STPBIT2PARITY$"N"İ200:300 PARITY$"N"FLAGSTTUS21PARITY$(13)SETUP$"1"C lSTPBIT(SETUP$):STPBIT1STPBIT2İ200:610Z v9:10::STPBIT: 16:"IS THE ABOVE CORRECT (Y/N) ";:SETUP$:SETUP$:SETUP$"Y"SETUP$"y"ī300: FLAGSTTUS0:WRDLNGTH82000:STPBIT11020:PARITY$"E"1010:FLAGSTTU200:540< &PARITY$SETUP$:PARITY$"E"PARITY$(13)İ230R 0PARITY$"O"İ240h :PARITY$"N"İ250 D7:18:SETUP$:SETUP$(13)SETUP$"7" NWRDLNGTH(SETUP$):WRDLNGTH7WRDLNGTH8İ200:580 X7:18::WRDLNGTH: b9:10:SETUP$:SETUP$14:H$I12500:I:4@ RESET PROOF ROUTINE@JI131GTRT^767I,R[hIar| 169,16,141,242,3,169,3,141,243,3,73,165,141,244,3,96 104,168,104,166,214,154,72,152,72,32,234,3,76,18,212H$"***************************************"`vBLANK$" "L(A$):A$(BLANK$,(40L)2)A$I123:936:I:A$:P(Q)(Q):J150I:J:II23121:936:I:A$:P(Q)(Q):J150I:J:I10:H$:10Y,30YI:YY1:I&6000:30: F BACKGROUND COLOR ROUTINE VX:X0Ġ12oI039:0,39I:I:p SOUND & COUNT SQUARESzX06030Q5:I1X:1,Q:2,Q:1,Q1:2,Q1:QQ3:(7):IX BANNER ROUTINEbQ16336::,l3I:27,30I:I4Y1:I1720:10Y,30I:YY1:IMI2135:27,30I:ItY1:I3639:10Y,30YI:YY1:II3335:10,13I:I6000:305000:1Y4:I03:10Y,30YI:YY1:II435:10,13I:27,30I:IY1:I3639:00:9**Y4:I03:10Y,30YI:YY1:IK4I418:10,13I:27,30I:Id>I1922:13,27I:IHI2335:10,13I:27,30I:IRY1:I3639:10Y,30YI:YY1:I\6000:305000:15Y4:I03:10Y,30YI:YY1:II416:10,11013:4,35I:I8 vY1:I3639:10Y,30YI:YY1:IQ I2730:23,35I:Ix Y4:I1822:10Y,30YI:YY1:I 6000:30 5000:9 I03:10,30I:I Y0:I436:26Y,30YI:YY.5:I I3739:10,13I:I 6000:30 50:10,30I:I# I46:27,30I:I; I1013:0,21I:I` Y4:I1821:10,30YI:YY1:Iy &I2730:22,35I:I 0Y1:I3639:10Y,30YI:YY1:I :I3335:10,13I:I D6000:30 X5000:0 bY4:I03:10Y,30YI:YY1:I lII2730:4,18I:23,35I:I5 TI1922:20,29I:IN ^I3335:10,13I:Iu hY1:I3639:10Y,30YI:YY1:I r6000:30 5000:9 I1013:0,18I:I I1822:10,30I:I I2730:0,39I:I 6000:30 5000:15 I03,30YI:YY1:I0 I48:10,13I:27,30I:IH I912:27,30I:Ir Y1:I1329:1017Y,30YI:YY1:I I3035:10,13I:I I3639:10,30I:I 6000:30 ,5000:1 6Y4:I03:10Y,30YI:YY1:I @I46:10,13I:I JE-BYE ANNIE!!":7000:23:4 (X(X$):X48X5730C -X((X$))Q 2X01000| 7X100,200,300,400,500,600,700,800,900 d5000 n15:0,417:0,418 xI1922:0,39I:I I3639:17,24I:I 6000:30 5000:13 Y4:I03:10Y ? NUMBERS BY S. FREEMAN CALL -A.P.P.L.E. : AUG 1983 H 25e8000:768: RESET PROOFA$"NUMBERS 0 THRU 9 ... BY S.FREEMAN":7000: BANNER:24:"HIT A '?' TO QUIT..." #21:"NUMBER: ";:X$:16368,0:X$"?"ė:::A$"BY     )FYLNAME$(J):JMULTFILES5140:JJ1:G"ERROR "ER" IN LINE "EL:(HEX$):511I,((HEX$,I,1))128::72,0:144:: O` *** ERROR HANDLER ***rjER(222):EL(218)(219)256tER255ĉ::~ER6ER13ĺ"FILE "FYLNAME$;FYLNAME$(J)" IS NOT ON THIS DISK.":MULTFILES3210(ER6ER13UNSENTFLAG1:UNSENT$(J(UNSENT$(I))ĺ"FILE ";UNSENT$(I);" WAS NOT TRANSMITTED"Az: PHEX$"BCDF:20 8E FD 20 A3 A2 20 8C A6 F0 12 20 ED FD AD 00 C0 10 F3 8D 10 C0 20 1B FD C9 91 D0 E9 20 FC A2 60 N A8E7:46 49 4C 45 44 55 4D D0 N 9D48:DE BC N A933:20 30 N D9C6G"3ZÁI1FYLNAME$(MULTFILES),UNSENT$(MULTFILES)9J1MULTFILESc"ENTER FILENAME "J;" ";:FYLNAME$(J)mJ: w3000J1MULTFILESD$"FILEDUMP";FYLNAME$(J) JD$"IN#0":D$"PR#0":::(UNSENTFLAG)āI1MULTFILES:6000:I: 8p"NAME OF FILE TO SEND -->";FYLNAME$:TB0:(FYLNAME$)03000T D$"CATALOG":3210] : 0,0:FYLNAME$"T.TABLE":3000:FYLNAME$"":: D$"CATALOG":"HOW MANY FILES TO SEND? ";MULTFILES$:MULTFILES(MULTFILES$):MULTFILES5000& D$"PR#0":D$"IN#0"' (SGLFILE)ı1 :11~ (MULTFILES$)ĺ"SEND MULTIPLE FILES (Y/N) ? ";:MULTFILES$:MULTFILES$ (SGLFILE)Ğ:"PLACE DATA DISK IN DRIVE, HIT ANY KEY";::756: MULTFILES$"Y"5000:  SGLFILE1= FYLNAME$"": 320- 12:1:"HOUR FOR ALARM : ";AHT 14:"MINUTE FOR ALARM : ";AM::8Z h :B$(7)t B120 B$:B :: 12:10:"THE TIME IS ";AH;" ";AM: 8:L:Z$ 34,8 12:84 "THE TIME IS : "= "HH1F ,MM1O 6S00 @S59S0:MM1::(12):12:8::"THE TIME IS : " JHAHMAMī440 TSS1 ^M60M00:HH1 hH13H1 r |12:23:H;" :";M;" :";" ";S P1636:P"ENTER HOUR :";H1:4 "ENTER MINUTE : ";M1:A :(12)t 3:4:"<< APPLE CLOCK BY R. SWERDLOW,M.D. >>" ANSWER$"Y"Ğ:1:12:"ALARM SET FOR :"AH;" : ";AM: L(D$)2 6:20L:D$ Z$M$" "N$","" 1983" L20(Z$)2 U DIGITAL CLOCK BY RALPH SWERDLOW, MD CALL -A.P.P.L.E. : AUG. 1983 [dn:"DO YOU WANT AN ALARM ?? ";:ANSWER$xANSWER$"Y"İ410:5:"ENTER DAY : ";D$:"ENTER MONTH : ";M$:"ENTER DAY OF MONTH : ";N$:    z i0 J)Mi-iuxLx( X  L` lL РÍ ˠҠР 䍠ҠР 占؍ؠЍؠԠؠ Ҡԍ؍РЍѠōРԍŠӍҠԫ 壤ð˫˫РÍؠ 덪 占Ǡ͍ԠҠōϠ ѠŠ 占 占Ѡ˲؍Š˱˴ĠƍϠ 占ؠРؠ Ӎͬ؍؍ؠàЍϠ Íàȍ͠ ȫ 占͍ȫԠؠ÷ ˱ؠðѠ˴ؠ˳٠˲ٍɠ˴˳ðٍР٠ՠİȠՠ ͠ՠ Рՠ·ƹϠՠ· Рՠð РՠðԠՠčŠՠõ ԠǠàѮ   Ԡ ЮЮ̮Ů     Ok`89TI͍` ܮ Ӯ Ӯ Ӯ Ӯ ӮٴȢ Ӯ Ӯ Ӯ Ӯ ӮٴȩٴȩٴLEٴ` ` ` ܮ 客 `` à 덠° ï° Ԣ ͢ 䍪 Ţ Ţ 䍪 荠Ơ 荠² 卪 뮍 嬍 ԲŠ ԲŠŲ 퍪 䮍Š 譱 ԱŠű 퍪 ԍ 󮍪٠ ŲԲ٠퍠ì٠٠ ٽ٫٠ ӮԠՠ 퍪 卪 󮍪٠ űԱ٠퍠Ĭ٠٠ ٽ٫٠ԱŠ͠ՠĸ Šՠ ԠՠĠ ԠՠĸŠ  䍪 ՠ³à Πՠ Ԡՠ ӍԠՠԠ àՠŸŠ ĠՠƠ  卪 ˠՠ ˠՠ÷  ңˠՠ÷ ΣԠՠ´Ĺ ؠ Ԡ 箍 󍪍Ǡ 􍪍 Ҥ ҤŢ ï Ţ 쪍 򮮮 宮 Ů Ţ   Ԡ Į ЮЮ̮Ů Ŭ 㮮              YH,;,,Щ(JЭ؍Ѝ,,h,`  占Բ Íó 占Գ ÍǠ 獠ԠŠ ӍԠŠ 䍠ؠ Ԡ 䍠РԠ 占Š͠ 箍 ؠԠ Ԡנ ͍Ԡנ 占ؠԠ 獠 荠Ԡ РԠ 덠Š͠ Ҡ ÍǠ 獠 덠ԠŠ ӍРǠ 䍠Š͠ 婍 ͍ՠĸ óՠİ ǠԱР Ű ԲР ԳР  䍪 ð 卪 䮍Ԡՠİ ͍ǠՠŰ ý ò 卪 殍Ġՠð Šՠð ͬ Ӡՠð ͬ נՠð 䍪 卪 ͩ ˨ 卪 ˨ ˨ 獪 ˨ Í ͮ ĸ ˨ İ İ 䩮 ͮ ˨ ĸ 䮍 䮍 䍪 ͩ 䍪 ˨ ˨ ˨ Ű 䩮 ì ΍ î 䍪 ή  ˨ 卪 Ű  Ԡ ЮЮ̮Ů Ԡ 򍪍           ,000 ~ 224,044,129,192,0448  129,192,170,208,006R  169,001,208,002,169l  000,141,000,003,104  205,000,224,240,003  044,128,192,096  205,000,224,208,0594 $ 044,131,192,044,131N . 192,174,000,208,169h 8 165,141,000,208,205 B 000,208,208,040,074 L 141,000,208,205,000 V 208,208,031,142,000 ` 208,173,000,216,141 j 001,003,173,000,208 t 141,002,003,173IC IS ALREADY LOADED. IF PEEK (768) = 0 THEN NO RAM CARD IS PRESENT. $D800 IS RETURNED IN PEEK (769); $D000 IN PEEK (770).  SEE TEXT FOR MORE DETAILS. MS,ME:IMSME:M:I,M:I:  768,856  234,234,234,173,000  224,072,044,129,192D RAMFINDER BY MITCHELL PILOT CALL -A.P.P.L.E. : AUG. 1983  THIS ROUTINE POKES THE RAMFINDER PROGRAM INTO MEMORY. TO ACCESS: GOSUB 1000:CALL 771 {  THE MAIN BASIC FLAG FROM $E000 IS RETURNED IN PEEK(768). IF PEEK (768) = 32 THEN INTBAS   ͳ_ ɧ͠Ԡš $$:9 ؠ` o àp89L H{ '3hɂɃɪ.Hh` XL nLrs A H`a A3а Liˠ Рڠ ԠƍnԠҠǠ 占РӲĠؠҠ ҫҠ؍Ҡˍؠ΍ΫҠ؍Ӳ РԠ 占ŠÍҠҠϴ̭ѠčРâ̭ÍѠԍРѠҍРޢѠҍ ӱ Ӡ 򍪍 󮮮ҠҠŠ РӲ ԠҠΠ Ƹ ΢ȍР 䍠Šӱ 占ҠҍРԠ Šӱ 占Р¢Í 󮮮Ԡ 占Ҡΰ ó 占٠Ԡ ԍ٠׍׫àР͠ Í 揄 DzĬ؍ѠÍҠԍ؍ŠDzĠؠĸčà ؠİ 䮍ˠ٠ԍԍ٠֍֫Ҡ塍DZӬ؍ѠÍҠԍ؍ŠDZӠؠĸčàɧ šؠİ Ŀؠ ӍҠĠ Ѡˠ 彶Šõ ԠĠ ׍ڠƶ 쩍Ǡؠ 忍РΠ 彶ѠĿ Πó ة Ҡ Ġ² ؠƹ ةˠƹ à¶Ơ Π³Ƞ  ǠŠ Π Ҡ ؠð Ӎΰó ة ԠԠ נ ͠İ Ӎˠ ɯ ֠Ʋ  7 Ԡ ϭ ЮЮ̮Ů      z!#????? ̠ŠҠŠǠϠŠǠҮӠŠǠҠР Ӡ  ŠŠҠԠҠǮӠǠàŠŠ ҠŠŮӠҠŠŠ ӠŮӠ ӠŮҠ ǠˮӠ ǠˮҠ̠ˠ ŠӠҠ !ΠǠ"ϭŠҮϠϭŠҮӠ ϭŠҠҠҠ ҮӠ Ҡ ՠ ϭӠ̠Ϡ Ӡ̠ҮӠӠ̠ҠҠҠԠҨةҮӠ ҨةҠ  -      10  - 1983  LjBITBIT(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   ǠƵàՠƵԠՠ³Ġ ҠՠĶà ̠ՠķ  ͠ՠƲ ֠ՠƲ 􍪍ԍ ǭ Ҭ Ԡ Ԡ ЮЮ̮Ů PUGETSOUND PROGRAM LIBRARY EXCHANGE 21246 68TH AV. SOUTH KENT, WA. 98032 eIONAL SUPPORT. CONSULT APPROPRIATE CALL -APPLE FOR INFO.":B + l*+::"HIT ANY KEY FOR MENU"::32,0:.756:4:958:2"Call -Apple Anthol- ogy, Vol 10A, Jul-Sep 1983 Version 1 Release date 8.14.83"b" APPLE AVAILABLE":216,0:110)b(222)255Ħ3l::t'2::4:"CALL -APPLE ANTHOLOGY, VOL10A ":::34,5:11000:*8:"NOT ALL PROGRAMS ON THIS DISKETTE APPEAR IN THE MENU, THOSE WITH A [.S] SUFFIXARE BIG MAC SOURCE FILES.";+"OTHERS NEED ADDIT A R N"M>15:"O M Y G":16:"U";:40:"E";cH17:"N":18:"D"R:::10:" ":10:" P R E S E N T S ":10:" "\:34,23:I11200::::10000X(222)1ĺ"LANGUAGE NOT ";:33:" ";:39:" "":s "A P P L E":2:"P U R I X"*3:"P G O B C":4:"L E G R H"45:"E T R A A":14:"S 13:" ";:17:" ";:21:" ";:25:" ";:33:" "k " ";:9:" ";:17:" ";:25:" ";:33:" " " ";:5:" ";:9:" ";:17:" ";:25:" ";:33:" " " ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" "; 23:" ";:25:" ";:31:" CALL -APPLE ANTHOLOGY VOL 10A JUL - SEP 1983 ":: I16:(I64)" "MENU$(I);:20:(I76)" "MENU$(I6):  :: 1:2:" ";:9:" ";:17:" ";:25:" ";:33:" "/ " ";:5:" ";:9:" ";:"CHARSET GEN":MENU$(07)"KEYCODE DEMO":MENU$(08)"WINDOW DEMO":MENU$(09)"SCREEN DEMO":MENU$(10)"HIRES SCREEN READ" :MENU$(11)"PIE CHARTER":MENU$(12)"GRAPH DEMO": 0USE SUFFIX .L FOR BLOAD PROGRAMS; USE .R FOR BRUN PROGRAMS :T 2::" OADING "FILE$:BL260' D$"RUN"FILE$C BL0:I11000:::110 A$" CTRL-C_EXITS SELECT_BY_LETTER":MENU$(24) :MENU$(01)"APPLE DIARY":MENU$(02)"CRYPTOGRAM":MENU$(03)"TALK DEMO":MENU$(04)"SO WHAT":MENU$(05)"HUFFIN"u :MENU$(06)L(A$)120 190:1502 X(16384):X127ı^ :16368,0:KEYX192:KEY24KEY1180s FILE$MENU$(KEY) (FILE$,(FILE$)1,1)"."(FILE$,1)"L"ĺD$"BLOAD"FILE$:BL1:240 (FILE$,(FILE$)1,1)"."ĺD$"BRUN"FILE$:240 :10:10:"Lc =d " M E N U " BY VAL J GOLDING - 2.80 Pi2000:::500on1000:D$(13)(4):7000xL1:A$(A$,2,(A$)1)(A$,1):22(A$,1)" "Ğ(A$,1);LL1:(A$,L)" "ĝ:170(A$,L,1)" "Ğ (A$,L,1);::     ` { l w = s`E ROUTINE*V24:(30):"*** ";T$;" ***";A`(29);: CLREOL Gj LN3:CTPCSC3:FBKCTP3:TBKFBK3:FILLTBK3:LINEFILL3:BOXLINE3`P066:P167:P268:P369q(4);"PR#3":(18): CNTRL-R(4);"BLOAD GR80.OBJ0"GINIT::$22:"*** Double-Wide Lo-Res Graphics demo ***".T$(40): L TITL1,Y1:P2,X2:HLN:% FILL ROUTINEMP0,X1:P1,Y1:P2,X2:P3,Y2:FILL:_ BOX ROUTINEP0,X1:P1,Y1:P2,X2:P3,Y2:BOX: LINE DRAW ROUTINEP0,X1:P1,Y1:P2,X2:P3,Y2:LINE:GINIT16384DPLTGINIT3:HLNPLT3:VLNHLN3:CSCVX279J:980 J Y10* J03947 16(1)S X10:X279:Y239J:980g X179:X20:980p J,Iv W p PLOT A POINT ROUTINE zP0,X1:P1,Y1:PLT:  VLINE ROUTINE P0,X1:P1,Y1:P2,Y2:VLN:  HLINE ROUTINEP0,X1:P BLOCKS --' aT$"NESTED BLOCKS":11002 cJ13G hI039:16(1)i rX1I:X279I:Y1I2:Y239I2w |930:I,J  LINE PATTERNS T$"LINE PATTERNS":1100 I18:TBK Y10:Y239 J0795 16(1) X10:X2J:980 X179:0:16(1), X180(1):X2(80X1)(1)X1N Y140(1):Y2(40Y1)(1)Y1Z "950:Is , -- RANDOM LINES -- 1T$"RANDOM LINE DRAW":1100 6CTP::I1200:16(1) @X180(1):X280(1) JY140(1):Y240(1) T980:I ^ -- NESTED I015:I:TBK:I6 -- RANDOM BLOCKS/FILLS --S T$"RANDOM BLOCKS":1100i I1150:16(1) X180(1):X2(80X1)(1)X1 Y140(1):Y2(40Y1)(1)Y1 940:I T$"RANDOM BOXES":1100 -- RANDOM BOXES -- TBK::I115TED POINTS":1100 dI0500A n16(1):X180(1):Y140(1)M s890:IS xt }T$"VLINES AND HLINES":1100 Y10:Y239:X1079 16(1):910:X1 X10:X279:Y1039 16(1):920:Y1 T$"COLORED BACKGROUNDS":1100H0 80-Column LO-RES Graphics DEMO program.b THIS PROGRAM REQUIRES AN APPLE //E WITH A REV-B mother, and one of Apple's 80-column cards modified by connecting pins 50  and 55 together. 1000 ZT$"RANDOM PLOT     H T TELEDUMP BY STEVE ROSS/VAL J GOLDING CALL -A.P.P.L.E. SEP. 1983 d:::"PRESS RETURN FOR CATALOG, CTRL-C TO QUIT":34,2:nD$(13)(4):(43239)7050000xD$"IN#0":D$"PR#0"MODEMSLOT260000300: I  ҍɠγÍàٍҠ ҽҭٍаÍàҍа ؽثҍРδγÍà؍Ҡ ҽҫ؍бÍàҍб ٽ٫ҍδàԍ̠βӍԠƍҠƍà٠Ơ ر٠Ҡ ҽΨةؠ ؽӨةÍàٍԠ Խثٍ؍ÍàٍҍРàααҠ ҽح٩βҠԠ Š٠ Íгàб ٽٲٱӠٱҠƍà٠Ơ ٱ٠Ҡ ҽΨ٩٠ ٽӨ٩٠ Íвàа ؽزرӠر˱гƍваб аб 䍪 вг̠а̱Ҡōаàб٠г٠бӠ̱Ӎ аб вг 卪 䬍 򮍪РÍàұ ӍҠÍұҍàˍˠƍŠ˱ ӍˠĠԠ ̱àавРаàӱҠԱР̱ аб в̱ҠԍàбŠвРбӠ̱ӱӍ ϭ ϭ ҸγŸ زرҠŠ رز ٱгв ٲжа زҠŠ ٱٲ زда رеб ٱҠŠ ٱٲ رжв زгб ٲ аб вŠ ōҠ   ìč Ŭƍ аرбٱ 䍪 вزгٲؠад رбе ٱвж ح퍠ĠƠ ؍Ҭؠ ؠŲ ԠҠٍ̩ĠˍҠٍ̩̩٠ ű 占Ӎ ōР؍Ԡаةб٩Ԡб ٭䍠ҍЍҠà ЍƍàˍàŰˠˍԱа ح䍠Ҡ ٠ ҍӠԠгՠвдՠгеՠджՠезՠжؠՠв٠ՠгҠՠдҠՠеҠՠжԠՠзǠРҸРԍРōРōРҍРЍРˠРˍР̍Р ԠˠՠōҠՠ̠ՠűՠðŲՠðӠՠðҠՠðԠՠðŸՠðγՠðōàՠƸаՠ ̍бՠавՠб Ԡ ЮЮ̮Ů      14:H$I12500:I:4@ RESET PROOF ROUTINE@JI131GTRT^767I,R[hIar| 169,16,141,242,3,169,3,141,243,3,73,165,141,244,3,96 104,168,104,166,214,154,72,152,72,32,234,3,76,18,212IH$"***************************************"`vBLANK$" "L(A$):A$(BLANK$,(40L)2)A$I123:936:I:A$:P(Q)(Q):J150I:J:II23121:936:I:A$:P(Q)(Q):J150I:J:I10:H$:10Y,30YI:YY1:I&6000:30: F BACKGROUND COLOR ROUTINE VX:X0Ġ12oI039:0,39I:I:p SOUND & COUNT SQUARESzX06030Q5:I1X:1,Q:2,Q:1,Q1:2,Q1:QQ3:(7):IX BANNER ROUTINEbQ16336::,l3I:27,30I:I4Y1:I1720:10Y,30I:YY1:IMI2135:27,30I:ItY1:I3639:10Y,30YI:YY1:II3335:10,13I:I6000:305000:1Y4:I03:10Y,30YI:YY1:II435:10,13I:27,30I:IY1:I3639:00:9**Y4:I03:10Y,30YI:YY1:IK4I418:10,13I:27,30I:Id>I1922:13,27I:IHI2335:10,13I:27,30I:IRY1:I3639:10Y,30YI:YY1:I\6000:305000:15Y4:I03:10Y,30YI:YY1:II416:10,11013:4,35I:I8 vY1:I3639:10Y,30YI:YY1:IQ I2730:23,35I:Ix Y4:I1822:10Y,30YI:YY1:I 6000:30 5000:9 I03:10,30I:I Y0:I436:26Y,30YI:YY.5:I I3739:10,13I:I 6000:30 50:10,30I:I# I46:27,30I:I; I1013:0,21I:I` Y4:I1821:10,30YI:YY1:Iy &I2730:22,35I:I 0Y1:I3639:10Y,30YI:YY1:I :I3335:10,13I:I D6000:30 X5000:0 bY4:I03:10Y,30YI:YY1:I lII2730:4,18I:23,35I:I5 TI1922:20,29I:IN ^I3335:10,13I:Iu hY1:I3639:10Y,30YI:YY1:I r6000:30 5000:9 I1013:0,18I:I I1822:10,30I:I I2730:0,39I:I 6000:30 5000:15 I03,30YI:YY1:I0 I48:10,13I:27,30I:IH I912:27,30I:Ir Y1:I1329:1017Y,30YI:YY1:I I3035:10,13I:I I3639:10,30I:I 6000:30 ,5000:1 6Y4:I03:10Y,30YI:YY1:I @I46:10,13I:I JE-BYE ANNIE!!":7000:23:4 (X(X$):X48X5730C -X((X$))Q 2X01000| 7X100,200,300,400,500,600,700,800,900 d5000 n15:0,417:0,418 xI1922:0,39I:I I3639:17,24I:I 6000:30 5000:13 Y4:I03:10Y ? NUMBERS BY S. FREEMAN CALL -A.P.P.L.E. : AUG 1983 H 25e8000:768: RESET PROOFA$"NUMBERS 0 THRU 9 ... BY S.FREEMAN":7000: BANNER:24:"HIT A '?' TO QUIT..." #21:"NUMBER: ";:X$:16368,0:X$"?"ė:::A$"BY   FDeEID8EJ@ H !@H08EHBeFBL7AeDHCeGCI`@<L@L!@L@L@L@L@L@L@L@L@L^@CJ G(i.BJ0 )N@UQ&%.Q&&T`"3DUfwBFCGDH @EDHB @FBGC @HDEC !@BDB 1@L@ !@CDC`^80/'EODBCBH @hBCEC`8ECIiGE8DBIi PAGE0;32010 }F$:PAGEPAGE1:32120b t}(NAME$,5)(A$,5)ĺ:B$;" ";A$;C$:D$:E$;" ";F$:PAGEPAGE1 x}PAGE4ĺ::"TO CONTINUE LIST, HIT ANY KEY":PAGE0:K$: }32080 } }"THAT'S ALL!" } }"FIND ANOTHER? (Y OR N) " }Y$ }Y$"Y"Į:,3)(A$,3)ĺ:B$;" ";A$:C$:D$:E$:" ";F$:PAGEPAGE1:32120 p}(NAME$,3)(A$,3)(NAME$,2)(A$,2)ĺ:B$;" ";A$:C$:D$:E$:" ";F$:PAGEPAGE1:32120 r}(NAME$,4)(A$,4)(NAME$,1)(A$,1)ĺ:B$;" ":A$:C$:D$:E$:" ";ERTINO CA 95014,996-1010,31999( } END. }M }10)"NAME + ADDRESS FILE"S } (}"TO FIND AN ADDRESS TYPE IN LAST NAME" 2}"SPELLING OF NAME NEED NOT BE EXACT" <} F}"NAME: ";NAME$ P}A$ Z}A$"END"32140 d}B$,C$,D$,E$,F$G n}(NAME$7 JONES,JIM+JAN,COMMON ST, ANYWHERE NY,555-1212,1n2 MORREL,BILL+IDA,OAK AVE,PITTSBURG PA,333-3333,50dMORGENTHAU,DANIEL,1ST STREET,OLTOWN USA,,100 SMITH,JOHN+SARAH,ELM AVE,BIGTOWN PA,377-3737,1500 | APPLE INC,,"10260 BANDLEY DR",CUP   <X(1)10((1)7)5 FY(X):VALUE OF Y SCRAMBLEDF P" ";XL ZR dk nFOR CALL-A.P.P.L.E. x BY P.C. LINCOLN TESTS USR(X) FORMATTINGC  DOLLAR FORMAT TEST  :M(4);"BLOAD USR(X) PRINT DOLLAR FORMAT"S:m POINT USR() TO $300s:10,76:11,0:12,3: MUST POKE FIELD WIDTH!:(254,16):-:" FORMATTED FROM"::2J110  120 190:150+ X(16384):X127ıW :16368,0:KEYX192:KEY24KEY1180l FILE$MENU$(KEY) (FILE$,(FILE$)1,1)"."(FILE$,1)"L"ĺD$"BLOAD"FILE$:BL1:240 (FILE$,(FILE$)1,1)"."ĺD$"BRUN"FILE$: :10:10:"LOADING "FI =d " M E N U " BY VAL J GOLDING - 2.80 Pi2000:::500hn1000:D$(13)(4)xL1:A$(A$,2,(A$)1)(A$,1):22(A$,1)" "Ğ(A$,1);LL1:(A$,L)" "ĝ:170(A$,L,1)" "Ğ (A$,L,1);::L(A$)    ! ҠŠر Ԡƍ 썪ɠҠŠز 󍪍 Π Ҡؠ Šر ѠР ѠР 썠Ѡɍزؠ àؠ 占̠ر Ӡ 􍪍 ፪ҠŠز é ٍ 󍪍Ҡ ؠ ؠ РԠ΍رҬؠ Ҡ ؠР ò Šó٠ 썍ó٠썠٠  󍪍 ٍÍàؠ ٍ 󍪍٠ҠР ٍŠ 䍪٠נ 퍪 􍪍ؠ Ԡñ٠ ፍñؠ Ԡò٠ ፍӠ ҠȠ ҠԠ 占ҠԠ Ҥ ؍ؠƠ ؠ؍ҫ؍Šؠ 䍠ؠؠ 荪Ơ ÍԠՠò ÍԠՠij ҤǠ Ҩة ҠԱ ҠԱ Ҡ  獠Ҡ 荪Ҡՠ 󍪍Рՠµ ՠµà Ƞՠŷ Աՠ  ՠ· Ӡՠ 󮍪 ũ 쬍 䮍 󍪍נՠŠ ؠՠƠ Ԡ Ҩ ԍ ԍ Ρ ؽҨ©  4 Ԡ Ҩة î B ЮЮ̮Ů