' +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- (       .3 1982 @跻~!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`ELD #";::" TO CHANGE :";G$;E" ";Y$:Y(Y$):(Y$)0MOD01890\(Y$)0MOD1920w(Y)1(Y)NF11660MOD0(Y)NF1660(Y)NF1āI1NF:P$(I)""::800HT17:P$"":PY$"":HTHT1:22:868:14:"ENTER NEW DATA";G$4J2TV%(1):P$(1)P$(1)" ":JN@RD$(RD)"":K1NF:RD$(RD)RD$(RD)P$(K):KfJRXRD:150:RD$(RX)}TD$;"CLOSE ";FILE$^D1500:D:22:1:958:RD$(RD):1140h **** MODIFY/ENTER DATA **** rLC0:IN0|22:1:868:"ENTER ";::"FI$:1500D1250:DK22:1:868:11::" ERASING RECORD ";RX;" ":]RDREC1590zRX0:RECREC1:160:REC"D$;"CLOSE ";FILE$,D1500:D:22:1:958:RD$(REC):11406K2NF:P$(K)"":J1TV%(K):P$(K)P$(K)" ":J,K:P$(1)"*":DIFY ";::" E ";::" ERASE ";::"RTN";::" ABORT ";G$;" ";:Y$gY$(13)Ė1:21:958:1270xY$"M"1640Y$"E"146021:1:958:22:8:"VERIFY ERASURE (YES/NO) ";G$;:" ";Y$:Y$"YES"1530Y$"NO"Ģ21:1:958:1270G "<xY$(21)Ģ5:24::" ";:RD19ĺ" ";:RD199ĺ" "WY$(21)ĝ:" ":1210yY$(8)RDRD1:RD1RDRECY$(8)Ģ5:24::" ";:RD9ĺ" ";:RD99ĺ" "Y$(8)ĝ:" ":1210Y$"E"1280F21:1:958:22::" M ";::" MO"RECORD TO FETCH : ";G$;:" ";D$:21:958F<Y$(27)(D$)01280aFY$(27)RD$D$:1140|PY$(13)(RD$)0480ZY$(80)ĺ(4);"PR#1":(9);"80N"::1050::(4);"PR#0":1280dY$(21)RDRD1:RDRECRD1nRD1Y$"E"Ģ5:24:" :" E ";::" EDIT ";::" F ";::" FIND ";G$;" ";:Y$:Y$"F"Ģ21:2:958::"FIELD #";::" TO SEARCH: ";G$;:" ";TV$:TV(TV$):TV1TVNF1300Y$"F"Ģ(6TV):5::T$(TV):(Y$"F"Ģ20:958:2280+2Y$(27)Ģ21:1:958:22:11:%(K):K260FR01270f23:5::" ONLY ";REC;" RECORDS ARE ON FILE ":D12000:D:FR0:5:24::RD::16368,021:2::"ESC";::" FETCH ";::"<--";::" LAST ";::"-->";::" NEXT"< 23:2::" P ";::" PRINT ";:,4:t(RD$)11280'~5:1:868G37,4:36,16::"RECORD";:g(RD$)RECRD$(REC):FR1z" ";::RD$:35,24:23:958:9RD((RD$)):RD01280RXRD:RX0RX0FL0K1NF:P$(K)(RD$(RX),FL1,TV%(K)):FLFLTV(Z2ZG:60208*Z2,,ZX(Z)060208I.ZN$ZN$"."(ZG$,ZX(Z))O0IZH$(Z)(ZA$(Z),ZG)/ZD(Z):ZE(Z):ZH$(Z);`Z21ZI(Z):(ZE(Z)ZG1Z2):(95);:Z2::{ZG$"000000":ZG(ZN$)Z21ZG (ZN$,Z2,1)"."60202"ZX(Z)0ZN$(ZN$,Z2)$ZX(Z)0ī60200&ZN$ZN$(ZG$,ZX(Z)):ZN$(ZN$,Z2ZX(Z))K UP "-/6 8:" "P/@ 8:" THE TELEPHONE-RECEIVER "/J 8:" "::D15000:D/T ALPHA0:13:1:958:13:10:GB$(26):GB$/^ D$;"PR#0":D1500:D:34,0::D1500:D:1990 0h **** SORT/PRINT D$::D12500:D:1980. I. FL0:IK1I1:FLFLTV%(IK):IK:FLFL1m. NUMBER$(RD$(ALPHA),FL,TV%(I))|. D$;"PR#2". NUMBER$NUMBER$(10). 11:DIAL$;NUMBER$. D12000:D." 17:8::" " /, 8:" PLEASE PIC(13)480- 26505- --> D.C. HAYES MODEM <-- K- :10:DIAL$(17)- I112:(T$(I),5)"PHONE"(T$(I),4)"TELE"2750- I:2760- MODEM12780- 14:6::" NO PHONE NUMBERS IN RECORDS ":. 6::" OR NO MODEM CONNECTION ";G$;GFUL CORRELATION"J,P CC13CCCC12:20:3:"+ ";CC;" ADDITIONAL RECORDS",Z 24:7:"HIT ";::" F ";::" FOR ANOTHER SEARCH ";G$;,d CC1Ģ22:9:"HIT ";::" D ";::" TO DIAL NUMBER":22:14,n Z$:Z$(70)ī1990,x Z$(68)CC12720 - Z$610"+ CC11CCCC1:CK1::2610D+ Y$"F"Y$(21):RDK1:1380]+ CCCC1:CK1:ALPHAK+( 6CC:3::"RECORD ";:(10(K100)(K10)):K;::" ...... ";(RD$(K),FL,TV%(TV))+2 K+< Y$"F"Ģ(6TV):5:T$(TV):1280,F CC0Ģ13:7:"NO SUCCESS* LO1:Y$"F"LORD1:RD1RECLO14* KLORECE* Y$"F"2480W* 5:7::K;:g* DUM22530* DUM$((RD$(K),FL,TV%(TV)),(KEY$))* DUM$,KEY$* (26)02610* 2570* DUM$(RD$(K),FL,TV%(TV))* DUM$,KEY$* CK0+ (26)02ILE$::6:34,4:C)B (17(A$)2):A1$;" K ";A2$;" = ";A$:34,7:o)L 22:(21(T$(TV))2)::T$(TV)::7:1)V (KEY$,1)(42)DUM2:2410)` KEY$(KEY$,(KEY$)1):DUM1)j CC0)t TV1FL1:2440)~ FL0:JK1TV1:FLFLTV%(JK):JK:FLFL1&KEY$""1950$((KEY$,1)"*"L1( (KEY$)TV%(TV)LĢ21:16:958:18::" KEYWORD > FIELD ";G$;G$;:D11000:D:16:868:20::2280( KEY$(42)Ģ20:18:958:2280( A$KEY$($ D1100:D(. Y$"F"2390)8 :3:(21(FILE$)2)::F ";A1$;" K ";A2$J'6:A1$;" K ";A2$;:21:"CONTAINS ";A1$;" K ";A2$::'::"NOTE";::": ";A1$;" K ";A2$;" CAN BE ANY COMBINATION OF"'7:"LETTERS, NUMBERS, AND SYMBOLS.":'35,24'L0::2::"ENTER KEYWORD";::": ";G$;:" ";KEY$ (L RECORD NUMBERS WHOSE":=&(21(T$(TV))2)::T$(TV)::u&3:"FIELD 'MATCHES' YOUR KEYWORD...";A1$;" K ";A2$&:5::"KEYWORD";:24:"FIELD MATCH":&3:"-----------";:20:"-------------------"'5:"*";A1$;" K ";A2$;:21:"BEGINS WITHIELD # ";::" TO BE SEARCHED : ";G$;:" ";TV$@%H(TV$)0480b%RTV((TV$)):TV1TVNF2110%\(TV$)1TV10((TV$)1)2110%f34,0::1:10::" F I N D R U L E S ":%p%z4:"THE FIND FUNCTION WILL SEARCH FOR"&3:"AND DISPLAY AL" ";K;". ";T$(K);21);K1;". ";T$(K1):2080\$" ";K;". ";T$(K);22);K1;". ";T$(K1)f$ 2080$" ";K;". ";T$(K);21);K1;". ";T$(K1)$ :KNF$*K2(K2)Ģ(37):21:958$416368,0.%>21:10:170::17:868:2:"ENTER ";::" FM1#RX0:(8)1İ1900#D$;"CLOSE ";FILE$?#REC0710p#34,0::3:(21(FILE$)2)::FILE$:34,4:#::" THE FOLLOWING FIELDS ARE AVAILABLE ":9:"FOR THE FIND FUNCTION :":#T$(NF1)H$H$H$B$#K1NF2#K92070.$K9ĺ "NNB2860"X1660,"bLC0Y$""1930^"l22:1:958:9::"SAVING MODIFIED RECORD":v"vRXRD:150:RD$(RX)"D$;"CLOSE ";FILE$"1:20:958:5:17::"RECORD"::1270" **** FIND/DIAL DATA **** #A1$(91):A2$(93):Y$"NF":MODE(13)(PY$)2P$(Y)"":1830F!P$(13)P$(Y)(PY$,(PY$)1):1830X!HTHT1:1740!&(P$(Y))TV%(Y)āJ1TV%(Y)(P$(Y)):P$(Y)P$(Y)" ":J:1850!0(P$(Y))TV%(Y)1850!:260:RD$(RX)"":K1NF:RD$(RX)RD$(RX)P$(K):K:LC1!DMOD11020 (6Y):(HT)::P$:P$(8)(36)15Ĺ36,15:1720O P$(8)(PY$)11730~ P$(8)HTHT1:PY$(PY$,(PY$)1):1740 (PY$)TV%(Y)P$(13)ĺG$;:1740 P$(44)P$(46) P$::PY$PY$P$ IN1PY$(13)RECREC1:480!PY$3750&?dY$(13)LABEL0:RXXR:29904?n14:3920s?xVP$"P"Ė(INDENT):(XXLINESLC)60ĺ(12):XX6:(INDENT)?FL0:K1NF:P$(K)(RD$(RX),FL1,TV%(K)):FLFLTV%(K):?VP$"P"Ė(INDENT)?K1LINES?L(P$(TW%(K))):L2L1:4040@JND OF FILE "::D11000:DE>(VP$"P"ĺD$;"PR#1":(12):D$;"PR#0"U>235,24::9i><:::16368,0>F5:"PRESS ";::"RETURN";::" TO RE-FORMAT COPY":>P7:"PRESS ";::" C ";::" FOR ANOTHER COPY ";G$;:Y$:?ZY$(67)ė:LABEL1:RXXR:K11REC:RXSO%(K1):3960'=35,24:y=23::"PADDLE #1";::" CONTROLS SCROLL/PRINT SPEED !":35,21:6:D1750:D=VP$"P"ĺ(4);"PR#1":(9);"80N":;=Y1$"Y"3790= RXRX1:RX1RX1=RXREC3960>(4);"PR#0"::255:15::" ELABEL03780y<:9:"HOW MANY ";::"CARRIAGE RETURNS";::" FROM END OF"::11:"ONE ";B1$;" TO NEXT ? ";G$;:" ";CR<15:13::"V";::"IEW OR ";::"P";::"RINT ? ";G$;:VP$:VP$"V"VP$"P"3760<VP$:D1500:D:XX6<3810<=REC:LLJM:SS$SRT$(J):SSO%(J)P;j20:19::" ";:(19(J100)(J10)):J:;tS1(SRT$(LL)SS$)SRT$(LLM)SRT$(LL):SO%(LLM)SO%(LL):LLLLM:LL03700;~SRT$(LLM)SS$:SO%(LLM)S:J:3670; * SHELL SORT LIST DONE * ;D11000:D <&: 12:958:17:14:"S O R T I N G";: 7:16::SS$;:H:K1RECU:SO%(K)Kj:SF1FL1:3630:$FL0:I1SF1:FLFLTV%(I):I:FLFL1:.SRT$(K)(RD$(K),FL,TV%(SF)):8K:BM1:LM3M1:MREC3660:VM(M1)3:M13720 ;`JM135,24:K9 10:(13(T$(SF))2):"*** ";::"SORT ON ";T$(SF);::" ***"9 :::"ASCENDING";::" OR ";::"DESCENDING";::" SORT (A/D) : ";G$;:S$:S$;:S1(S$"A")9 S$"A"S$"D"Ģ((37)1):35409 SS$"ASCENDING":S$"D"SS$"DESCENDING"LLOWING LINES ARE AVAILABLE FOR":8 "THE SORT FIELD :":8 K1NF2:(4(K9)):K;". ";T$(K);22(K8));K1;". ";T$(K1):K:NF2(NF2)Ģ(37):21:958:8 :"SORT ON WHICH FIELD (BY NUMBER): ";G$;:" ";SF$:SF(SF$):SF1SFNF34809 34,0:LOOK LIKE THIS :":7f 6:"------------------------------"`7p K1LINES:T$(TW%(K));TX$(K);:K7z 22:14:"CORRECT (Y/N) ";G$;:Y$:Y$"N"30107 Y$"Y"34507 :12:8:"WANT SORTED ";B1$;" (Y/N) ? ";G$;:Y1$:Y1$:Y1$"Y"3740 8 ::"THE FO TX$(LX)TX$(LX)" "T1$" "C6 ZZ$T$(TW%(LX))T1$T$(TW%(LX1))b6* ZZ(ZZ$)2:ZZ(40ZZ)21s64 23:1:9586> ZZ::T$(TW%(LX));::" ";::TX$(LX);::" ";::T$(TW%(LX1)):6H D1500:D6R 32607\ 34,4:35,23:::6:"THE ";B1$;" WILL X1LXLINES1Ğ:14:"INVALID";::G$;G$:D1500:D:21:1:3260T5 LCLC1:3250j5 21:27:LX1;":"5 21:32:"ENTER ";::" ? ";G$;:21::39::TX$(LX)""5 T1$:T1$(13)TX$(LX)(13):34205 T1$" "33505 TX$(LX)TX$(LX)T1$:33606MORE LINES (Y/N) ";G$;:Y$:Y$"N"342094 Y$"Y"3210U4 K1NF:TX$(K)(13):K_4 32604 21:16:958:16:"TO FIELD # ":23:10:170:33004 1:21:958::"JOIN";::" FIELD #";G$;:" ";LX$:(LX$)034204 21:16:958:LX(LX$)B5 LT OF :":7:"----------------------------"[3X K1LINES:(14(K9)):K;". ";T$(TW%(K)):K3b 34,20:22:10:"IS THIS CORRECT (Y/N) ";G$;:Y$:Y$"N"Ĺ34,4:30103l Y$(21)Y$(32)4803v Y$"Y"31703 LC0'4 21:868:22:6:"MERGE TWO OR ";::" LINE ";L;G$;::" : ";TV$72 L1(TV$)0480J2 (TV$)03150g2& TV$(21)TV$(32)48020 TV$"@"LNF1:TVNF:I1NF:TW%(I)I::31502: TV((TV$)):TV1TVNF30802D TW%(L)TV:3060*3N :LINESL1::8:"YOUR ";B1$;" WILL CONSISOLLOWING FIELDS ARE AVAILABLE ":12:"FOR THE ";B1$;":":G1 K1NF21 " ";4(K9));K;". ";T$(K);22((K1)9));K1;". ";T$(K1)1 :KNF1 K2(K2)Ģ(37):21:9581 LL11 LNF3150!2 21:10:170::17:868:"ENTER FIELD # FOR ATA **** 0r LABEL0,0| RX0:(8)1İ190C0 D$;"CLOSE ";FILE$R0 REC0710o0 USER SETS TOP OF FORM 0 B1$"LABEL":INDENT250 34,0::3:(21(FILE$)2)::FILE$:34,4:0 T$(NF1)H$H$H$B$:K1NF:TX$(K)(13):K91 :L0::" THE F)):J:WS1(SRT$(LL)SS$)SRT$(LLM)SRT$(LL):SO%(LLM)SO%(LL):LLLLM:LL01530SRT$(LLM)SS$:SO%(LLM)S:J:1500 **** SHELL SORT LIST DONE **** D11000:D"LABEL016106,:9:"HOW MANY ";::"CARRIAGE RETURNS";::" FR SO%(K)K!SF1FL1:1460LFL0:I1SF1:FLFLTV%(I):I:FLFL1mSRT$(K)(RD$(K),FL,TV%(SF))tK|M1M3M1:MREC1490M(M1)3:M11550JM1REC:LLJM:SS$SRT$(J):SSO%(J)20:19::" ";:(19(J100)(J10::" ***"kZ:::"ASCENDING";::" OR ";::"DESCENDING";::" SORT (A/D) : ";G$;:S$:S$;:S1(S$"A")dS$"A"S$"D"Ģ((37)1):1370nSS$"ASCENDING":S$"D"SS$"DESCENDING"x12:958:17:14:STING"7:16::SS$;:K1REC("THE SORT FIELD :":a2K1NF2:(4(K9)):K;". ";T$(K);22(K8));K1;". ";T$(K1):K:<:"SORT ON WHICH FIELD (BY NUMBER): ";G$;:" ";SF$:SF(SF$):SF1SFNF1310F34,0:35,24: P10:(13(T$(SF))2):"*** ";::"SORT ON ";T$(SF);------------------------------"EK1LINES:T$(TW%(K));TX$(K);:Kw22:14:"CORRECT (Y/N) ";G$;:Y$:Y$"N"840 Y$"Y"1280:12:8:"WANT SORTED ";B1$;" (Y/N) ? ";G$;:Y1$:Y1$"Y"1570::"THE FOLLOWING LINES ARE AVAILABLE FOR"ZZ$T$(TW%(LX))T1$T$(TW%(LX1))CZZ(ZZ$)2:ZZ(40ZZ)21T23:1:958ZZ::T$(TW%(LX));::" ";::TX$(LX);:" ";::T$(TW%(LX1)):D1500:D108034,4:35,23:::6:"THE ";B1$;" WILL LOOK LIKE THIS :"6:"";::G$;G$:D1500:D:21:1:10806VLCLC1:1070L`21:27:LX1;":"j21:32:"ENTER ";::" ? ";G$;:21:39::TX$(LX)""tT1$:T1$(13)TX$(LX)(13):1250~T1$" "1170TX$(LX)TX$(LX)T1$:1180TX$(LX)TX$(LX)" "T1$" "$ Hf480-Hk **** MERGE/SORT FILES **** KHpD$;"RUN MERGE FILES ARC"QHzrH~ **** ERROR ROUTINE **** ~H::10HER(222):NO(218)(219)256H"ERROR ";::" ";ER;" ";::" IN LINE ";::" ";NO;" ";::H20: E ";FILE$",R0"GREC'G D$;"CLOSE"8G*D11000:DAG4480G>18:9:"'HOUSECLEANING' - STANDBY ";G$:F(0):D1500:D:18:1:868:12:"FREE MEMORY = ";FGHNP04530GR22:13:"HIT ";::"RTN";::" FOR MENU ";G$;:A$H\A$(13)4690TED"F4670PF14:11:"HIT ";::"RTN";::" TO SAVE FILES ";G$;:A$:" "dFA$(13)4530FD$;"OPEN ";FILE$",L";RLFD$;"DELETE ";FILE$FD$;"OPEN ";FILE$",L";RLFR1RECFD$;"WRITE ";FILE$",R";RFRD$(R)FG D$;"WRIT1500:DECC0E&K1RECCE0(RD$(K),1)"*"CCCC1:C%(CC)KJE:KXEDL14440bENNPCCqEXCC04500}EbK1CCElRD$(C%(K))RD$(REC)EvRECREC1EKELL1:4380E:10:14:"PURGE COMPLETED"F12:13::NP;::" RECORDS DELE" TO PURGE FILES"HD23:13:"HIT ";::"RTN";::" FOR MENU ";G$;:A$YDA$"P"4320kDA$(13)480uD4280DD1100:DD12:1:868DD1517:(D):1:868:DD16:11:"** ";::"PURGING FILES";::" **"D21:1:958ED1" ";B2$;" ";B1$;"G";B2$;" ";B1$;"H";B2$;" ";B1$;"I";B2$C:3:B1$;"A";B2$;" ";B1$;"B";B2$;" ";B1$;"I";B2$;" ";B1$;"D";B2$;" ";B1$;"E";B2$;" ";B1$;"H";B2$;" ";B1$;"G";B2$C:3:"--- --- --- --- --- --- --- --- ---"D21:10:"HIT ";::" P ";::E AND THE REMAINING RECORDS"GBr"WILL BE REPACKED. FOR EXAMPLE :"::sB|4:"1 2 3 4 5 6 7 8 9"B3:"--- --- --- --- --- --- --- --- ---"7C:3:B1$;"A";B2$;" ";B1$;"B";B2$;" ";B1$;" ";B2$;" ";B1$;"D";B2$;" ";B1$;"E";B2$;" ";B1$;*** PURGE/PACK DATA **** 2A"B1$(91):B2$(93)HA,RX0:(8)1İ190_A6D$;"CLOSE ";FILE$nA@REC0710AJ34,0::2:(21(FILE$)2)::FILE$:34,4:ATNP0:L1A^5:1::"ALL";::" ERASED/BLANK RECORDS WILL BE PURGED":Bh"FROM YOUR FIL1L1'@(P$(TW%(K)),L,1)" "40403@LL1:y@(P$(TW%(K)),L);TX$(K);:TX$(K)(13)XXXX1:VP$"P"Ė(INDENT)@(1):K@CR14100,4090@D1CR::XXXX1:D@4100@:XXXX1@Y1$"Y"3850@K1:D$;"PR#0":3870A *NG SPACE BAR" IN$' IN$(27)ı; IN$(32)5005E 5090U PFLNAME$IN$` Z10000f v n CREATE pPM$(1)MN$(10):800 z:8 "TO CREATE A NEW FILE, SPECIFY A ":"FILE NAME THAT DOES NOT ALREADY EXIST."!IN$:IN$(IN$,20)":"MEMORY. PLEASE TYPE FILE NAME DESIRED."BIN$:IN$(IN$,20)RI2CLGT1hIN$CTL$(I)5200oI OTHERWISE FILE DOESN'T EXIST::198::"FILE DOES NOT EXIST": :"RETURN TO MENU WITH ESC--OR--SELECT":"ANOTHER FILE NAME USIRINTER OFF \:DN18*fJ2FLGT12HpFILE$(J);21);FILE$(J1)_MOD(J2)04770hIN$yIN$(27)ıIN$(32)47704760J SELECT PM$(1)MN$(10):800+8:"'SELECT' LOADS AN EXISTING FILE INTOTED---ESC FOR MENU."R800&XIN$7ZIN$(27)ıA\4440GbX LISTONE l PRINTER ON ~J2FLGT14FILE$(J);:36,20:FILE$(J1);:36,40:FILE$(J2);:36,60:FILE$(J3) X(16384):16368,0:X27ıJ  Z P0:D$;"PR#1"rFLNAME$;":":)|4600AP$"OFF":D$;"PR#0"G\. PRINTER OFF b0:PM$(1)"ESC FOR MENU --- SPACE BAR TO SCROLL":800D4700NJFLGT1PM$(1)"END OF LISTING---ESC FOR MENU."PJFLGT1PM$(1)"LISTING TERMINA/N)?"IN$ IN$"Y"42002IN$"N"4400<4020d5:198::"NO FILES IN MEMORY."::"PLACE A FILE IN MEMORY USING THE ":"MENU OPTIONS 'A' AND 'D'."D13000:D:f PRINTER ON hPM$(1)"ESC TO EXIT TO MENU":P$"ON":80)ıo IN$(32)3437p Ieu 198:198:198:PM$(1)"END OF ALL FILES >>> ESC FOR MENU":800nz IN$| IN$(27)ı~ 3450 LIST FILE IN MEMORY PM$(1)MN$(10)::800:FLNAME$"NONE"403010:"DO YOU WANT PRINTER TURNED ON (YTER OFF H R I2CLGT1WW FLNAME$CTL$(I):PM$(1)"NOW LOADING.:"FLNAME$:800b\ 10000a PM$(1)"ESC FOR MENU +++ SPACE BAR TO CONTINUE.":800f :4700k 198:PM$(1)"END OF CURR FILE:ESC OR NXT FILE(SP-BAR)":800m IN$n IN$(27MENU" D$;"PR#1":P$"ON"L CTR);CTL$(0):CTR4);CLGT;" FILES":::\ I2CLGT1 FLNAME$CTL$(I):D$;"PR#0":10000 800:D$;"PR#1"::FLNAME$;":": 4600:X273270 :PM$(0);PM$(0): I D$;"PR#0":P$"OFF": F PRINR MENU":800 IN$& IN$(27)ı0 2490B LIST ALL \ :PM$(1)MN$(10):800g 11500 ::"DO YOU WANT PRINTER ON?(Y/N)" IN$ IN$"Y"3200 IN$"N"3400 3030~ PRINTER ON  PM$(1)"PRESS 'ESC' TO RETURN TO :#12:8M#"ERROR ";::" ";ER;" ";::" IN LINE ";::" ";LI;" ";:U#22[# D;TX$(K);:TX$(K)(13)XXXX1:VP$"P"Ė(INDENT)>"X(1):KS"bCR1:1930,1920l"lD1CR::XXXX1:Dv"v1930":XXXX1"Y1$"Y"1680"K1:D$;"PR#0":1700":" **** ERROR ROUTINE **** "ER(222):LI(218)(219)256#NT):(XXLINESLC)60ĺ(12):XX6:(INDENT)h!FL0:K1NF:P$(K)(RD$(RX),FL1,TV%(K)):FLFLTV%(K):!VP$"P"Ė(INDENT)!K1LINES!&L(P$(TW%(K))):L2L1:1870!0J1L1!:(P$(TW%(K)),L,1)" "1870!DLL1:1"N(P$(TW%(K)),L)35,24::9 :::16368,04 5:"PRESS ";:] "RETURN";::" TO RE-FORMAT COPY": 7:"PRESS ";::" C ";::" FOR ANOTHER COPY ";G$;:Y$: Y$"C"ė:LABEL1:RXXR:1580 Y$(13)LABEL0:RXXR:800 14:1750+!VP$"P"Ė(INDE" CONTROLS SCROLL/PRINT SPEED !":35,21:6:D1750:D[|VP$"P"ĺD$;"PR#1":(9);"80N";mY1$"Y"1620RXRX1:RX1RX1RXREC1790D$;"PR#0"::255:15::" END OF FILE "::D11000:DVP$"P"ĺD$;"PR#1":(12):D$;"PR#0" OM END OF"::11:"ONE ";B1$;" TO NEXT ? ";G$;:" ";CR615:13::"V";::"IEW OR ";::"P";::"RINT ? ";G$;:VP$:VP$"V"VP$"P"1590@VP$:D1500:D:XX6J1640T^K11REC:RXSO%(K1):1790h35,24:6r23::"PADDLE #1";::ILE$(J)DLE$(I)9230+0$FILE$(J)"":924020$J90$IS0R$ MOVE INTO MERGE$ [0T$J0k0^$I2FLGT10h$FILE$(I)""93300m$JJ1:MERGE$(J)FILE$(I)0r$I0$ MOVE BACK INTO FILE$0$FLGTJ0$I2FLGT1:FILE$(I)MERGE$(I1):I1$FILE$(1)DLGT0;/#PM$(1)"ENTER ITEM -- OR CTL/E TO EXECUTE.":800R/#IN$:IN$(IN$,20)s/#(IN$,1)(5)(DLGT0)9200/#(IN$)09120/#DLGTDLGT1:DLE$(DLGT)IN$:9120/# MATCH & NUL /# ASSUMES NO DUPL IN FILE$/#I1DLGT:J2FLGT10#F"9480 .-#PM$(1)MN$(10):800:.2#"CURRENT MENU MODE DELETES ITEMS":"FROM THE FILE CURRENTLY IN MEMORY, ":FLNAME$;". DO YOU WANT TO":"CONTINUE (C) OR RETURN TO MENU (M)?".<#IN$.>#IN$"C"9100.@#IN$"M"ı.B#9020.# ITEM INPUT /#:DATING FILE TO DISC.":198:800*-"95007-$"IN$"":-`":5:198::"NO FILES IN MEMORY.":::"RETURNING TO MENU...SELECT MENU OPTIONS":"'A' AND 'D'."-j"D13000:D:-""# ITEMS ENTERED SO FAR = ";ALGT:8120-&# DELETE .(#FLNAME$"NONEJ:8650,!JALGT8510H,!YI:IYFLGT1:MERGE$(K)FILE$(I):KK1:q,! NOW TRANSFERT MERGE$ INTO FILE$ ,!FLGTFLGTALGTD,!I2FLGT1:FILE$(I)MERGE$(I1):I,! UPDATE FILE$ TO DISC ,!FILE$(1)(FLGT) -"PM$(1)"MERGE DONE. NOW UPD$(J)8550%+C!FILE$(I)ADD$(J)8505A+E!ADD$(J)ADD$(J1)8505d+H!MERGE$(K)FILE$(I):KK1:II1n+R!8600+f!ADD$(J)ADD$(J1)8505+p!MERGE$(K)ADD$(J):KK1:JJ1+! CK IF DONE +!IFLGT18620,!XJ:JXALGT:MERGE$(K)ADD$(J):KK1:800*l MN78500'*v FILE$(0)FLNAME$7* I1:J0:D0G* II1:JJ1X* JALGT8380m* FILE$(I)ADD$(J)* FILE$(I)ADD$(J1)8330* JJ1:DD1:8330* FLGTALGTD:8700*2! MERGE *4!I2:J0:K1*7!D1*9!JJ1:DD1 +>!FILE$(I)AD AND MERGING.":198:800)) I1ALGT1E) MIN$ADD$(I):MLOCI:S0U) JI1ALGTm)! ADD$(J)MIN$8230)# MIN$ADD$(J):MLOCJ:S1)& J)+ S08250)0 ADD$(MLOC)ADD$(I):ADD$(I)MIN$): I*D PM$(1)"SORT DONE. NOW MERGING WITH FILE.":198:40(ALGT0:H(PM$(1)"ENTER ITEM--'#' 4 #ADDED-CTL/E TO EXEC":800_(IN$:IN$(IN$,20)((IN$,1)(5)(ALGT0)8200(IN$"#"ī8900((IN$)08120(ALGTALGT1:ADD$(ALGT)IN$(8120( SELECTION SORT ) PM$(1)" NOW SORTINGPM$(1)MN$(10):800:ADD$(1)""8'EFLNAME$"NONE"8800A'J:5'T"CURRENT MODE ADDS TO OR CREATES ":"A FILE CALLED, ";FLNAME$;"."'^"DO YOU WANT TO CONTINUE (C), OR ":"TO RETURN TO THE MENU (M)?"'hIN$'jIN$"C"8100'lIN$"M"ı(n80ILE NAME DOES NOT EXIST."::7520R&V::198::"FILE NAME ALREADY ASSIGNED.":z&`"RETURN TO MENU WITH 'ESC' --OR--"&e"CHOOSE AN EXISTING FILE NAME,":"USING THE SPACE BAR."&jIN$&lIN$(27)ı&nIN$(32)7000&p7530&> ADD '@PDATE FILE (% READ AOLD/SAVE AS NEW@%FLNAME$OLD$:10000c%FLNAME$NW$:FILE$(0)NW$:9500z%$D$;"DELETE ";OLD$%.:::"RENAME FUNCTION NOW COMPLETE.":"NOW RETURNING TO THE MENU.":%8D11500:D:%K RENAME ERR !&L::198::"F NAME:"$IN$:NW$(IN$,20)/$ CK NEW$ T$J2CLGT1:NW$CTL$(J)7510:Ji$ RENAME BODY $ PM$(1)"NOW RENAMING FILE.":800$*JICLGT:CTL$(J)CTL$(J1):J$4CLGTCLGT1:FLNAME$NW$:12000$ UPDATE CATALOG $10500 % UBAR" #IN$#IN$(27)ı2#IN$(32)6010<#6420S#V RENAME A FILE k#XPM$(1)MN$(10):800#b:8:"TYPE IN FILE TO BE RENAMED:"#lIN$:OLD$(IN$,20)#u CK OLD$ #vI2CLGT1:OLD$CTL$(I)7100:I#7500$:"TYPE IN NEW000"10500,":198:10:"NEW FILE ";K":FLNAME$;::" CREATED."^"D13000:D:z" CREATE ERR-ROUTINE "::198::"FILE NAME ALREADY ASSIGNED":# :"RETURN TO MENU WITH 'ESC' -- OR --"::"CHOOSE ANOTHER FILE NAME USING SPACE-!(IN$)060109!I2CLGT1:IN$CTRL$(I)6400:I\!FLNAME$IN$:FLGT0:FILE$(2)""f!8000w!IN$""6200!FLNAME$FILE$(0):FLGT(FILE$(1)):!812000!PM$(1)" NOW UPDATING CATALOG":800!CTL$(1)(CLGT):CK$(1)CTL$(1)"11I12P! zP(1,I,1),P(1,I,2)* 5001 II P(1,1,1),P(1,1,2)X PR02300e I12Po II1 A(I1)PPI:SA(A):CA(A) J1PR P(1,I1,1),P(1,I1,2)CXJSA,CYJCA 500 J I   ART FORM 20 ! L,I,1)CXR((I1)PPI)8P(1,I,2)CYR((I1)PPI)BII1c P(1,I,1)CXPR((I1)PPI)P(1,I,2)CYPR((I1)PPI) 500*I4950> GRAPH ROUTINE HI12PRCX,CYP(1,I,1),P(1,I,2)\IfP(1,1,1),P(1,1,2) p,1),P(1,J,2)v500:I,RR(SPIP)3=NN1:N0ıMNN261720W1810r ART FORMS 28 & 16 PR1:1990PR1:DE1200:500:P((1)124):PRPR((1).45.25)R90:PRRPRA0:SA0:CA0:J0I12PP(1CX:P(1,1,2)CYIR#I2(P21)&A(I1)AN:PXR(A):P(1,I,1)CXPX:P(1,K,1)CXPX:P(1,I,2)CYIR(A):P(1,K,2)P(1,I,2):KK10500:I:R130İ950D GRAPH ROUTINE NJ1:P(1,J,1),P(1,J,2)XI1PbJJS:JPJJP lP(1,J(1)9110):PR((1)5110):1740,R130GPR100S(P2):1770VA1PR100S(((A(AA1))1.5708)PPI.5)I1:J1II1:JJS:JPJJPIPJ1P150PP1:1750500:IP1780AN2PIP:IRCYCXR:KP:P(1,1,1)1YY10:1620$^Y0YY10:1630.hX,YTr6,((XY)2):7,((1)41):768]|500fI: ART FORM 17,6,26 P((1)9110):PR((1)5110):N((1)43):1730P((1)12130):PR100:N1:1730N((1)52):R130"P(DE1300:500:DE6X((1)180):Y((1)192)E2740:950\ GRAPH ROUTINE eX,YrI1300L((1)RMRP)"IX0:IY0:((1).5)0IXL:1590,IYL6XXIX:YYIY@X279XX10:1600JX0XX10:1610TY19I:n ART FORM 12 +xP((1)256)@DE1200:500:lIX130P:IY90P:X140:Y95:PX130:PY0u950 GRAPH ROUTINE GC2I1P1X,YPYXPX,YX,YPYXPX,YX,YPY:500PXPXIX:PYPYIY:I: ART FORM 24 NN29C((1)1120)-2DE1200:500:DEr<AN2PIP:I1P:P(1,I,1)RP(ANI):P(1,I,2)RP(ANI):500:I{F950P GRAPH ROUTINE ZI1C:PYCYRP(I2PIC):PXCXRP(I2PIC):PX,PYRPdA1P:PXP(1,A,1),PYP(1,A,2):A:500:181250&JP21:K1P:1260:K:JJ((1)P1):K1P:1260:K:zP(I,J,1),P(I,J,2)P(I,K,1),P(I,K,2):500: ART FORMS 22,5,11 P((1)85):CP:1330 P((1)93):C((1)2130):1330P33NN11C((1)85)(GT1: MLNAME$CTL$(2)1207005.I1:CTL$(CLGT2)(255):5.II1g5.FLNAME$CTL$(I)FLNAME$CTL$(I1)12050r5/120205/JCLGT2I21:CTL$(J)CTL$(J1):J5/CTL$(I1)FLNAME$:CLGTCLGT1:6&/ICLGT231:CTL$(I)CTL$(I1):I:CTL$(2)FLNAME$:CLGTCLWRITE CHECK 94*D$;"OPEN CHECK,L20":D$;"DELETE CHECK"4+D$;"OPEN CHECK,L20":D$;"WRITE CHECK":CK$(0):CK$(1):D$;"CLOSE"4 +4, TITLE 4,"CATALOG NAME---";::CTL$(0)::"NMBR OF FILES--";::CLGT:4,4. SEARCH/INSERT CAT 5.FFLGT1:FILE$(K):K)3<'CC1:C201005083='X(0):C0J3B'D$;"CLOSE":]3) WRITE CAT 3)D$;"OPEN ";CTL$(0);",L20":D$;"DELETE ";CTL$(0)3)D$;"OPEN ";CTL$(0);",L20":D$;"WRITE ";CTL$(0)3)I0CLGT1:CTL$(I):I3")D$;"CLOSE"3,) 4* ";FLNAME$;",L20":D$;"WRITE ";FLNAME$B2&%I0FLGT1:FILE$(I):IR20%D$;"CLOSE"X2:%m2' READ A FILE 2'D$;"OPEN ";FLNAME$;",L20"2'D$;"READ ";FLNAME$2$'FILE$(0):FILE$(1)2.'FLGT(FILE$(1))23'KFLGT2FLGT4:FILE$(K)" ":K38'K2(FLGT)I1$198:PM$(1)"DELETION(S) COMPLETED.NOW UPDATING DISC.":800U1$9500:1%:"NO FILES EXIST IN MEMORY. SELECT A FILE FROM MENU 1ST...":D13000:D:1% WRITE A FILE 1%D$;"OPEN ";FLNAME$;",L20":D$;"DELETE ";FLNAME$%2!%D$;"OPEN ),P(1,1,2)0I1:L1:J1'0K1P1C0IIL:IN1L1:II2X0JJS:JPJJPp0P(I,J,1),P(I,J,2)y05000I142500L1:K00 ART FORM 15 0N10HO(1).5.50HI(1)(1HO)HO0RO(1)PI19:RIRO 1P(/HI(1)HO1HO2/(1).50RO0:RI0:4140F/RO(1)PI318e/N2RI0:(1).50RIROv/"N3RIRO2/,P((1)1812)/6S(P((1).5.25))/@C((1)21)/J4670/T4770/^4880/h950/r GRAPH ROUTINE 0|P(1,1,1APH ROUTINE .nI1NS..xINSNN324040;.CX,CYRL.AN0:RRRPRW.J1P~.ANANIA:CXRR(AN),CYRR(AN).ANANIA:CXR(AN),CYR(AN).500:J.RRIR.I.. ART FORM 8 .N((1)22).HO(1).8.2-C200#-NS(((1)C84)2)2>-P(((1)112)2)21P-PR(1).6.2Z-3890k- C(1)2040~-NS((1)33)-P((1)55)-(PR1-2RRM:IAPIP-<NS1IR0:3920-FIRCR(NS1)100-PDE1200:500:DE-Z950 .d GR(NA2)20ILRILR:LRLR2ILR:ISRISR:SRSR2ISRl,tLRRMILR4ILRILR:LRLRILR:ISRISR:SRSRISRu,~500|,J,I,, ART FORMS 32,21,7 ,(1).50C(1)4130:3780,C100,NS((1)C84),P((1)115):3830A++NN9NN27NN19ISRISR2:ILRILR2F+$LRRM(RSSL):SRRMRSZ+.ANI2PINSDI+8NN9NN27NN19ANANPIDINS+BJ0NA+LCA(AN):SA(AN)+VCXSRSA,CYSRCACXLRSA,CYLRCA+`ANANIA:LRLRILR:SRSRISR5,jLRRMILR4NA* EL(1)SL.5$* NR(1)31209* NA((1)3140)J* NS(500NA)i* (NRNS(NRNS)).13500* DE1200:500:DE:950* GRAPH ROUTINE * DI((1).5)* IA2PINRNADI* I0NS1*ISRRM(1ELRS)NA+ILRRM(1RSSL)N NROVNA(((NAOV)OV1)NS)()> 3540M)H RS(1).5:SL(1).36.04:ELSL`)R NS((1)65))\ NR(1ELRS)(NS(SL4RM)))f NA(NR((1)41100)))p 3540)z (1).50RS0:3470) RS(1).2.1) SL(1).04.06* (1).50ELSL:3500( 788,237( 789,96( 6( ART FORMS 20-22 U( RS0:EL1:SL(1).5:3350( SL(1).4.4:ELSL:RS(1)(.8SL):3350( SL(1):EL(1):RS(1SL)(1).8:(ELSL).33340( NS((1)85)( OV((1)21)(* NA(((1)41120)NS))4ULTIPLE TONES ' 768,160'' 769,14'& 770,162?'0 771,0L': 772,138X'D 773,24e'N 774,233p'X 775,1}'b 776,208'l 777,252'v 778,141' 779,48' 780,192' 781,232' 782,224' 784,208' 785,242' 786,136' 787,208 1)IX(R):P(1,I,2)IY(R):3& 783,((R)90A)n& C((R)8):C:(CS7(C7C3))(CS4(C0C4))3030& X(R)IX:Y(R)IY& I1N:X,YP(1,I,1),P(1,I,2):768:& 500& 2990' LAZER SOUND ROUTINE, POKE 783 FOR TONE, POKE 769 FOR M8%, 780,246%6 781,166&%@ 782,62%J 783,76=%T 784,0H%^ 785,3T%h 786,96Z%r o%| ART FORM 19 % DE1300:500:DE:950% GRAPH ROUTINE % IX279:IY191:A100:R1:J1% 3090% N5020(1)% JJ1:J6ı& I1N:P(1,I,):7,(I):768$ 500!$ 2660'$ l$ 'BOOP' SOUND ROUTINE, POKE 6 & 7 TO VARY PITCH AND DURATION y$ 768,173$ 769,48$ 770,192$ 771,136$ 772,208$ 773,4$ 774,198$ 775,7$ 776,240$ 777,8$ 778,202%" 779,200 # M1L$# P(I,M,1)XRMLCA<# P(I,M,2)YRMLSAC# MI# ^# ART FORM 13 u#( DE1300:500:DE#2 2740#< 950#F GRAPH ROUTINE #P Y191(1):X0#Z X,Y#d I(1)41:XXI:X2792720#n Y191(X)#x X,Y$ 6,(Y,M,2):M"~ 500:NG" M1L:P(3,M,1),P(3,M,2)P(1,M,1),P(1,M,2):MM" e" POINT LOCATION " X20(N)239:Y20(N)151" A(N)2PI:CA(A):SA(A)" R(N)90" IXXRCA" IYYRSA" 500# IX0IX279IY0IY191RR1:250((1)64)! C((1)115))!$ N(1)7!. I1:2460`!8 J1L:K12:P(3,J,K)P(1,J,K):K,J|!B DE1300:500:DE:950!L GRAPH ROUTINE !V N2C!` J1L:K12:P(2,J,K)P(3,J,K):K,J!j I3:2460"t M1L:P(2,M,1),P(2,M,2)P(3,M,1),P(3 ENTER NEW SCORES."8 "PRESS TO VIEW OLD SCORES."R "PRESS TO QUIT."Z A$j A$"E"300{ A$"V"3000 A$"S"5000 A$"Q"ė: 100  , ============= INPUT ROUTINE ============= @ ==== i34,0" j. nD$(4)D xD$;"NOMON I,C,O"L :g 17::"SCOREKEEPER": :13)"BY HHH ENTERPRISES" ::::18:"MENU": "PRESS TO START NEW SCORECARD AND" 11)"ERASE OLD ONE." "PRESS TO  ********************* * * * SCOREKEEPER * * * * NIBBLE V3/N6/P95 * * * *********************  d ==== MENU     YP(0,J,1)SAP(0,J,2)CAZ<CXXP(1,J,1)CAP(1,J,2)SA,CYYP(1,J,1)SAP(1,J,2)CAc<500j<Jp< LND PLOT ROUTINE P;CXXP(1,0,1)CAP(1,0,2)SA,CYYP(1,0,1)SAP(1,0,2)CA;CXXP(0,0,1)CAP(0,0,2)SA,CYYP(0,0,1)SAP(0,0,2)CA;J1M;CXXP(1,J,1)CAP(1,J,2)SA,CYYP(1,J,1)SAP(1,J,2)CA<CXXP(0,J,1)CAP(0,J,2)SA,CYI :"950!:, GRAPH ROUTINE .:6I0N1L:@CA(2IAN):SA(2IAN)X:JX0:Y0b:T5550i:^Iv:hI0N1:rCA(2IANANPI):SA(2IANANPI):|XRM(2IANAN):YRM(2IANAN):5550:I:; LINE ROTATE, TRANSLATE AIIX)9J1M10:9P(2,J,1)P(2,J1,1)M29999:5330m9M2(P(2,J,2)P(2,J1,2))(P(2,J,1)P(2,J1,1))9X(P(2,J1,2)P(2,J1,1)M2B1)(M1M2)9XP(2,J1,1)XP(2,J,1)53809P(1,I,1)X9P(1,I,2)M1XB1953909J9500:TE BASIC CURVE ,8FCA(ANPI):SA(ANPI):8PI0M10X8ZXP(2,I,1)CAP(2,I,2)SAy8dYP(2,I,1)SAP(2,I,2)CARM8nP(2,I,1)X:P(2,I,2)Y8x5008I8 CALCULATE END POINTS 8P(1,0,1)0:P(1,0,2)RM8I1M9B1IIY:M1(RRB1)(0:P(0,I,2)IIY:IC7P(2,0,1)0:P(2,0,2)0:P(2,1,1)0:P(2,1,2)IYQ7I2M10a7B1(I1)IYm7B2IIY7M1(RRB1)((I1)IX)7 M2(RRB2)(IIX)7P(2,I,1)(B2B1)(M1M2)7P(2,I,2)P(2,I,1)M1B17(50072I8< ROTATE AND TRANSLAA:P(L,I,K)YHISA:6jP(M,I,J)IYRICA:P(M,I,K)P(L,I,K)H6t500:I:]6~ ART FORM 1 o6N((1)43){6ANPIN6R((1).2.3)RM:RR1006M((1)30N10)6IYRM6IX(RRR)(AN)M6 DEFINE BASIC CURVE 7I0M:P(0,I,1)K2:YCY+5$C2IX130:IYCY:J2:K1:YCXD5.HIHIIX:RIHI(RI)y58N1PX(1)PX6PX6:IXIYPX:IYIYPX:L3:M45BN2IXIY:L2:M45LN3PX((1).8.4)PX:IXIYPX:IYIYPX:L2:M35VI1P:ANIIA:SA(AN):CA(AN)6`P(L,I,J)IXRIC):IX5RO:IYIYRO&4LN1:IA2PIPK4I1P:ANIIA:SA(AN):CA(AN)r4P(1,I,J)IXROCA:P(1,I,K)YHOSA4P(L,I,J)IYROCA:P(L,I,K)P(1,I,K)45004I44 DEFINE INSIDE HOOP(S) 4PXIYIX:IA2PIP5C1IX90:IYCX:J1:ATION OCCURS 3>I1:J1$3HII113RK12NF3\JJS:JPJJPM3fKf3pIPJ1PP1:4670o3z500}3IP468033 DEFINE OUTSIDE HOOPS 3C1IX90:IY274:J1:K2:YCY3C2IX130:IY186:J2:K1:YCX4HOHOIX:ROHO(RO(2,J,2)2JJS1:JP1JJP172P(1,J,1),P(1,J,2)>2KS2J1:((1)25)j2P(3,1,1),P(3,1,2)w2K1P12JJS:JPJJP2P(4,J,1),P(4,J,2)2 JJS:JPJJP2P(3,J,1),P(3,J,2)2 K2*34 INSURE THAT NO LINE DUPLIC(1)1813)%1S(P((1).25.25))71&C((1)21)A104670K1:4770Y1DP1P:S1Se1NPP125v1XS(S1P1P)1b46701l48801v9501 GRAPH ROUTINE 1J11P(1,1,1),P(1,1,2)1K1P111JJS1:JP1JJP12P(2,J,1),P栌嶠РΠɠӠҠϠҠ𠔠ӐàԂŠ栃֠ԒҢȠȠàȠƠȠ蠠ƠĠ𠰷۠ࠩࠏ堠 m `")8  Ln C  X i`nw0LW 0LW `i, G. . ܦ`ɠ    ` ɰɺ)`8` H H .  . hm hm  . m L#GH Ƞ͠͠ӠӠſ X L( g      @,0    L   L    L   L  LL  L   ORE#"D$;"WRITE SCORE#"#0:D$;"CLOSE SCORE#"d"NOW PRESS TO ENTER NEW SCORES."m210p ======= DISPLAY =======z23:"HIT ANY KEY TO CONTINUE."ANY$VB23:958 DPZ ========== INITIALIZE ==========sD$;"OPEN SCORECARD"D$;"DELETE SCORECARD"D$;"OPEN SCORECARD"D$;"CLOSE SCORECARD"D$;"OPEN SCORE#"D$;"DELETE SCORE#"D$;"OPEN SC SORT ENTRIES ============EP1I1RQP1IhA$(P)A$(Q)4060ZA$A$(P):ZB$B$(P):ZC$C$(P):ZD$D$(P)A$(P)A$(Q):B$(P)B$(Q):C$(P)C$(Q):D$(P)D$(Q)A$(Q)ZA$:B$(Q)ZB$:C$(Q)ZC$:D$(Q)ZD$Q$;"CLOSE SCORECARD"!P I13160+S 40004X X%0?] J1II^ 34,5Ub X%X%1eg X%9İ6000l A$(J);:16:B$(J);:26:C$(J);:33:D$(J)v X%9X%1 J :"THAT'S ALL. HIT ANY KEY FOR MENU.": ANY$ 1008 ============"CLOSE SCORE#"+ A$(I),B$(I),C$(I),D$(I)3 :X 16:"SCORECARD"::17)"BY TDH" ::4::"GAME";:16:"SCORE";:26:"INT";:35:"DATE":: D$;"OPEN SCORECARD" D$;"READ SCORECARD"& J1I0 A$(J),B$(J),C$(J),D$(J)D JN DD$;"WRITE SCORECARD" X1I* &A$(X)5 0B$(X)@ :C$(X)K DD$(X)R NXl XD$;"CLOSE SCORECARD"w b:100 =========== VIEW SCORES =========== D$;"OPEN SCORE#" D$;"READ SCORE#" I D$; WRITE ROUTINE =============B II1X D$;"OPEN SCORE#"n D$;"READ SCORE#"| S:S1SI D$;"CLOSE SCORE#" D$;"OPEN SCORE#" D$;"WRITE SCORE#" S1 D$;"CLOSE SCORE#" D$;"APPEND SCORECARD" A$(20),B$(20),C$(20),D$(20)# JI0^ T"TYPE 'STORE' FOR 'GAME' TO STORE SCORES"::II1::w ^"GAME : ";A$(I) hA$(I)"STORE"ī420 r"SCORE : ";B$(I) |"INITIALS : ";C$(I) "DATE : ";D$(I)  3408  =============89 o L< ɐɌɒɔɗ!`gYLVvYLVYLVYLVY `ųԠΠԠ̭ o89L9 15:19:"";MD$(MC)0 AD1ıU: :" IS THIS CORRECT ?";YN$:(YN$,1)"N"ė:3090D :" ANOTHER ?";:"";YN$:(YN$,1)"Y"MCMC1::3090N (4);"OPEN "TI$(CZ1):(4);"WRITE "TI$(CZ1):I1MC:ME$(I):MD$(I)::(4)"CLOSE"TX (4);"OPEN TITLE70  MC1 CZ03090w I1CZ:TI$(CZ1)TI$(I)ė:12:A$"THAT TITLE ALREADY EXISTS.":11000:I13000::3020}  :5:2:"ENTER MESSAGE :":::I1224:(95);:::7:1:8000:ME$(MC)ST$ 15:" DATE (MM/DD/YY) :";:I18:(95);:::ME$(MC):MD$(MC):(4)"CLOSE"L>:" ANOTHER ";:YN$:(YN$,1)"N"AD0:^H:3090:2090 ADD NEW FILE ------------  15000  3:" FILE NAME :";:I110:(95);:::3:13:"";TI$(CZ1):(TI$(CZ1))10ė:3030 TI$(CZ1)""31;"WRITE";A$:33,30:0,32765:D$;"CLOSE";A$:: D$(4):"TEXTFILE NAME: ";A$:D$;"OPEN";A$:D$;"WRITE";A$:33,30:0,63998:D$;"CLOSE";A$:: I";A$:33,30:63999:D$;"CLOSE";A$:5 D$;"LOCK";A$ D$(4):A$"CAPTURE.I":D$;"OPEN";A$:D$;"WRITE";A$:33,30:32766,32767:D$;"CLOSE";A$: (D$;"LOCK";A$:  ===================== A$(20):D$"":"TEXTFILE NAME: ";A$:D$;"OPEN";A$. D$ **********************; * MAKE CAPTURE *X * BY CHARLES BOODY *u * COPYRIGHT (C) 1982 * * BY MICRO-SPARC.INC * * LINCOLN, MA. 01773 * **********************# D$(4):A$"CAPTURE.A":D$;"OPEN";A$:D$;"WRITE   ";:L0:P24605MN24621MN4:P,(CK$(L))64:LL1:L04:DT$DT$CM$(L):L:L24679MN24752MN:L,((DT$,L(24678MN),1))128:L24679MN24752MN:(L)188ĹL,172(L)170ĹL,186:34,0:"DONE!":(769)25Č768: "RESERVED KEY."(7)::70. :L4LL1:70k ::L04:"#"L1" COMMAND -> "CM$(L)" KEY -> "CK$(L): :"IS THIS CORRECT (Y/N) ? "; 756:IT(16384):IT89IT78160 (IT):IT78Ĭ MN0:(769)25MN23808515::"WORKING...A(CM$(L))14:CM$(L)CM$(L)" ":p d"#"L1" CONTROL KEY ";:CK$(L):CK$(L)""ĺ:"CUT THAT OUT."(7)::100 n(CK$(L))1ĺ:"ONE LETTER ONLY."(7)::100 xIT(CK$(L)):IT65IT90IT66IT67IT77IT88IT85IT72IT71IT74IT83IT68ĺ:, TYPE THEM SHIFTED. EXAMPLE: , = < AND : = *":s <8:"TYPE ANY KEY TO BEGIN.":16384,128:16368,0:34,6:: F"#"L1" CONTROL COMMAND ";:CM$(L):CM$(L)""ĺ:"I'M STILL WAITING."(7)::70 P(CM$(L))14ĺ:"COMMAND TOO LONG."(7)::70# ZE COMPUTER WILL TYPE OUT THE COMMAND ASSIGNED TO IT.": ("REMEMBER THAT NO MATTER WHEN YOU TYPE A CONTROLLER COMMAND THE COMPUTER WILL ACTAS IF YOU HAD TYPED THE COMMAND YOURSELFSTARTING AT THE BEGINNING OF A LINE."2 2:"TO ENTER A COMMA OR A COLON ::12:(769)25ĺ"YOU MUST FIRST LOAD":"THE CONTROLLER AND":"THEN RE-RUN THIS PROGRAM.": ::"THIS PROGRAM IS DESIGNED TO ASSIST YOU IN ALTERING YOUR COMPUTER'S 'CTRL' KEYS SO THAT ANY TIME YOU TYPE ONE OF FIVE"8 "KEYS OF YOUR CHOICE, TH *********************9 * *U * CONTROLLER *q * AND * * CONTROLLER EDITOR * * * * NIBBLE VOL3 / N06 * * * *********************a  P(I,K,2)P(I,J,2):KK1:500:J(j950?t GRAPH ROUTINE P~NN311180qJ1P1:KJ1P:1260:K,JwJ1:NN18J((1)P1)K1P:1260:K:NN25ıNN4NN181230J2:K3P:1260:KJP:K1P:1260:K:NN((1)5120):11002.P(((1)2120)2)2:1100F8P((1)6120)mB DEFINE POINTS AROUND A CIRCLE LI1:AN2PIPVP(1,1,1)CX:P(1,1,2)CYRM:KP`J2(P21):PXRM((J1)AN):P(I,J,1)CXPX:P(I,K,1)CXPX:P(I,J,2)CYRM((J1)AN):0:DE1100:500:DET CHOOSE SCREEN COLOR - WHITE ON BLACK OR BLACK ON WHITE o(1).50Đ:7:CS4:7::CX,CY:62454:4:CS7: ART FORMS 31,25,10,4,18 DE1200:500:DE:P((1)1110):1100P((1)2190):1100$PӄC8X(0):X:" ";:X:C$C1$:850.890[NN(C$):NN1NFNNĖIX:" ";:IX:830mFS1NNNN1:10:14:"I'M THINKING"670 ART FORM NUMBERING SUBROUTINE FL1ī9801010::10:13:"ART FORM # ";NN6245 YOU HAVE TYPED IN YOUR ENTRY...";04IX(0)1T>A$:C(A$):C49C57ĖIX:830sHC1$A$:C$A$:A$;:X(0)1RA$:C(A$):C13ī920\C8X(0):X:" ";:X:830fC48C57ĖX:850pC$C1$A$:A$;:X(0)1zA$:C(A$):C13ī920%60,3320670LNN91060,1300,1400,2600,3330,4320,1980,1690,1080,3340U670NN192320,3800,1280,3340,1500,1050,1710,3330,1970,1300670 NN293400,1040,3760,3450670  ART FORM NUMBER INPUT "*:" PRESS WHENCT THE ART FORM (1 TO ";NF;") THAT YOUWANT TO START THE SEQUENCE FORM.":800h ART FORM SELECTION wFR1ī710FS1NNNN1:NNNF1NN1FS1NN((1)NF1)(NN101)720,740,760,780NN4990,3320,2950,1070,1290,1700,3850,400AA3ī640:AA4ī6105DAA5FL(FL1):UNAA6Č54915:FS0:FR0:670_X::jb54915slFS0vFR1:::10:" SELECT THE ART FORM (1 TO ";NF;") THAT YOUWANT TO RUN CONTINUOUSLY.":80054915FR0LFS1:::10:" SELE0:FS0:FR0:P0CS0:CG0+PK163845NF33FC$"":C1$""_GB(1800),P(4,150,2)e~ PROGRAM CONTROL (PK)128ıA$:A(A$)AA1AA2AA3AA4AA5AA6AA7ıAA1Č54915:FS0:FR0:100&AA2ľA$:,0,0,0,0,0M hTA,DI,NS,NA,NR,OV,SL,EL,RS,ILR,ISR,LR,SR,RR,HO,HI,RO,RI,P1,S1 r 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 |M1,M2,B1,B2  0,0,0,0 PI3.141592654:CX140:CY95:RM90:RP45 A173:A272:A383:A482:A578:A632:A727FL16368,01 :20:"YOUR COMMAND? ";:A$:A(A$)E AA1AA2ī100Y "AA5FL1:670b ,520k 6100 @ CONSTANTS AND DIMENSIONS J TA,C,CA,SA,DE,I,J,K,L,M,N,NN,IR,PY,PX,PR,R,S,X,Y,IX,IY,AN,IA ^ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 FORMS"7 :" R - 'RUN' ONE ART FORM CONTINUOUSLY"` 8:"UNTIL THE SPACE BAR IS PRESSED" :" N - START OR STOP 'NUMBERING'" 8:"THE ART FORMS" :" SPC CONTINUE RANDOM DISPLAYS" :" ESC ESCAPE THIS PROGRAM" 62450 ART FORMS. TO"< "CONTROL IT, USE THE FOLLOWING SINGLE"a "KEY INSTRUCTIONS AT ANY TIME:" :" I - DISPLAY THESE 'INSTRUCTIONS" :" H - 'HOLD' THIS PICTURE UNTIL " 8:"IS PRESSED AGAIN" :" S - 'SEQUENTIALLY' RUN ALL ART9:"COPYRIGHT (C) 1982"::: <9:"BY MICRO-SPARC INC"C P320p Z23:6:"PRESS SPACE BAR TO CONTINUE..."~ \16368,0 ^A(1):(16384)128ī94 d INSTRUCTIONS n:: x" THIS PROGRAM RANDOMLY DISPLAYS A" "VARIETY OF GRAPHIC r4 ***********************= * *[ * APPLE ART GALLERY *y * * * NIBBLE VOL3 / N6 * * * ***********************(:::7:9:"APPLE ART GALLERY":: 2                            ^ PRINTER OFF H` PM$(1)"ESC FOR MENU---SPACE BAR TO SCROLL":800Tj :DN18ft I2CLGT12~ CTL$(I);21);CTL$(I1) MOD(I2)02470 IN$ IN$(27)ı IN$(32)2470 2460 I  PM$(1)"END OF LISTING---USE ESC FONU.":P$"ON":800 D$;"PR#1"V"CATALOG NAME---";CK$(0):"NMBR OF FILES--";CLGT`::rI2CLGT14CTL$(I);:36,20:CTL$(I1);:36,40:CTL$(I2);:36,60:CTL$(I3)X(16384):16368,0:X272290ID$;"PR#0":P$"OFF":FLNAME$b11000l10500'v150= LIST CATALOG W:PM$(1)MN$(10):800b11500::"DO YOU WANT THE PRINTER ON? (Y/N)"IN$IN$"Y"2200IN$"N"24002040 PRINTER ON PM$(1)"PRESS 'ESC' TO EXIT TO ME"FIRST, SELECT A CATALOG NAME."H&IN$:CK$(0)(IN$,20):CTL$(0)CK$(0)w0:"NOW, SELECT A NAME FOR YOUR 1ST FILE.":IN$:FLNAME$(IN$,20)D8100NPM$(1)"1ST FILE ENTERED. NOW UPDTAING CATALOG.":800XCLGT1:CK$(1)"1":CTL$(1)"1":CTL$(2)ATALOG NAME:":IN$:CTL$(0)(IN$,20)*E5J10500NrD$;"DELETE ";CK$(0)a|CK$(0)CTL$(0)l11000r FIRST ENTRY PM$(1)MN$(0):PM$(2)"FIRST ENTRY":FLNAME$"NONE":FLGT0:P$"OFF":800:10:"NO CATALOG OR FILES EXIST."DxPM$(1)"RENAME QUERY":MN10:FLNAME$"NONE":FLGT0:P$"OFF":800R8:1150015:"DO YOU WANT TO CHANGE THE NAME OF":"THIS CATALOG ? (O/N)"IN$IN$"Y"1600IN$"N"14801440> RENAME CAT $@::"TYPE IN NEW CAD CHECK #D$;"OPEN CHECK,L20"8D$;"READ CHECK"KCK$(0),CK$(1)]D$;"CLOSE":s READ CATALOG CLGT(CK$(1))D$;"OPEN ";CK$(0);" ,L20"D$;"READ ";CK$(0)I0CLGT1:CTL$(I):ID$;"CLOSE":v RENAME QUERY 2J)(8962J1)256:PT$(J)PH$(J)PM$(J):K1(PT$(J)):(BASLHK1),((PT$(J),K,1))128:K,JmR19:1: MAIN ERR ROUTINE D$;"CLOSE"X(218)(219)256:Y(222)X1020Y51800"ERR CODE=";Y;"----LN#=";X250  RE %898,80:899,6:900,208:901,6H902,80:903,7:904,208:905,7} THESE ARE LO/HI BYTE BASE ADRS. OF LINES 21-24 PROMPT  PM$(2)MN$(MN):PM$(3)":"FLNAME$"/"(FLGT):PM$(4)P$*J14:(20J):1:868:J`4J14:BASLH(896 "C PH$(0)"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"Q PH$(1)""l PH$(2)"MENU MODE...:" PH$(3)"FILE IN MEM." PH$(4)"PRINTER.....:" 35,19:20:PH$(0) POKE TABLE OF SCREEN BASE ADDRESSES OF PROMPT WINDOW INTO MEMORYCT AN EXISTING FILE "? XMN$(5)"E-CREATE A NEW FILE "h bMN$(6)"F-RENAME AN EXISTING FILE " lMN$(7)"G-ADD ITEMS TO FILE IN MEM " vMN$(8)"H-DELETE ITEMS FROM F.I.M. " MN$(9)"I-QUIT " MN$(10)" 900% MN$(15),CTL$(30),FILE$(200)I ADD$(100),DLE$(20),MERGE$(200)r &MN$(0)"INITIAL SET-UP OF 1ST FILE " 0MN$(1)"A-LIST CATALOG OF FILES " :MN$(2)"B-LIST CONTENTS / ALL FILES" DMN$(3)"C-LIST CONTENTS:FILE IN MEM" NMN$(4)"D-SELE0 MN(IN$)64F MN2000,3000,4000,5000,6000,7000,8000,9000,250O 150^ 35,24::s END OF MAIN FLNAME$NW$:9500:800  INITIALIZE D$(13)(4) C0 :D$;"NOMON C,I,O" MOD(X)((XDN(XDN))DN.05) ":MN10:FLNAME$"NONE":FLGT0:P$"OFF"/ n5009 x1000C 1200M 1400[ MENU h :11500 ICLGT2CLGT4:CTL$(I)" ":I 4:I19:MN$(I):I PM$(1)"***PLEASE SELECT FROM MENU***":MN10:800 IN$ (IN$"A")(IN$"Z")21. ***********************= * *[ * SHOPPING LIST 1.0 *y * * * NIBBLE VOL3 / N06 * * * ***********************PZ MAIN & dPM$(1)"INITIALIZING               "N"1250Y$"Y"10307K1NF:TX$(K)(13):KA$1080y.21:16:958:16:"TO FIELD # ":23:10:130:112081:21:958::"JOIN";::" FIELD #";G$;:" ";LX$:(LX$)01250B21:16:958:LX(LX$)$LLX1LXLINES1Ğ:14:"INVALID------------">K1LINES:(14(K9)):K;". ";T$(TW%(K)):K34,20:22:10:"IS THIS CORRECT (Y/N) ";G$;:Y$:Y$"N"Ĺ34,4:840Y$(21)Y$(32)470Y$"Y"990LC0 21:868:22:6:"MERGE TWO OR MORE LINES (Y/N) ";G$;:Y$:Y$ : ";TV$L1(TV$)02500(TV$)0970MTV$(21)TV$(32)250TV$"@"LNF1:TVNF:I1NF:TW%(I)I::970TV((TV$)):TV1TVNF900TW%(L)TV:880 :LINESL1::8:"YOUR ";B1$;" WILL CONSIST OF :":7:"----------------FOLLOWING FIELDS ARE AVAILABLE ":6:"FOR THE MERGED FILES ";B1$;": ":URK1NF2\" ";4(K9));K;". ";T$(K);22((K1)9));K1;". ";T$(K1)fKpLL1zLNF97021:10:130::17:868:"ENTER FIELD # FOR ";::"LINE ";L;G$;::"RT1 23:12:"HIT ";::"RTN";::" FOR MENU"KB1$"LABEL":INDENT25X ::RX0*34,0:3:868:D1500:D:3:15::"MERGE FILES":34,4:43::F1$;:(40(F2$)):F2$:>T$(NF1)H$H$H$B$:K1NF:TX$(K)(13):KGH:L0::" THE ;"OPEN ";F2$)D$;"READ ";F2$",R0":R29D$;"CLOSE"`RD$(R1R2),SRT$(R1R2),SO%(R1R2)FILE$F1$:200:RX0:IJ0:150:RTRECD$;"CLOSE"FILE$F2$:RX0:IJREC:150:RTRTRECD$;"CLOSE" **** SORT/PRINT **** LABEL0:RECBC$bD$;"READ ";F2$BC$,lN2:R2:X2<vD$;"CLOSE"N1N2R1R2ė:11:5::"ERROR";::" - FILES ARE INCOMPATIBLE ";G$;G$:8:"HIT ANY KEY TO CONTINUE ";:A$:"":250D$;"OPEN ";F1$D$;"READ ";F1$",R0":R1D$;"CLOSE" D$MERGE :";G$;:" ";F1$:'D1250:D^7::"2-ND";::" FILE TO MERGE :";G$;:" ";F2$:{F1$F2$Ģ((37)1):530&23:14::"S T A N D B Y":0D$;"OPEN ";F1$BC$:D$;"READ ";F1$BC$DN1:R1:X1ND$;"CLOSE"XD$;"OPEN ";F2$(34,0::5:15::" N O T I C E ":10:(21(FILE$)2):FILE$:12:8:"HAS ONLY BEEN INITIALIZED"::9:"AND CONTAINS NO RECORDS";G$:22:"--":D12500:DD$;"CLOSE":34,0:D$;"CATALOG":"ENTER ";::"1-ST";::" FILE TO # OF FIELDS AND ALSO"@ 4:"THE SAME OVERALL RECORD LENGTH."v 20:10:"HIT ";::" C ";::" FOR CATALOG ";G$ :11:"OR ";::"RTN";::" FOR EXIT "; 16368,0 Y$:"":Y$(13)Y$"C"400 Y$(13)ĺD$;"RUN A.R.C.""":490 TO SORT"6 J3:"& PRINT DATA FROM THE NEWLY MERGED"a T4:"FILE. NOTE THAT THIS MERGED FILE" ^3:"IS NOT RESIDENT WITHIN THE SYSTEM." h5:"ALSO NOTE THAT ONLY COMPATIBLE" r5:"FILES CAN BE MERGED: THEY ";::"MUST": |3:"HAVE THE SAMEV%(K):K D$;"CLOSE":2 **** MENU **** F V17:B$" "w BC$(2):G$(7):H$(8):V1$(91):V2$(93) "::180 ,AA$" M E R G E F I L E S ":140: 65:3:"THIS SUBROUTINE WILL MERGE TWO (2)" @4:"FILES AND ALLOW THE USER$;"CLOSE":460O R1REC:D$;"READ ";FILE$",R";R:RD$(IJR):R:D$;"CLOSE": 15:2:K136:"*";:K::1:2:K136:"*";:K: K214:"*";:38:"*":K: D$;"OPEN ";FILE$BC$ D$;"READ ";FILE$BC$ NF:RL:NR K1NF:T$(K):TnT$(13),TV%(32),P$(12),TX$(24),TW%(24)N x768,6:769,1:255:::FIN0:250 5:" PRESS ";::"RETURN";::" TO QUIT ";:35,22: 3:(20(AA$)2)::AA$::34,4: D$;"OPEN ";FILE$",L";RL D$;"READ ";FILE$",R";RX:REC:REC0ĺD] *******************5 * *O * MERGE FILES ARC *i( * *2 * NIBBLE VOL3/N6 *< * *F *******************K2000P(4);"NOMON C,I,O"Z(4);"MAXFILES 1"dD$(4)(          C." * **** ERROR ROUTINE **** MER(222):LI(218)(219)256\::12:8"ERROR ";::" ";ER;" ";::" IN LINE ";::" ";LI;" ";:22: ED1500:D$*D$;"OPEN ";FILE$BC$?4D$;"WRITE ";FILE$BC$i>N:RL:NR:K1N:T$(T(K)):TV(K):KHD$;"CLOSE ";FILE$BC$RD$;"LOCK ";FILE$BC$\D$;"OPEN ";FILE$",L";RLfD$;"WRITE ";FILE$",R0"p0zD$;"CLOSE"D$;"RUN A.R.(RL29))NR125NR125S21:6:"FILE CAPACITY => ";::NR;::" RECORDS"23:14:868:"CORRECT (Y/N) ";G$;:Y$:Y$"N"540Y$"Y"75034,0::D1500:D:11 6::"INITIALIZING FILE ON DISKETTE"::17:"STAND-BY"  ----------"K1Nx(5(K9)):K;:9::" ";:9:T$(T(K));::(28(TV(K)10)):" ";TV(K):RLRLTV(K):K27:"------":(29(RL99)(RL10))::RL;::9:"RECORD LENGTH =>";RLRL1 CALC NUMBER OF RECORDS NR(612000K1(TV$)0Ĺ34,0::DI1:X$"EXIT":130bTV(K)1TV(K)20TV(K)(TV(K))Ė29:4K::" INVALID ":D11000:D:4K:29:868:KK1::1lKvD1500:D34,4:RL0:5:"# FIELD NAME FIELD LENGTH" 5:"- ---------- --R LENGTH VALUES FOR EACH FIELD:":3:" ===================================":34,402:22:V1$;" ";::"NOTE";::" ";V2$;" MAXIMUM FIELD LENGTH = 20":K1ND4K:"FIELD #";K;".......";::16:T$(T(K));G$;::31:" ";TV$NTV(K)(TV$)(XN2%N21K1N2%_:4:K;". ";T$(T(K));:(24((KN2%)9)):KN2%;". ";T$(T(KN2%)):K(N2)N2Ģ((37)):23:" "22:868:14:"CORRECT (Y/N) ";G$;:Y$:Y$"N"X$"EXIT"::DI1:130Y$"Y"520Q34,0::3:" ENTE OR LESS)"::D11500:D:20:29:868:1:400M(Z$)0T$(T)" "T(N)T:(8T(T9)(T8)(T8)):(623(T8)):" ";: 10 SPACES(623(T8))::T$(T)::C(T)1:29035,23::NN1(N2)N2N2%N2 (N2)N2ĝ:D11000:D:12:868:19:23:868:310=T11T0440T10TV1Ğ:"ENTER NAME FOR THIS FIELD:";G$:4:"(10 LETTERS OR LESS)"::20:27:" ";Z$:T$(T)Z$(Z$)10Ģ20:28:958:29::" INVALID ";G$;G$:/(Z$)10Ģ21:4:"(10 LETTERS"RETURN";::" TO ";X$;:35,22M @19:(21(N9)):"=> ";T$:N1(T$)0460o JN1(T$)0ĺD$;"RUN A.R.C."} TX$"QUIT" ^((T$,1))48((T$,1))58300 h(T$)2300 rT(T$):T1TV300+|C(T)1Ģ21:12::"ALREADY SPECIFIED";G$;G$;:24(K1)):KV2". ";T$(KV2):K:, N0 "NN1:N12Ģ20:1:958:23:10::" L I M I T = 1 2 ";::D12000:D:460 ,18:958:"ENTER IN THE NUMBER REPRESENTING YOUR CHOICE FOR ";::"FIELD #";N;G$::16368,0 623:11:"PRESS ";::90( ::(21(FILE$)2):FILE$:::K 14:" INITIALIZER ":::34,4x :" YOU WILL BE ENTERING DATA IN AN" " ORDERED FORMAT CONSISTING OF FIELDS." "SELECT A ";::"MAXIMUM OF 12 FIELDS";::" :":$ K1V2:2:K;". ";T$(K);:(DI1220J 6:11::"INITIALIZE NEW FILE"::11:"-------------------"X 16368,0i D11000:D 13:5:"NAME OF FILE";G$;:": ";FILE$ (FILE$)0190 ((FILE$,1))65Ģ19:12:"ILLEGAL FILE NAME";G$;G$;:D11500:D:13:19:958:116) n255:::X$"EXIT"C xG$(7):BC$(2):V1$(91):V2$(93)m I016:C(I)0::V16:K1V:T$(K): FULL NAME,LAST NAME,FIRST NAME,INITIAL,ADDRESS,CITY,STATE,ZIPCODE,PHONE #,COMMENT,OPTION 1,OPTION 2,OPTION 3,OPTION 4,OPTION 5,OPTION 6  ******************3 * *L * INITIALIZE ARC *e( * *~2 * NIBBLE VOL3/N6 *< * *F ******************K1000PD$(4)ZD$;"NOMON C,I,O" dT$(16),TV(16),T(16),TW(16),C(     z# ŭĮԠ Ӡɠ РԠ ŠŠϭҠϠϭҠ ˠР"ԠҠҮϠ   7 Э̭ԠԠЭ̭ԠϠЭ̭Ԡ àŠҠ ƠϠƠ  ԠҩǠϠԠҩǠ ŠӠԠ" ŠӠ ŠŠ ٠ˠԲ  ˠҠ ͠Ϡ ͠ àϠ àԠ ҠŠ ҠȠ ҠԠ Ҡ Ҡ  ӠРؠӠРخà ĠϠ Ġ    6 !ҮîB"ȠàŠàŠӠàǠԠ0 Ԡ٠6 ԠŠҠҠԠŠҠҠԠΠǠҠԠҠ ˠ     .3 1982    5 ϠӠɭӠҠӠŠҠϠŠҠԠԠD$;"READ TFILE-";NM$CL$%D$6PG$(I1);CL$HNL0NLNL1PI1YITBr&I0II1:SP$:5500NL0PT$"C"340:NL0ĺI$;"40N":D$;"PR#0":"PLACE NEW PAGE IN PRINTER":"PRESS 'RETURN' WHEN READY";A$:290DD$;"CLOSE"NISP$:I2" rD$;"READ TFILE-";NM$: |CL$: CURRENT LINER PG$(I1)PG$(I1)CL$e ILLMG(CL$) I0II1:PG$(I1)PG$(I1)SP$:410 NLNL1:NL0I1PLTB I1 ITB I0II1:SP$:450 I1TB1PLTB CL$"":NL0510$(PL) "D$;"PR#1": ,I$;"K": TURN OFF AUTO LINE FEEDX 6U$;CI$: SELECT 16.7 CPIy @I$;PW;"N": SET MAX COLUMNS JU$;LF$: MAKE UP FOR THE FIRST LINE FEED TI1PL:PG$(I)SP$CR$:I ^I1TB1PLTB:PG$(I1)"" hI21MG:PG$(I1)PG$(I1)NS L,C,RE MG0ĺ"CAN'T FIT "2LL" CHARS ON A "PW" CHAR PAGE":210j "MARGINS WILL BE ";MG;" CHARS." "ENTER MAX PAGE LENGTH (LINES) : ";PL "TOP/BOTTOM MARGINS (LINES) : ";TB "C)ONTINUOUS OR S)INGLE SHEET PAPER: ";PT$ PG"ENTER NAME OF FILE TO PRINT":"";NM$5 140:210O D$;"OPEN TFILE-";NM$i D$;"READ TFILE-";NM$ NL: NUMBER OF SAVED LINES LL: LINE LENGTH TV: TAB VALUE D$ "PAGE WIDTH (CHARS): ";PW MG((PW(LL2))3): MARGIԠӠӍҮî ` ` ``` ` `j&f&j&f&j&f&j&E) ` `8 ` ` `jfjfjfjf&j&f&j&f&j&f&E) ` `8 `(L``*&*&*&&*&&*&)? fje`0` ` `` ` `K " ";::: * ***** **** **** ***** *****"Q 12:4:"VOLUME N0 3";:26:"ANNEE - 1982"i X(49152):X1287x 49168,0: (4);"CATALOG" :I140:" ";:::"ATTENTION: LA FACE 2 DE CETTE DISKETTE NE COMPORTE PAS DE DOS."::1:I140: *** *"R ::18:"* ***":17:"* * *":17:"* * **":17:"* * *":18:"* *"" ::3:"* * ***** **** **** * *****":3:"** * * * * * * * *":3:"* * * * **** **** * ***":3:"* ** * * * * * * *":3:"* ::I140:" ";:LI121:1:" ";:40:" ";::I140:" ";:: 3:6:"*** * * *** ** *** *** ***":6:" * * * * * * * * *":6:" * *** ** ** ** *** *":6:" * * * * * * * * *":6:" * * * *** ** ***   #@ INPUT ROUTINE ------------- 4JST$"":662JTJ512736:X(J)Z^X1418060ohST$ST$(X128)r:(ST$)224ĺ:(7)"TOO LONG!":J13000::::3070|ST$""ġ::3070(# READ MESSAGES ------------- 2#MC1<#(4)"OPZ1I10Ė21(37)22ĺI". "TI$(I):6070;6090AOA$:A$:hJI:ICZ1:JI6150o2}IJCZ116:(37)22ĺI". "TI$(I):61406150:16:A$:A$:16:A$:A$BI:ICZ1:BI6140:6030X::1):f (4)"DELETE TITLES":(4)"OPEN TITLES":(4)"WRITE TITLES":I1CZ1:TI$(I)::(4)"CLOSE"{(4)"DELETE "A$:" FILE DELETED, DO ANOTHER ?";:"";YN$:(YN$,1)"Y"5000(p VIEW NAMES ---------- z15000B1:IBC MATCH THAT NAME."::" TRY AGAIN ?";:"";YN$:(YN$,1)"Y"5000F:" ENTER 'DEL' TO DELETE FILE."::10:YN$:YN$"DEL"ı:12:5::"FILE BEING DELETED.":ICZ1I1ĺ(4)"DELETE TITLES":(4)"DELETE "A$:J1CZ1:TI$(J)TI$(JA$ME$(I)&IMC4180(04110H DELETE FILE ----------- :12:" ENTER FILE TO BE DELETED :"::10:I110:(95);:::14:10:"";A$A$""ı(A$)10501015000I1CZ1:A$TI$(I)5090@:12:" UNABLE TOE :":15:J1224:(95);::15:8000C(ST$)1A$ME$(I):4320YME$(I)ST$:A$ST$c411017:958:" ENTER 'DEL' TO CONFIRM :";:"";YN$:YN$"DEL"4110IMCMCMC1:4200J1MC1ME$(J)ME$(J1):MD$(J)MD$(J1):MCMC1MC1:ME$(I):MD$(I)::(4)"CLOSE"e15:958:" CHANGE ANOTHER";:YN$:(YN$,1)"Y"ė:CH0:4000k15:958:" DATE (MM/DD/YY) :";:J18:(95);::15:19:"";MD$(I)(MD$(I))8Ģ7:958:4260A$ME$(I):4110%13:958:" MESSAG(M)ESSAGE (P)URGE":" (N)EXT":(37)2:10:YN$:YN$F"YN$"N"4180O,CH1a6YN$"D"4260s@YN$"P"4330JYN$"M"4290TMC14210^IMC14210hrA$FI$:CH04240|(4)"DELETE "A$:(4)"OPEN "A$:(4)"WRITE "A$#I1A$!I1CZ1:A$TI$(I)4090{::12:" THAT FILE DOES NOT EXIST."::" TRY AGAIN ";:YN$:(YN$,1)"Y"FL1:40009000I1MC1:A$ME$(I):3:" ITEM #";I::LM2:RM32:10000::" DATE :"MD$(I)417:" CHANGE :":" (D)ATE S":(4);"POSITION TITLES,R"CZ1:(4);"WRITE TITLES":TI$(CZ1):"***":(4)"CLOSE"Zb ~ CHANGE A FILE ------------- :12:" FILE NAME :";:I110:(95);:::12:13:"";A$:A$""ı(A$)104010FL1FL0:406015000FI$24576: CALL THE MACHINE LANGUAGE PROGRAM AT $6000f U(27)(64): RESET PRINTER TO DEFAULT SETTINGSr ZI$;"O" _D$;"PR#0" `D0" `78:"TAB (1-15) = ? (DEFAULT=8-CENTERED)";A$O -A$""TB(A$):TB1TB1540a 227,NI:23,HRp 7D$;"PR#1"~ <I$;"80N" A(27)(61);: CLEAR MOST SIG BIT F(27)(68)(TB)(0);: SET TAB K(27)(65)(7);: SET 7/72 INCH LINE SPACING2 P HIRES DUMP 2X.BASIC/D$(4):I$(9)MD$;"BLOAD HIRES DUMP 2X"|:12:"TURN ON MX-80 AND PRESS RETURN";A$:12:HR32:"HIRES PAGE 1 OR 2? ";A$:A$"2"HR64#:12:NI255:"NORMAL(N) OR INVERSE(I)? ";A$:A$"I"NI0+ (:12:TB   2. ADD TO A FILE ","3. ADD A NEW FILE ","4. CHANGE A FILE ","5. DELETE A FILE ","6. VIEW NAME-FILE ","7. EXIT PROGRAM " : READ TITLES FILE ---------------- :CZ1 :(4)"OPEN TITLES":(4)"READ TITLES"!:TI$(CZ):J):(A$)(A1$)A$(A$,(A$)J):100904`'10110Aj'LM:A1$Xt'(A$)RMLM10020d~'LM:A$j'y'J(A$)ı'(A$,J1,1)" "A1$(A$,J):A$(A$,(A$)J):LM:A1$;::10100'*((32)(A$))2)A$: . "1. LOAD & DISPLAY FILE","RMLM11L.'C$(A$,J,1):C$" "C$"."C$","C$"!"C$"?"C$"-"10050Z8':JRMLMB'C$" "A1$(A$,J1):A$(A$,(A$)J):10090L'C$"!"C$","C$"."C$"?"C$"-"JRMLMİ10130:A1$(A$,J):A$(A$,(A$)J1):LM:A1$:10100)V'A1$(A$,EN "A$:(4)"READ "A$ F#ST$""*P#662LZ#I512736:X(I):X1419090_d#X141XX128pn#ST$ST$(X)vx##ME$(MC)ST$:MD$(MC):MCMC1#9030#(4)"CLOSE"#' PRINT FORMATTER --------------- '(A$)RMLMĺA$: $'JLL RIGHTS RESERVED" ( :E " LOADING AMP-L-SOFT"a AD(X)(X)256(X1)~ (4);"BLOAD AMP-L-SOFT" AD(AD(999)79) " AMP-L-SOFT-INSTALLED" :   ************************? * BOOTER OF AMP-L-SOFT *^ ************************fP:Z" *** AMP-L-SOFT ***"d" BY PAUL IRWIN"n:" COPYRIGHT (C) 1982"x" BY MICRO-SPARC.INC"" LINCOLN, MA. 01773" " A:"MERCI.":I12000:I:::: 8:C$;:19:C$;:30:C$@ CKEYPAD ";::"ON";:::"---------"t :"COMPOSEZ AUTANT DE CHIFFRES QUE VOUS LE DESIREZ, POUR TERMINER <9999>":} 768 NBNB1 " TEST ";NB;" -> ";:NB$ NB$"9999"ī300 :243 ,789 6::"KEYPAD ";::"OFF";:::"----------"19:" 8/8 ";:30:" 9/9 ":400:) 400\ 8:" U/4 ";:19:" I/5 ";:30:" O/6 ":400:e 400 8:" J/1 ";:19:" K/2 ";:30:" L/3 ":400: 400:8:" M/0 ";:19:" /. ":400 :23:1:16384,128:16368,0:34,2:# "B =("-------- SUPER NUMERIC KEYPAD ----------"C<oF"KEYPAD ";::"ON";::" = CALL 768"P"KEYPAD ";::"OFF";::" = CALL 789"Z:"NOUVEAU CLAVIER:"d"----------------":xC$" "400 8:" 7/7 ";:  ET3 22:COL127Ą"NEW CHOICE (0...127)? ";A:50V "NEW CHOICE (128 TO 255)? ";A^ 50 20 PJ13* Z40J,20I40J20,20I3 dJ,I> n228,AJ xI120U J13t 40J20,20I40J40,20I} J,I ENTER NUMBER BETWEEN 0 AND 127 TO ACCOMPLY GREEN OR BLUE SQUARES AND A NUMBER BETWEEN 128 AND 255 TO USE WITH ORANGE OR VIOL` **********************; * PSEUDO COLORS *X * BY BOB SMYTHE *u * COPYRIGHT (C) 1982 * * BY MICRO-SPARC INC * * LINCOLN, MA. 01773 * **********************COL170(A154:2<228,COL FI1  (4)"CLOSE":ER1:150609"2}ER5EL9040EL9100ĺ:9110O"<}ER22EL10000Ħe"F}ER255ĩ255:130k"P}"Z}ER9ĺ"DISK FULL!":"d}ER10ĺ"FILE IS LOCKED!":"n}ER8ĺ"DISK I/O ERROR!":"x}ER4ĺ"REMOVE WRITE PROTECT TAB!": ITI$(CZ)"***"15050&!:CZCZ1:150307!:(4)"CLOSE"=!:a!} ERROR ROUTINE ------------- ! }ER(222):EL(218)(219)256!}768!}ER5EL15030A3ĺ:(4)"CLOSE"::12:A$"NO TITLES IN FILE.":11000:I14000:::"(}ER5EL15030ĺ:'F;:36,10:R$(F);:36,20:T%(F):F4:10000O:12:"END OF DEMO":'::"PRESS ANY KEY TO CONTINUE =>";:A$:: PCTRL-S TO PAUSE/RESUME ";XX$WF1N:R$(F),T%(F):F::"PRESS RETURN FOR SORT ";XX$i"SORT BEGUN"{A(R$,T%,1,N)"SORT ENDED""PRESS RETURN TO LIST SORTED DATA":"PRESS CTRL-S TO PAUSE/RESUME ";XX$:5:F1NR$(F)R$(F1)Ğ"ENTER THE # OF STRINGS TO SORT ";N9rR$(N1),T%(N1)]|B$"ABCDEFGHIJKLMNOPQRSTUVWXYZ"::5::"BUILDING STRINGS ":F1N:G15R$(F)R$(F)(B$,((1)24)1,1)T%(F)FG,F:5:"PRESS RETURN TO LIST RAW DATA":"PRESS DEMO":$,"ENTER NUMBER 1-255 ";NJ6:"THE HEX EQUIVALENT IS:":"$";a@C(N,0,0,64986,C%)J10000::5:::"NUMBER OF SPACES DEMO":T:"ENTER NUMBER OF SPACES (0-230) ";SP%Y(219);^C(0,SP%,0,63818,C%)_(221)$h10000::5:A$(1)$ DEMO SUBSTRING SEARCH *X10000::5::"SUBSTRING SEARCH DEMO ":}"ENTER SUBSTRING TO SEARCH ";A$P%1B$A$(1)B(B$,A$,P%)"THE SUBSTRING '";A$;"' BEGINS IN LOC ";P%10000::5:::"HEX CONVERSION P DEMO TONE .Z:5::"TONE DEMO ":[d"ENTER PITCH AND DURATION OF TONE ";P,DgnN(P,D)mx DEMO FREE FORMAT INPUT 10000::5::"DATA INPUT DEMO"::"ENTER A STRING WITH ANY CHARACTERS":I(IN$)A$(1)IN$cUV 89LQ89LQ 4CS4` :4L Ϸ 1:800+ K$((16384)128):16368,0:7 ZZZZ1F *ZZ7ZZ1L 4f I768778:J:I,J:Ix 232,0:233,3~   1,0,4,0,36,214,111,41,159,54,0 (K$"J")(K$"U")(K$"N")X YY(K$"M")(K$"N")(K$",")(K$"I")(K$"U")(K$"O")x XX(X1X)ZZ:YY(Y1Y)ZZ X0X0 X279X279 Y0Y0 Y159Y159 1X1,Y1 1X,Y X1X:Y1Y 100 ((16384)128)""ZZHAUT ET A DROITE":"N EN BAS ET A GAUCHE":"< EN BAS ET A DROITE"p 23:" POUR CONTINUER ";R$v |  900 0:1:3 Z1:800 X1100:Y1100:XX1:YY1:1X1,Y1 d(16384)127İ700 xXX(K$"L")(K$"O")(K$",")ɥY:"PROGRAMME DE DEMONTRATION PERMET LE":"CONTROLE DE DEPLACEMENT DE FORMES EN HR"I :"LES COMMANDES SONT LES SUIVANTES:":"K STOP":"I EN HAUT":"M EN BAS":"J A GAUCHE":"L A DROITE":"U EN HAUT ET A GAUCHE":"O EN    lmmL, **uu u u u u`bnbnbpdpȱbnbndpdpȱbnbn`tntnvpvpȱtntnvpvpȱtntn`Ѡ蠠ĠӠҠϠҠҷŲ٠ӐԂ bnn ȱb~nȱbn~р bn btt ȱb~tȱbt~ tb   l8lmmL, l8lmmL, rirsisL,  `l8lmmL,  l8 `` ` a f gM `8fag/ l8fmg p li`mia p ``悥a悥f悥g悥l悥m`ƂmƂlƂgƂfƂaƂ```eflaegmfmfl` W l W `iraisflgm` W r W l W rlsmq <@p q q L٪ 掦 控 L٭0Χ L Lٷ ,բ ȥȥ L i i i i g R ޥP Q g R ޥP Q > T I `?` `?ި r H H H g RPQhhh  ߠ(LJ`8*<<`*%<<` ߠo ȱ<ȱ=<mo >=i? ߠp ȱ@ȱA>8p >?? ߠq q q e<<e==<= PGQPgƖ8PgPQhQghe Ӣi G Gg G Gy Gg^h_8^eP^ȱ^ eQ^^_ BC M? , Ll8ePeQ`L`{ } ޭ{8 GEHF L |  dBHPX]cjpv|ĠˠŠΠàĠΠˠŠŠŠ `` `  ȱ ' ! Ђ ɠ L L5ɺɺ`  L5Ġč ܅ȥ ̙܅ș܅L샩܅ș܅L #  Μ  4ʘm ީ L5 转 莎 L;  M H hJЌ$Lo  , , m 转 詄  ! ܅  L܅ɬʎL ɬ܅89st ` Ɇ` hj L+  oʎ0LoLʽ LɃLɱ4ɳ08鰍hLɰɸ8鰍jL Lɠ󮋆ɠɰLoɺLo8鰙ሌ   OUTINE" K3 P"RESET ==> ANNULE LA ROUTINE"S Z22::"CHARGEMENT ROUTINE"p d(4);"BRUN PAGE LISTER" n22:19:" TERMINE" s x A$"***************"9B$"* *"?f(A$:B$:"* PAGE LISTER *":B$:A$l2<:"PERMET DE LISTER UN PROGRAMME ECRAN":"PAR ECRAN.">::A:"CHARGEZ UN PROGRAMME APPLESOFT PUIS" F:"CALL 768 ==> BRANCHE LA R FL0:2050150004I1CZ1:A$TI$(I)2080 ::12:" THAT FILE DOES NOT EXIST."::" TRY AGAIN ";:YN$:(YN$,1)"Y"FL1:2000 AD1::3090*:" IS THIS CORRECT ";:YN$:(YN$,1)"N"20804(4);"APPEND "A$:(4)"WRITE "A$:00(232)3Ĺ232,12:12204(232)12Ĺ232,3:JI13000:rI2121:I:1:868:J1100::|1100 ADD TO FILE ----------- :12:" FILE NAME :";:I110:(95);:::12:13:"";A$:A$""ı(A$)102000 FL140: V232,3' `I1MC1:A$ME$(I)k j:23:" ITEM # "I;:16:"DATE :";:MD$(I)""ĺ" ";:1160 t(MD$(I))8MD$(I)" "MD$(I):1140 ~31(MD$(I)):MD$(I);  LM2:RM32 J08:(232)J:1:868:L1100:::(232)1001050 15000. I1CZ1:A$TI$(I)1080 $::12:" THAT FILE DOES NOT EXIST."::" TRY AGAIN ";:YN$:(YN$,1)"Y"FL1:1010 . 89000 B35,21 L:22::"++++++++++++++++++++++++++++++++";:23:" ";:1T ONE OF THE ABOVE:";:A$:A$:A$"1"A$"7"ė:200e A(A$):A1000,2000,3000,4000,5000,6000,7000t :::110  DISPLAY FILE ------------ :12:" FILE NAME :";:I110:(95);:::12:13:"";A$:A$""ı (A$)101000 FL1FL0::I840:I:"+";:. I223:I:40:"+";:I 24:I839:I:"+";:V 2039,43x :32,7:33,32:34,1:35,23: 4:A$"<
>":11000:22:A$"(C) 1982 BY MICRO-SPARC,INC.":11000:5 :I17:A$(I)::A$A$(I):11000:3 :" SELEC770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96P n32000p xTI$(100),ME$(100),MD$(100) :::"+++++++":I122:"+ +"::"+++++++";:1 8:2:"+++++":10:3:"EMC":12:3:"BY:":14:2:"R.GUY":16:2:"++++++" 1 **********************; * ELECTONIC MESSAGE *X * CENTER *u * BY RUDY A.GUY *( * COPYRIGHT (C) 1982 *2 * BY MICRO-SPARC.INC *< * LINCOLN, MA. 01773 *F **********************D d768,104:769,168:    **********/ I09:I;::I;::I;::" ";:AENDANT:":U "65000 FOR I = 1 TO 9:GOSUB 65100:NEXT I":"65100 PRINT I : RETURN": "EST INCORRECT CAR IL A ETE REFERENCE UNE LIGNE SUPERIEURE A 63999" :: :"VOIR LA LIGNE 65535 ........" ********** * BIGNUM * X 0::"SUITE 'RETURN'";:A$:" n x"IL EST POSSIBLE D'INSERER DES COMMANDES":"MAIS ATTENTION, IL NE DOIT PAS ETRE FAIT";:"REFERENCE A UNE LIGNE SUPERIEURE A 63999" "EXEMPLE:": "65000 FOR I = 1 TO 9:PRINT I:NEXT I": "EST CORRECT, CEP1 -:"******":"BIGNUM":"******":G:"MODE D'EMPLOI:":_(" 1. BRUN BIGNUM"e-s2" 2. &"<" LE CARACTERE ']' DEVIENT ':'"AF" 3. ENTRER UNE LIGNE DE PROGRAMME"P" DE 64000 A 65535"Z10000, d24:1    % 76LH%hL,, XhL0 "1440),X,Y)1D1G(Z)5:ZZ1H6X,Y)1D1G(Z)7:ZZ1f@X,Y)0D1G(Z)1:ZZ1JX,Y)0D1G(Z)3:ZZ1T1430^G(Z)10h POKE SHAPE rASD(SC)|TAZ0"POKING SHAPE DEFINITION"ZZ1G(Z)12:YY1:DD:ZZ1:1490ND1XL1X,Y)0G(Z)2:YY1:DD:ZZ1:1490D1XL1X,Y)1G(Z)6:YY1:DD:ZZ1:14901580YK1630F0BLJB,Y)1F1BF0G(Z)2:YY1:ZZ1:1490F0YK163,I1)1Z1F&PZ0II1:13409Z CODE SHAPE OdZ1:D1:XL:YI1jn"CODING PLOT VECTORS"xXX1:SXX:SYY:X,Y)01400BXX:BYY1440XXDD1XJ1X,Y)1G(Z)6:YY1:DD:ZZ1:1490D1XJ1X,Y)0G(Z) 33,40:("LOCATING SHAPE EDGES"CD139:L1,D)1Z1I^Z0LL1:1220kJ39:Z0D139:J1,D)1Z1Z0JJ1:1260 Z0:K39D139:D,K1)1Z1(Z0KK1:13002Z0:I0 <D139:DY8A$"I"Y1YYY1:1130=BA$"M"Y38YYY1:1130ZLA$"J"X1XXX1:1130xVA$"K"X38XXX1:1130`1020jCZXX,YY)t15:XX,YY:ZC:X,Y:XXX:YYY~ZCCZ:"X=";X;" Y=";Y1020 BOX IN SHAPE L0:Z0A$)A1A1A38A383A,BC:::730L FREE CURSOR MODE ZX20:Y20pZCX,Y):15:X,Y{33,40:"X=";X;" Y=";YA$A$"Q"ĠZC:X,Y:2330A$"P"ZC1:1020A$"E"ZC0:1020$A$"?"3040.XXX:YY"F"980A$"P"2330) A$"E"2370:A$"Q"1190K A$"?"2980Y*"TO ";B$j4B$"?"2980y>B$""810HB(B$)RB38B38\B1B1f"AT ";C$pC$"?"2980zC$""870C(C$)C38C38C1C1A(?";:(34);:"OK";:(34);:":NORMAL"C <:"REPONSE":"-------": F"10";::"97";::":";::"BA";::(34);:"HELLO";:(34);:";:";::"9E";::":";::"BA";::(34);:"OK";:(34);:":";::"9D00";: P:::"FAITES UN ESSAI:":::  (4);"BRUN SEEBUF"8:"SEEBUF - DEMO":g::"1) CHARGER SEEBUF PAR 'BRUN SEEBUF'"("2) FAIRE & (RETURN)":"3) LE CURSEUR DEVIENT ':'":"4) COMPOSER UN EXEMPLE DE LA SORTE:"% 2:":10 HOME:?";:(34);"HELLO";:(34);:";:INVERSE:`L`  .ՆF 6v YLئij E ٱȑ { RLgL RUN DDT, PUIS POUR SUPPRIMER LE DOS, FAITES '/D'":: <"POUR INITIALISER UN DISQUE AVEC UN FICHIER BINAIRE, FAITES :":"- POKE 40514,52":"OU A L'AIDE D'UN UTILITAIRE COMME DISK ZAP, MODIFIEZ:":"- TRACK $0, SECTEUR $D, BYTE $42 DE $6 EN $34" h:"-----------------------"::"D";::"ISKETTE ";::"D";::"ATA ";::"T";::"RANSFERT":"D";::"ELETE ";::"D";::"OS ";::"T";::"RACKS"(:"-----------------------":7 2::"CHARGE LE PROGRAMME PAR LA COMMANDE B  50pTM12200Ez:"USE THIS SHAPE AS A BASE FOR ANOTHER ";:A$dA$"Y"SCSNSCSC1:450w NEXT SHAPE SC TABLE DATA :" SHAPE TABLE DATA"::"SHAPE TABLE STARTS AT ";SS:"AND ENDS AT ";SD(SC)$:SC140,406 A$:16298,0:16300,0:16301,0GSD(SC1)A1[ TM0Ġ1:BX,BYa*4"DRAW THIS SHAPE AGAIN (Y/N) ";:A$:A$""2090>A$"Y"1850HR"EDIT THIS SHAPE (Y/N) ";:A$:A$""2130\A$"Y"TM12620fA$"Y"4A$"W"1880'l POKE THE DIRECTORY :vSS,SN:SS1,0EXSS1QI1SC`BSD(I)SSvXX1:TA(B256)X,BTA256XX1:X,TAI EDIT THE SHAPE A$"W"Ē3A$"G"Ē1A$"O"Ē5A$"P"Ē2A$"B"Ē6"PRESS RETURN TO PLOT SHAPE ";A$40 DRAW SHAPE ::_D"SCALE = ";G$:G(G$):G11860~NG:"ROT = ";G$:G(G$):GX:"G)REEN P)URPLE O)RANGE B)LUE W)HITE"::"ENTER FIRST LETTER OF COLOR ";:A$:A$ bA$"G"A$"P"A$"O"A$"B"01790KG(Z):ZZ1)G(Z)101780>KKG(Z)8:ZZ1PG(Z)101780uG(Z)4G(Z)0KKG(Z)64:ZZ1ZZ1A,K:AA1:1690A,K:AA1A,0(7)15:SX,SY:"THIS DEFINITION STARTS ON THE WHITE DOT."!&24:L`  .ՆF $ Xvij FPQ $ YՄ0  @  $0 $LLlL$,1))31ĺA$;:8682 AC8QM1LC$(LC$,QM1)D AC13ĺ:QL2J &P 0V :(AC31AC65)AC90ĺA$;:UC0. AC27UC1Q UCAC64AC91ACAC32:A$;s UCAC64AC91Ğ:A$;::UC0 AC27AC13AC8A$(AC):LC$LC$A$ QM(LC$) AC8QM1ĭ(LC$)31ĺA$;:868 AC8QM1LC$"" AC8QM1ĭ((LC I;") "; 400$ IN$(I)LC$* C PRINT THE MATRIXK 14l 9:"HERE IS WHAT YOU KEYED"w I15 I;") "; "768,IN$(I): , 623:"THAT'S ALL!"; @:  LC INPUT LC$"":UC0 QL120 A$:AC(A$)  U34,2$ Z(4);"BLOAD LC OUTPUT"F d5:10:"ASCII CHARACTER SET"M n7i xI0127:LC$LC$(I):v 768,LC$ I14000: 1:5:958 :"NOW YOU MAY TRY THE INPUT ROUTINE" "ESC KEY SIGNALS CAPITAL LETTERS" IN$(5) I15X *******************5 * *O * LOWER CASE DEMO *i * * * NIBBLE VOL3/N06 * * * *******************<:F8::"UPPER CASE - LOWER CASE":P13:"DEMONSTRATION"     ȱ          <ȑD    ́  LŠӠٯΩԠŠΠŠӠ٠٠Ů8U ԧi&BiC8逍ww mȱmܩ<=ԅ>? ,Li`/D:L` L  H h :$ : h  N$(14):CO$(15):CP$(16):CS$(19):CT$(20)\BCV$(22):CW$(23):CY$(25):CZ$(26)LP1$CO$CA$:P2$CO$CB$:PT$CO$CT$:PN$CO$CP$~dY(4)+D$;"BLOAD BYTE-CHANGED.SET,A";CSICH(CS256):CLCSCH256kADRS7,CL:ADRS8,CH:ADRS3qw"ERROR IN RLOAD OR RBOOT"216,008CA$(1):CB$(2):CC$(3):CD$(4):CE$(5):CF$(6):CI$(9):CK$(11):CL$(12):C9BB19>BB1BB1-H(AA):(BB):SHIP$3R>z1010::12:10:"SHIP SHOOT BY ROB SMYTHE":14:15:"PLEASE WAIT....":ADRS0(4);"BLOAD RBOOT":520ADRS(0),"HRCG"216,0ADRS0ADRSADRS65536CSADRS768:CSD$ION"::"NUMBER OF HITS..."HITS( 740h CA$0PN$CP$:10:"OUT OF ENERGY"::"NUMBER OF HITS..."HITS 20:"PLAY AGAIN (Y/N)? ";CE$;:A$:A$ A$"N"Ā 180 X((1)31):Y((1)31):AAAAX:AA35AA35 *AA1AA14BBBBY:BB1PB(PB255221) ( 0(BU)128ı/ :5J D10,190140,95269,190X NJ110:v X0:10,190140,95269,190 bAMMOAMMO1:2:37:AMMO;" " lAMMO0680 vAA18AA20BB10BB11ı HITHIT1:G$;: CA$0PN$CP$:10:"OUT OF AMMUNIT' J(KB)128ĺPN$CA$0CP$:16368,0:8 rPA(AA)390N |AAAA12(PAAA)] PBBB410s BBBB12(PBBB) BB19BB19 AA35AA35 (AA):(BB):SHIP$ 560 800 LEVEL2İ800 280 PA(0):PB(1):PA(PA255381):? ";:A$:A$7 LEVEL(A$):LEVEL1LEVEL2ĺG$;:180e 16368,0:AA20:BB10:ENERGY%100:AMMO10q PT$CP${ CA$1 2:2:"ENERGY: " 2:31:"AMMO: "AMMO 510 "ENERGY%ENERGY%1:2:10 ,10:ENERGY%" " 6ENERGY%0730 @560;"BLOAD WORLD MAP.PIC,A$4000"6 F768,1:769,2:770,3G P(16);(11)W Z:16302,0e dKB16384q nG$(7) xBU16286 1080 SHIP$CB$" "CC$" :^; "CC$" (%) "CC$" =!- "CC$" "CD$ CP$:10:"LEVEL OF DIFFICULTY (1 OR 2)  **********************; * SHIP SHOOT *X * BY ROB SMYTHE *u * COPYRIGHT (C) 1982 * * BY MICRO-SPARC INC * * LINCOLN, MA. 01773 * **********************((768)(769)(770)802890 <D$S $Lԅ 9ȱȱ  @A[)? a{) ` NT D$;"(34)"BLOAD THE SUPER WRITER"(34):"120 CALL 37632,"(34)"ESSAI"(34):"130 END"dRMET: 1) DE VERIFIER LES TEXTES COMPOSES 2) DE FAIRE DES SORTIES DE TEXTES DE DEMONSTRATIONS, COMMENTAIRES ETC..." 2:"PROCEDURE DE CHARGEMENT D'UN FICHIER 'APPLE WRITER' NOMME 'TEXT.ESSAI':"X <:"100 D$=CHR$(4)":"110 PRIZ  :M"----------------":"THE SUPER WRITER":"----------------":::"CE PROGRAMME PERMET D'EFFECTUER UNE LECTURE DE VOS FICHIERS CREES A PARTIR DU LOGICIEL 'APPLE WRITER', ET DE LES AFFICHER A L'ECRAN." (:"CETTE ROUTINE VOUS PE  B38B38bB1B1*l"ON ";:"";C$;vC$"?"2980JC$""620VC(C$)eC38C38rC1C1~A(A$)A1A1A38A38A,BC:::480 VLIN MODE "VLIN FROM ";A$A$""730A$"H"ė:480A$ :33)"PLOT":33,30*  HLIN MODE F :"HLIN FROM ";:"";A$U A$""480h A$"V"ė:730x A$"F"980 A$"P"2330 A$"E"2370 A$"Q"1190 &A$"?"2980 0"TO ";:"";B$ :B$""560 DB$"?"2980 NB(B$) XTION ^232,SS(SS256)2561 h233,(SS256)G rG(1445),SD(SN2)[ |SD(1)SS2SN2h :34,20  LOOP FOR # OF SHAPES SC1SN QQ(0) ::34,20: :"SHAPE #";SC:"T)URTLE OR L)INE MODE (T/L)";:A$:A$"T"2620 1:F0";:A$ A$""200! A(A$)2 A1A32008 ` A3ĺ(4);"RUN SHAPE INSTRUCTIONS"n A22430  GATHER DATA "17:"HOW MANY SHAPES IN THIS TABLE ";SN$ ,SN$""290 6SN(SN$) @SN0290 JSS10300 T POKE SHAPE LOCA203 A$"(C) 1982 BY MICRO-SPARC, INC.":11:2420> 34,13K MENU 15:1:"WOULD YOU LIKE TO"::" 1. BUILD A SHAPE TABLE":" 2. CALCULATE POKE VALUES":" 3. INSTRUCTIONS & DEMO" "TYPE THE NUMBER (1-3) OF YOUR CHOICE ->**********"* dI212:I:"*";40);"*":1 nIa x"****************************************" :A$" ":3:2420:5:2420 4::A$" THE SHAPE ":2420: 7:A$"APPLE II SHAPE TABLE UTILITY":2420 9:A$"BY: BILL FORTENBERRY":24 **********************; * THE SHAPE *X * BILL FORTENBERRY *u( * COPYRIGHT (C) 1982 *2 * BY MICRO-SPARC INC *< * LINCOLN, MA. 01773 *F **********************P24576 Z::"******************************  ĺA$;:868! xAC8QM1LC$""K AC8QM1ĭ((LC$,1))31ĺA$;:868j AC8QM1LC$(LC$,QM1)| AC13ĺ:QL2 ON EXIT LC$ IS UPPER/LOWER CASE STRING NPUT LC$"":UC0" QL1203 (A$:AC(A$)V 2(AC31AC65)AC90ĺA$;:UC0f <AC27UC1 FUCAC64AC91ACAC32:A$; PUCAC64AC91Ğ:A$;::UC0 ZAC27AC13AC8A$(AC):LC$LC$A$ dQM(LC$) nAC8QM1ĭ(LC$)31 ***********************= * LOWER CASE IN/OUTPUT*[ * BY BEN E. COLLEY *y * COPYRIGHT (C) 1982 * * BY MICRO-SPARC INC. * * LINCOLN, MA. 01773 * * ALL RIGHTS RESERVED * *********************** LC I  uȥuȌp`' ` `νԠŠ̽ԠŠéԍĠԮ q'q qqȌr rq( 锭q %L [ ,, q+puupLmɛ :L]"# `" [ Xɍ Lɍ %"`e`pM@ ީ" ޠ"i rrspq# [ %" [ X %" X q 锱ɍ ȱ q0'q LU 锭q  锠ɍ-`0)   $,2))ZS0ZS12ı6ZP1:ZR$"INVALID DATE":X ZS((ZN$,2)):ZS0ZS31ıv ZP1:ZR$"INVALID DATE":ZS((ZN$,2)):ZS0ZS99ıZP1:ZR$"INVALID DATE":Z1125:ZQ$(Z1)"":Z1:ZL$"":ZN$"":ZU0:ZG(ZA$(Z))10MERIC":'ZM(ZL$):ZM65ZM90ıBZP1:ZR$"NON-ALPHA":aZM(ZL$):ZM32ZM90ı|ZP1:ZR$"NON-CHAR.":ZM(ZL$)Z260162,60164,60162,60170,60162,6017423:15::ZR$:Z311000:Z3::23:868:ZS((ZNZL$"":ZN$"":ZU1:ZV(ZW$(Z1)):ZZ1:60180:60046<Z1r23:868:"INVALID OPTION":Z311000:Z3:60124x23:868:10:"INVALID SCREEN NUMBER":Z311000:Z3::ZP1:ZM(ZL$):ZM4760144ZM45ZM57ıZP1:ZR$"NON-NU60068Z2:'ZK$(Z)"N"İ60188?ZQ$(Z1)ZN$:Z1Z11JZN$""[ZU1ī60124bZhZU0:23:868:"OPT: FLD CHG#, R)ENTER, OR E)XIT ?";ZT$:ZT$"E"ıZT$"R"İ60178::60002Z11TPZC:ZF$(Z1)"D"ZT$ZW$(Z1)601324 600681ZP0:ZK$(Z)"N"ZK$(Z)"D"İ60140HZK$(Z)"A"İ60146_ZK$(Z)"C"İ60150qZP0İ60160ZP060068ZN$ZN$ZL$:ZK$(Z)"D"İ60154ZP0ī6011060160:ZO(ZN$):Z22ZN$""Z22ZN$(ZN$,ZO2)Z2Z21:Z2ZG):ZL$:ZL$;=ZM(ZL$):ZJ(Z)1ZM32Z21Z1Z11]ZJ(Z)1ZM32Z21ī60120xZM27İ60178::60002ZK$(Z)"D"Z21ZM13ī60112ZM860090Z21ī60068Z2Z21:ZO(ZN$)Z21ZN$""Z21ZN$(ZN$,ZO1)Z Z11Z1ZC'ZU160060=ZF$(Z)"H"60120XZV(ZW$(Z))Z1Z11qZV(ZW$(Z))60120ZU1ZV(ZW$(Z))60120ZF$(Z)"H"60120ZU1ZV(ZW$(Z))ZQ$(Z1)""Z21ZI(Z)ZG(ZA$(Z))10ZD(Z):(ZE(Z)1ZG(ZA$(Z))5'xZH$(Z)(ZA$(Z),ZG)EzZE(Z)0ZE(Z)(40ZG)2_|ZD(Z):ZE(Z):ZH$(Z)j~60044ZI(Z)((ZA$(Z),6,2))ZJ(Z)((ZA$(Z),8,1))ZK$(Z)(ZA$(Z),9,1)ZX(Z)((ZA$(Z),10,1))ZW$(Z)(ZA$(Z),11,2)60180`::Z2125:ZQ$(Z2)"":Z2:ZP0.bZA$(1)OdZA$(1)"END-OF-DATA"ī60138kf(ZA$(1),9)ZB$60002hZC((ZA$(1),2))jZ1ZClZA$(Z)nZD(Z)((ZA$(Z),2,2))pZE(Z)((ZA$(Z),4,2))rZF$(Z)(ZA$(Z),1)tZF$(Z)"D"60032v112N007-SS # ") N "D2105062D008-DOB "B X "D1728011A009-SEX"[ b "D1928011A010-M/S"o l "SCREEN#1004" v "H1000DECIMAL TEST SCREEN"  "D1510062N201-NUMERIC"  "D1710082N402-N 4 D "  "D1910082N003-N O D "  "END-OF-DATA""DDYY)"  "SCREEN#0112"7  "H0200TEST SCREEN # 1"V  "H0400PERSONNAL PROFILE"p  "D0705251C001-NAME"  "D0805252C002-ADD1"  "D0905252C003-ADD2" & "D1005252C004-ADD3" 0 "D1105052N005-ZIP " : "D1705081N006-PHONE" D "D1905T2$(K) TT3$(K) ^T4$(K)* hT5$(K)6 rT6$(K)B |T7$(K)N T8$(K)Z T9$(K)f TA$(K)m Ks   "SCREEN#0304"  "H1000TEST SCREEN # THREE"  "D1310042N201-NUMERIC"  "D1510042A002-ALPHA "  "D1710062D003-DATE (MM T4$(IX)ZQ$(4)& T5$(IX)ZQ$(5)9 T6$(IX)ZQ$(6)L T7$(IX)ZQ$(7)_ T8$(IX)ZQ$(8)r T9$(IX)ZQ$(9) TA$(IX)ZQ$(10) :23:"NEXT SCREEN NUMBER OR F)INISHED? ";X$ X$"F"ī310 "IXIX1 ,140 6:K1IX @T1$(K) J_ nZA$(25),ZD(25),ZI(25),ZJ(25),ZK$(25),ZE(25),ZH$(25),ZL$(25),ZF$(25),ZQ$(25),ZW$(25),ZX(25)h xIX1 :23:"NEXT SCREEN # ( 01, 02, 03 ETC.)";X$ ZB$"SCREEN#"X$ 60000 ZP1130 T1$(IX)ZQ$(1) T2$(IX)ZQ$(2) T3$(IX)ZQ$(3)Q*********************** * SCREEN BUILDING DEMO* * BY E.STEPHEN FREEMAN* * * * NIBBLE VOL3/N05 * ***********************dT1$(25),T2$(25),T3$(25),T4$(25),T5$(25),T6$(25),T7$(25),T8$(25),T9$(25),TA$(25)     YS MOVE THE CURSOR":"P-> TURN PLOTTING ON":"E-> TURN PLOTTING OFF":"PRESS RETURN";A$:%: "THE ESC KEY WILL ALLOW YOU TO 'BACK UP'":"AND ERASE ERRORS":"PRESS RETURN";A$:%D "Q-> QUIT DRAWING AND CODE THE SHAPE":"PRESS RETURN";A$::2730o"PRESS RETURN";A$$ w$ "P & E ONLY EFFECT THE POINT THE CURSOR":"IS RESTING ON, NO OTHERS!":"PRESS RETURN";A$:$ "Q-> RETURNS YOU TO THE HLIN MODE WITH":" PLOT ON":"PRESS RETURN";A$:$ 1000$& TURTLE MODE HELP [%0 :"I,J,K,M KET ON (DRAW LINES)":"E-> TURNS PLOT OFF (ERASE LINES)":"PRESS RETURN";A$:# "Q-> QUIT DRAWING AND CODE THE SHAPE":"PRESS RETURN";A$::2330# FREE CUR HELP # $ "I,J,K,M KEYS MOVE THE CURSOR":"P-> PLOT A POINT":"E-> ERASE A POINT":" LINE MODE HELP "" 33,40:" "V-> DRAW VERTICAL LINES":"H-> DRAW HORIZONTAL LINES":"F-> ENTER FREE CURSOR MODE":"PRESS RETURN";A$:" "DRAW LINES BY GIVING THE ENDPOINTS AND":"LEVEL TO DRAW ON":"PRESS RETURN";A$:L# "P-> TURNS PLOY !, 27302!6 CZX,Y):ZC:XX,YY:15:X,Y:ZCCZU!@ P1G(Z1)G(Z1)4:1:XX,YY_!J 2730n!T Z0ZZ1}!^ Z02730!h G(Z)12940,2950,2960,2970,2940,2950,2960,2970!r 15:X,Y:0:XX,YY:2730!| YY1:! XX1:! YY1:! XX1:0G(Z)3:ZZ1:F0:XX1:2870L A$"K"X39G(Z)1:ZZ1:F0:XX1:2870 A$"I"Y0(F0P1)G(Z)0:F1:ZZ1:YY1:2870 A$"?"3110  A$"E"P0:2730  A$"P"P1:2730  A$"Q"G(Z)10:ZC:X,Y:1650!" A$(27)2900: ESC KEY0YY1!x A$"M"Y39YY18 A$"K"X39XX1N A$"J"X0XX1X 2650l P1:ZC0:34,20 XXX:YYY::"X=";X;" Y=";Y P1Ğ:"PLOT ON"::2760 "PLOT OFF" A$ A$"M"Y39G(Z)2:ZZ1:F0:YY1:2870 A$"J"X1))48 Y116Y1Y17) YYY116I/( 52 I< TURTLE MODE F :34,20::"MOVE DOT TO START & PRESS 'P'":34,21P Z1:X20:YX:XXY:YYY:TM1Z 0:XX,YY:15:X,Y:XXX:YYY::"X=";X;" Y=";Y:A$d A$"P"SXX:SYY:2720 n A$"I"(Y256)256:Z(Y256)a :"USE THESE POKES IN YOUR PROGRAM BEFORE YOU DRAW YOUR FIRST SHAPE" :"POKE 232,";X:"POKE 233,";Z  23:1:"PRESS RETURN";:A$:90 HEX CONVERTER  Y0:Z0 I(X$)101 ZZ1 Y1((X$,Z,33,40: L 33)"ERASE":33,30'V 02` :480Ej CENTER SUB [t 21(A$)2:A$:n~ POKE CALCS  19:"START HEX NUMBERS WITH A '$'" 17:"WHERE WILL YOU PUT THE TABLE ";X$ Y(X$) (X$,1)"$"X$(X$,(X$)1):2540 XY:"TABLE LENGTH IS ";SD(SC)SS1; SHAPE LOCATION c:"SAVE SHAPE WITH THIS COMMAND -"i"BSAVE ";::"FILE NAME";::",A";SS;",L";SD(SC)SS1  PLOT & ERASE SUBS  33,40::$ 33)"PLOT":33,30. 18 :480B  `L41 _Hm1n1hɍL0 >">>""">>> >""">>">><>""> >>""""  IIII>"""">""">>"">>""> >">> >><$$$$<"""AIII"""""> >>>67 L6 J ?Ɍɍ LΑN8       ͓  ?` `8Р"BRUN LISTER.O"8 6,:(18);(9);"I";:D$;"PR#0":1,5 1:S(4);"OPEN LISTER":(4);"WRITE LISTER":33,33:1,5:"RUN":(4);"CLOSE":::"INPUT FILE - 32 CHAR MAX, 1 CHAR MIN ";A$:A(A$):A32A11D$(13)(4):930,A1:I0A1:931I,((A$,AI,1)):D$;"PR#1":(15);(9);"127N" D$;E PHRASE (CTRL-J) 2EME PHRASE"6LA TOUCHE <- A TOUT MOMENT":? 2"INCREMENT INITIALISE A DIX"E 7j <"INCREMENT A 5 PAR POKE 842,5" F"INCREMENT A 20 PAR POKE 842,20" K P"POSSIBILITE D'UTILISER CTRL-J (POUR EVITER DES HTAB, VTAB & PRINT" U90:' Z"EXEMPLE: 1ER) ********************7 * AUTO-NUMBER DEMO *R ********************o(4);"BRUN AUTO-NUMBER"u :"AUTO-NUMBER":::"BRUN AUTO-NUMBER"#("CTRL-Q (ON/OFF)" -"PRECISEZ LE 1ER NUMERO DE LIGNE (MODI- FIABLE PAR 1E101E11 (I)'20,12'$ ID :"END OF DEMONSTRATION":o :"PRESS ANY KEY TO CONTINUE":C$::  I720 (1234.56)'I,2'- I:1000I ,:"COLUMNS OF NUMBERS"a 1I50050070.0625 6(I)'10,4';" ";(II)'10,2' @I:1000 :"LARGE VALUES": I1E101E121E11 (I)'20,2' I:1000 :"SMALL VALUES": I1E12WIN":5:"COPYRIGHT (C) 1982":5:"BY MICRO-SPARC INC"\ k20:5::"LOADING ROUTINE"::19{ n(4);"BRUN PRINT USR)ING" s1000 "VARIOUS NUMBER OF DECIMALS": I010 (1234.567891234)'20,I' I:1000 :"VARIOUS FIELD WIDTHS":q **********************; * *X * PRINT USR)ING DEMO *u * * * NIBBLE VOL3/N06 * * * **********************6 i:10:5:"PRINT USRING DEMO":5:"BY JOHN BALD    I `ayLqHɵrims`aiȱȄ詷 ,詷 `iHhLꢩLҦL LH6>7?8t9u:6C87H>6?7t8u9h` # LLpPi Qi $$$bD(Ƒ(`HpDh # H,0 ,0 :hɑ I6Ɋ  :L ɍI pD`L Ӯ   ʽ8     𴩭 ʽ ) `$U .t s L 8sstt i/ i ` + 8'- g 抍  L犍 ' ޭ 8 ` 8    9  #  + U # + 9 륡     ʊ   E ) IJAN*1900Y: END YEAR3/12: END PERIOD=DEC?4N112R9A(I)0ĺTL(N)l>A(I)0ĺBAL(A(I),N)sCNzHIMD$;"CLOSE ";F1$R:"DATA FILE ";F1$;" SAVED"W"HIT RETURN TO CONTINUE";X$\::10500: RETURN TO MAIN MENU(A(16ROUTINE D$;"WRITE ;F1$8 AC: OUTPUT # OF SERIESY I1AC: OUTPUT EACH SERIESw A(I)0ĺ"MONTHLY TOTALS" A(I)0ĺ(N$(A(I)),(N$(A(I)))4) 12: # OF DATA POINTS 12: PERIODICITY 1900Y: START YEAR%1: START PERIOD= lAC2ĺ12! qI12:N1127 vN:A(I)0ĺTL(N)Q {A(I)0ĺBAL(A(I),N)X N_ It D$;"CLOSE ";F1$ :"DATA FILE ";F1$;" SAVED" "HIT RETURN TO CONTINUE";X$ ::10500: RETURN TO MAIN MENU D$;"OPEN ";F1$: VISIPLOT DUMP 0 FF12(AC1AC16)4420) II1ACT N"ACCOUNT #";A(I):A(I)0A(I)244430[ PI S4200:S10: GET DATA FROM TRAC FILES X868::"INPUT FILE NAME TO STORE DATA:";F1$ ZF124600 ]D$;"OPEN ";F1$ bD$;"WRITE ";F1$ g12:AC1ĺ0ɍ ԲΠύč