' +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- (   Ϡ@跻~!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`ZP)ZR)"'INTELLECTUAL' CYCLE WHICH LASTS"&c5)"FOR 33 DAYS. THIS CYCLE RELATES "(ZP)ZR)"TO A PERSON'S LEARNING, DECISION"&d5)"MAKING, PERCEPTION, AND OTHER "(ZP)ZR)"MENTAL QUALITIES."!'e:"BECAUSE THESE CYCLES ALWAYS RECUR, THE "(ZP)"POSIING."a%`:5)"THE 'EMOTIONAL' CYCLE IS 28 DAYS "(ZP)ZR)"IN LENGTH AND RELATES TO A PERSON'S"%a5)"SENSITIVITY, REACTION TO STRESS, "(ZP)ZR)"EMOTIONAL STABILITY, AND ATTITUDE.":PZĺ:"CONTINUE";YN$:)&b:5)"THE THIRD CYCLE IS CALLED THE "(AVE DETERMINED "(ZP)"THREE BASIC CYCLES:"$]:5)"THE 'PHYSICAL' CYCLE IS 23 DAYS "(ZP)ZR)"LONG. IT RELATES TO A PERSON'S EN-"$^5)"DURANCE, STRENGTH, STAMINA, ENERGY,"(ZP)ZR)"RESISTANCE, AND FEELING OF PHYSICAL"%_5)"CONFIDENCE AND WELL BERVATIONS HAVE "(ZP)"SHOWN BIOCHEMICAL AND PHYSIOLOGICAL"#Z"FUNCTIONS FLUCTUATED BASED ON THE TIME "(ZP)"OF DAY, MONTH, YEAR OR SEASON. IN"#["1897, PHYSICIANS OBSERVED 'NATURAL "(ZP)"CYCLES' RELATED TO OCCURRENCE OF"*$\"DISEASE. SCIENTISTS HNT EXPLANATION"U:("VPZ0:ZP13:ZR4"W:"DO YOU WANT IT ON THE PRINTER? ";YN$:(YN$,1)"Y"PZ1:(4)"PR#1":(17):ZP0:ZR0"X::"BIORHYTHM THEORY OFFERS AN EXPLANATION "(ZP)"OF PHYSICAL, MENTAL, AND EMOTIONAL"9#Y"FLUCTUATIONS! PAST OBSE뺍Ů֮ōӬ뺍Ӎ뺍ԮٍύŬɠ뮍Š֍ŬōүҠ嬠뺍ŮҍŮԍōŮ͍Ů΍ŮԍŮӮɮԍ٬čҬ뺍ҍĮύĮҍӍĮϬҮō䮠Š堠󺍍Ӡ򩍪ҠӠ멍Ӎ덪퍍ɠ묠宍묍ŠҍΠŮԍԠٍΠԮٍŠ֠ōΠŮ֮ōӍΠӍ뮍묍欠ŠɠӍĠҍҠĠҍŠҍŠҍԠٍϠōŠ֠ōӍĠҠύΠĮύĠҍΠҍŠҍΠŮҍ     6(Q$))Q$;:8)R$;E!`13)V1)I1$;:D2)I2$;:D3)I3$;:D4)I4$:K!:f! REDUCE COMMON VALUESy!V1V2I1$I2$!!V1V2I2$I1$!V2V3I2$I3$!!V3V2I3$I2$!V3V4I3$I4$!!V4V3I4$I3$!!S:"T PRII4$I3$:V350:I3$"!":6340:61809 V450:I4$"!":6360? :U  COMPUTE SPACING[ :j $D2V2V11y .D3V3V21 8D4V4V31 BD21D20:I2$"" LD31D30:I3$"" VD41D40:I4$"" [P$(DP):Q$(MP):R$(YP)!]3(P$))P$;:$CPC$:6140B(PC(I)V2)V3V2:I3$I2$:V2PC(I):I2$CPC$:6140XV3PC(I):I3$CPC$(50V1)V4V3:I4$I3$:V3V2:I3$I2$:V2V1:I2$I1$:V150:I1$"!":6300:6180(50V2)V4V3:I4$I3$:V3V2:I3$I2$:V250:I2$"!":6320:6180! (50V3)V4V3:YS(MP)6050DP29ıDDP1:MPMP1:MP12MP1:YPYP1JP:c ORDER VALUESi:V1EC(I):V2MC(I):I1$CEC$:I2$CMC$(MC(I)EC(I))V1MC(I):V2EC(I):I1$CMC$:I2$CEC$ (PC(I)V1)V3V2:I3$I2$:V2V1:I2$I1$:V1PC(I):I1"D":CMC$"D"%EC(I)PC(I)ī5090;CEC$"D":CPC$"D"SMC(I)PC(I)ī5110iCMC$"D":CPC$"D"yI1İ60006100 I(29):(19):(4)"PR#0"f:k GET NEXT DAYl:pDPDP1zMP2(YP4)4YP6040 DPDA$.::41)"E = EMOTIONAL CYCLE (28 DAYS)"W41)"M = MENTAL CYCLE (33 DAYS)"41)"P = PHYSICAL CYCLE (23 DAYS)"::13)"NEGATIVE"84)"POSITIVE"I1LNCEC$"E"CMC$"M"CPC$"P"EC(I)MC(I)ī5070 CEC$$;::LM40ĺw17)"DATES"Y|"EMOTNL=YEL, MENTAL=AQUA, PHYSCL=PINK";39);:" ";YN$c::i:| PRINT CYCLES:DPTDY:MPTMTH:YPTYR(4)"PR#1":(15)41)"B I O R H Y T H M I C C Y C L E S"::56(NM$)2)"FOR "NMYPTYR1900:XX(1)DP:6000&I2LM;"XX(I)DP:6000:C'21O,I1LMY1A$""6XX$(XX(I)):(XX$)2A$(XX$,1)@(XX$)1A$XX$JA$""A$" "TA$;::LM40ĺ^I1LMcA$" "hXX$(XX(I)):(XX$)2A$(XX$,1) rA40:LN40LMLNZI1LM:EC(I)39(EC(I)SQ):MC(I)39(MC(I)SQ):PC(I)39(PC(I)SQ)jXX(I)I1:}:15:0,391913I1LM:XX(I),EC(I):14I1LM:XX(I),MC(I):11I1LM:XX(I),PC(I):DPTDY:MPTMTH:SCL EC(J)JA(JA28)28? EC(J)(EC(J)PI228)SCLSCLX MC(J)JA(JA33)33z MC(J)(MC(J)PI233)SCLSCL PC(J)(PC(J).5) EC(J)(EC(J).5)& MC(J)(MC(J).5)0 : : SCREEN GRAPHICS:SQ40101LMAGEAGEDAYS(J):2TMTHBMTHAGEAGETDY:L` TMTH1AGEAGETDY:nj J1TMTH1:AGEAGEDAYS(J):t AGEAGETDY: : CYCLES : PI223.14159265 J1LN JAAGEJ1 PC(J)JA(JA23)23 PC(J)(PC(J)PI223)SCLP1#ST(TYR4)4:STTYR22504TMTH22250DLEAPLEAP1UAGEAGELEAPBMTHTMTHĭBDYTDYAGEAGETDYBDY:AGEAGEDAYS(BMTH)BDYBMTH1TMTHAGEAGETDY:BMTH122400FIN12:TMTHBMTHFINTMTH1JBMTH1FINBMTHTMTHAGEAGE1:2100.BDYTDY2100< AGEAGE1L4AGEAGE365W>LEAP0zHST(BYR4)4:STBYRSTST4MSTTYR2160RJSTTYR4\J1900LEAPLEAP1fpSTBYR2200zBMTH2LEAPLEAP1BDY29BMTH2LEAPLEAYR((DT$,(DT$)PL1))1,YR1500YRYR190076=:P DECODE MONTHV :d A(MTH$)pJ112(MTH$(J),A)MTH$MTHJ:J12:&0"NO MONTH FOUND":: COMPUTE AGE IN DAYS:AGETYRBYRBMTHTMTH2100$)12905YR((DT$,ST,PLST)):YR1500YRYR1900;(A:X SLASH SEPARATORS^:gPL1(DT$,PL,1)"/"PLPL1:1520MTH((DT$,1,PL1)):PLPL1STPL(DT$,PL,1)"/"PLPL1:1550DY((DT$,ST,PLST)):PLPL1"1):1800STPLH(DT$,PL,1)"0"(DT$,PL,1)"9"PLPL1:1250rSTPLPLPL1:STPL:ST(DT$)1250DY((DT$,ST,PLST)):DY31ĺ(4)"RUN"STPL (DT$,PL,1)"0"(DT$,PL,1)"9"PLPL1:1290STPLPLPL1:STPL:ST(DT(DT$,PL,1)"0"(DT$,PL,1)"9"PLPL1:1120XjSTPLPLPL1:STPL:ST(DT$)1120rtYR((DT$,ST,PLST))yYR1500YRYR1900~: MONTH FIRST:PL1(DT$,PL,1)"A"(DT$,PL,1)"Z"PLPL1:1220 MTH$(DT$,1,PL DAY FIRST:PL1O(DT$,PL,1)"0"(DT$,PL,1)"9"PLPL1:1050g$DY((DT$,1,PL1))q.STPL8(DT$,PL,1)"A"(DT$,PL,1)"Z"PLPL1:1080BSTPLPLPL1:STPL:ST(DT$)1080LMTH$(DT$,ST,PLST):1800VSTPL.`? ";ST$ST$""6401ST$""TD$ST$:FL17=C:V CONVERT DATE\:(DT$)0ĺ"ERROR!! NO DATE GIVEN.": WHICH KIND?J1(DT$)(DT$,J,1)"/"J1000:1500A$(DT$,1):A$"A"A$"Z"1200: M$)vLM0LNLMBx"**************************************"y:"FORMAT FOR DATES: DAY MONTH.NAME YEAR":::" EXAMPLE :";::" 1 MAY 1981":z"**************************************"{"WHAT DATE DO YOU WANT THE CHART TO START ON Y: ]FL0` _:"IF YOU DON'T WANT TO DECIDE THE NEXT":"QUESTIONS, ANSWER WITH 'RETURN'." b:"DO YOU WANT A DESCRIPTION OF BIORHYTHMS?";YN$:(YN$,1)"Y"İ6998 g l"HOW LONG IN DAYS DO YOU WANT YOUR CHART? ";LM$ qLM$""635sLM(L3000: CALCULATE CYCLES, GFİ4000:300X ::"PRINTER, SCREEN, OR BOTH? ";CH$:} A$(CH$,1):A$"P"A$"B"İ5000 A$"S"A$"B"İ4000 ,::"WHO'S NEXT? ";NM$: 6NM$""400 @GFİ600 EPA1 J110  W: X QUESTIONS BORN";::" (NO COMMAS PLEASE)? ";DT$8 z(DT$)0120L }PA(GFFL)135s ::"WHAT YEAR IS IT NOW? ";YR$: TD$TD$"/"YR$ 1000: CONVERT DATE BDYDY:BMTHMTH:BYRYR BRN$DT$:DT$TD$:1000 TDYDY:TMTHMTH:TYRYR 2000 I112:MTH$(I):3 DAYS(12):I112:DAYS(I):? !XX(40)I #LN40U %YN$"N"v 'GF0:(YN$,1)"N"İ600:GF1 (EC(LN),MC(LN),PC(LN) Z d::"WHO ARE YOU? ";NM$: nI1NB:NM$NM$(I)DT$DT$(I):INB:125 s:& x:"WHEN WERE YOU***********  EPSON VERSION/ SCL50:PA0 :12::"BIORHYTHM PROGRAM":::12:"BY P.J. VORENBERG"::10:"COPYRIGHT (C) 1981 BY": 12:"MINDCRAFT PUBL. "::12:" CONCORD, MA 01742"  :NB:I1NB:NM$(I),DT$(I): MTH$(12):<)'********************************M** BIORHYTHMS.EPSN **s** BY P.J. VORENBERG **** COPYRIGHT (C) 1980 BY **** MINDCRAFT PUBL. CORP. **** CONCORD, MA. 01742 ** *********************         XP(1,J,1)CAP(1,J,2)SA,CYYP(1,J,1)SAP(1,J,2)CAw;CXXP(0,J,1)CAP(0,J,2)SA,CYYP(0,J,1)SAP(0,J,2)CA;CXXP(1,J,1)CAP(1,J,2)SA,CYYP(1,J,1)SAP(1,J,2)CA;500;J;E:|XRM(2IANAN):YRM(2IANAN)1:55508:I>:n: LINE ROTATE, TRANSLATE, AND PLOT ROUTINE :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:J1M7;CXXP(2,J1,1)XP(2,J,1)5380,9P(1,I,1)XA9P(1,I,2)M1XB1K95390R9J[9500b9Ik9"9509, GRAPH ROUTINE96I0N19@CA(2IAN):SA(2IAN)9JX0:Y09T55509^I9hI0N19rCA(2IANANPI):SA(2IANANPI)'8I"8 CALCULATE END POINTS=8P(1,0,1)0:P(1,0,2)RMH8I1Mf8B1IIY:M1(RRB1)(IIX)t8J1M108P(2,J,1)P(2,J1,1)M29999:53308M2(P(2,J,2)P(2,J1,2))(P(2,J,1)P(2,J1,1))8X(P(2,J1,2)P(2,J1,1)M2B1)(M1M2)9IX)!7P(2,I,1)(B2B1)(M1M2)=7P(2,I,2)P(2,I,1)M1B1F7(500M72It7< ROTATE AND TRANSLATE BASIC CURVE7FCA(ANPI):SA(ANPI)7PI0M107ZXP(2,I,1)CAP(2,I,2)SA7dYP(2,I,1)SAP(2,I,2)CARM7nP(2,I,1)X:P(2,I,2)Y8x500006M((1)30N10)#6IYRM96IX(RRR)(AN)MR6 DEFINE BASIC CURVEy6I0M:P(0,I,1)0:P(0,I,2)IIY:I6P(2,0,1)0:P(2,0,2)0:P(2,1,1)0:P(2,1,2)IY6I2M106B1(I1)IY6B2IIY6M1(RRB1)((I1)IX)7 M2(RRB2)(I5LN3PX((1).8.4)PX:IXIYPX:IYIYPX:L2:M3Y5VI1P:ANIIA:SA(AN):CA(AN)5`P(L,I,J)IXRICA:P(L,I,K)YHISA5jP(M,I,J)IYRICA:P(M,I,K)P(L,I,K)5t500:I:5~ ART FORM 15N((1)43)5ANPIN6R((1).2.3)RM:RR1K)P(1,I,K)45004I!4=4 DEFINE INSIDE HOOP(S)T4PXIYIX:IA2PIPv4C1IX90:IYCX:J1:K2:YCY4$C2IX130:IYCY:J2:K1:YCX4.HIHIIX:RIHI(RI)48N1PX(1)PX6PX6:IXIYPX:IYIYPX:L3:M44BN2IXIY:L2:M44FINE OUTSIDE HOOPS53C1IX90:IY274:J1:K2:YCYY3C2IX130:IY186:J2:K1:YCX3HOHOIX:ROHO(RO):IX5RO:IYIYRO3LN1:IA2PIP3I1P:ANIIA:SA(AN):CA(AN)3P(1,I,J)IXROCA:P(1,I,K)YHOSA 4P(L,I,J)IYROCA:P(L,I,JP2P(4,J,1),P(4,J,2)02 JJS:JPJJPH2P(3,J,1),P(3,J,2)O2 KU2*24 INSURE THAT NO LINE DUPLICATION OCCURS2>I1:J12HII12RK12N2\JJS:JPJJP2fK2pIPJ1PP1:46702z5002IP468023 DE4880 1v950!1 GRAPH ROUTINE)1J1@1P(1,1,1),P(1,1,2)N1K1P11f1JJS1:JP1JJP1~1P(2,J,1),P(2,J,2)1JJS1:JP1JJP11P(1,J,1),P(1,J,2)1K1J1:((1)25)1P(3,1,1),P(3,1,2)1K1P12JJS:JPJЫ42500L1:K0(0 ART FORM 1500N1B0HO(1).5.5X0HI(1)(1HO)HOq0RO(1)PI19:RIRO0P((1)1813)0S(P((1).25.25))0&C((1)21)0046700:47700DP1P:S1S0NPP1250XS(S1P1P)0b46701l(1)1812)#/6S(P((1).5.25))5/@C((1)21)?/J4670I/T4770S/^4880\/h950p/r GRAPH ROUTINE/|P(1,1,1),P(1,1,2)/I1:L1:J1/K1P1/IIL:IN1L1:II2/JJS:JPJJP/P(I,J,1),P(I,J,2)/5000I1)&.ANANIA:CXR(AN),CYR(AN)2.500:J=.RRIRD.IJ.[. ART FORM 8m.N((1)22).HO(1).8.2.HI(1)HO1HO.(1).50RO0:RI0:4140.RO(1)PI318.N2RI0:(1).50RIRO."N3RIRO2 /,P(33)-P((1)55) -(PR11-2RRM:IAPIPF-<NS1IR0:3920\-FIRCR(NS1)100s-PDE1200:500:DE|-Z950-d GRAPH ROUTINE-nI1NS-xINSNN324040-CX,CYR-AN0:RRRPR-J1P.ANANIA:CXRR(AN),CYRR(AN,J ,I,*, ART FORMS 32,21,7L,(1).50C(1)4130:3780V,C100k,NS((1)C84),P((1)115):3830,C200,NS(((1)C84)2)2,P(((1)112)2)21,PR(1).6.2,3890, C(1)2040-NS((1)PIDINS+BJ0NA*+LCA(AN):SA(AN)S+VCXSRSA,CYSRCACXLRSA,CYLRCAt+`ANANIA:LRLRILR:SRSRISR+jLRRMILR4NA(NA2)20ILRILR:LRLR2ILR:ISRISR:SRSR2ISR+tLRRMILR4ILRILR:LRLRILR:ISRISR:SRSRISR+~500200:500:DE:950%* GRAPH ROUTINE7* DI((1).5)L* IA2PINRNADIZ* I0NS1r*ISRRM(1ELRS)NA*ILRRM(1RSSL)NA*NN9NN27NN19ISRISR2:ILRILR2*$LRRM(RSSL):SRRMRS*.ANI2PINSDI+8NN9NN27NN19ANANS(SL4RM))')f NA(NR((1)41100))1)p 3540K)z (1).50RS0:3470]) RS(1).2.1q) SL(1).04.06) (1).50ELSL:3500) EL(1)SL.5) NR(1)3120) NA((1)3140)) NS(500NA)) (NRNS(NRNS)).13500* DE1)(.8SL):3350G( SL(1):EL(1):RS(1SL)(1).8:(ELSL).33340Z( NS((1)85)m( OV((1)21)(* NA(((1)41120)NS)(4 NROVNA(((NAOV)OV1)NS)(> 3540(H RS(1).5:SL(1).36.04:ELSL(R NS((1)65) )\ NR(1ELRS)(N 'b 776,208'l 777,252&'v 778,1412' 779,48?' 780,192L' 781,232Y' 782,224f' 784,208s' 785,242' 786,136' 787,208' 788,237' 789,96' ' ART FORMS 20-22' RS0:EL1:SL(1).5:3350( SL(1).4.4:ELSL:RS(1& X(R)IX:Y(R)IYA& I1N:X,YP(1,I,1),P(1,I,2):768:J& 500T& 2990& LAZER SOUND ROUTINE, POKE 783 FOR TONE, POKE 769 FOR MULTIPLE TONES& 768,160& 769,1&& 770,162&0 771,0&: 772,138&D 773,24&N 774,233&X 775,1M 19 % DE1300:500:DE:9504% GRAPH ROUTINET% IX279:IY191:A100:R1:J1^% 3090o% N5020(1)% JJ1:J6ı% I1N:P(1,I,1)IX(R):P(1,I,2)IY(R):% 783,((R)90A)& C((R)8):C:(CS7(C7C3))(CS4(C0C4))3030TION$ 768,173$ 769,48*$ 770,1927$ 771,136D$ 772,208O$ 773,4\$ 774,198g$ 775,7t$ 776,240$ 777,8$ 778,202$" 779,208$, 780,246$6 781,166$@ 782,6$J 783,76$T 784,0$^ 785,3$h 786,96$r %| ART FORDE1300:500:DE#2 2740$#< 9508#F GRAPH ROUTINEK#P Y191(1):X0T#Z X,Yu#d I(1)41:XXI:X2792720#n Y191(X)#x X,Y# 6,(Y):7,(I):768# 500# 2660# $ 'BOOP' SOUND ROUTINE, POKE 6 AND 7 TO VARY PITCH AND DURATION$" X20(N)239:Y20(N)151D" A(N)2PI:CA(A):SA(A)R" R(N)90`" IXXRCAn" IYYRSAw" 500" IX0IX279IY0IY191RR1:2500" M1L" P(I,M,1)XRMLCA" P(I,M,2)YRMLSA" M" " ART FORM 13#( :K,J!!B DE1300:500:DE:9505!L GRAPH ROUTINE@!V N2Ci!` J1L:K12:P(2,J,K)P(3,J,K):K,Jw!j I3:2460!t M1L:P(2,M,1),P(2,M,2)P(3,M,1),P(3,M,2):M!~ 500:N! M1L:P(3,M,1),P(3,M,2)P(1,M,1),P(1,M,2):M! " POINT LOCA I12P II18 A(I1)PPI:SA(A):CA(A)D J1PRo P(1,I1,1),P(1,I1,2)CXJSA,CYJCAx 500 J I   ART FORM 20  L((1)64)  C((1)115) $ N(1) . I1:2460!8 J1L:K12:P(3,J,K)P(1,J,K)((I1)PPI)/P(1,I,2)CYPR((I1)PPI)8 500?*IH4950\> GRAPH ROUTINEiHI12PRCX,CYP(1,I,1),P(1,I,2)\IfP(1,1,1),P(1,1,2)pI12PzP(1,I,1),P(1,I,2)500IP(1,1,1),P(1,1,2) PR023001810 ART FORMS 28 & 16,PR1:1990GPR1:DE1200:500:oP((1)124):PRPR((1).45.25)R90:PRRPRA0:SA0:CA0:J0I12PP(1,I,1)CXR((I1)PPI)P(1,I,2)CYR((I1)PPI)II1 P(1,I,1)CXPR,K,1)CXPX:P(1,I,2)CYIR(A):P(1,K,2)P(1,I,2):KK1C0500:IS:R130İ950gD GRAPH ROUTINENJ1:P(1,J,1),P(1,J,2)XI1PbJJS:JPJJPlP(1,J,1),P(1,J,2)v500:IRR(SPIP)3NN1:N0ıNN261720PR1001S(((A(AA1))1.5708)PPI.5)=I1:J1XII1:JJS:JPJJPwIPJ1P150PP1:1750500:IP1780AN2PIP:IRCYCXR:KP:P(1,1,1)CX:P(1,1,2)CYIRI2(P21)7&A(I1)AN:PXR(A):P(1,I,1)CXPX:P(11):768|500I:1 ART FORM 17,6,26jP((1)9110):PR((1)5110):N((1)43):1730P((1)12130):PR100:N1:1730N((1)52):R130P((1)9110):PR((1)5110):1740R130PR100S(P2):1770A1 GRAPH ROUTINEX,Y&I1300:L((1)RMRP)a"IX0:IY0:((1).5)0IXL:1590j,IYL|6XXIX:YYIY@X279XX10:1600JX0XX10:1610TY191YY10:1620^Y0YY10:1630hX,Yr6,((XY)2):7,((1)4IX130P:IY90P:X140:Y95:PX130:PY02950F GRAPH ROUTINEOGC2\I1P1X,YPYXPX,YX,YPYXPX,YX,YPY:500PXPXIX:PYPYIY:I: ART FORM 24DE1300:500:DEX((1)180):Y((1)192)2740:950I1P:P(1,I,1)RP(ANI):P(1,I,2)RP(ANI):500:I>F950RP GRAPH ROUTINEZI1C:PYCYRP(I2PIC):PXCXRP(I2PIC):PX,PYRPdA1P:PXP(1,A,1),PYP(1,A,2):A:500:I:n ART FORM 12xP((1)256)DE1200:500:)K1P:1260:K:@P(I,J,1),P(I,J,2)P(I,K,1),P(I,K,2):500:X ART FORMS 22,5,11tP((1)85):CP:1330 P((1)93):C((1)2130):1330P33NN11C((1)85)(NN29C((1)1120)2DE1200:500:DE5<AN2PIP:UTINE~NN3111807J1P1:KJ1P:1260:K,J=ZJ1:NN18J((1)P1)wK1P:1260:K:NN25ıNN4NN181230J2:K3P:1260:KJP:K1P:1260:K:NN181250JP21:K1P:1260:K:J((1)P1):8P((1)6120)6B DEFINE POINTS AROUND A CIRCLEHLI1:AN2PIPkVP(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):P(I,K,2)P(I,J,2):KK1:500:Jj950t GRAPH RO - WHITE ON BLACK OR BLACK ON WHITE>(1).50Đ:7:CS4:_7::CX,CY:62454:4:CS7:} ART FORMS 31,25,10,4,18DE1200:500:DE:P((1)1110):1100P((1)2190):1100$P((1)5120):1100.P(((1)2120)2)2:11008901NN(C$):NN1NFNNĖIX:" ";:IX:830CFS1NNNN1a:10:14:"I'M THINKING"j670 ART FORM NUMBERING SUBROUTINEFL19801010::10:13:"ART FORM # ";NN62450:DE1100:500:DE# CHOOSE SCREEN COLORX(0)1,>A$:C(A$):C49C57ĖIX:830KHC1$A$:C$A$:A$;:X(0)1eRA$:C(A$):C13920\C8X(0):X:" ";:X:830fC48C57ĖX:850pC$C1$A$:A$;:X(0)1zA$:C(A$):C13920C8X(0):X:" ";:X:C$C1$:8501400,2600,3330,4320,1980,1690,1080,33400670mNN192320,3800,1280,3340,1500,1050,1710,3330,1970,1300v670 NN293400,1040,3760,3450670  ART FORM NUMBER INPUT*:" PRESS WHEN YOU HAVE TYPED IN YOUR ENTRY...";4IT YOUWANT TO START THE SEQUENCE FROM.":800D ART FORM SELECTIONRFR1710rFS1NNNN1:NNNF1NN1FS1NN((1)NF1)(NN101)720,740,760,780NN4990,3320,2950,1070,1290,1700,3850,4060,3320670'NN91060,1300,DAA5FL(FL1):4NAA6Č54915:FS0:FR0:670>X::Ib54915RlFS0vFR1:::10:" SELECT THE ART FORM (1 TO ";NF;") THAT YOUWANT TO RUN CONTINUOUSLY.":80054915FR0+FS1:::10:" SELECT THE ART FORM (1 TO ";NF;") THAPROGRAM CONTROL (PK)128ı0A$:A(A$)aAA1AA2AA3AA4AA5AA6AA7ıAA1Č54915:FS0:FR0:100 CALL 54915 RESETS THE GOSUB STACK TO ZERO WITHOUT AFFECTING ANYTHING ELSE&AA2ľA$:0AA3640:AA46101:670 ,520 61009 @ CONSTANTS AND DIMENSIONSe PI3.141592654:CX140:CY95:RM90:RP45 A173:A272:A383:A482:A578:A632:A727 FL0:FS0:FR0:P0 CS0:CG0 PK16384 NF33 C$"":C1$"" P(4,150,2):  START OR STOP 'NUMBERING'"3 8:"THE ART FORMS"d :" SPACE BAR - CONTINUE RANDOM DISPLAYS" :" ESC - ESCAPE THIS PROGRAM" 62450: CLEAR HGR2 SCREEN 16368,0 :20:"YOUR COMMAND? ";:A$:A(A$) AA1AA2100 "AA5FL DISPLAY THESE 'INSTRUCTIONS'"L :" H - 'HOLD' THIS PICTURE UNTIL "g 8:"IS PRESSED AGAIN" :" S - 'SEQUENTIALLY' RUN ALL ART FORMS" :" R - 'RUN' ONE ART FORM CONTINUOUSLY" 8:"UNTIL THE SPACE BAR IS PRESSED" :" N - ^A(1):(16384)12894: RANDOMIZES RND(I)B d INSTRUCTIONSL n::v x" THIS PROGRAM RANDOMLY DISPLAYS A" "VARIETY OF GRAPHIC ART FORMS. TO" "CONTROL IT, USE THE FOLLOWING SINGLE" "KEY INSTRUCTIONS AT ANY TIME:" :" I - *) *******************************4 #24576^ (:::7:9:" APPLE ART GALLERY":: 29:"COPYRIGHT (C) 82-89":: <9:"MINDCRAFT PUBL. CORP." P320: VARIABLE INITIALIZATION Z23:6:"PRESS SPACE BAR TO CONTINUE..." \16368,0/3&*******************************K* APPLE ART GALLERY *p* BY EDGAR J. YOUNG ** COPYRIGHT (C) 82-89 ** BY MINDCRAFT PUBL. CORP. ** CONCORD, MA 01742 * * ALL RIGHTS RESERVED                   NT TO SCREEN" O$:R$;0:NU:C$< O1$::I1NU:R1$;IS RE$:RE$"0"1075_ COCO1i 1095 "RECORD #";::I J1(AL$) J25(AL$,J,1)" "B$(AL$,1,J1):B1$(AL$,J1,(AL$)J):J40:1030  :"TITLE :";::" "B$! MEDIA TIME ":I190:"-";::I1NU:R1$;INRE$:RE$"0"970X109536,A(1):AR$;:36,A(2):AL$;:36,A(3):ME$((ME$));:36,A(4):TM(I)":";:X$(TS(I))(X$)2X$"0"X$X$;:C1$:(4);"PR#0":110  PRI::PZ$:&PZ$"1"PZ$"2"ī927]A(1)0:A(2)31:A(3)72:A(4)84:PR1:(4);"PR#1":o:(9);"96N"PZ$"1"ĺ(27);"Q"PZ$"2"ĺ(15);O$:R$;0:NU:C$8O1$:"ARTIST TITLE 13:"DO YOU WANT TO DELETE ANOTHER RECORD ?";:YN$::YN$"N"110[AR0:AL0:FI0::480mREOUTROUTINE12:"DO YOU WANT A PRINT OUT ?";:YN$::YN$"N"980:12:"WHAT PRINTER ARE YOU USING:": "1. IMAGEWRITER/PROWRITER":"2. EPSON";:aAL0ĺO$:R$;FI:AL:C$:fO2$:R2$;0:AR:AR0880QkI1AR2:AR(I):ypARAR1:AR((AR2)1)AL:AR(AR2)FIuW2$;0:AR:AR0895zI1AR2:AR(I):W2$;FI:0:C2$O1$:W1$;AL:0:C1$::9:AL$;"HAS BEEN DELETED."A0,9"SONG LENGTH (MM,SS) :";MI(CH),SE(CH)U>SE(CH)60SE(CH)0Č998:958:825`C:630vH DELETE A RECORDM16368,0R34,21:W"TYPE 'DEL' TO DELETE THIS RECORD. TO GO BACK TO MENU.":22:35:YN$\YN$"DEL"110775(AR$)30İ1890#:805n22:"(1=ALBUM,2=8-TRK,3=CASS.,4=COMPACT DISC)":21::"MEDIA :";ME$: ME$"1"ME$"4"795%:630*21:CHCH3:"SONG TITLE #";CH;" (MAX. LENGTH IS 40)"/"";ST$(CH)4(ST$(CH))40ST$(CH)""ė:81::YN$"Y"FL0::480Y21::"ALBUM NAME :"::"(MAX. LENGTH IS 40)":"";AL$(AL$)40Č998:998:958:755(AL$)40İ1880:63021::"ARTIST :"::"(MAX. LENGTH IS 30)":21:9:"";AR$ (AR$)30Č998:998:958:ME LE$(LE):(LE$)4İ1900?S$(S):(S$)2S$"0"S$`RE$ME$LE$S$AL$AR$(LN){O1$:W1$;AL:RE$:C1$O2$:W2$;LN:AR$:SI1SST$(I):MI(I):SE(I):C2$::12:"DO YOU WANT TO CHANGE ANOTHER RECORD ?";:YN$ 810!21:958:S14690_"DO YOU WISH TO ADD ANOTHER SONG ?";:YN$::YN$"N"69021:FL1:958:SS1:CHS:AD1:21:"SONG TITLE #";CH;" (MAX. LENGTH IS 40)":815FL0ı34,23:LE0:I1S:LELEA(I)::::NEW RECORDING TIS:"(";J3;") ";(ST$(J),34)::20::" ";:aAD167521:"ENTER THE NUMBER TO CHANGE :"::"'0' TO QUIT"::21:29:"";CH$:CH(CH$)CH0CHS364521:958CH0675FL1:CH755,775,795X196840"]X210Ĺ16368,0:+b590Eg CHANGE DATA IN FILESl16368,0q::"________________CHANGE__________________";::34,1v"(1) "(AL$,35):"(2) ";AR$:"(3) ";ME$((ME$))::" SONGS ";:S{J1 A&-3:    6%,6 $3 ?? --- 666* . * &:C2$&I1AR28&I2(I2)AR(I)N1:NN1>&j&O2$:W2$;0:AR:I1AR2:AR(I)::C2$p&{&K1N1&K1(K12):K101295&K2NK1:J1&IJ&K3IK1:(RE$(I),LO,HI)(RE$(K3),LO,HI)12859'K$RE$(I):RE$(I)RE$(K3):RE%12551%:12:"WRITING SORTED FILES":34,13R%O1$:I1N:W1$;I:RE$(I):g%NXNĺC1$:1205%IN1XN:W1$;I:"0"::C1$%O$:I1N:W$;((RE$(I),(RE$(I))77)):I::C$%O2$:R2$;0:AR:AR0ĺ:C2$:1250%I1AR2%AR(I) (SNUM1):216,0:6220IN'"ERROR--THAT TABLE IS NOT ON THIS DISK":9510aOAD TABLE.";W$;",A2561"9MD%SNUM(2561):SNUM256ī6290VMN%TL(43616)(43617)256MX%L(SN)TL(AD(2SNUM))(AD(2SNUM)1)256Mb%ISNUM111Ml%L(I)(AD(I2)3)256(AD(2I)2)(AD(2I)1)256(AD2I)Mv%IN%AAAATL:TL0:ADAD2."3L$"NOTE THAT AT SMALLER SCALE FACTORS THERE";bL$"ARE FEWER ANGLES OF ROTATION AVAILABLE."L$" USE TO RETURN TO THE MAIN MENU."L%L%::"NAME OF EXISTING SHAPE TABLE."L&%:"TABLE.";W$:W$(27)W$""ī420L0%10000M:%D$;"BL TYPING 'C' AND"?K$"; AND TO ABORT BUILDING A TABLE"bK$"ENTER .":::wK$"VIEW TABLE:":K$" YOU MAY LOAD A SHAPE TABLE AND VIEW"K$"ANY OF ITS SHAPES WITH CONTROL OVER THE"L$"COLOR, SCALE AND ROTATION OF THE SHAPEJh$ -PAGE FIVE-(Jr$"BUILD TABLE:":UJ|$" WHEN PROMPTED, TYPE IN THE NAMES OF"J$"THE VECTOR FILES YOU WANT COMBINED INTO"J$"A SHAPE TABLE. TO INDICATE THE END OF A"J$"TABLE ENTER 'END' . YOU CAN DO"K$"A CATALOG OF THE DISK BY":4I"$" SHAPES MAY BE VIEWED WITH CONTROL OVER";bI,$"THEIR COLOR, SCALE AND ROTATION. NOTE"I6$"THAT AT SMALLER SCALE FACTORS THERE ARE"I@$"FEWER ANGLES OF ROTATION AVAILABLE."IJ$" USE TO RETURN TO THE PLOTTING"IT$"FUNCTION."J^$E: 'CATALOG'" TO RETURN TO THE PLOTTING"H$"FUNCTION."::I$"VIEW SHAPE: IT WILL NOT FIT">G#"ON THE SCREEN YOU WILL BE PROMPTED TO"dG#"MOVE THE CURSOR AND TRY AGAIN."G#" USE THE KEY TO ESCAPE BACK TO"G#"THE PLOTTING FUNCTION."G#G# -PAGE FOUR-G#"DOS COMMANDS:": H#" TWO COMMANDS ARE AVAILABLF#" ESCAPES BACK TO THE PLOTTING"AFP#"FUNCTION.":::VFZ#"LOAD SHAPE:":Fd#" WHEN LOADING A VECTOR FILE FROM DISK"Fn#"THE SHAPE IS PLOTTED OUT FOR USE IN THE"Fx#"RE-PLOT FUNCTION, ETC. IT IS DRAWN FROM"G#"THE CURSOR LOCATION. IFEEN AS A GUIDE.":@E#" TO START ALL OVER AGAIN PUSH THE 'E'"oE #"KEY TO ERASE THE SHAPE AND ITS VECTORS."uE#E# -PAGE THREE-E(#"SAVE SHAPE:":E2#" THIS SAVES TO DISK THE FILE OF VECTORS";E<#"THAT DESCRIBES THE SHAPE. PUSHING "*F1YN21110$j-$oYN1LO48:HI30:1145<$tLO8:HI40\$y12:"READING FILES":34,13z$~O1$:O$:CO1XN:R1$;CO$II1$RE$(CO):RE$(CO)"0"II1:1170$RE$(I)RE$(CO):R$;CO:LN(I)$:C1$:C$$NI::12:"FILES BEING SORTED"T ROUTINE; SHELL/METZNER{#QO2$:R2$;0:DR:C2$:O$:R$;0:XN:C$:XNDR1ĉ::12:"NOT ENOUGH RECORDS!":I13000::#V:10:"SORT BY:":12:3:(91);"1] ARTIST":14:3:(91);"2] TITLE":10:9#[I0#`YN$::YN$(13)110 $eYN(YN$):YNMENU.";:YN$::110'"=C1$:INU1080"B23:"PRESS FOR MORE. TO RETURN TO MENU.";:YN$::YN$"R"ĺO1$:R1$;I::1070"E110"GME$(RE$,1):LE$(RE$,2,4):S((RE$,6,2)):AL$(RE$,8,40):AR$(RE$,48,30):TT(LE$):#L SOR . *E 'B' KEY.": TO RETURN, 'M' FOR MORE) ";LBL"Z$:Z$(27)ġ:8230^BV"Z$"M"8780B`":" ON THE RIGHT HAND SIDE OF THE SCREEN"Bj""THE SHAPE YOU ARE PLOTTING IS DISPLAYED"Bt""WITH ROTATION SET TO ZERO AND SCALE SET"C~""TO ONE. BELO-A""PROPER DIRECTION, CREATING A 'NO-PLOT'"\A""VECTOR. HOLDING DOWN THE 'CTRL' KEY AND"A""PUSHING I,J,K OR M WILL PLOT THE BLOCK"A$""THE CURSOR IS ON BEFORE MOVING IN THE"A.""APPROPRIATE DIRECTION. THIS CREATES A"B8""'PLOT' TYPE VECTOR."LEFT, RIGHT AND DOWN RESPECTIVELY."T@!"PUSH THE SPACE BAR WHEN YOU HAVE REACHED";r@!"YOUR STARTING POINT.":@!" PLOT POINTS BY USING THE I,J,K & M "@!"KEYS AGAIN TO MOVE THE CURSOR. PUSHING"@!"JUST THE KEY WILL MOVE THE CURSOR IN THE"; DESCRIPTION OF EACH">?!"FUNCTION IN BOTH OF THE SECTIONS."D?!U?! -PAGE TWO-h?!"PLOTTING:":?!" THE CURSOR MAY BE MOVED ANYWHERE IN"?!"THE 32 X 44 SQUARE PLOTTING AREA BEFORE"?!"STARTING. USE THE I,J,K & M KEYS TO MOVE";#@!"UP, ".>H!"WORD, SUCH AS THE NAME FOR A FILE, TO"]>R!"ESCAPE YOU MUST ENTER .":>\!" YOU MAY ALSO GET INSTRUCTIONS FROM">f!"ANYWHERE IN THE PROGRAM BY ENTERING A">p!"'?', AND PUSHING IF REQUIRED.":?z!" WHAT FOLLOWS IS AO RETURN, 'M' FOR MORE) ";4= !Z$:Z$(27)ġ:8230F=!Z$"M"8460v= !:" AT MOST LOCATIONS IN THE PROGRAM YOU"=*!"MAY ESCAPE FROM THE FUNCTION BEING USED"=4!"BY PUSHING THE KEY. AT LOCATIONS">>!"WHERE YOU ARE EXPECTED TO INPUT A FULLION 2 'BUILD SHAPE TABLE' COMBINES";U< "SHAPES FROM THIS LIBRARY INTO A FINISHED";k< "SHAPE TABLE.":< " FOR MORE INFORMATION ON SHAPE TABLES"< "AND HOW TO USE THEM SEE PAGES 91 TO 100"< "OF THE APPLESOFT MANUAL."=!24:"(PUSH TT COMPLEX SHAPE TABLES">; "FOR USE IN YOUR OWN PROGRAMS.":m; " SECTION 1 'EDIT VECTOR FILES' IS USED"; "TO DESIGN SHAPES. THE SET OF VECTORS"; "DESCRIBING THE SHAPE IS SAVED TO DISK,"; "CREATING A DISK LIBRARY OF SHAPES.":$< " SECT $$)-26?$$$--2?0)- ?$)-2 $$$? ) $$*- $$$$ 66$$$ 666$! # 6;**2 $$## >:$!!!!?? ??%6$$ 66  )- /6)= $$/10)- $$$$$ $$$)-$$$ %66$$$.*2$$$)- $$;?266$$$--2?!!##3 $!!;?2 $$)-2?6-4;? )-$;7*-$$$$*-26;? $)-22;? $)-$26?? $)-2?7*-$$$)-2;)-%JV`lw)7ET`lz %/=KYgr $$, 6!<%,1.'&(5  7 % =$!! 5 "62' %  C5LOC7Ğ:21:" *EDIT VECTOR FILES* ?-INSTRUCTIONS ";:}:: LOC400,2040,2180,3400,3600,3900,4200,6040,6040,7000,7190:l -PAGE ONE-:v :8);"*** NIBBLE ILLUSTRATOR ***":: " THIS GRAPHICS UTILITY PROGRAM MAKES IT";; "EASY TO CONSTRUCN8300,8600,8990,9150,9320#924W9N5ĺ"(PUSH TO RETURN, 'M' FOR MORE) ";9N5ĺ"(PUSH TO RETURN, 'R' TO REPEAT) ";9Z$:Z$(27)82309 N5Z$"M"81909 N5Z$"R"81909 N:80909& :16304,0>:0 LOC3LOC4LO24:"(PUSH TO RETURN, 'M' FOR MORE) ";D8Z$:Z$(27)8230V8Z$"M"8070a8N15u8N2N581508:108N2ĺ"*** SECTION ONE: EDIT VECTOR FILES ***":81408"*** SECTION TWO: BUILD SHAPE TABLE ***"8D12500:D9:Y159#7`Z$"J"XX5:X0X279@7jZ$"K"XX5:X279X0]7tZ$"M"YY5:Y159Y0g7~7240m7@:7J ****** INSTRUCTIONS ********************7T:7^:7hLOC180907rLOC8300,8600,8600,8990,8990,9150,9150,9320,9320,9320,9320-8| 6SS:72406Z$"R"744076RRRR1:RR63RR0J624:37:" ";[637:RR;:40i6RR:7240{6Z$"C"75006CCCC1:CC6CC16$CC4CC56.24:19:" ";6819:CC;:406B72406L -MOVE SHAPE AROUND-7VZ$"I"YY5:Y0 )";5HCC:NNX,Y5RZ$.5\Z$(27)400?5fZ$"?"8000N5p0:NNX,Y`5zZ$"N"7340z5NNNN1:NNSNUMNN1523:19:" ";519:NN;:24:40572405Z$"S"73905SSSS1:SS10SS1523:37:" ";537:SS;:24:40SNUM(2050)4LOC1174CC3:CC:RR0:RR:SS1:SSK4 X140:Y80:NN1U4:214 :" *VIEW SHAPE TABLE* ?-INSTRUCTIONS ";:4*" WHEN FINISHED"44"N-UMBER OF SHAPE (1 ) S-CALE (1 )"5>"C-HANGE COLOR (3 ) R-OTATION (0VIEW SHAPE TABLE* ?-INSTRUCTIONS ";:N3"TYPE TO ABORT"m3"NAME OF TABLE? TABLE.";}3LMT22:7003W$""W$(27)4003W$"?"8000323:350003D$;"BLOAD TABLE.";W$;",A 2050"3216,03232,2:233,8 46320;2P:D$;"BSAVE TABLE.";W$;",A";ADSNUM22;",L";TTLF2Z216,0t2d"DO YOU WANT TO DO ANOTHER? (Y/N) ";:Z$2nZ$"Y"SNUM1:AAAD:61102x35,2424002X:2b ****** VIEW SHAPE TABLE ****************2l:2v:21::LOC10*3:" *--665555???????'%%%%$,--$,667.,$$6(%$$66 $$?'-----.%<7 )%%,,55.65..%%,,%-6? ---.%<'(--$$56.--6-$7 --,5>/--%$$566--%8',5--,5>'-,%-,56-$7 -<-,5>'-- -- -- --,-$$$$$$#67 <$66.-------%$$$$$ ?"<6#4;7>&#<$'67>"'<$'67>&-$$566757-$$$$ 1666.$$$$56.=6&)-$$566757-$$$$ 1666.%$,%$< -$)2-$$566757-$$$$ 1666.$$$$56.=66 !####;,!;,-$,$%%-,---5-..65666>677?>???'?<<$'$,8$,$%%-,---5-..65666>677?>???'?<<$'$,---$$$ 3 7-5266 -$$56676%,.,%?'$,6.$5&1.$6>*-26-$$56676%,.,%?'$,6.$5&1.$ $<<<  '''$,-<,$%%-,-- ! %??#$?7 *555.667>>>7??'?<<$',-%$56>6%%$,66 $5&!!4&)=&%-$%65."%,$%65."%,$'<<<'?????????# $ $$, .6.66767--------,%%%, -$?>#'<<<'?????????$$$$$$5-.5-.5-.?>7?>7?>7$$$$$$5-.5-.5-. ,5>??>7?>7?>?$$$$$$------566666>??????7$$$$$$-----------666666????????????$,$%%-,---5-..65666>677?>???'?<<$'$,---%$$ 9::::2266 -%'+!#; @Cf B\{Fk[|!@Zs?$$$$$$--------.555.67>>>7????????$$$$$$$--------.555. -6?<37>>>7????????<,$,$$'$'--------.555.67>>>7????????',$,$$'$'--------.555. -6?<37>>>7????????'# $ $$, .6.66767--------,%%%  TLHB256"1AD(SNUMN)21,HB:1AD(SNUMN)22,LBA1NT1ADSNUM21,0j1 ADSNUM22,SNUM1:"TABLE IS ";TTL;" BYTES LONG."1"NAME FOR TABLE? TABLE.";1(LMT22:70012W$""W$(27)ĺ:65001<W$"?"LOC9:80002FLOC9: ONE TABLE. END TABLE OR ABORT? (E/A) ";:Z$A0jZ$"E"6270K0t6500h0~ -POKE HEADER OF TABLE-0SNUMSNUM1:TL0:AAAD65000N1SNUM0TLTLL(N)0N0TTLTLSNUM22:TLTTL0NSNUM110TLTLL(N)0HB(TL256) 1LBC"ĺ:D$;"CATALOG"::6120-/W$"END"6270>/$LOC8:5000k/.:D$;"BLOAD VECTORS.";W$;",A";AA:216,0/8L(SNUM)(21920)(21919)256/BAAAAL(SNUM)/LSNUMSNUM1/VSNUM256612000`:"THAT'S THE MAXIMUM NUMBER OF SHAPES YOU CAN HAVE INT "; . -SET TEXT WINDOW-+.35,201.K.:"N)EW SHAPE TABLE"h."E)XISTING SHAPE TABLE".W$:W$:W$"E"ī9500."NAME OF SHAPE ";SNUM;": VECTORS.";.LMT22:700.W$""W$(27)ĺ:6500.W$"?"Ĺ35,24:LOC8:8000/W$" BUILD SHAPE TABLE ***************(-:F-AD2561:AAAD:SNUM1:TL0R-::21-:" *BUILD SHAPE TABLE* ?-INSTRUCTIONS ";:-"TYPE: END WHEN FINISHED"-" C TO DO A CATALOG"." TO ABOR":5150:,ER11ĺ"THAT IS NOT A LEGAL FILE NAME.":5150h, "A SYSTEM ERROR #";ER;" HAS OCCURRED IN","LINE #";(218)(219)256:," (PUSH ) ";:Z$,(LOC400,2040,2180,3440,3630,3930,4500,6040,6430,7000,7190,p:"-z ****** "h+" ";:39 SPACES IN QUOTESs+23:1+ER6ĺ"THAT FILE IS NOT ON THIS DISK.":5150+ER9ĺ"THERE ISN'T ENOUGH ROOM ON THIS DISK.":5150,ER10ĺ"THAT FILE IS LOCKED.Z$"K"XX5:X279XX279>*Z$"M"YY5:Y159YY159H*4310N*:}* ****** DISK ERROR HANDLING **************:*ER(222):LOC8LOC9Ĺ35,24*22:1*" ":39 SPACES IN QUOTES#+" )D4310)NZ$"S"44704)XSSSS1:SS10SS1K)bSS:24:13:" ";b)l13:SS;:40:4310t)vZ$"R"4510)RRRR1:RR63RR0)RR:23:35:" ";)35:RR;:24:40:4310)Z$"I"YY5:Y0YY159)Z$"J"XX5:X0XX279* (1 ) TO RETURN ";.(CC:1X,Y@(Z$:0:1X,YQ(Z$"?"8000e(Z$(27)4370(:3:221,0221,158222,158222,0(SH2:1700:2180(Z$"C"4430(CCCC1:CC6CC1(&CC4CC5(023:13:" ";):13:CC;:24:40** VIEW SHAPE *********************)'|:6':22:1U'X140:Y80:232,L2:233,H2b'CC3:CCo'RR0:RR|'SS1:SS'" ":39 SPACES IN QUOTES'" C - COLOR (3 ) R - ROTATION (0 ) "(" S - SCALE:1:" TO ABORT "&"FILE TO BE DELETED? ";:23:22&LMT30:700:W$""W$(27)3930&22:39::5000&D$;"DELETE ";W$&216,0:3930&h:#'r *****!%d"DOS COMMANDS: C-CATALOG"6%n16);"D-DELETE"V%x16);" TO RETURN ";x%Z$:Z$(27)Ĺ16304,0:2180%Z$"?"8000%Z$"C"4020%Z$"D"4060%3970%:35,20:1::%D$;"CATALOG"%35,24:24:33%3970.&228000 $1300:XSXC:YSYC:3710&$:U$ ***** CHANGE COLOR *********************[$:r$HCHC1:HC6HC1$HC4HC5$ 2210$<:$F ******* DOS COMMANDS *******************$P:%Z:21::" *EDIT VECTOR FILES* ?-INSTRUCTIONS ";: )? 6)$6?,<$5%56.$$6--$$??6< 221,0221,158222,158222,0+#SH2:1700;#FED02180u#:1000:22:"IT WON'T FIT STARTING FROM THAT CURSOR"#"POSITION. TRY ANOTHER. (PUSH ) ";#Z$::21::" *EDIT VECTOR FILES* ?-INSTRUCTIONS ";::Z$(27)2180$Z$"?"."8"NAME OF VECTOR FILE? VECTORS. "s"B" ";:39 SPACES IN QUOTES"L23:30:LMT22:700"VW$""W$(27)2180"`W$"?"8000"j22:39::5000"tD$;"BLOAD VECTORS.";W$;",A2561":216,0#~:3:31:LMT22:700(! W$""W$(27)21809! W$"?"8000N! 22:39::5000}! D$;"BSAVE VECTORS.";W$;",A2561,L";AAAD2! 216,0:2180!:! ***** LOAD VECTOR FILE *****************!$:!.22:1:" TO ABORT "/ R ***** SAVE VECTOR FILE *****************5 \ :M f AAAD(AA)02210 p 22:1:" TO ABORT " z "NAME FOR VECTOR FILE? VECTORS. " " ";:39 SPACES IN QUOTES! 23:5N V2$"11"XCXC5-X V2$"01"XCXC5Cb V2$"10"YCYC5Wl -ERASE BLOCK-yv V1$"1"Ē0:OXXC:OYYC:1200 -ERASE VECTOR- V2V1:AA,0:3230 V2:AAAA1:BT(AA):1500:VK$(1)(B$,6,3):VK$"00000"VK$(1):2800 2210 H :PES- 0:1100# V2BT(AA)7 V1BT(AA1)X -CONVERT TO BINARY STRING-b 1500 V1(B$,3,3)"000"V2:AAAA1:3060& V2V1$(B$,6,1):V2$(B$,7,2)0 V1V1$(B$,3,1):V2$(B$,4,2): -MOVE CURSOR-D V2$"00"YCYC210 V1:AAAA1:22103 -POKING OF VECTORS-< BT0G N18` (VK$,N,1)"0"2850r BTBT2(8N)y" N, AA,BT:AA1,06  : ****** BACK UP ONE ********************* : AAAD(AA)0V13230 -ERASE SMALL SHA??7'7'7'7'7'7'7'7'7'7'???.-->??.-->??.-->??.-->??.--%5%5%5%5%2%5%5%5%5%5%5%5%5--%??,-%??,-%??,-%??,-%??,-%??,-%??7'7'7'7'7'7'7'7'7'7'7'7'7'7'7'7'??7-->?7-->?7-->?7-->?7-->?7-->?7--%5%5%5%5%5%5%5%"?,<$'.>7-?.>75?.>75??.>75?.>75?67-$5.$5.$5.$5.$5.$5.$5.$5.$5.$5.$5.$5.$->.-<$?,<'%?,<'%?,<'%?,<'%?,<'%?,<'%'<435?.5;75?.>75?.>75?.>75?-%??7-S???.------67>637>67>.----------%'<$'<$'<$'<$'<$'67>67>67>;67>67>67---------------<$'<$'<$'<$'<$'<$'<$'<43>67>67>67>67<75?.-,.%''%#6';75?67-$5.$5.$5.$5.$->.-<$?,<'%?,<'%?(<<2>>2.,$%51/:75?.>7>.%,6%,6%,6%,6%,6%,6%,6%,6%,57-%'<'%?,<'%?,<'%?,<'%??.-5??.--:?7.,.,.>?7---:??.&1.$56%$56.$$5757)$,6.$,6.$,6.$,6.$$56-<,<, 66%$$56.$$<,566 $%'-$<6>$$76&;,<,76'$76'$76'$76'$76>$<7575?"$<66>$$7665?$$<2>.>7-->?77.-%<>4+N>.--%'<$'677>67-------<$'<$'<$'<43>66%$,66%$,6&!$$3>$<6>$<6>$<6>$66$,66%$,12.$5.$ 6%$5&! ?,%?,%?-<$3>$6'<6'<6'<2>"$6>$3->7->7)59?5%5.$6.$,6.%'%')6.$$ 66%$$,66&!,<,%?'-%?'-%?'+-%;?--$3>$<6>$$76'$<6>$<6>$<6>$<66'$766#$<666'$$675?.->?.->?.-??--:?/2$56%$56.$,66%$56>$<6>$<6>$<6>$<6>$<6>$<6>$<6>$<6>$<6>$<6>$<6>$<6>$<66-5?7-5?7-5?7-5?7-5?7-51655--%%%$<<>6N3.655-.--,%%%,$$'<<<'??7?>>67365.655-.5---%-,%%%,$%$$<$'<<<'?7?>>67>66.6.65...5-.-.----,-,%-,,$%,$,$$$'$'<$''?<'?'????7?7?>777>67676,6.-%?'-%?'-%?'-%?'-%?'-%?'-%?'-%?'-%?'-%$<6>$<6>$<6>$<6>$<6>$<6>$<6>$<6>$<6>$<6>$<6>$<66-5?7-5?7-5?7-5?7-5?7-5?7-5?7-5?7-5?7-5?7-5?7--$,6.$,6.$,6.$,6.$,6.$,6.$,6.$,6.$,6.$,6.$,6.$,6.-%?'-%?'-%?'-%?'-%?'-%?'-%?'-%?'-%?'-%?'-%?'-%?'-%?'-%$<6>$<6>$<6 :<?EteI^(l4v;?3-$???.-5??6%5%5%5%5%7->76%,6%,6%,6%,6%,6%,6%,6%$?,%?,%?,%?,%?,%<><6'<6'<6'<6'<6' MENU D-DOS "; -DRAW ING ******:(HC3:XC112:YC82:2:21g:" *EDIT VECTOR FILES* ?-INSTRUCTIONS ";:{  -DRAW CURSOR-1000 AD2561:AAAD:V1* -POKE IN HEADER-4AD1,0:AD2,4>AD3,0:AD4,1HAA,0:AA1,0R -DRAW DIVIDINXPERIMENT!":A/24:"(PUSH 'R' TO RE-READ, TO RETURN) ";V/Z$:Z$"R"5030j/Z$(27)5640r/:)." ? -DISPLAYS THESE INSTRUCTIONS."P." -QUITS THE PROGRAM.":}." REMEMBER THAT ANY OF THE SHAPES CAN"."BE USED AS A 'BRUSH' AND MOVED ALONG TO"."FILL IN AN AREA, OR OVERLAPPED TO CREATE"; /"NEW PATTERNS AND EFFECTS. E" CONTROL AND KEYBOARD CONTROL."W-" P -PUT THE HI-RES SCREEN ON DISK."-" G -GET A SCREEN IMAGE FROM DISK."-" V -LOAD A VECTOR FILE IN PLACE OF"-" THE SHAPE TABLE BEING USED."-"CTRL-D -DISK CATALOG."+ F -SWITCH BETWEEN FULL SCREEN AND"D,T" MIXED SCREEN."q,^" T -SWITCH BETWEEN PROGRAM SHAPE",h" TABLE AND USER'S SHAPE TABLE.",r"CTRL-T -LOAD A DIFFERENT USER TABLE.",|" A -ACTION: SWITCH BETWEEN PADDLE"(-"PDL(0) -MOVE SHAPE HORIZONTALY"I+"PDL(1) -MOVE SHAPE VERTICALY"h+"BUTTON -DRAW THE SHAPE"+"24:" (PUSH 'M' FOR MORE, TO RETURN) ";+,Z$:Z$(27)5660+6Z$"M"5420+@:"------------OTHER CONTROLS-------------":&,J" GHT ONE DOT"4*" M -MOVE SHAPE DOWN ONE DOT"Y*"CTRL-I -MOVE SHAPE UP 8 DOTS"*"CTRL-J -MOVE SHAPE LEFT 8 DOTS"*"CTRL-K -MOVE SHAPE RIGHT 8 DOTS"*"CTRL-M -MOVE SHAPE DOWN 8 DOTS":*" -IF ACTION CONTROLLED BY PADDLES:":$+O RETURN) ";#)Z$:Z$(27)56605)Z$"M"5250h):"-----------MOVEMENT CONTROLS-----------":)" -IF ACTION CONTROLLED BY KEYBOARD:":)" I -MOVE SHAPE UP ONE DOT")" J -MOVE SHAPE LEFT ONE DOT" *" K -MOVE SHAPE RIR"/(F" *** WARNING!! CTRL-C STOPS PROGRAM!"X(P" N -SHOW NEXT SHAPE IN TABLE"(Z"CTRL-N -SHOW PREVIOUS SHAPE IN TABLE"(d" (OR TYPE IN SHAPE'S NUMBER)"(n"CTRL-E -COLOR THE ENTIRE SCREEN" )x24:" (PUSH 'M' FOR MORE, T"-----------DRAWING CONTROLS------------"G'" D -DRAW SHAPE"c' " X -XDRAW SHAPE"'" R -INCREASE ROTATION"'"CTRL-R -DECREASE ROTATION"'(" S -INCREASE SCALE"'2"CTRL-S -DECREASE SCALE"(<" C -CHANGE COLO" USING THIS PROGRAM YOU MAY DRAW SHAPES"X&"FROM YOUR FAVORITE SHAPE TABLES ON THE"&"HI-RES SCREEN. THERE'S ALSO A STANDARD"&"SHAPE TABLE CALLED 'TABLE.PROGRAM' THAT"&"INCLUDES VARIOUS CIRCLES, SQUARES, ETC"&"FOR YOU TO USE.":,'HT 83-89 BY MINDCRAFT PUBL. **"L%20:" WOULD YOU LIKE INSTRUCTIONS? ";h%Z$:Z$"Y"İ5000:4090z%Z$"N"4060%:%:% ****** INSTRUCTIONS *******************%:%:%:" *** NIBBLE DESIGNER *** ";::*&REEN0:16301,0($p :::D$;"CATALOG"X$z :" (PUSH WHEN FINISHED) ";:Z$q$ -BACK TO GRAPHICS-$ 16304,0$ 340$:$ ******* INTRODUCTION ******************$:$:%8:9:"*** NIBBLE DESIGNER ***":12:"** COPYRIGTHAT IS NOT A LEGAL FILE NAME.":"TRY AGAIN. (PUSH ) ";:Z$:340# (222)6ĺ"THAT VECTOR FILE IS NOT ON THIS DISK.":"TRY AGAIN. (PUSH ) ";:Z$:340#* 900#H :#R ******* DOS CATALOG *******************#\ :$f SCREEN1SCLE? VECTORS.";" LMT22:7006" W$""W$(27)340A" 3340l" 22::D$;"BLOAD VECTORS.";W$;",A$805"" 216,0:TABLE2:SNUM1:NN1" -POKE IN HEADER FOR TABLE-" 2049,1:2050,0" 2051,4:2052,0" 340" 216,0::22J# (222)11ĺ"N. (PUSH ) ";:Z$:340~!0 (222)6ĺ"THAT PICTURE IS NOT ON THIS DISK.":"TRY AGAIN. (PUSH ) ";:Z$:340!: 900! :! ****** LOAD A VECTOR FILE *************! :! SCREEN1SCREEN0:16301,0" :22:"NAME OF VECTOR FI***** :, SCREEN1SCREEN0:16301,0L :22:"NAME OF PICTURE? ";\ LMT30:700t W$""W$(27)340 3100  22::D$;"BLOAD ";W$;",A$2000"  216,0:340  216,0::22 !& (222)11ĺ"THAT IS NOT A LEGAL FILE NAME.":"TRY AGAI16,0::22f^ (222)11ĺ"THAT IS NOT A LEGAL FILE NAME.":"TRY AGAIN. (PUSH ) ";:Z$:340h (222)9ĺ"THERE ISN'T ENOUGH ROOM ON THIS DISK.":"TRY AGAIN. (PUSH ) ";:Z$:340r 900 : ****** GET PICTURE FROM DISK ***** 1:23:370 :C ***** PUT PICTURE ON DISK *************I :j SCREEN1SCREEN0:16301,0 :22:"NAME FOR PICTURE? ";" LMT30:700, W$""W$(27)3406 2900@ 22::D$;"BSAVE ";W$;",A$2000,L$1FFB"J 216,0:340 T 2NN1:1:22:3601F SCREEN1SCREEN0:16301,0BP :22:216,0Z (222)6ĺ"THAT TABLE IS NOT ON THIS DISK.":"TRY AGAIN. (PUSH ) ";:Z$:TABLE(TABLE):340d 900 : ****** ACTION: KEYBOARD/PADDLES ******* : ACT(ACT)400& TABLE2UN$""TABLE1:25609 TABLE(TABLE)J 22::2630w TABLE0ĺD$;"BLOAD TABLE.";UN$;",A$801" TABLE1ĺD$;"BLOAD TABLE.PROGRAM,A$801" -RESET ERROR FLAG-( 216,02 -GET NUMBER OF SHAPES IN TABLE-< SNUM(2049):NN1:NN1NNSNUM"V 1:22:360(` :Vj ****** FULL SCREEN/MIXED SCREEN *******\t :q~ SCREEN(SCREEN) SCREEN0Ĺ16301,0 SCREEN1Ĺ16302,0 1000 : ****** USER TABLE.PROGRAM TABLE ******* : TABLE1UN$""LOC2: ******* DECREMENT SCALE ***************/:FSSSS1:SS1SS1ZSS:1:22:360`: ****** INCREMENT SHAPE NUMBER ********* : NNNN1:NNSNUMNN1$ 1:22:360. :8 ****** DECREMENT SHAPE NUMBER *********B :L NNRRRR1:RR63RR0(\RR:1:22:360.f:\p ******* DECREMENT ROTATION ************bz:zRRRR1:RR0RR63RR:1:22:360: ******* INCREMENT SCALE ***************:SSSS1:SS255SS1SS:1:22:360:)M$(NUM$)31000,T(NUM$):NUM$""HT1TSNUMĖ1:22:360]NNT:1:22:360c: ******* INCREMENT COLOR ***************:CCCC1:CC7CC0CC:1:22:3604:> ****** INCREMENT ROTATION *************H:RYC((1)1.34)4 -IS BUTTON BEING PRESSED?-_(16287)127(16286)127ĔNNXC,YCvYNYCXNXCī10001:23:370l:v ******* SELECTION OF SHAPE NUMBER ******:NUM$NUM$K$(NUM$)1Ģ22:37:"---"22:37:NUz#   ŮŮϠ Ӯˠ  Ӯ   Ů֮Š Ӡ+ ӮΠ+ˠ!̠ ՠӮ  !ŮԠH Š ŮΠ ŮԠŮ͠ ŮӮɮԮ٠5Ϡՠ Ҡ%ĮϠĮҠӠ"ŮҠ)RN> for next page or for menu";:49168,0:49152,128W(49152)155FLAG$"ESC"]$. *********** ATTACH UPPER/LOWER CASE ROUTINE8I023:ML:768I,ML:I:768:B ********** DETACH UPPER/LOWER CASE HANDLER L54,240:55,253:100Ģ19:(7);"Disk Error. Please insert Nibble disk":1010j19:(7);"An error #"(222)" has occurred. "23:"Press to continue ";:958:49168,0:49152,128:600 ********** WAIT FOR KEYSTROKEFLAG$""923:" to continue";p49168,0:49152,128:z ********** QUIT SELECTED:::22::958:"Do you really want to quit? (Y/N)";:49168,0 49168,0:UBROUTINE& 61N:SX:X$(SLOS);:I ********** SELECTION ROUTINEb SL(ME1)İ860:600*SLMEİ900:SL1:780:68042:1:" "::2:1:RC$(SL);:> ********** EXECUTE A VALID MENU CHOICEH49168,0::1100:D$;RC$128):Z$"1"Z$(PP)SL(Z$):NOS:780:700Z(Z$(21)Z$(10))(Z$(8)Z$(11))10(Z$(13))20(Z$(27)):Z950Z20ī380SLSLZ(Z10):SLSLME(SLME)ME(SL1)NOS:780:Z10700800  ********** PRINT POINTER S1:"----------------------------------------"u23:1:"Type number or use arrows, then ";:PX10:SX4:SL1 ********** SELECT CHOICENSL:OSSL:780:Z0:24:868:PPME:ME9PP901:12:SL;" ";:49168,0:16384,128::Z$((16384)(1)"-->":Ab1:1:"Selection: : Instructions"ul3:"----------------------------------------";v5:20((A$)2):A$I1ME2:61I:8:I". "MP$(I):61(ME1):8:ME1". Catalog Disk"61ME:8:ME". Quit"-2 ON THIS DISK ARE"<&6:"COPYRIGHT (C) 1990 BY NIBBLE"e06:"MINDCRAFT PUBLISHING CORP."56:"52 DOMINO DR, CONCORD MA 01742"::17:5:"UNAUTHORIZED COPYING IS ILLEGAL"D1030N ********** SET UP MENU XMEMM2:X$(0)" ":X$U TEXT SCREENS A1 :3T S$(A)"@"İ1030::3:((FLAG$"ESC"))490:600g S$(A)"#"510r S$(A) AA1:460  ********** LAST TEXT SCREEN BEFORE MENU :3 6:"Thanks again for your order !" 12:6:"ALL PROGRAMS**** UPPER/LOWER CASE ROUTINE@ r ********** FIRST TEXT SCREENK |::3 "Thank you for purchasing the Nibble":A$;"!": "The programs on this disk are:": Z1NP:5:P$(Z):Z 1030:FLAG$"ESC"ī600  ********** CYCLE THRU NIBMENNP = NUMBER OF PROGRAMS ON DISK5 I1NP:P$(I):Ia MM: MM = NUMBER OF VALID MENU ENTRIES "I1MM:MP$(I):RC$(I):I ,S$ 6I0 @II1:768,SS$:S$(I)SS$ J(S$(I),1,1)"#"350 T320 ^D$;"CLOSE" h(1101)6İ1080: ******S OF TEXT INSTRUCTIONSH RC$(20): RC$ = COMMAND USED TO RUN PROGRAM} MP$(20): MP$ = PROGRAM NAME TO APPEAR IN MENU D$;"OPEN NIBMENU" D$;"READ NIBMENU" A$: A$ = DISK NAME NA$"NIBBLE "A$:20:20((NA$)2):NA$:1 NP: ********* GET HI-RES SCREEN AND SET DISPLAY SWITCHESe x11:3:"MINDCRAFT PRESENTS NIBBLE SOFTWARE" 15:13:"PLEASE WAIT..." ********** READ INFO FROM NIBMENU TEXTFILE 1120 P$(20): P$ = PROGRAM NAME  S$(300): S$ = LINE ******* 8/08/86 *******;* HELLO *X* BY OWL *u(* COPYRIGHT (C) 1987 *2* BY MINDCRAFT PUBL. *<* CONCORD, MA 01742 *F***********************P16384Z::D$(4):(21)d9704 n *      ARTING TIME: "(SC$(I,2),2)(SC$(I,2),5):TI$^TI$""TI$(SC$(I,2),2)(SC$(I,2),5):670~(TI$)6(TI$)7ĺB$:630(TI$)6TI$" "TI$:"CHANNEL "SC$(I,6):CH$:CH$""CH$SC$(I,6):"EVENT DURATION "SC$(I,4):RT$:RT$""RT$SDA$Z$:540/DSA(DA1)ED1:START IN ARRAYNNEASAED1::END IN ARRAYX730:"ENTER NO. TO CHANGE ";Z$:I(Z$):ISAIEA1050b:"PRESS RETURN TO KEEP CURRENT ENTRY":"OR TYPE NEW ENTRY":lSC$(I,1):NA$:NA$""NA$SC$(I,1)-v:"ST:Jı."PRESS RETURN TO CONTINUE ";Z$:6:d"ENTER DAY (SUN THRU SAT) ";DA$:VT(37)DA(DA$):DA0DA8DA$DA$(DA):580&DA17:DA$DA$(DA)5800:30:VT:958:530 :"ENTER NEW DAY OR PRESS RETURN FOR "DA$" ":Z$:Z$""JĞ:B$"CONFLICT ALERT":UJ1::"EVENT CH START LEN":(SC$(I,1),15)19)SC$(I,6)24)SC$(I,2)36);::SC$(I,4):KI:SC$(K1,1)""KEA(SC$(K1,1),15)19)SC$(K1,6)24);::SC$(K1,2);::36)SC$(K1,4):5)(T):SC$(I,6)CH$:420:CF11CHCH0:1050e:"ENTER ANOTHER (Y/N) ";:Z$:Z$:Z$"N"1050u570::170J0:ISAEA:(SC$(I,3))(SC$(I1,5))SC$(I1,5)""450SC$(I1,5)""(SC$(I,3))(SC$(EA1,5))SC$(EA1,5)""450500T(RT$)):!@SC$(SA,1)""380:JT(SC$(SA,5))370rTISA1SAEA1:T(SC$(I1,5))T(SC$(I,5))370^SC$(I,1)""380h:380rJEAI1:K1EE:SC$(J,K)SC$(J1,K)::|SC$(I,1)NA$:SC$(I,2)TI$:SC$(I,3)EM$:SC$(I,4)RT$:SC$(I,ION IN MINUTES ";RT$:ISAW T((TI$,2)):(TI$,2)"PM"T12TT12:ADJUST FOR NOON TT60((TI$,3,2)):(TI$,2)"12"(TI$,2)"AM"TT720:ADJUST FOR MIDNIGHT (0000 HOURS) "TT(DA1)1440:ADDED DAYS ,TI$(TI$,2)":"(TI$,5) 6EM$(NG TIME":"USE FORMAT OF '1030 AM' OR '400 PM'":"'1200 PM' IS NOON": "";TI$:VT(37):(TI$,3)" AM"(TI$,3)" PM"İ30:VT:958:210 (TI$)7250 (TI$)6VT(37):30:VT:958:210 TI$" "TI$ :"CHANNEL ";CH$: "DURAT :DA$""ĺDA$::570:170) 520 SC$(EA,1)""ĺB$"SORRY. "DA$" IS ALL FILLED"::"PRESS RETURN FOR MENU ";Z$:1050 ::"DAY: ";::DA$;::10)"WEEK: ";::WK$:::34,2 "EVENT ";NA$:NA$(NA$,39)::NA$""1050F "ENTER STARTI$(J,6)14)SC$(J,2)26)"DURATION "SC$(J,4)" ";e d(SC$(J,3))(SC$(J1,5))SC$(J1,5)""Ğ:"*";: nSC$(J1,5)""(SC$(J,3))(SC$(IED,5))SC$(IED,5)""Ğ:"*";: x: :"RETURN TO CONTINUE, M FOR MENU ";:Z$:Z$:Z$"M"1050 :1050CONTINUE ROUTINE **& B$"BAD INPUT"^ (22:958:8:"PRESS ANY KEY TO CONTINUE ";:Z$::r 2940:960:1050 <::"REVIEWING WEEK "WK$:::34,2 FI1ED61ED::DA$((IED)1):: PJIIED1:SC$(J,1)""130- ZSC$(J,1):"CHANNEL "SC **********************= * NIBBLE.TV.GUIDE *[ * BY RICK CONNOLLY *y * COPYRIGHT (C) 1984 * * MINDCRAFT PUBL.CORP* * CONCORD, MA 01742 * ********************** 255:::D$(4):B$(7):1100  **        1,251,176,2,233,31,76,240,2533,0,2,201,3,208,3,76,99,216e 169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,231,32,123,218,165 135,164,136,133,184,132,185,32,183,0,96,0 ********** UPPER/LOWER CASE ROUTINE DATA 160,11,169,3,132,54,133,55,76,234,3,201,225,144,6,202:3V ********** INSTALL INPUT-ANYTHING ROUTINEB`X768839PjA:X,A:Vt~ ********** INPUT-ANYTHING ROUTINE DATA 32,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,165 184,164,185,133,135,132,136,32,44,213,1755)? ";L:L1L2551180I"CALL 768,"SNUM","P","R","L:768,SNUM,P,R,L" <> ";:A$:(A$)13ı1150 SAVE SOUND:21:"VERIFY SAVE (Y/N)? ";:A$:A$"Y"ı :21:" **SAVING SOUND TABLE**":"TABLE NAME VX(A$):X1X71060A`X1150,1230,1300,1330,1450,1480,1580Kj1060\t SOUND TEST{~:21:7:"**TEST SOUND**""OVERALL PITCH (1-9)? ";P:P1P91160"NUMBER OF REPETITIONS (1-255)? ";R:R1R2551170"LENGTH OF EACH TONE (1-2TNUM2:990 MAIN MENU=$3:CX,4CX,9:CX,142CX,147r.:21:" 1) TEST SOUND";:21:"5) DELETE SOUND"8" 2) SAVE SOUND";:21:"6) CHANGE MODES"B" 3) ADD TO SOUND";:21:"7) QUIT"L" 4) DISPLAY PREVIOUSLY CREATED SOUND ";:A$47X581020X810301X27İ1610:1300@X131060I450gASTADDSNUM256256TNUM}CX,(A)2Z:A,0STADDSNUM256256,TNUMTNUMTNUM1(TNUM254)450XX4910(X48):TNUM(X28.3):990TNUM2450 TNUM0 N013:PITCHQ(N)Ă1*X(X)((X).4)D4NNX:N0N0S>N13N13bHPITCHQ(N)R(N1):10,Y(0)269,Y(0)\(N3):10,Y(1)269,Y(1)f0:450p PADDLE AND KEYBOARD ENTRYz2CX,CYXX128:X21990X32970 XI1450680( PROCESS KEY PRESS= KEYBOARD ENTRYLX193890[X211620h2CX,CYX50(X217)10(X213)2(X201)50(X194)10(X206)2(X205)M2800PITCHPITCHX:PITCH1PITCH1 PITCH255PITCH25545$DCXZTNUM:CYZPITCH2:2CX,CYJNX(16384):X127Ĺ16368,0:720SX590nb PROCESS BUTTON PRESS{l2CX,CYvASTADDSNUM256TNUM256CX,(A)2ZA,PITCH:ATNUM,TNUMTNUMTNUM1(TNUM254)1CX,CY(16286)128TCHQ(N)%(N1):10,Y(0)269,Y(0)G(N3):10,Y(1)269,Y(1):520mPITCH(1)1:PITCH255PITCH255CXZTNUM:CYZPITCH22CX,CY:0X(16384):X127Ĺ16368,0:890&X(16286):X12762002CX,CY:470: KEYBOARD ENTRYR DOT";:4102"PADDLE AND BUTTON TO SET PITCH"N"SPACE BAR FOR PAUSE";g26:"ESC FOR SHIFT""KEYS 0-9 AND ARROW KEYS TO PLACE CURSOR"; MAIN SOUND MAKING LOOPI1580 PADDLE ENTRYM1510N(((1)21.23)21.24):PI J CLEAR FOR NEXT SOUND@ T:3:0,0279,0279,1590,1590,0Q ^1560:TNUM1 hN0255:STADDSNUM256256N,0::IF ERROR, SEE LINE 1860 r:21:"RETURN FOR MENU"; |25::"SOUND NUMBER ";SNUM: I1ĺ"KEYS YUI FOR UP, BNM FOR DOWN, S FOSOUND TABLE"( 7:"3) INSTRUCTIONS ";E A$:X(A$):X1X3250\ ":X1820,300,1930 ,"ENTER NAME FOR NEW SOUND TABLE.":NAME$:2650 6(NAME$)0(NAME$)15ĺ"ILLEGAL FILE NAME. TRY AGAIN":300 @D$"BSAVE";NAME$;",A";STADD;",L1":216,0:::1:0> M$(1)"SOUND SYNTHESIS":M$(2)"MUSIC SYNTHESIS"r I$(1)"KEYBOARD ENTRY ":I$(2)"PADDLE ENTRY " 11:"SOUND SYNTHESIZER":22:"** COPYRIGHT 1984 BY MINDCRAFT PUBL. **" 10:7:"1) LOAD EXISTING SOUND TABLE" 7:"2) BEGIN NEW 128,144,152,171,192,213,230,254,0< DATA FOR SCALE LINESg N06:Y(N)::48,54,65,77,89,107,128 DATA FOR SHAPE TABLE N912924:A:N,A::232,144:233,3:2,0,6,0,8,0,4,0,172,30,7,32,0 Z12.5:M1:I1:PITCH125:SNUM1:NUM1:STADD25600TION ** PRODOS USERS SEE LINE 18605 Z(104)64120Q d103,1:104,64:16384,0m n(4);"RUN SYNTHESIZER"x x37376 Q(14),Y(6),M$(2),I$(2):D$(4) D$;"BLOAD SOUND.READER" DATA FOR MUSICAL NOTES! N014:Q(N)::73,77,86,96,108,116,d## ***************************E * SYNTHESIZER *g * BY JAMES R. GESCHWENDER *( * COPYRIGHT (C) 1984 *2 * BY MINDCRAFT PUBL. CORP.*< * CONCORD, MA 01742 *F ***************************" P INITIALIZA             3&L "TO THE 'END OF SOUND' SLASHES.":768,1,2,3,70f&V 2610:"SO PLACE THE CURSOR AT THE END OF THE"&` "SOUND BEFORE TESTING.":2610&j "MODE TWO SETS UP A MUSICAL SCALE WHICH"&t "ALLOWS YOU TO TRANSCRIBE DIRECTLY FROM"'~ "SHEET MUSIC, TO A FO "PRESS ESC TO TRY IT. <> ";]% 0:CX,4CX,9:CX,142CX,147:CXZTNUM:2CX,CYu%$ A$:(A$)272340%. 2CX,CY:1610%8 :21:X0ĺ"PLEASE TRY AGAIN WITH A NON-ZERO SHIFT.":2610:2320%B "NOTE THAT THE SOUND READER READS ONLY UP";SECTION"4$"WITH DIFFERENT TONE DOTS, OR ERASE A"]$"SECTION BY SPACING OVER IT.":2610x$TNUM30:CXZ126:CY60$"YOU MAY ALSO SHIFT THE RIGHT HAND"$"PORTION OF THE SCREEN LEFT OR RIGHT."$ "PLACE THE CURSOR HERE FOR INSTANCE, AND")%ARE NOT SATISFIED WITH THE SOUND,";O#"USE THE 'ADD TO SOUND' OPTION.":2610{#"YOU MAY MOVE THE CURSOR HORIZONTALLY"#"LEFT OR RIGHT WITH THE ARROW KEYS, AS"#"WELL AS WITH THE NUMBER KEYS (0-9).":2610$"YOU MAY WRITE OVER AN INCORRECT OVERALL PITCH,"1"\"THE NUMBER OF REPETITIONS,"["f"AND THE LENGTH OF EACH NOTE.":2610"p"SO, WITH THE SOUND PATTERN ABOVE, THIS,":768,1,1,1,30"z"AND THIS,":768,1,2,10,1""AND THIS, ";:768,1,9,3,3""ARE POSSIBLE.":2610##"IF YOU 5))!STADDN,Q:B! 2610:"AN EXAMPLE MIGHT LOOK LIKE THIS."h!*:3:0,0279,0279,1590,1590,0!4X1:M1:STADD,126:1360!>21:"WHEN YOU WISH TO HEAR THE SOUND, GO TO"!H"THE MENU, AND USE THE 'TEST' OPTION.":2610"R"YOU CONTROL THE THE HI-RES DISPLAY"@ "USING A PADDLE CONTROLLER OR JOYSTICK"o "AND THE KEYBOARD, OR THE KEYBOARD ONLY." "THE TOP OF THE SCREEN REPRESENTS HIGH" "PITCH, AND THE BOTTOM REPRESENTS LOW" "PITCH." N1255! Q(N127)(12560(N.0INSTRUCTIONS"@7:"THIS PROGRAM HAS TWO SOUND MAKING MODES."q"THE FIRST IS FOR MAKING SOUND EFFECTS OF";"ALL VARIETIES, AND THE SECOND IS FOR""SYNTHESIZING MUSIC.":"TO USE MODE ONE YOU SIMPLY LAY OUT THE" "DESIRED SOUND ON 1900-:D$;"BLOAD";NAME$;",A";STADD:216,0nDNUM(48858)1:FOR PRODOS, CHANGE THE PEEK ADDRESS TO 48858N:21:"FILE "NAME$" CURRENTLY"X"CONTAINS "NUM1" SOUNDS."bSNUMNUM:340lD$;"CATALOG"v1820 INSTRUCTIONS :14:"SNUM256256N,0::1780CN255X255:STADDSNUM256256N,0:iSTADDSNUM256256,TNUMX:XSNUMs1360y LOAD SAVED SOUND TABLE"ENTER NAME OF EXISTING SOUND TABLE."&"TYPE 'CAT' FOR A CATALOG":26600NAME$:NAME$"CAT"IFT HOW FAR "A$" (0-9)? ";:A$:A$;@:::16:"SHIFTING";:eXX(A$):(X)21710,1800,1730|XTNUMX1TNUMNTNUM255:1750XTNUM255ıN255XTNUM1QSTADD256SNUM256N:QX,(Q):X0āNTNUMTNUMX:STADD,4CX,9:CX,142CX,147JT:21:"WITH THIS FEATURE YOU MAY SHIFT ALL OF"^"THE DOTS THAT ARE TO THE RIGHT OF THE":"CURSOR."h"SHIFT LEFT OR RIGHT (L OR R)? ";:A$:A$rA$"R"A$"RIGHT":X1:1680|A$"L"1610A$"LEFT":X1#"SH> ";:A$-X(A$):X13ıMX49M2(M2):1560:1480gX50I2(I2):1480q1480M1:N2M26:10,Y(N)269,Y(N)::" QUIT,:21:"VERIFY QUIT (Y/N)? ";:A$:A$"Y"ı6::@ SHIFT DISPLAYJ3:CX3:CX,4CX,9:CX,142CX,147:0 DELETE SOUNDc:21:"VERIFY DELETE (Y/N)? ";:A$:A$"Y"ın:340 CHANGE MODES:21::" CURRENT MODE ":M$(M):I$(I):22:18:"1) CHANGE SOUND MODE"18:"2) CHANGE ENTRY MODE"12:"8:SC$(J,1);:(SC$(J,3))(SC$(J1,5))SC$(J1,5)""Ĺ36,47:" **";%HSC$(J1,5)""(SC$(J,3))(SC$(I(SC$(I,1),30):v:"TURN PRINTER ON AND PRESS P, OR ANY":"OTHER KEY FOR MENU ";:Z$:Z$:Z$"P"1050 (4)"PR#1":(9)"80N":PARALLEL 80 COLUMN CARD:33)WK$::::"DAY";:36,20:"EVENT";:36,50 "CHANNEL";:36,60:"TIME";:C$(I,4)CH1:710:270f730:"ENTER NO. TO DELETE OR PRESS RETURN ";Z$:I(Z$):ISAIEA1050JIEA1:K1EE:SC$(J,K)SC$(J1,K):::K1EE:SC$(EA,K)""::CF1CH1050::520:SC$(SA,1)""1050ISAEA:SC$(I,1)""ĺI4) ER13ĺ"FILE TYPE MISMATCH":2760R+ "ERROR #";ER"IN LINE ";(218)(219)256c+ EL300,1820 EL2: ENTRY POINT FOR DISK READ.*n ER(222)V*x ER4ĺ"DISK WRITE PROTECTED":2760x* ER6ĺ"FILE NOT FOUND":2760* ER8ĺ"DISK I/O ERROR":2760* ER9ĺ"DISK FULL":2760* ER10ĺ"FILE LOCKED":2760* ER11ĺ"ILLEGAL FILE NAME":2760$+E"/) "AND THE SOUND READER PROGRAM, AND USE"]) "THE CALL COMMAND TO EXECUTE THE SOUND."n)( 2610::160)2 24:9:"<> ";)< A$:(A$)132610)F :21:)P DISK ERROR TRAP)Z EL1:2670: ENTRY POINT FOR DISK WRITE *d R FOR EQUAL"+( "DURATION.":768,1,4,1,12H( 2610:768,1,1,1,25::7v( "WHEN YOU ARE SATISFIED WITH THE SOUND,"( "RECORD THE CALL COMMAND DISPLAYED, AND"( "SAVE THE SOUND. TO USE THE SOUND IN AN") "APPLESOFT PROGRAM, BLOAD THE SOUND FILRMAT LIKE THIS."' Q1:N08R' X,A:7,9,5,11,3,14,14,1,5,9,6,8,5,9,7,7,14,60s' TNUMQQA:STADDTNUM,Q(X)' TNUM:QTNUM' N' STADD,79:X1:M2:1360' 2610:"NOTE THAT HIGH NOTES PLAY FASTER SO THAT"; ( "THE NOTE LINE MUST BE LONGE:" "ST$(J):.4:"ARTIST :";::" ";AR$:v4:"LENGTH :";::" ";MI(J);" MIN.";:X$(SE(J)):(X$)2X$"0"X$4" "X$;" SEC."4C2$:22:"IS THIS THE CORRECT SONG ?";:YN$::YN$"N"JS18104 YN$"Y"18155:12:"SEARCHING...":34,1..":34,13 3O$:R$;0:NU:C$83I1NU:O2$:R2$;IO3AR$:AR$"0"1770V3Sa3J1Sy3ST$(J),MI(J),SE(J)33J1S:(S$)(ST$(J))17653S$(ST$(J),(S$))178033:C2$31680: : NO MATCH4::10::"SONG :";:CH, TO GO BACK TO MENU."02X(16384)J2X141Ĺ16368,0:110f2X155Ĺ16368,0::480p216902 SEARCH FOR SONG PART OF SEARCH/CHANGE/DELETE ROUTINE2:12:"SONG TITLE: ";S$:S$""ġ:1102(S$)401715 3:12:"SEARCHING.MBER","DECEMBER":1+ 31,28,31,30,31,30,31,31,30,31,30,31 ' 0*%0' 5: NUMBER OF NAMES=0' "STEVE","3/13/43"S0$' "PAT","3/20/36"l0.' "SUSAN","11/20/69"08' "JERRY","8/4/62"0B' "FRANK","12/22/61"1* "JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY","AUGUST","SEPTEMBER","OCTOBER","NOVE CYCLES TEND TO BE MORE"n/"PRONOUNCED THAN THE CRITICAL DAYS IN "(ZP)"THE INTELLECTUAL CYCLE. BIORHYTHM"/"CHARTS PROMOTE UNDERSTANDING OF THE "(ZP)"BEHAVIOR OF OTHERS AS WELL AS ONESELF."/ PZĺ(19):(4)"PR#0"/%PZĺ:"CONTINUE";YN$0EN "(ZP)"THE PERSON CAUSING THE ACCIDENT IS"K.}"HAVING A CRITICAL DAY."h.~:PZĄ"CONTINUE";YN$:."ON CRITICAL DAYS ONE SHOULD TRY TO "(ZP)"AVOID DIFFICULT SITUATIONS AND TAKE IT"/"EASY. CRITICAL DAYS IN THE EMOTIONAL "(ZP)"AND PHYSICALILITIES TO COPE WITH DIFFICULT"{-z"SITUATIONS ARE STRAINED. THE CRITICAL "(ZP)"DAYS ARE REFERRED TO AS PERIODS OF IN-"-{"STABILITY. IT HAS BEEN STATISTICALLY "(ZP)"DEMONSTRATED THAT 70-90% OF ALL ACCI-"-.|"DENTS CAUSED BY HUMAN ERROR OCCUR WHE LASTS FOR ONLY ONE DAY."q,w"THIS IS CALLED THE 'CRITICAL' DAY. "(ZP)"IT OCCURS WHEN THE CURVE CROSSES THE",x"CENTERLINE FROM POSITIVE-TO-NEGATIVE "(ZP)"OR FROM NEGATIVE-TO-POSITIVE."-y:"IT IS DURING THESE CRITICAL DAYS THAT "(ZP)"ONE'S ABREPRE-"b+s"SENT PERIODS WHEN ONE IS NOT AT ONE'S "(ZP)"PEAK RELATIVE TO EITHER THE EMOTIONAL,"+t"PHYSICAL, OR INTELLECTUAL ABILITIES.":PZĄ"CONTINUE";YN$:+u:"**CRITICAL DAYS**":,v"THE THIRD AND MOST IMPORTANT ELEMENT "(ZP)"OF THE CYCLCTUALLY DEPENDING UPON WHICH CURVES "(ZP)"ARE ABOVE CENTERLINE."]*p:"**NEGATIVE STATE":*q"WHEN THE CURVES FALL BENEATH THE "(ZP)"CENTERLINE, THEY ARE IN THE NEGATIVE"+r"STATE. CHARACTERISTICS OCCURRING "(ZP)"DURING THIS PHASE OF THE CYCLE CURVE IS ABOVE THE CENTERLINE, "(ZP)"IT IS IN THE POSITIVE STATE. DURING")m"THIS PHASE OF THE CYCLE A RELATIVE "(ZP)"STRENGTH OF THE CHARACTERISTIC IS")n"INDICATED. THIS REPRESENTS 'GOOD' "(ZP)"DAYS EMOTIONALLY, PHYSICALLY, OR INTEL-"A*o"LEY(I)FD0:1270" FSFS7:1230- :LW1 D$"CLOSE":D$"OPEN WEEKS":D$"WRITE WEEKS":I153:WK$(I)::LW:D$"CLOSE":960:1050Y OF THE YEAR. SET UP FOR 1986/Y(2)Y(2)LYPWK1:FDFD1:I112:FSFD1WK$MO$(I)"."(FS)"...":FS6Y(I)WK$WK$MO$(I)"."(FS6):1250FDFS6Y(I):WK$WK$MO$(I1)"."(FD):WK$(WK)WK$:WKWK1:1270 WK$(WK)WK$:WKWK1:FS6HIS CONDITION IS NOT REPEATED UNTIL 58"(i"YEARS HAVE ELAPSED. THE CYCLES ARE "(ZP)"CONSTANTLY OUT OF PHASE WITH EACH OTHER."::PZĄ"CONTINUE";YN$:(j"THREE PRIMARY STATES OCCUR FOR EACH "(ZP)"CURVE:"(k:"**POSITIVE STATE**":K)l"WHEN A TION OF EACH CHARACTERISTIC AT A"{'f"FUTURE POINT IN TIME CAN BE FORECAST. "(ZP)"GENERALLY, THE EMOTIONAL AND PHYSICAL"'g"CYCLES ARE MORE SIGNIFICANT IN TERMS "(ZP)"OF EFFECT ON THE INDIVIDUAL."'(h:"AT BIRTH THE THREE CYCLES COINCIDE. "(ZP)"TE.":X11:1300:1230+P2:R1:L30:1240W"HERE IS A TUNE THAT IS HIGHER ON THE"v"SCALE.":X12:1300:1230P1:R1:L85:1240"NOTE THAT FOR THE SAKE OF CLARITY,""SHARPS AND FLATS ARE NOT INCLUDED IN""MODE TWO.":1280$;";:1280.fN327:X(N3):768,10,X,1,1:bp1280:"OR ADD ANOTHER SOUND AND SOME FLASHES,"z"AND YOU GET THIS.":1280:210:1280"SIMPLE MUSIC CAN BE REPRODUCED BY""ENTERING IT NOTE BY NOTE FROM SHEET""MUSIC. HERE IS AN EXAMPLHAT PLAYED IT AT EACH";K*"OF THE PITCHES, 1 TO 9, CONSECUTIVELY?":1280x4"A LINE LIKE THIS WOULD ACCOMPLISH IT.">"890 FOR N = 3 TO 27:X = INT (N /"H6:"3): CALL 768,10,X,1,1: NEXT"R1280 \"AND WHEN EXECUTED WOULD SOUND LIKE THISX10:1300:"TAKE THIS FOR INSTANCE."V"ORDINARY TECHNIQUES DON'T YIELD ANYTHING";"PARTICULARLY INTERESTING.":P5:R3:L20:1240P9:R30:L1:1250 P2:R20:L3:1250"BUT WHAT IF YOU MADE A ROUTINE IN YOUR" "APPLESOFT PROGRAM T HAVE GUESSED"?"THE PATTERN FOR A MACHINE GUN COULD LOOK";["LIKE THIS?":X9:1300rP3:R40:L4:1240"OTHER SOUNDS CAN BE BASICALLY SIMPLE,""BUT REQUIRE INOVATION IN THE PLAYING IN""ORDER TO MAKE THEM SOUND RIGHT.":1280%E INCOMING SHELL YOU HEARD"Bl"EARLIER, I USED THIS.":X8:1300XvP2:R1:L8:1240"FOR SOME SOUNDS, IT IS LESS OBVIOUS HOW""TO LAY THEM OUT. TRIAL AND ERROR TAKES""ON A GREAT DEAL OF IMPORTANCE.":1280"FOR INSTANCE, WOULD YOU* 500: FOR"006:"Q = 1 TO X: NEXT Q: NEXT N"a:N110:768,7,1,1,1:X(1)440:Q1X:Q:ND1280:"SOMETIMES MOVING THE SOUND UP OR DOWN ON";N"THE SCREEN CAN MAKE A SMALL BUT"X"IMPORTANT DIFFERANCE IN THE SOUND.":1280b"SO, FOR TH:12404"A SIMPLE PATTERN CAN ALSO SOUND LIKE A"^"BIRD.":X7:1300:P1:R10:L1:1240"IF YOU WANT IT TO SOUND MORE NATURAL,""INTRODUCE RANDOM PAUSES LIKE THIS;":1280"590 FOR N = 1 TO 10: CALL 768,7," &6:"1,1,1:X = RND (1) TER COMPLEXITY GIVES MORE":"POSSIBILITIES.":X2:1300QP1:R10:L1:1240gP9:R7:L1:1250uX3:1300P2:R15:L1:1240P1:R20:L1:1250X4:1300:P4:R8:L20:1240X5:1300:P1:R1:L50:1240X6:1300:P1:R1:L30ED TO INVOKE IT"8 J"FROM AN APPLESOFT PROGRAM.":1280F TX1:1300q ^"EVEN THE SIMPLEST PATTERNS CAN GIVE" h"INTERESTING EFFECTS WHEN REPEATED" r"RAPIDLY.":P1:R10:L7:1240 |P4:R10:L4:1250 P9:R10:L2:1250"OF COURSE GREAK"1 "UNDER THE FILE NAME 'SOUNDS'. YOU WILL"_ "BE SHOWN SOME USEFUL TECHNIQUES TO AID" ""YOU IN DESIGNING YOUR OWN SOUNDS. FOR" ,"EACH SOUND PLAYED, YOU WILL BE SHOWN" 6"WHAT THE SOUND LOOKS LIKE, AND THE" @"COMMAND OR COMMANDS US6300,0:768,10,N,1,1::K :5:"THE PURPOSE OF THIS PROGRAM IS TO SHOW"x "SOME OF THE CAPABILITIES OF THE SOUND" "SYNTHESIZER. ALL THE SOUNDS YOU HAVE" "JUST HEARD WERE CREATED WITH THE SOUND" "SYNTHESIZER, AND ARE SAVED ON THIS DIS14,5,1,13:N1450::768,13,5,1,13: 768,9,3,40,4:210V 768,9,3,15,4:210:210f N11500: 768,11,2,1,30:N1500: N110:768,7,1,1,1:X(1)440:Q1X:Q:N 220 768,8,2,1,8:N19:768,10,N,1,1:16299,0:768,10,N,1,1:1):STADD25600:Z12.51 ZD$;"BLOAD SOUND.READER"V dN04:Y(N)::65,77,89,107,128 n::10:8:"** SOUND DEMONSTRATION **":22:"* COPYRIGHT 1984 MINDCRAFT PUBL. CORP. *" xD$;"BLOAD SOUNDS" N03000::768,6,1,1,30# 768,13,5,2,13:768,## ***************************E * SOUND.DEMO *g * BY JAMES R. GESCHWENDER *( * COPYRIGHT (C) 1984 *2 * BY MINDCRAFT PUBL. CORP.*< * CONCORD, MA 01742 *F *************************** PY(4):D$(4         0: DAY FIRST:&PL1[(DT$,PL,1)"0"(DT$,PL,1)"9"PLPL1:1050s$DY((DT$,1,PL1))}.STPL8(DT$,PL,1)"A"(DT$,PL,1)"Z"PLPL1:1080BSTPLPLPL1:STPL:ST(DT$)1080LMTH$(DT$,ST,PLST):1800V TO START ON? ";ST$#ST$""640=ST$""TD$ST$:FL1CIO:b CONVERT DATEh:(DT$)0ĺ"ERROR!! NO DATE GIVEN.": WHICH KIND?J1(DT$)(DT$,J,1)"/"J1000:1500A$(DT$,1):A$"A"A$"Z"1205sLM(LM$) vLM0LNLMNx"**************************************"y:"FORMAT FOR DATES: DAY MONTH.NAME YEAR":::" EXAMPLE :";::" 1 MAY 1981":z"**************************************"{"WHAT DATE DO YOU WANT THE CHART QUESTIONS Y: ]FL0l _:"IF YOU DON'T WANT TO DECIDE THE NEXT":"QUESTIONS, ANSWER WITH 'RETURN'." b:"DO YOU WANT A DESCRIPTION OF BIORHYTHMS?";YN$:(YN$,1)"Y"İ6998 g l"HOW LONG IN DAYS DO YOU WANT YOUR CHART? ";LM$qLM$""632000$ 3000: CALCULATE CYCLES8 GFİ4000:300d ::"PRINTER, SCREEN, OR BOTH? ";CH$: A$(CH$,1):A$"P"A$"B"İ5000 A$"S"A$"B"İ4000 ,::"WHO'S NEXT? ";NM$: 6NM$""400 @GFİ600 EPA1 J110  W: XHEN WERE YOU BORN";::" (NO COMMAS PLEASE)? ";DT$D z(DT$)0120X }PA(GFFL)135 ::"WHAT YEAR IS IT NOW? ";YR$: TD$TD$"/"YR$ 1000: CONVERT DATE BDYDY:BMTHMTH:BYRYR BRN$DT$:DT$TD$:1000 TDYDY:TMTHMTH:TYRYR MTH$(12):I112:MTH$(I):? DAYS(12):I112:DAYS(I):K !XX(40)U #LN40a %YN$"N" 'GF0:(YN$,1)"N"İ600:GF1 (EC(LN),MC(LN),PC(LN) Z d::"WHO ARE YOU? ";NM$: nI1NB:NM$NM$(I)DT$DT$(I):INB:125 s:2 x:"W************( IMAGEWRITER VERSION8 SCL50:PA0 :12::"BIORHYTHM PROGRAM":::12:"BY P.J. VORENBERG"::10:"COPYRIGHT (C) 1981 BY": 12:"MINDCRAFT PUBL. CORP."::11:"CONCORD, MA. 01742"  :NB:I1NB:NM$(I),DT$(I): q)'********************************M** APPLE BIORHYTHMS **s** BY P.J. VORENBERG **** COPYRIGHT (C) 1980 BY **** MINDCRAFT PUBL.CORP. **** CONCORD, MA. 01742 ** ********************      56N):CYZQ2:Q0ēCX,CY"2::21=10:"CALL 768,"X","P","R","L:768,X,P,R,L:1280:C~24:9:"<> ";:A$:(A$)131280 :21::3:0,0279,0279,1590,1590,0SNUMX:TNUM(STADDSNUM256256)(N1TNUM:CXZN:Q(STADDSNUM2562269,54:1280;"USING THESE TECHNIQUES, AND ANY OF YOUR"h"OWN, A GREAT VARIETY OF SOUNDS CAN BE"x"CREATED."768,13,5,2,13:768,14,5,1,13:N1450::768,13,5,1,13:1280:::1:N04:10,Y(N)269,Y(N)::3:1280:1260D.":12807j"HERE IS THE REST OF THE 'MARINE HYMN',"ut"AND WHAT IT SOUNDS LIKE PLAYED ALONE.":X14:1300:1230~P5:R1:L13:1240:"NOTE THAT LEDGER LINES ARE PROVIDED WHEN";"YOU ENTER NOTES HIGH ON THE SCALE." 1:10,48269,48:10,54NG OR REPETITIOUS TUNE,"E."YOU MAY WANT TO PUT IT ON TWO OR MORE"q8"SCREENS, LIKE THIS;":X13:1300:1230BP5:R1:L13:1240L"NOTE THAT THE AVERAGE LENGTH OF A NOTE"V"LINE IS A MATTER OF CHOICE, HERE, LONGER"; `"NOTE LINES ARE USE"THIS IS BECAUSE THESE WOULD NOT BE"Q"EASILY DISTINGUISHABLE ON THE MUSICAL"n"STAFF PROVIDED.":1280"HOWEVER, YOU MAY WISH TO ATTEMPT TO ADD""SHARPS OR FLATS IN MODE ONE, BUT YOU""MUST DO IT BY EAR.":1280$"IF YOU HAVE A LO:pDPDP1*zMP2(YP4)4YP6040@DPDAYS(MP)6050FTDP29ıyDP1:MPMP1:MP12MP1:YPYP1: ORDER VALUES:V1EC(I):V2MC(I):I1$CEC$:I2$CMC$(MC(I)EC(I))V1MC(I):V2EC(I):I1$CMC$:I2$CEC$A$"M"CPC$"P"*EC(I)MC(I)ī5070@CEC$"D":CMC$"D"XEC(I)PC(I)ī5090nCEC$"D":CPC$"D"MC(I)PC(I)ī5110CMC$"D":CPC$"D"I1İ60006100 I(27);(80):(4);" PR# 0"f:k GET NEXT DAYl M I C C Y C L E S"4::56(NM$)2)"FOR "NM$a::41)"E = EMOTIONAL CYCLE (28 DAYS)"41)"M = MENTAL CYCLE (33 DAYS)"41)"P = PHYSICAL CYCLE (23 DAYS)"::13)"NEGATIVE"84)"POSITIVE"I1LNCEC$"E"CMCX$,1)rA$;::LM40ĺ*w17)"DATES"e|"EMOTNL=YEL, MENTAL=AQUA, PHYSCL=PINK";39);:" ";YN$o::u: PRINT CYCLES:DPTDY:MPTMTH:YPTYR(4);"PR#1":(27);(81):(9)"132N": IMAGEWRITER CODES41)"B I O R H Y T HTDY:MPTMTH:YPTYR1900:XX(1)DP:60002I2LMG"XX(I)DP:6000:O'21[,I1LMe1A$""6XX$(XX(I)):(XX$)2A$(XX$,1)@(XX$)1A$XX$JA$""A$" "TA$;::LM40ĺ^I1LMcA$" "hXX$(XX(I)):(XX$)2A$(X101LM40:LN40LMLNfI1LM:EC(I)39(EC(I)SQ):MC(I)39(MC(I)SQ):PC(I)39(PC(I)SQ)vXX(I)I1::15:0,391913I1LM:XX(I),EC(I):14I1LM:XX(I),MC(I):11I1LM:XX(I),PC(I):&DPPI223)SCLSCL) EC(J)JA(JA28)28K EC(J)(EC(J)PI228)SCLSCLd MC(J)JA(JA33)33 MC(J)(MC(J)PI233)SCLSCL PC(J)(PC(J).5) EC(J)(EC(J).5)& MC(J)(MC(J).5)0 : : SCREEN GRAPHICS:SQ40BMTH1FIN!AGEAGEDAYS(J):>TMTHBMTHAGEAGETDY:X` TMTH1AGEAGETDY:zj J1TMTH1:AGEAGEDAYS(J):t AGEAGETDY: : CYCLES : PI223.14159265 J1LN JAAGEJ1 PC(J)JA(JA23)23 PC(J)(PC(J)H2LEAPLEAP1/ST(TYR4)4:STTYR2250@TMTH22250PLEAPLEAP1aAGEAGELEAPBMTHTMTHĭBDYTDYAGEAGETDYBDY:AGEAGEDAYS(BMTH)BDYBMTH1TMTHAGEAGETDY:BMTH122400FIN12:TMTHBMTHFINTMTH1 JMTH2100'BMTHTMTHAGEAGE1:2100:BDYTDY2100H AGEAGE1X4AGEAGE365c>LEAP0HST(BYR4)4:STBYRSTST4MSTTYR2160RJSTTYR4\J1900LEAPLEAP1fpSTBYR2200zBMTH2LEAPLEAP1BDY29BMT:PLPL1%"YR((DT$,(DT$)PL1))=,YR1500YRYR1900C6I:\ DECODE MONTHb :p A(MTH$)|J112(MTH$(J),A)MTH$MTHJ:J12:&0"NO MONTH FOUND":: COMPUTE AGE IN DAYS:AGETYRBYRBMTHTPL:ST(DT$)1290AYR((DT$,ST,PLST)):YR1500YRYR1900G(M:d SLASH SEPARATORSj:sPL1(DT$,PL,1)"/"PLPL1:1520MTH((DT$,1,PL1)):PLPL1STPL(DT$,PL,1)"/"PLPL1:1550DY((DT$,ST,PLST))$(DT$,1,PL1):1800STPLT(DT$,PL,1)"0"(DT$,PL,1)"9"PLPL1:1250~STPLPLPL1:STPL:ST(DT$)1250DY((DT$,ST,PLST)):DY31ĺ(4)"RUN"STPL (DT$,PL,1)"0"(DT$,PL,1)"9"PLPL1:1290STPLPLPL1:STSTPL:`(DT$,PL,1)"0"(DT$,PL,1)"9"PLPL1:1120djSTPLPLPL1:STPL:ST(DT$)1120~tYR((DT$,ST,PLST))yYR1500YRYR1900~: MONTH FIRST:PL1(DT$,PL,1)"A"(DT$,PL,1)"Z"PLPL1:1220MTHp L L L L d$?a 0LJLMLPLSLVLYL\L_````IIIIIIIIIMMMMMMMMMVVVVVVVVVVVVVVVVllllllllllllllVVVVVVVVVVVVVVVVIIIIIIIIIIIIIIIIII````````````````````````ttttttt````````````````IIIIIIIIIMMMMMMMMMVVVVVVVVVVVVVVVVllllllllllllllVVVVVVVVVVVVVVVVIIIIIIIIIIIIIIIIII`````````````````````````󐐐ttttttt````````````````````````````````````````````````````````````````````````````````````````IIIIIIIII````````````````tttttttlllllll````````````````````````````````lllllllllllllltttt`````````VVVVVV`````tttttttttttttttt`````````VVVVVV`````ttttttttttttllllllllllllllVVVVVVVVVVVV````````tttttttt`````````VVVVVV`````tttttttttttt «{_:M    "'19FWn^^^^^^^^^]]]__________baaaaaaaaddccccccdffffefeehhghhghgjjiiijjkkkklkkmmmnmmmpopoooqrrrrrststttuuuvvuwwwwwwyyyyy|{{{{}}~~~!!!!!!!!!!!!!!!!!$$$$$$$$$$$$$$$$&&%%%%%%%%%%%%&(((((((((((((()))))))))))))++,+++,,+,++......-----00////0/00222212111333333345555555787877:999:<;<<>=>@?B!.?G:67/--"$#()%#ABC896# +12:@=>?7455,-()*  !!778:650,'#'(&(#((9:8:898.4254/,*-),*'.##%( ";:;>;7622.,'"(."%.588 &,8AKUYZZUNC0%$*3nBvC?5465:7 !%)+/379=AEIKOQUY[_cgkoquy     \(h:"AT BIRTH THE THREE CYCLES COINCIDE. "(ZP)"THIS CONDITION IS NOT REPEATED UNTIL 58"(i"YEARS HAVE ELAPSED. THE CYCLES ARE "(ZP)"CONSTANTLY OUT OF PHASE WITH EACH OTHER."::PZĄ"CONTINUE";YN$: )j"THREE PRIMARY STATES OCCUR FOR EACH "(ZP:"BECAUSE THESE CYCLES ALWAYS RECUR, THE "(ZP)"POSITION OF EACH CHARACTERISTIC AT A"'f"FUTURE POINT IN TIME CAN BE FORECAST. "(ZP)"GENERALLY, THE EMOTIONAL AND PHYSICAL"(g"CYCLES ARE MORE SIGNIFICANT IN TERMS "(ZP)"OF EFFECT ON THE INDIVIDUAL."E";YN$:^&b:5)"THE THIRD CYCLE IS CALLED THE "(ZP)ZR)"'INTELLECTUAL' CYCLE WHICH LASTS"&c5)"FOR 33 DAYS. THIS CYCLE RELATES "(ZP)ZR)"TO A PERSON'S LEARNING, DECISION"&d5)"MAKING, PERCEPTION, AND OTHER "(ZP)ZR)"MENTAL QUALITIES."V'e FEELING OF PHYSICAL":%_5)"CONFIDENCE AND WELL BEING."%`:5)"THE 'EMOTIONAL' CYCLE IS 28 DAYS "(ZP)ZR)"IN LENGTH AND RELATES TO A PERSON'S"&a5)"SENSITIVITY, REACTION TO STRESS, "(ZP)ZR)"EMOTIONAL STABILITY, AND ATTITUDE.":PZĺ:"CONTINUELATED TO OCCURRENCE OF"_$\"DISEASE. SCIENTISTS HAVE DETERMINED "(ZP)"THREE BASIC CYCLES:"$]:5)"THE 'PHYSICAL' CYCLE IS 23 DAYS "(ZP)ZR)"LONG. IT RELATES TO A PERSON'S EN-"%^5)"DURANCE, STRENGTH, STAMINA, ENERGY,"(ZP)ZR)"RESISTANCE, ANDMENTAL, AND EMOTIONAL"n#Y"FLUCTUATIONS! PAST OBSERVATIONS HAVE "(ZP)"SHOWN BIOCHEMICAL AND PHYSIOLOGICAL"#Z"FUNCTIONS FLUCTUATED BASED ON THE TIME "(ZP)"OF DAY, MONTH, YEAR OR SEASON. IN"$["1897, PHYSICIANS OBSERVED 'NATURAL "(ZP)"CYCLES' R3$I4$ ""V4V3I4$I3$%"+"S:C"T PRINT EXPLANATIONI"U:]"VPZ0:ZP13:ZR4"W:"DO YOU WANT IT ON THE PRINTER? ";YN$:(YN$,1)"Y"PZ1:(4)"PR#1":(17):ZP0:ZR0#X::"BIORHYTHM THEORY OFFERS AN EXPLANATION "(ZP)"OF PHYSICAL, ""!![P$(DP):Q$(MP):R$(YP)I!]3(P$))P$;:6(Q$))Q$;:8)R$;z!`13)V1)I1$;:D2)I2$;:D3)I3$;:D4)I4$:!:! REDUCE COMMON VALUES!V1V2I1$I2$!!V1V2I2$I1$!V2V3I2$I3$!!V3V2I3$I2$"V3V4II3$I2$:V250:I2$"!":6320:6180V (50V3)V4V3:I4$I3$:V350:I3$"!":6340:6180n V450:I4$"!":6360t :  COMPUTE SPACING : $D2V2V11 .D3V3V21 8D4V4V31 BD21D20:I2$"" LD31D30:I3$""!VD41D40:I4$(PC(I)V1)V3V2:I3$I2$:V2V1:I2$I1$:V1PC(I):I1$CPC$:6140w(PC(I)V2)V3V2:I3$I2$:V2PC(I):I2$CPC$:6140V3PC(I):I3$CPC$(50V1)V4V3:I4$I3$:V3V2:I3$I2$:V2V1:I2$I1$:V150:I1$"!":6300:6180! (50V2)V4V3:I4$I3$:V3V2:TIME":"[6] EXIT PROGRAM"^:::"SELECT ONE OF THE ABOVE :";:YN$:::YN$"1"YN$"7"1985p:YN(YN$)::v:: ERROR ROUTINES:ER(222):EL(218)(219)256:ER5EL1845ĺ:EF1:W2$;0:0:C2$:1870;ER5EL1870ĺ:EF1:W$;0:0:'''"-92:A$"MUSIC RETRIEVAL SYSTEM":2090K9A$"BY RUDY A. GUY":2090|9A$"(C) 1980 BY MINDCRAFT PUBL. CORP.":2090998:"[1] ADD ALBUM":"[2] SEARCH, CHANGE, OR DELETE":"[3] LIST ENTRIES":"[4] SORT ENTRIES":"[5] COMPUTE RECORDING T$(I),MI(I),SE(I)::C2$ 8:18 TITLE PAGE9::"''''''''''''''''''''''''''''''''''''''''' '' '' '''''''''''''''''''''''''''''''''''''' ENTRY THAT YOU WANT ?";:YN$::YN$"Y"1935\7:12:"SEARCHING...":34,13:O1$:R1$;I:7ME$(RE$,1):LE$(RE$,2,4):S((RE$,6,2)):AL$(RE$,8,40):AR$(RE$,48,30):LN((RE$,(RE$)77))7FILN:ALI:TT(LE$)8O2$:R2$;LN:AR$:S:I1S:S AR$,AL$,LE$46XI140:AL$AL$" ":(AL$)40I40<6]:d6bI130:AR$AR$" ":(AR$)30I30l6g:~6lI14(LE$)6qLE$"0"LE$6v:6{C1$:6:10:"ALBUM NAME:":(RE$,8,40):"ARTIST NAME:":(RE$,48,30)-7(37)2:"IS THIS THE3:O2$:R2$;I:1765 534,23:65O$:R$;I:AL:C$?5!FIIZ5&O1$:R1$;AL:RE$:C1$f5+1935:50 CHECK FOR NEXT RECORD NUMBER55O2$:R2$;0::AR:AR018655:I1AR25?AR(I)5D5IC2$:AR0ı5NO$:R$;0:NU:C$: 6S LENGTHENPZĺ(19):(4)"PR#0"20%PZĺ:"CONTINUE";YN$80'>0*Z0' 5: NUMBER OF NAMESr0' "STEVE","3/13/43"0$' "PAT","3/20/36"0.' "SUSAN","11/20/69"08' "JERRY","8/4/62"0B' "FRANK","12/22/61"E1* "JANUARY","FEBRUARY","MARCH","APRIL","MA. CRITICAL DAYS IN THE EMOTIONAL "(ZP)"AND PHYSICAL CYCLES TEND TO BE MORE"/"PRONOUNCED THAN THE CRITICAL DAYS IN "(ZP)"THE INTELLECTUAL CYCLE. BIORHYTHM"/"CHARTS PROMOTE UNDERSTANDING OF THE "(ZP)"BEHAVIOR OF OTHERS AS WELL AS ONESELF."0 ALL ACCI-"b.|"DENTS CAUSED BY HUMAN ERROR OCCUR WHEN "(ZP)"THE PERSON CAUSING THE ACCIDENT IS".}"HAVING A CRITICAL DAY.".~:PZĄ"CONTINUE";YN$:."ON CRITICAL DAYS ONE SHOULD TRY TO "(ZP)"AVOID DIFFICULT SITUATIONS AND TAKE IT"M/"EASYIT IS DURING THESE CRITICAL DAYS THAT "(ZP)"ONE'S ABILITIES TO COPE WITH DIFFICULT"-z"SITUATIONS ARE STRAINED. THE CRITICAL "(ZP)"DAYS ARE REFERRED TO AS PERIODS OF IN-" .{"STABILITY. IT HAS BEEN STATISTICALLY "(ZP)"DEMONSTRATED THAT 70-90% OF E THIRD AND MOST IMPORTANT ELEMENT "(ZP)"OF THE CYCLE LASTS FOR ONLY ONE DAY.",w"THIS IS CALLED THE 'CRITICAL' DAY. "(ZP)"IT OCCURS WHEN THE CURVE CROSSES THE",x"CENTERLINE FROM POSITIVE-TO-NEGATIVE "(ZP)"OR FROM NEGATIVE-TO-POSITIVE."T-y:"TICS OCCURRING "(ZP)"DURING THIS PHASE OF THE CYCLE REPRE-"+s"SENT PERIODS WHEN ONE IS NOT AT ONE'S "(ZP)"PEAK RELATIVE TO EITHER THE EMOTIONAL,"+t"PHYSICAL, OR INTELLECTUAL ABILITIES.":PZĄ"CONTINUE";YN$:+u:"**CRITICAL DAYS**":O,v"THZP)"DAYS EMOTIONALLY, PHYSICALLY, OR INTEL-"v*o"LECTUALLY DEPENDING UPON WHICH CURVES "(ZP)"ARE ABOVE CENTERLINE."*p:"**NEGATIVE STATE":*q"WHEN THE CURVES FALL BENEATH THE "(ZP)"CENTERLINE, THEY ARE IN THE NEGATIVE"<+r"STATE. CHARACTERIS)"CURVE:"')k:"**POSITIVE STATE**":)l"WHEN A CURVE IS ABOVE THE CENTERLINE, "(ZP)"IT IS IN THE POSITIVE STATE. DURING")m"THIS PHASE OF THE CYCLE A RELATIVE "(ZP)"STRENGTH OF THE CHARACTERISTIC IS",*n"INDICATED. THIS REPRESENTS 'GOOD' "(宍묍󺍍Ӡ򩍪ΠŮύ뮍묍欠ɠ묠ҍҠĠҍΠҮӍŠҍΠŮҍŠҍΠŮԍԠٍΠԮٍŠōΠŮōŠ֠ōΠŮ֮ōà̠͍ΠŮͮҮӮӍŠɠӍĠҍҠĠҍŠҍŠҍԠٍŠōϠōŠ֠ōŠà̠͍ӍĠҠύΠĮύĠҍΠ        ETRIEVAL SYSTEM"/= :"DONE":I13000::45G=% CENTERING ROUTINE]=*20(A$)2:A$:}=/ ALBUM,8-TRACK,CASSETTE,CD=/ ALBUM,8-TRACK,CASSETTE,CDTROM DRIVE AND REPLACE IT WITH A FRESH, UNINITIALIZED DISK."< ::"TYPE TO INITIALIZE THE NEW DISK. (ANYTHING ELSE TO QUIT) ";YN$<YN$"INIT"ė:<:12:"INITIALIZING NEW DISK. DO NOT INTERRUPT!"=(4);"INIT MUSIC RC$:125n;ER5EL995EL1515EL1160ĺ:C$:::211:((37)1):" NO RECORDS IN FILE.":I12000:::110};ER92055;ER25545;::"ERROR TYPE = ";ER:"LINE NUMBER = ";EL;=<::8:"SORRY! THIS DISK IS FULL. PLEASE REMOVE DISK FY","JUNE","JULY","AUGUST","SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER"o1+ 31,28,31,30,31,30,31,31,30,31,30,31 E30,31,30,31,31,30,31,30,31 X217260 X206Ā$ 720MFET(X30):G2ET(X45):E3:FQL:RQHQ:MEASURES 32-33X END OF BACH'S INVENTIO VIII23:868:"DO YOU WANT TO HEAR IT AGAIN? (Y/N)"23:37::" ";:CT5ST255:RW:37::" ":(16384)128įGT4:RW:(16384)128720X(16384):16368,0lG3:B!4:A:B!:G3:B!4:A:B!:G3:B!4:A:B!:EE3S:C:G:E:B!4:G3:MEASURES 28-29CS4L:D:C:B!:A:B!:A:G3:F:G:F:E!:DES:GSL:F:E:F:E:D:C:D:C:B!:MEASURES 30-315A:B!:A:G2:FE:FS3:E:FES:A:B!:FET(X10):AET(X20):뺍ŮͮҮӮӬ뺍Ӎɠ뮍Š֍Ŭ뺍Ů֮ō٬뺍ԮٍŠŬ뺍ŮōύŬōүҠ嬠뺍ŮҍŮԍōŮ͍Ů΍ŮԍŮӮɮԍύĮҍӍĮϬҮҠčҬ뺍ҮӍŠčҬ뺍ҍĮҠӠ멍Ӎ덪퍍ō䮠Š֍Ŭ砍뺍Ů֮ōӬ堍뺍Ůύ뺍ҮӍ庠ҮӠӠ嬠ӍĮ堍뺍ԮٍŠŬ堍뺍ŮōύŬ砍堯Ҡ嬠堍᠍뺍ŮҍŮԍōŮ͍Ů΍ŮԍŮŮύŮӮɮӮˍԠ٬ӮϮӮҠĠҬ砍뺍ҮӍōĮϬҮӬ뺍ӍӮύӮӍčҬ堍뺍ҍĮύĮҍӍӍ덪퍍ō䮠Š묍󺍍Ӡ򩍪ҠӠ멍뮍묍欠묍宍΍ΠӮύҠĠҍΠҮӍŠҍΠŮҍŠҍΠŮԍԠٍΠԮٍŠōΠŮōŠ֠ōΠŮ֮ōӍΠŮύdCEK XT LINE HAS 36 DASHES}23:1:"------------------------------------":24:" = CHORD";:25:" = MENU...";:A$A$(27)340A$(13)960180:22:C17103018:R$(C1);CH$(A)::1060A3105016:R$(H10:"3) SEVENTH CHORDS"4R12:"4) ALL CHORDS"Q\16:20:"WHICH...";:A$hfA$"1"A$"4"860xpB(A$):ABz90B4920A((1)3)1:C1((1)12)1:930C1112100:22:"PLEASE PLAY---> ";R$(C1);CH$(A) NE18,21,24,27,18,18,6,6,6,6,6,6,8,18,24,12,15,18,21,24,27,36,36,24,24,24,24,24,24 4,18,21,24,27,6,18,12,18,8,15,21,12,15,18,21,24,27,24,18,12,12,12,12,12,12*:3:"PLEASE CHOOSE (FOR SELF-TEST):"46:"1) MAJOR CHORDS">8:"2) MINOR CHORDS" 2,18,24,12,12,8,18,24,12,15,18,21,24,27,24,24,12,12,12,12,12,12,4,15,18,21,24,18,12,18,6,3,21,24,27,12,6,12,2,15,21,12,6,8,15,21,12,15,18,21,24,27,18,12,6,6,6,6,6,6,3,12,15,27,18,12,6O 8,15,21,12,15,18,21,24,27,36,30,24,24,24,24,24,24,8,18,24,12,15,8,18,18,18,18,8,15,18,12,15,18,21,24,27,36,36,24,24,24,24,24,24,9,18,21,24,12,15,18,21,24,27,18,18,12,6,6,6,6,6,6 9,18,21,24,12,15,18,21,24,27,36,36,30,24,24,24,24,24,24,4,18,21,24,27,24,18,24,12,8,15,18,12,15,18,21,24,27,24,24,12,12,12,12,12,12  3,18,21,24,12,12,6,9,18,21,24,12,15,18,21,24,27,24,24,18,12,12,12,12,12,12,9,18,21,24,12,15,18,21,24,27,30,30,24,18,18,18,18,18,18,3,21,24,27,12,18,6,2,15,18,12,12q 8,15,18,12,15,18,21,24,27,18,18,6,6,6,6,6,6,8,15,18,12,15,18,21,24,27,30,30,18,19,18,21,15,12,15,18,21,24,27,36,30,36,24,24,24,24,24,24,9,18,21,24,12,15,18,21,24,27,18,18,18,6,6,6,6,6,6,9,18,21,24,12,15,18,21,24,27,36,36,36,24,24,24,24,24,24 5,18,21,24,24,27,30,18,18,24,18,9,15,18,21,12,15,18,21,24,27,24,24,18,12,12,12,12,12,12:A$A$(27)340)A$(13)680A0:190:100::520 3,18,21,24,12,12,12,9,27,24,21,18,15,12,24,21,18,12,12,12,12,12,12,24,24,24,3,24,18,15,6,12,18,3,27,24,21,12,18,12,3,15,18,21,12,12,6,4,27,24,21,18,6,6,12,18,3,12,15,27,18,12,18 $DW$(27)340%NW$(13)630=XW$(8)SS3:550VbW$(21)SS3:560_l550ov:C1(S3)x180:C1767022:19:R$(C1);CH$(A):68022:16:R$(C1);CH$(A):24:1:" = CONTINUE";:25:" = MENU..."; :90 X4A 21:"CHOOSE FROM THESE";CH$(A);" CHORDS:"p 21:"CHOOSE FROM THESE";CH$(A);" CHORDS:" 22:4:"A B C D E F G A- B- D- E- G-" 24:"USE <-- & --> THEN //=MENU"; &S4S37 0S37S4:22:S:WVIEW:" 6:10:"(1) MAJOR"6 8:10:"(2) MINOR"Q 10:10:"(3) SEVENTH"} 15:3:"OR: PRESS 'T' FOR A SELF-TEST" 17:7:"PRESS 'Q' TO QUIT" 20:20:"CHOOSE ONE...";:A$ A$"T"810 A$"Q"Ā A$"1"A$"3"440 A(A$) FLAT I112:R$(I):% "J131 ,K112= 6C(J,K)] @L1C(J,K)2:CD(J,K,L):Lf JK,Jn T: ^I112:I:3:"*":I:31:"*": hI430:1:I:"*":12:I:"*": r3:5:"THE FOLLOWING CHORD TYPES" |4:5:"ARE AVAILABLE FOR RE::"* COPYRIGHT 1986 MINDCRAFT PUBL. CORP. *":21:8:"PRESS TO CONTINUE";:Z$:::7:7:"READING CHORD DATA" R$(12),CD(3,12,19),C(3,12) CH$(1)" MAJOR":CH$(2)" MINOR":CH$(3)" SEVENTH"  A,B,C,D,E,F,G,A FLAT,B FLAT,D FLAT,E FLAT,GBLANK GRID d5 nX2386, x13,28X3 XB Y13283N 2,38YU Y[ p 15:DRAW CHORDS I1C(A,C1) J02 CD(A,C1,I)J,CD(A,C1,IC(A,C1))1 J,I x :7:11:"GUITAR CHORD TUTOR"::12:"BY MICHAEL BAKICH"" ***************************C* GUITAR.CHORDS *d* BY M.E. BAKICH *(* COPYRIGHT (C) 1986 *2* BY MINDCRAFT PUBL. CORP.*<* CONCORD, MA 01742 *F***************************P240 Z::DRAW FER1:XC2:1940GX(B$,4,2)"01"XCXC5:XC219FER1:XC217:1940~b(B$,4,2)"10"YCYC5:YC159FER1:YC157:1940lAAAA1:1740vAAAD1940(B$,3,3)"000"AAAA1:V2:1940V1:  ***** EDIT VECTOR FILES -PLOTTR1:XC217:1940G(B$,7,2)"10"YCYC5:YC159FER1:YC157:1940W&OXXC:OYYCq0(B$,3,3)"000"1900:(B$,3,1)"1"Ē0:1200:232,L1:233,H1:3:SHXC,YCD(B$,4,2)"00"YCYC5:YC0FER1:YC2:1940N(B$,4,2)"11"XCXC5:XC0  -CONVERT TO BINARY STRING-*1500:OXXC:OYYCs(B$,6,1)"1"Ē0:1200:232,L1:233,H1:3:SHXC,YC(B$,7,2)"00"YCYC5:YC0FER1:YC2:1940(B$,7,2)"11"XCXC5:XC0FER1:XC2:1940(B$,7,2)"01"XCXC5:XC219FEBT4)BTBT4:B$B$"1":1650+hB$B$"0"Pr(BT2)BTBT2:B$B$"1":1670^|B$B$"0"vBTB$B$"1":1690B$B$"0": ****** DRAW LARGE SHAPE ****************:AAAD:0:1:XCXS:YCYS:FER0BT(AA):BT01910TBT128:B$B$"1":1550&B$B$"0"M(BT64)BTBT64:B$B$"1":1570[B$B$"0""(BT32)BTBT32:B$B$"1":1590,B$B$"0"6(BT16)BTBT16:B$B$"1":1610@B$B$"0"J(BT8)BTBT8:B$B$"1":1630TB$B$"0"^(YCYC5:YC0YC22dZ$"J"XCXC5:XC0XC2UnZ$"K"XCXC5:XC219XC217xxZ$"M"YCYC5:YC159YC157Z$" "ıZ$"?"LOC2:80001000:1360: **** CONVERT BYTE TO BINARY STRING *****:B$"":(BT128)B :: ****** POSTION CURSOR ******************@(:222:" ":39 SPACES IN QUOTES<"POSITION CURSOR WHERE PLOTTING SHOULD "F"BEGIN, THEN PRESS THE SPACE BAR ";PZ$:1000ZZ$"I"* DRAW/ERASE SMALL SHAPES *********)`:=j(2561)01170Wt232,L2:233,H2:0:1u~1233(XS5),40(YS5)16:1266(YS5),90(XS5): ****** DRAW/ERASE BLOCK ****************:232,L1:233,H1:0:12OX,OYW$)LMT740 Z$","7402 Z$;:W$W$Z$:740C (W$)0740[ *(8);:" ";:(8);l 4(W$)1730 >W$(W$,(W$)1):740 :  ****** DRAW/ERASE CURSOR *************** : 232,L1:233,H1:0:1 1XC,YC  L:#V ***** :Z$ DZ$"E"2000) NZ$"B"6000: XZ$"V"7000R bZ$"?"LOC1:8000 lZ$(27)ė:103,1:104,8:105,24:106,8: v570 :  ****** MULTI-LETTER INPUT ************** : W$"" Z$ Z$(13)ı Z$(8)800 (7);"**************************"' 10J 9);"E - EDIT VECTOR FILES":m 9);"B - BUILD SHAPE TABLE": 9);"V - VIEW SHAPE TABLE": 9);"? - FOR INSTRUCTIONS": 9);" TO QUIT PROGRAM" &24 09);"WHICH WOULD YOU LIKE? "; *":430 :=  ******* MAIN MENU **********************E :L 3r 7);"**************************" 7);"* *" 7);"* NIBBLE ILLUSTRATOR *" 7);"* *":24 SPACES IN QUOTES 4)64230% 103,1:104,64:16384,0C (4);"RUN NIBBLE.ILLUST"r ***** INITIALIZATION *******************x : D$(4):: L10:H13:L2253:H29 D$;"BLOAD ITABLE,A$300" "L(255) ::22:"* COPYRIGHT 1983 MINDCRAFT PUBL. CORP.JF$ *************************G * NIBBLE ILLUSTRATOR *j * BY COLIN FRENCH * * COPYRIGHT (C) 1983 * * MINDCRAFT PUBL. CORP. * * CONCORD, MA 01742 * ************************* (10! ! ! ! ! !!!!!!!!!                                1:YC191YC06xK$(9)YCYCFAST:YC0YCYC191_K$(10)XCXCFAST:XC0XCXC279K$(11)XCXCFAST:XC279XCXC279K$(13)YCYCFAST:YC191YCYC191YNYCXNXCī10001:23:370XC((0)1.095)D15:D!( -ADD FUNCTION BRANCH HERE-B2 -ADD FUNCTION BRANCH HERE-Z< -MOVING OF SHAPE-jAYNYC:XNXCzFACT11450KXNXC:YNYCPK$"I"YCYC1:YC0YC191ZK$"J"XCXC1:XC0XC279dK$"K"XCXC1:XC279XC0nK$"M"YCYCK$"F"2400 K$"T"25001K$"A"2700JK$(20)LOC2:400[K$"P"2800lK$"G"3000}K$"V"3200K$(5)ē0,0:62454:1000 K$(27)ĉ::103,1:104,8:105,24:106,8:K$(4)3400K$"?"İ5000:16304,0:340eK$"O"ľK$:1120'jK$"R"2100:tK$(18)2150K~K$"S"2200^K$(19)2250oK$"N"2300K$(14)2350K$"D"ĔNNXC,YC:1000K$"X"X(8192):IX%(X128):XX(128IX%):X%(X42):XX%(4IX%):X:NNXC,YC:CC:1000*:NNXC,YC0 -CHECK FOR KEYPRESS-JK(16384):16368,0X$NNXC,YCo.K128K$"":13408K$(K128)B -BRANCH TO FUNCTIONS-L(K$)("0")(K$)("9")1900VNUM$""NUM$"":22:37:" ";:37:NN`K$"C"2000" ";:(8);*(W$)173074W$(W$,(W$)1):740=:k ******* UNUSUAL DISK ERRORS ***********q:"A SYSTEM ERROR #";(222);" HAS OCCURRED""LINE #";(218)(219)256216,0:: *********** MAIN LOOP **************** -GET NUMBER OF SHAPES IN TABLE-3SNUM(2049)CLOC1ī300L340R: ******* MULTI-LETTER INPUT ROUTINE ****:W$""Z$Z$(13)ıZ$(8)790(W$)LMT740 Z$;:W$W$Z$:740(W$)0740  (8);:RETURN>) ";:Z$:400D900(N630RX22::D$;"BLOAD TABLE.PROGRAM,A$801"kb -RESET ERROR FLAG-{l216,0:660v216,0::22(222)6ĺ"TABLE.PROGRAM ISN'T ON THIS DISK.":"INSERT CORRECT DISK. (PUSH ) ";:Z$:400900"$;"BLOAD TABLE.";W$;",A$801"5 -RESET ERROR FLAG-L216,0:UN$W$:660]&216,0::220(222)11ĺ"THAT IS NOT A LEGAL FILE NAME.":"TRY AGAIN. (PUSH ) ";:Z$:400:(222)6ĺ"THAT TABLE IS NOT ON THIS DISK.":"TRY AGAIN. (PUSH <* : TABLE0:NN19 SCREEN1SCREEN0:16301,0Z :24:" (DEFAULT= TABLE.";q UN$""ĺUN$;")"; UN$""ĺT$(1);")"; 1:22:"YOUR TABLE'S NAME? TABLE."; LMT22:700:W$""W$UN$ W$""TABLE1:590 55022::D"COLOR : ";C$(CC);" NUMBER OF SHAPE : ";:37:NN{ r"ACTION: ";A$(ACT);" ROTATION: X: ";:29:RR;:37:XC |"TABLE : ";T$(TABLE);" SCALE : Y: ";:29:SS;:37:YC; 1000 :  ******* GET NAME OF USER'S TABLE *****T SHAPE TABLE ADDRESS-( 232,1:233,8E  -DISPLAY INTRODUCTION-O 4000n  -GET SHAPE TABLE'S NAME-} "LOC1:400 ,: 6 ******* INITIALIZE SCREEN ************* @: J T:21 ^:" ** NIBBLE DESIGNER ** ? -INSTRUCTIONS ";:7 h "& C$(6)"VIOLET ":C$(7)"WHITE 2"L A$(0)"KEYBOARD":A$(1)"PADDLES " T$(0)"USER'S ":T$(1)"PROGRAM":T$(2)"NONE " D$(4):XC140:YC90 TABLE0:SCREEN0:ACT0 CC3:CC:RR0:RR SS1:SS:NN1 FAST8:UN$"":NUM$"" -SE4)64120% Z103,1:104,64:16384,0E d(4);"RUN NIBBLE.DESIGNER"s n ******* INITIALIZE VARIABLES ********** xD$(4):: C$(7),A$(1),T$(2) C$(0)"BLACK 1":C$(1)"GREEN ":C$(2)"BLUE " C$(3)"WHITE 1":C$(4)"BLACK 2":C$(5)"ORANGEs'$ *************************G * NIBBLE DESIGNER *j * BY COLIN FRENCH * * COPYRIGHT (C) 83-89 * *BY MINDCRAFT PUBL.CORP.* * CONCORD, MA 01742 * ************************* P(10"" " " " " """""""""