KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK  I024:542721,0:W54278,249:54285,249:54292,249: SUS/REL FOR ALL OSC'Sv54272,37:54273,17: OSC154279,229:54280,22: OSC2(54286,214:54287,28: OSC3254276,17:54283,17:54290,17: TRIANGLE WAVE FOR ALL OSC'S0 <54 UTILITIES I 00 2A 64SET APPOINTMENT AUTO1 BALL CAL2 CALENDAR CHORD-P108 CIRCLES COMM-64 COPYFILE DATE GRAPH DISK NAMER DOODLE DOS GRAPH LABEL LIFESAVER MERGER MICROMON-64 MLX.1 MOIRE PATTERN NUM KEYPAD ONE-TOUCH PROOFREADER SHAMROCKS SLIST64 SPEEDxظxh hhhhhhhhhxxxh8XhhhX8xxxxxxxxxhxHhhhhhhhh؈hhhhX8Xhhxxxxxxhhhhhh(((HHhhhhhhhhxxxhhhhhhhhhhxhhhhhhhhhhhhhhhhhhhhhhhhظxx8xxxxx8K ظxhH((hhhhhhhhhxxxh8XhhhX8xxxxxxxxxhxHhhhhhhhh؈hhhhX8Xhhxxxxxxhhhhhh(((HHhhhhhhhhxxxhhhhhhhhhhxhhhhhhhhhhhhhhhhhhhhhhhhظxx8xxxxx8K ` H((hhhhhhhhhxxxh8XhhhX8xxxxxxxxxhxHhhhhhhhh؈hhhhX8Xhhxxxxxxhhhhhh(((HHhhhhhhhhxxxhhhhhhhhhhxhhhhhhhhhhhhhhhhhhhhhhhhظxx8xxxxx8KKK277,17:54284,17:54291,17: ATT/DEC FOR ALL OSC'SN F54296,15: MASTER VOL ONn KT1500:: CHORD DURATION P54276,16:54283,16:54290,16 ZT1450:: REL. DURATION _54296,0: TURN OFF VOL `JSCRIPT SPREADSHEET STAR SUPERBASIC TEST TYPE 64 UF UNNEW YEARLY CALENDAR YPAD CHORD-P108  DIRECTORY KK ظhhؘh8hxhظhX8Xhh8x8xxx88Ș8hh8ظxhHh(h؈hظxhhXXXxxhxxhhhhhhhh8ظxK ظhhؘh8hxhظhX8Xhh8x8xxx88Ș8hh8ظxhHh(h؈hظxhhXXXxxhxxhhhhhhhh8ظxxKKKK TAX ERROR IN LINE"L"HIT ANY KEY TO CONTINUE ";:10000! Dp(C$,22)S$:S$:S$:(C$,22);JzX@6000:L;sJI35:9000:I$""8000TX1(I$):(I$,X,1)" "^PC$(L)(I$,X1):PC%(L)0hX$(I$,X1):X13:X$R$(X)PC%(L)X TR20TRCRTC(TC$):TC1TC9TCCCVWK(TR,TC)1OP$"+"TTVDOP$"-"TTVWOP$"/"TTVjOP$"*"TTVX(X$)OP$(X$,X,1):5520WK(CR,CC)T&RR1CR0RC1CC:RR0:RC0:LD"";:CR120:RN$(  DOODLE!(1)551,54O900:DSPR1,13,0,0,16016,10044,0,0:140 BANK0:CB2K4:BMGR1:FBMS0:FSCR1:BSPP1,1E1:X160:Y100:C1:Q1100:(203)60130(203)4EE:E0DSPR1,13,0,0,0,0,0,0 E0DSPR1,13,0,0,X S$CN$(X),CW(X));":,X120:""(RN$(X),6):;JL1100:PC%(L)35700OTPC%(L)15690^X$(PC$(L),2):AC((X$,1)):AC1AC9AC0hAR(X$)64:AR1AR20AR0rCCAC:AC0RC1:CC19wCRAR:AR0RR1:CR120|(PC 1100::C0KSPR1:53288,0G iE0ESPR1:MOVE1,X16,Y44:CLPXX,Y:30] nC0PLOTX,Y:30 xC0ESPR1:MOVE1,X16,Y44:30 BANK0:BMGR0:CB2K2:198,0:"":KSPR1: "DOODLE 64" "USE JOYSTICK IN PORT 2" "BUTTON TURNS INK O RC05400)X19:RN$(X)"":CN$(X)"":CW(X)0:CP(X)0:BX1020:RN$(X)"":cRC0:L1100:PC%(L)35310wPC%(L)25300X$(PC$(L),1):N$(PC$(L),2,1)X$"C"5100X$"R"52005900X4(PC$(L)):(PC$(L),X,1) Y:Y0 X,Y:XX1:910F 1,192,0,1,192,0,1,192,0,1,192,0,1,192,0t 0,128,0,126,63,0,0,128,0,1,192,0,1,192,0 1,192,0,1,192,0,1,192,0,0,0,0,0,0,0 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 0,0,0,-1K IN PORT 2" "BUTTON TURNS INK O  FALLING SHAMROCKST"HIT ANY KEY TO STOP PROGRAM ************"dX11500:EXTC13:CB2K4:BMGR1:FSCR5:FBMS171 X832:V53265:R128A:A035X,A:XX1:20#J07(DSPRJ,13,1,1,0,0,0,5J :, 2J12o55,126,24,126,60,24,60,24,24,24,0,24,0,0,24,0,0,0,0,0,0,0,0,0,0,-1g ,CB2K2:BMGR0:J07:KSPRJ::"":13:CB2K4:BMGR1:FSCR5:FBMS171 X832:V53265:R128A:A035X,A:XX1:20#J07(DSPRJ,13,1,1,0,0,0,5J :, 2J12 p`𐐐````𐐐p p0`𐐐а````0```@@@@@@```````` @p@@p00`````` @ r:#I3:9000 #(I$)1(I$)100I$""##'#I37(#I$"":204,0:205,20K2#X$:X$""9010b<#C(X$):C209060zA#C13204,1:" ":F#(C31C95)(C192C219)9040K#9010P#(I$)I9010Z#X$;:I$I$X$:9010d#I$" CR)""5795NCC19:CP(CC)8);XX$((WK(CR,CC)),2)7b(X$)CW(CC)5790^lX1(X$):(X$,X,1)".":5790ovN$(X$,X1)(N$)CW(CC)N$N$(X$,X,CW(CC)(N$))X$N$(S$X$,CW(CC));:CC:CR 6000:"SYN 16,Y44,0,12:CLPXX,Y, #JV(56320):FRJV16> (JV15(JV15)Q 2JV0FR1630v <JV1JV5JV9YY1:Y0Y199 FJV2JV6JV10YY1:Y199Y0 PJV4JV6XX1:X0X319 ZJV8JV10XX1:X319X0 dFR0JV0CC:E1:Q $(L),3,1)"="5900X$(PC$(L),4):OP$"+":S1:T0ZXS(X$):N$(X$,X,1):N$"+"N$"-"N$"/"N$"*"5550aXzN$(X$,S,XS):SX1N$"0"(N$)0V(N$):5610(N$)25900TR$(N$,1):TC$(N$,1)TR(TR$)64:TR1 N/OFF"" "F1 TURNS ERASE MODE ON/OFF"> "HIT ANY KEY TO START"Y "HIT SPACE TO STOP" "THE BLACK + IS YOUR CURSOR WHENINK=OFF" "THE GREY + IS YOUR CURSOR WHEN ERASE=ON":BKGD1:FCOL0 A$:A$""190 A$" " X1364 ",":LN5:5120LN((PC$(L),X1)))N(N$):N05900M CN$(N)(PC$(L),4,X4):CW(N)LNW5300uPN(N$)64:N1N205900ZRN$(N)(PC$(L),4)LCP(1)0:X29:CP(X)CP(X1)CW(X1)(CW(X)0):"";:X19:CP(X)8)(  p`𐐐````𐐐p p0`𐐐а````0```@@@@@@```````` @p@@p00`````` 56:K18:MOVEK1,JKK,JKK::V,R:FSCRJ2@ 7A$:A$""300F 8a <X(8192)1:FBMSX:50 d0,102,0,0,255,0,1,255,128,3,255,192 n3,255,192,25,255,152,60,126,60,126,126,126 x255,60,255,255,255,255,127,255,254,255,255,255,255> 24,2  @@  p```` `0` @p````000```@@@@```` @`А`` p` @``` ``` ````p`````` @@ @  @ @  p```` `0` @p````000```@@@@```` @`А`` p` @``` ``` ````p`````` @@ @  @`d"9010n#X$;:I$(I$,(I$)1):9010'204,0:205,20*'X$:X$""10010<$'204,1:X$;:;JzX@6000:L;sJI35:9000:I$""8000TX1(I$):(I$,X,1)" "^PC$(L)(I$,X1):PC%(L)0hX$(I$,X1):X13:X$R$(X)PC%(L)X 2 "RA=PASSBK 2 "RB=TRSBIL 2 "RC=USBOND 2 "RD=ALSAV 2 "RE=TOTAL 2 "C1=PRNCPL 2 "C2=YIELD,5 2 "C3=NET,6 2 "C4=EARN,6 1 "@3=@1*@2+@1 1 "@4=@1*@2 1 "E@=A@+B@+C@+D@ 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0  COMMODORE SPREADSHEET#^PC%(110),PC$(110),WK(20,9),RN$(20),CN$(9),CW(9),CP(9)~(X0:SL0:LL0:L0:CC0:CR0-R$(1)"DEFINE":R$(2)"NAME":R$(3)"END":PC%(1)32S$" " <C$" " 10000 X$"R"1000 X$"E"""::100@ X$"S"500P X$"L"600a X$"P"1000q X$"C"400z 105 6000:"CHANGE WHICH ROW:";:10000: CR(X$)64:CR1CR20105 "CHANGE WHICH COLUMN:";:10000: CC(X$):CC 1,(13);:1:100? X6000:"LOAD WORKSHEET:";:I10:9000:I$""105_ b1,8,2,I$",S,R":ST0670 lX1100:1,X$,PC$(X):TST:PC%(X)(X$):T0670 vPC%(X)3 CR120:CC19:1,X$:TST:WK(CR,CC)(X$):ST0670 ::1:RC1:100#)t**h++,E*` <*+7,!,),#` ` L(8` T. =. =.d̥ Τӑѩ` T. ( Y T. ( Y`)  @`- `  MICROMON-64 COMPUTE! BOOKS @E@ 0"E3@ @E3@ @E@ "D3ЌD"D3ЌD"D3@ "D3@ bx! $"I"1200.X$"L"1300 8X$"D"14001BX$"C"1500BLX$"S"1600SVX$"R"1700]`10206000:"INSERT BEFORE LINE:";:8990:SL(I$)SL01020"NUMBER OF LINES:";:8990:N(I$):N1100N:N01020 XN1SL1:PC%(XN)P (ƭ ҆'L(8` T. =. =.d̥ Τӑѩ` T. ( Y T. ( Y`)  @`- `  MICROMON-64 COMPUTE! BOOKS @E@ 0"E3@ @E3@ @E@ "D3ЌD"D3ЌD"D3@ "D3@ bx!0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0  (L' +eeL , + S H) (Lh L+x X 1:RC1:100G FL1} "";:XFLFL20:S$:""X;R$(PC%(X))" "PC$(X): 6000 "INSERT LIST DELETE CHANGE SAVE READ" "EXIT" 10000 X$"E"RC1:100 $X NLLSL1:XSL100N:PC%(X)PC%(XN):PC$(X)PC$(XN):21010b6000:"CHANGE LINE NUMBER:";:8990:L(I$)r8000:1010@6000:"SAVE PROGRAM AS:";:I10:9000:I$""1020J1,8,2,I$",S,W":X1100T1,PC%(X)(13)(34)PC$(X)(13);^ C%(X):PC$(XN)PC$(X):&NN1:LSLSLN:8000:01010Y6000:"START AT WHICH LINE:";:8990t((I$)0(I$)8010202FL(I$):1010x6000:"DELETE FROM LINE:";:8990:SL(I$):SL01020"TO LINE:";:8990:LL(I$):LL01020( YMJ,),#($YX$$#]#)i#$S#$S[[i$$)|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDD PC IRQ SR AC XR YR SPABCDFGHLMNQR(TWX,:;$#"+-OIJ%&EV)>)(2$/'!!!&!)#L'&P)+!&*, # $ PC%(X)3h1:1000;6000:"LOAD PROGRAM:";:I10:9000:I$""1020\1,8,2,I$",S,R":ST01750X1100:1,X$,PC$(X):PC%(X)(X$)PC%(X)31:1000"TAPEERROR":"HIT ANY KEY TO CONTINUE ";:100001:1000  - o"N, "L"L /) }*L,ɑх҅^ T.:,$^i(ݍI .LI:$' -8 # .Lp - *Lh- -^8^ - o" ^MM #N, C) "Lh-L" -膭  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 0 " 2000 4000000 0 0 0 0 0 0 0 0 #thE`<ʍ7!̺``L(8` T =Ϊ =΅d̥ Τӑѩ` T Y T Y`)  @` `  MICROMON-64 COMPUTE! BOOKS @E@ 0"E3@ @E3@ @E@ "D3ЌD"D3ЌD"D3@ "D3@ bx! (ƭ ҆'L(8` T =Ϊ =΅d̥ Τӑѩ` T Y T Y`)  @` `  MICROMON-64 COMPUTE! BOOKS @E@ 0"E3@ @E3@ @E@ "D3ЌD"D3ЌD"D3@ "D3@ bx! xL  `  ߢ%ɑ# `a (u `.HdX=< %B*LM)? , %. NVd (. $ݐ/I //lL`  V`N " H)`HShS`TUL 8S L eeL S H LhLx Xh=h<DCBX>)LN ,HP<[k=Zc^[_SH0NHҮB%HHL' % $)K )=< H)$N " Lh JMHF_^:SL[ \]^_@H ) n U( ( )c %H7Ш)) xT  U(` A( U( R(` (HJJJJ '(h) '(H hLiii:`Hh`Y ( |( ( g( g(`L` t!Y ( ( ` ( Y ( ( Y8`:)(i` )Le #` )7 '"О  Lu  Lh Q ) g() )٩IS Lh IL )i L` ' Lh ' /) /) ( H) S0 S (Lh L` ' *Lh %.$ ( ( * * H) * * H)0T.Ui `UT H) * H))   i@ (ʩL YMJ,),#($YX$$#]#)i#$S#$S[[i$$)|mi)S4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDD PC IRQ SR AC XR YR SPABCDFGHLMNQR(TWX,:;$#"+-OIJ%&EV)>ɯ2/ƠɰLǠP* ĉ  S`W ' % 1(  Y! /)Vn See Y! Q VFW ( H) *` ' )V ` d(K |!K /)L` Lh t! (' (e ) Y o(֝e ) g( J %e J h! /) |!  o©N, ©LL / }Lɑх҅^ T:,$^i(ݍI ΐLI:$' 8 é Lp Lh ͥ^8^ o ^MM âN, C Lh͢L¦ ͦ膭 U.T*i? LH) ' #,L1%/ `  Ĥ>å ͽ  &   ݩ L=# BLh ,HwHHHHl`KH ( )hILr" $V  # L" %.: ( H) ( ( # H)  H) h  HɦLͽ ˰A H  Lh +˅ " = H(`  0 :)`hh`L`HH&&hehe&ee` ˍUHH H Hh  Hh H Lh H  Lh + " LHJ&&` `ԩԩDԎԌLe 1(M/Uɝ o*S8`ʊMVAw % o" x} %yz %{|Lh e%JKe hhVL$L` KJ`0G`8`N`HJJJJ '(h)L'( ,  `?h)>@Ahi=hi<H ( hAh@h? =<`K Hɱ  /K` gȐi /K`>` V`H h. ȩ L Ȣv ; =ɭ< ȭ=  HɭC ȭD  $ LhL` A RȍDC $ɍK   `e ǭIS )"У " ܎ܭ) ܩߢ%DCBxDC (<H=H>H?@A@L` A(Z[\] R(\]Lh 'bc R(OP R(QR ) WN 1(V N ". Lh M3M8OȱPQȭRmbȱmc /)0 A( R(TU ( =<`K H) ( /)K` g(i /)K`>` V`H %h. ( L (v/ ; =)< (= ( H)C (D ( $) (Lh L` A( ( R(DC $)K ( )  ( `e 'IS ) ' ))"У "  H)Lͽ +A H) ( *Lh  + ++ "+ =+ H)(` ) 0 :)`hh`L` HH&&hehe&ee` +UHH H) H)h ( H)h * H) *Lh + H) ( * *Lh  + ++ + "+ +LH)J&&` ( `ԩԩDԎԌLe  X%  V ML XL&'L ћ 朥#e&i'8&&''L  V X``0& =  [  _ hhLLoU) =1: )ʽW LC8PJ8K ULE ` SEGH ! m NT 0 ` KR `PmTT `W) =1:LPݞ RWLʊ UHHHH`8UeiLȱU` WALRTBSNHF3QLZL KL LL 2079:(C) 1983 COMPUTE!6 ?   A )@ =>?,ȩWȄ?   C 7l  ۢ => ? ` o 0 H h ` `  m&'ЅЩ  &L &ȱ&&Ȋ&`&)? &I@&L )@ )) I `KB: LV LY)6 t V 80ՍY } V 800 Y `  LFEZ[xL `  ߢōɑ `a ȩu `ΎHdX=< ŢB*LMɩ? , ũ. NVd . $ݐI υυlL` V`N ¢ H`HShS`TUL8S : V 3  $ &' L  V L @ V 3 )  V LxЍ!Щ1 X` V  H V sL  `  W ݢ    , o Њ =  H H h ¢MX eˆX Ž ` {ªȘ eŠJ ȮJ`M z…`8e`J J") JΰJJJJ)΍X)M) JJJ Ȉ` e¢ MȐ`΍T6ύU  L%S  L%P  L%L &6'7`8&6?'7@ A 6&7' L&ӍX    .L[ L[) 𧥧 L[ `  V 3. /ɈL ǩ é:wL= Dž  L Aȅf O0O8?Jnfne ": Ű |Ȥ0eeَTVKV ®XU6 eŽ eŢMX0 bňX eŽ e b bŭTK h>h=h<DCBX>)LN,HP<[k=Zc^[_SH0NHҮBHHL $ɍK ɭ=< Hɩ$N  LhJMHF_^:SL[\]^_@H  n U c ŭH7Ш)) xT8L8K LU[I[#LUS7 ͽ6ULZ)A[)IJJ` 87 ͽ6`PEEDCRIPT 1.1 BY HARLES RANNONUFFER LEAREDUFFER ULLELETE (,,): RE YOU SURE? (/): RASE (, NL OL PLV VUL8eGiH +8UELȱ`8eIiJ +8UFLȱ=Le HW)hW L  ` > M  V L   M `K*-SPKTLD";RRL戌 R8eiT  !; m 0TO 8EN   L L8MT 0 FIJ ! m Q  V  S`W 1Ȑ  Y /ɬVn See Y Q VFW  H *` V ` dȍK |K /L`Lh t ' ȝe Y oȐ֝e gȐ J Ţe J h / | H h7 ͽ6  L L89:80* &8.98.98.98.9 88L!8 988899:LS:`8;=<Ѝ> = a V `&m='m>8eϐ Y V ` P=m>U.T*i? LH ǩ à,L1ũ `  Ĥ>å ͽ  &   ݩ L= BLhHwHHHHl`KH hILr ĮV  L Ţ.:  H ȩ ȩ H H) h )L'2 L2  V s`  V L M& V D T hh`2 *@:0:L5  V 5 LV  V H  hL) 8&' 1ȬM/Uɝ o*S8`ʊMVAw o© x} Ŏyz Ŏ{|Lh eŎJKe hhVLL`KJ`0G`8`N`HJJJJ 'Ȫh)L'ȩ ,  `?h)>@Ahi=hi<H hAh@h? ܎ܭ) ܩߢōDCBxDC ȭ<H=H>H?@A@L` AȍZ[\] Rȍ\]Lh Ǎbc RȍOP RȍQR WN 1ȮV N ª LhM3M8OȱPQȭRmbȱmc /Ɉ0 Aȅ RȍTU ,): Β TO EXITEY:AVE:APE TOPPEDERIFY RRORO ERRORS ԒAPE OR ĒISK?OAD:ERIFY:RESS Β$0O OOMO TEXT IN BUFFER.EVICE #ECOND. DDR. #RINTINGEXT SHEET, ΒUNT FOR:OT OUNDh$ ULE LVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV   2061 g L 3467 ' '47ॴ``e{ze~}褴 {~`(Åĩ؅  Р)(눱) 'ȄÈei<( VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVH h _) F H h & 8&'&i'i&' L } } L ʊ HH H H`#  gbjp06brfotjmgtmuspVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV& e&&'i'L &'L 8 L )`)L&'Ɯ. !?`.!?ƜL Ƨ L Ls &'L &.!?''L & .!?L VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV;;<<`  L*   V H h)  L*   Q L*   L* `8&' &'`&'L U UL &i'i8 P &L I` V Y`   V VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVLi(ÅL`&' Ɯ朑` ` &  $  s m V ` Z V `' LH)Jh)?`&&I&  )L &_ &L VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV8 &' 8&'m=i L `8 ύ8&' &'`8&'`&'`&'L &'&L &'Ɯ  `8e&i'L & `VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV ;Ѝ<  V `8&'hh`&'`8&Ie?'Ie@ABCD@m<  V `;<?m;;@m<<Щ  &ЭABCD8 8?@`  * 8VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVL L &''L L &'ƜƜL 8ee8&'姅L+&'L x ܩЩЍX`: !ЍLL1ꭍ) Ѡ V &I& &I& @WVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVU4273,40:54272,0T1100::54276,16:7 C$;"NOT ZERO PAGE OR ROM":100056iI781,ZK(782)256:780,(T$):65469M780,1:781,DV:782,1:65466R780,0:65493\((783)1)(191ST)870a"ONE.":310f"RROR ON OAD. RY  (d"HOW MANY LABELS DO YOU WANT?":XNn"HOW MANY LINES DO YOU WANT?":Yyx"HOW MANY LINES FROM TOP OF FORM?":ZI1Y"LINE";I;"INPUT STRING":A$(I)I"READY PAPER":Q$4,4:4I1X:J1YA$(J):JJ1Z956,128,0,73,0,0,73,01 ,0,62,0,0,62,0,0,62,0,0,28,0LINES DO YOU WANT?":Yyx"HOW MANY LINES FROM TOP OF FORM?":ZI1Y"LINE";I;"INPUT STRING":A$(I)I"READY PAPER":Q$4,4:4I1X:J1YA$(J):JJ1Z ! THIS IS A YEARLY CALENDARD65517:A(781):A4053281,1b1,4:W4(3):3510:I1:J21,(14)13)"HAPPY NEW YEAR ";Y:11,(14)8)"JANUARY"13)"FEBRUARY"3009:3000:3012:C06:3019:3000:3022M0I:M81:2292:2020:2035W4(1)101,(15)1);2 W34W4(2)301,(15)0);> W3W31O W3C02045Z 1," "i I12086x I32096 I52106 I72116 I92126 I112199 &1,(14)9)"MARCH"16)"APRIL" (I3:J4:2012 01,(14)10)(M8)6 DD4:3050& D11"WHY D1=";D1? M81(D1)102528W M81(D1)92530p M82(D1)102428 M82D430D4EI2433:2217 M82D492430 DD41D7:3050:2331:D W4(M8)D71  M01M03M05M031,(15)16);D;:2330+ D121,(15)11);D;:2330J D111,(15)6);D;:2330c 1,(15)3);D;:2330v 1,(15)2);D;|  DE11,(15)5);:2350 D11D91,D;:2350 D11D91,D;:2350 D91,(15)2);D;:2350 (15)4);D;  H( "DO YOU WANT ANOTHER?":10)"YES OR NO";:Z$Y- Z$""2605k2 Z$"Y"2003q7  1,(15)3);:2992 1,(15)6);  1,(15)7);  1,(15)3); 1," S M T W T F(2.6M0.2)DY1900((Y1900)4)%N D1D1(194)219; D1D1(D17)71R M04M09D1D11n M013M01:YY1:3250 M014M02:YY1:D1D11 D18D11 (Y2100M03)(Y2100)D1D11:D10D17 (Y2200M03)(Y2200)D1IN THE":"YEAR THAT YOU":"WISH TO SEE"< "(EXAMPLE:1984)":6);:Yn "THANK YOU! NOW-":"PLEASE TURN ON THE" "PRINTER AND THEN TYPE" 8)"OK" R$R$"OK"1570"PRINTING":I1800::3)(Y2200)D1(1)551,54.A0A1:"64SET",8,1d"USE F1 TO END PROGRAM":"HIT ANY KEY TO BEGIN"uA$:A$""456,128:55,0: BMGR1:CB2K4:FBMS0:FSCR1HRCS32768X0:Y0:W5:RV0BL0#J130:K$:K$"" (J31BL0X  J:I 4:4:$ ""0 V53248E V21,4:2042,13_ N051:Q:832N,Q:l X0200 V4,X:V5,X:X 50 0,127,0,1,255,192,3,255,224,3,231,224 7,217,240,7,223,240,7,217,240,3,231,224 "1,62,64,0,136,128,0,1YY(Y0):J31:408 ZK$""XXW:XX(X316):J31:40_ dK$""XXW:XX(X0):J31:40o iK$""200 jK$" "CHAR32RV,X,Y:120 nCODEK$:CR(K$):CHRX CRRV,X,Y xXXW:XX(X0X316):X0YY8 YY(Y193) 30 % D1:3050:W28D1:W4(M8)W21:23215 D172030P D2W2:3050:2331:DV v 2990:M0J:M82:2292:2020 W31 M0I:M81:2292:2200 W4(2)91,(15)1); 2991:M0J:M82:2292:2200 W31W4(1)91,(15)0); W3I"MAY"17)"JUNE" 2I5:J6:2012= :1,(14)9)"JULY"16)"AUGUST"O <I7:J8:2012w D1,(14)7)"SEPTEMBER"13)"OCTOBER" FI9:J10:2012 N1,(14)7)"NOVEMBER"13)"DECEMBER" PI11:J12:2012 1,(15)1)(12):1:2600 D4W4(M8):D7W47M08M010M012E131. M04M06M09M011E130J M02Y4(Y4)E128e M02Y4(Y4)3400k   D171,(15)36);D;:2330  D161,(15)31);D;:2330  D151,(15)26);D;:2330  D141,(15)21);D;:2330  D11,(15)1);D;. #| DE11,(15)9);:2435-} 2328J~ DE11,(15)9);:2435T 2329g 1,(15)1);D;m  DE11,(15)9);:2535 2533 DE11,(15)9);:2535ETURN D92533 2534 1,(15)5);D;:2535 1, S"; ( 1," S M T W T F S". ? 1,(15)3);m 1," - - - - - - -";s  1," - - - - - - -"  M01M013:YY1:3080 M02M014:YY1 MM02 D1 D11:D10D17( (Y2300M03)(Y2300)D1D11:D10D17. bH (Y100(Y100))(Y400(Y400))E128:3410lM E129rR  "THIS IS A PROGRAM":"TO SHOW A" "YEARLY CALENDAR":"ON THE PRINTER" "PLEASE TYPE BMGR0:CB2K2:""35/ *J31CHRX160,X,Y:30R ,J31::BL1BL0:CHRX160,X,Yi 2K$""FBMS0:25 7K$(13)X0:YY8:140 <K$""25 AK$""RV128:30 BK$""RV0:30 FK$""YY8:YY(Y193):J31:40 PK$""YY8: CHRX160,X,Y:BL1:35/ *J31CHRX160,X,Y:30R ,J31::BL1BL0:CHRX160,X,Yi 2K$""FBMS0:25 7K$(13)X0:YY8:140 <K$""25 AK$""RV128:30 BK$""RV0:30 FK$""YY8:YY(Y193):J31:40 PK$""YY8:  2121   ΅ wl . L- L`L!!!!!xGGG~k%/^_>@#Q  P.READERGd"PLEASE WAIT. . .":I8861018:A:CKCKA:I,A:nCK17539"YOU MADE AN ERROR":"IN DATA STATEMENTS.":x886:"PROOFREADER ACTIVATED!":v173,036,003,201,150,208,001,096,141,151,003,173,037,003,141,152,003,169F 0,133,216,169,019,032,210b 255,169,018,032,210,255,169,058,032,210,255,166,254,169,000,133,254,172 151,003,192,087,208,006,032,205,189,076,235,003,032,205,221,169,032,032 210,255,032,210,255,173,251,003,133,214,076,173,00352,003,169F  F LINES CHANGED FROM MLX VERSION 2.00 ARE 750, 765, 770, AND 860od"";(142);(8);:53281,1:53280,1e788,52: DISABLE RUN/STOPn" ";x" ߩ  ߒߩ ";. 2473000:210 ::X "ENDING ADDRESS? ";:E:F1F:C$(31119F) E256(E40960E49152)E532473000:230 ESC$;"ENDING < START ":1000:230 :: ,"";(14):ADS:V21,0 6A1:("0000"((AD),2),5)ETSTE"T LEAST";S;", NOT MORE THAN";E:430T IFT6::("0000"((I),2),5);":"; K05:N(IK):("00"((N),2),3);","; A$:A$""::310 K:(20);:I:::310 N0:310 A(J)N:J CKSUMAD(AD256)256:I16:EA$:A$""581MFAV(A$"M")2(A$",")3(A$".")4(A$"J")5(A$"K")6(A$"L")GAVAV7(A$"U")8(A$"I")9(A$"O"):A$"N"A$"0"HAV0A$(48AV)I(20);:A(A$):A13A44A32670NA128NA:XA20630 b690:I "*** AVE ***":"(RESS Β ALONE TO CANCEL SAVE)"eF$"":" ILENAME";F$:F$""::310:"ԒAPE OR ĒISK: (/)"A$:A$"T"A$"D"740DV17(A$"D"):DV8F$"0:"F$:15,8,15,"S"F$:15 T$F$:ZK(, .z%.- Y 3zɭ/L LL|L YLͤ')ẅ') wi wLy sL:ϩ`|zH{H" sh{hz y"{\ hh sV"R=:[ '̍y s.x s&]"y*ʩ?, 'RROR ON AVE. RY AGAIN.":DV1720< 15,8,15:15,E1$,E2$:E1$;E2$:15:720T"*** OAD ***""(RESS Β ALONE TO CANCEL LOAD)" F$"":"ILENAME";F$:F$"":310*:"ԒAPE OR ĒISK: (/)"4A$:A$"T"A$"D"8 DOS MANAGER V5.1/071382 BY BOB FAIRBAIRN (C) 1982 COMMODORE BUSINESS MACHINES L̢̕|wLKυɌɧɤ :LLz150,141,036,003,169,003,141,037,003,169,000,133,254,096,032,087,241,133{ 251,134,252,132,253,008,201,013,240,017,201,032 240,005,024,101,254,133,254,165,251,166,252,164,253,040,096,169,013,032 210,255,165,214,141,251,003,206,251,003,169,00AGAIN.":DV1800%p15,8,15:15,E1$,E2$:E1$;E2$:15:8002 BUZZERU54296,15:54277,45:54278,165u54276,33:54273,6:54272,5T1200::54276,32:54273,0:54272,0: BELL SOUND54296,15:54277,0:54278,24754276,17:5"    ߒ ";^ " " " A FAILSAFE MACHINE LANGUAGE EDITOR" "STARTING ADDRESS? ";:S:F1F:C$(31119F) S256(S40960S49152)S53;":";: ;JA6% @570:N1JJN:3205 N211710E N204790l N206:"NTER EW DDRESS";ZZ N206ZZSZZE"OUT OF RANGE":1000:410 N206ADZZ::310 N196480 :"ISPLAY:ROM";F:,"O";:T) FSFCKSUM(CKSUMA(I))255:( (18);:570:(146);; N1A6:315S (20):NCKSUM530 :"INE NTERED RONG : E-ENTER"::1000:310 2000 I16:ADI1,A(I)::54272,0:54273,0 &ADAD6:ADE310 0710 :N0:Z0 D"";1T44N1:" ";:690l570(vA48A57580=A$;:NN10A48XN255A20:1000:600kZZ1:Z3580Z01000:570",";:S%(209)256(210)(211)I13:T(S%I)T44T58S%I,32:("",I1);: 53)256(54)(T$):782,ZK2566781,ZK(782)256:780,(T$):65469W780,1:781,DV:782,1:65466KS:254,K256:253,K(254)256:780,253KE1:782,K256:781,K(782)256:65496((783)1)(191ST)780"ONE.":310 "1xâL|LL| y s`{ `$QLqƷ(̅L?ͥ o ' ķ Lͥ o  L  Ly`  Ĥ>å ͽ  &   ݩ L B Ly+,z% 20>DV17(A$"D"):DV8F$"0:"F$@HT$F$:ZK(53)256(54)(T$):782,ZK256iI781,ZK(782)256:780,(T$):65469M780,1:781,DV:782,1:65466R780,0:65493\((783)1)(191ST)870a"ONE.":310f"RROR ON OAD. RY  Φ'̅w̅HH`E ' '$QLqƷ(̅L?ͥ o ' ķ Lͥ o  L  Ly`  Ĥ>å ͽ  &   ݩ L B Ly+,z%A  lUTILITIES I002ADOSPROOFREADERMLX.1APPOINTMENT LIFESAVERUNNEWONE-TOUCHGRAPHKKLABELYEARLY CALENDAR  TYPE 64BALLDISK NAMERMERGERCAL2@UF KK SPEEDSCRIPTCOPYFILEMICROMON-64 COMM-64STAR WORK1 SPREADSHEETCIRCLESKK SUPERBASIC  MOIRE PATTERN DOODLE SHAMROCKS 64SET AUTO1CALENDARDATE GRAPHKKTESTSLIST64NUM KEYPAD CHORD-P108  DIRECTORY KKKKK  PM$(12),W$(7):I112:M$(I):I:I17:W$(I):I( Z65517:A(781):A4053281,1X d" THIS IS A PROGRAM":"TO SHOW A" i"MONTHLY CALENDAR":"ON THE PRINTER" n"PLEASE TYPE IN THE":"MONTHAND YEAR" o"THAT YOU  0:D1E1:J1J11 1050:D10G$"" D10G$""B D111,(15)" "W$(D1);(14)G$;""D"";(15)"(";J1;")"R D111600a D11220 1,(15)" "W$(D1);(14)G$;D;(15)"(";J1;")":1600 D "":1,(12):1:1 " D11 M013M01:YY1:1245 M014M02:YY1:D1D11 D18D11D (Y2100M03)(Y2100)D1D11:D10D17t (Y2200M03)(Y2200)D1D11:D10D17 (Y2300M03)(Y2300)D1D11:D10D17  M01M03M05M07M . . . . . . . ."JM01J10M02J131M03J159 M04J1901M05J1120BM06J1151SM07J1181dM08J1212uM09J1243M010J1273M011J1304M012J1334Y4(Y4)173","SEPTEMBER"," OCTOBER"" NOVEMBER"," DECEMBER"=" SUNDAY"," MONDAY"," TUESDAY"," WEDNESDAY"," THURSDAY"\" FRIDAY"," SATURDAY"2uM09J1243M010J1273M011J1304M012J1334Y4(Y4)173  I525A:A25640/I,A:II1:20E(43,525255:44,2[245,578255:46,2p<:"0:UNNEW",8,1 160,3,200,177,43,208,251200,200,152,160,0,145,43165,44,200,145,43,133,60"160,0,132,59,162,0,200 )208,2,230,60,177,58 ȱ+Ș+,ȑ+<;<;<-<.`MLX.1APPOINTMENT LIFESAVER556,208:55,0:F0:C(55)120:C0CC256:F1OD(56)F:55,C:56,DdS828:I146:100 32,198,3,165,55,133,251,133,253,165,56,133,252,133,254,16949,133,167,169,133,133,168,169,13,32,210,255,169,70,32,210$ 255,165,167,32,210,2,168,233,3,133,168,165,167Q -201,57,144,163,120,169,L0,141,20,3,169,H0,141,21,3,88 2169,0,133,167,32,68,166,76,116,164,166,55,208,2,198,56 7198,55,96 8S(55)256(56):I120:100 9(828) : <165,167,240,59,160,0,177,251,32,L99,H041,1,208,247,160D U0,177,251,197,215,208,6,32,L111,H0,76,L6,H0,32,L111,H0 Z76,L81,H0,201,133,144,6,201,141,176,2,56,96,24,96,166 _251,208,2,198,252,198,251,96,0,0 dF0:DSSI:A$:(A$)58A(A$):115 i(A$)76A((A$,(A$)1))(5WISH TO SEE":"(EXAMPLE: 12,1983)" x5);:M0,Y; " THANK YOU! NOW--":" PLEASE TURN ON THE"g "PRINTER AND THEN TYPE":9)"OK":R$y R$"OK"130 "PRINTING":I1800::1292:1,4 1,(14)" ";M$(M0);" ";Y:1800:170DO YOU WANT ANOTHER?":10)"YES OR NO"; Z$:Z$""1005 Z$"Y"90 ; M01M013:YY1:1080Q $M02M014:YY1\ 8MM02 LD1(2.6M0.2)DY1900((Y1900)4) ~D1D1(194)219 D1D1(D17)71 M04M09D108M010M012E131 M04M06M09M011E130M02Y4(Y4)E1281M02Y4(Y4)14007kx(Y100(Y100))(Y400(Y400))E128:1410u}E129{@I120:1,(15)" ";:IE1,". . . . . . . . . . . . 0(Y100(Y100))(Y400(Y400))1730(Y4(Y4))(M03)J1J11M1,"* * * * * * * * * * * * * * *"V1:" JANUARY"," FEBRUARY"," MARCH"," APRIL"," MAY"" JUNE"," JULY"," AUGUSTS5):A255AA256:F18 n(A$)72A((A$,(A$)1))(56)F:F0E sD,A:: F251,165,254,133,252,76,49,234,166,198,177,251,157,119,2,230 K198,32,L111,H0,165,198,201,11,144,204,230,167,76,49,234,165 P215,32,L99,H0,176,3,76,49,234,165,8,[9,208" 0245,232,224,3,208,242,200? 7208,2,230,60,132,45,164U >60,132,46,96,256APPOINTMENT LIFESAVER d(147) nI15:"":ILx"THIS PROGRAM TAKES ABOUT TWO MINUTES"z"TO RUN, SO PLEASE TURN ON YOUR PRINTER""AND STAND BY.........................."BIT%(76,12)MASK%(1)64:MASK%(4)8MASK%(2)32:MASK%(5)4 MASK%(3)155,169,61,32,210,255,169,63,32,210,255b 169,32,32,210,255,32,207,255,72,160,0,165,168,145,55,104 32,198,3,201,13,240,14,201,95,208,2,169,13,145,55,32 #207,255,76,124,3,230,167,165,167,41,1,208,10,24,165,168 (105,4,133,168,76,170,3,56,165 ,176,12,165,55,197L A251,208,21,165,56,197,252,208,15,169,0,133,167,165,253,133 F251,165,254,133,252,76,49,234,166,198,177,251,157,119,2,230 K198,32,L111,H0,165,198,201,11,144,204,230,167,76,49,234,165 P215,32,L99,H0,176,3,76,49,234,165,8,D2߀7`;}};7`߀TYPE 64 (1)551,54.A0A1:"64SET",8,1d"USE F1 TO END PROGRAM":"HIT ANY KEY TO BEGIN"uA$:A$""456,128:55,0: BMGR1:CB2K4:FBMS0:FSCR1HRCS32768X0:Y0:W5:RV0BL0#J130:K$:K$"" (J31BL0 YY(Y0):J31:408 ZK$""XXW:XX(X316):J31:40_ dK$""XXW:XX(X0):J31:40o iK$""200 jK$" "CHAR32RV,X,Y:120 nCODEK$:CR(K$):CHRX CRRV,X,Y xXXW:XX(X0X316):X0YY8 YY(Y193) 30 :"";15)"MERGE?":A$:A$""I0500::1IA$"Y"5"";5)"LOAD YOUR ADDITION. THEN POKE 43,1 AND 44,8."E256(46)(45)2:H(E256):LE256H:43,L:44,H:K " DO YOU WANT A/AN:":" 1. APPOINTMENT CALENDAR TO THE PRINTER"" 2. YEARLY CALENDAR TO THE PRINTER":" 3. MONTHLY CALENDAR TO THE SCREEN"" 4. MONTHLY CALENDAR TO THE PRINTER":" 5. EXIT""MAKE SELECTION: "; IS IS A PROGRAM":"TO SHOW A"Q i"MONTHLY CALENDAR":"ON THE PRINTER" n"PLEASE TYPE IN THE":"MONTHAND YEAR" o"THAT YOU WISH TO SEE":"(EXAMPLE: 12,1983)" x5);:M0,Y " THANK YOU! NOW--":" PLEASE TURN 6:MASK%(6)2 LX20:LY204 XFAC72LX:YFAC75LYJ RAD9:X119:Y110\ ANG036010p R1ANG6.28360 X2RAD(R1)10:Y2RAD(R1)10 430 ANG ANG036015 R1ANG6.28360:R2(ANG150)6.28360 "X1RAD(R1)10:Y1RA2Y1 NX(XLXFAC):NY(YLYFAC)/ NXNYNXNY? NS%(NX1)W DXXLNS%:DYYLNS%d I1NS%z X1X1DX:Y1Y1DY 530 I   PLOT A POINT AT X1,Y1 XXX1XFAC:YYY1YFAC &COL%(XX)1:ROW%(YY6):XIT%(YYROW%6)1";(15)"(";J1;")" D111600( D11220` 1,(15)" "W$(D1);(14)G$;D;(15)"(";J1;")":1600g D "":1,(12):1:1 "DO YOU WANT ANOTHER?":10)"YES OR NO"; Z$:Z$""1005 Z$"Y"90  M01M013 100)D1D11:D10D17;(Y2200M03)(Y2200)D1D11:D10D17k(Y2300M03)(Y2300)D1D11:D10D17q M01M03M05M07M08M010M012E131 M04M06M09M011E130M02Y4(Y4)E128M02Y4(Y4) 14002x(Y100(Y100))(Y400(Y400))E128:1410<}E129B^@I120:1,(15)" ";:IE1,". . . . . . . . . . . . . . . . . . . ."JM01J10M02J131M03J159M04J190M0CHRX160,X,Y:BL1:35/ *J31CHRX160,X,Y:30R ,J31::BL1BL0:CHRX160,X,Yi 2K$""FBMS0:25 7K$(13)X0:YY8:140 <K$""25 AK$""RV128:30 BK$""RV0:30 FK$""YY8:YY(Y193):J31:40 PK$""YY8:BMGR0:CB2K2:""35/ *J31CHRX160,X,Y:30R ,J31::BL1BL0:CHRX160,X,Yi 2K$""FBMS0:25 7K$(13)X0:YY8:140 <K$""25 AK$""RV128:30 BK$""RV0:30 FK$""YY8:YY(Y193):J31:40 PK$""YY8:5J1120 M06J1151M07J1181+M08J1212<M09J1243NM010J1273`M011J1304rM012J1334Y4(Y4)1730(Y100(Y100))(Y400(Y400))1730(Y4(Y4))(M03)J1J111,"* * A:A1A530 #A170( (A220007 -A34000F 2A46000q 7A5"";17)"O K !": F THIS IS AN APPOINTMENT CALENDAR PM$(12),W$(7):I112:M$(I):I:I17:W$(I):I Z65517:A(781):A4053281,1 d" THON THE". "PRINTER AND THEN TYPE":9)"OK":R$@ R$"OK"130h "PRINTING":I1800::1292:1,4 1,(14)" ";M$(M0);" ";Y:1800:1700:D1E1:J1J11 1050:D10G$"" D10G$"" D111,(15)" "W$(D1);(14)G$;""D"D(R1)10* 'X2RAD(R2)10:Y2RAD(R2)103 ,430< 6ANGY @4,4,4:4,(27);"A";(6) JROW011:4,(27);"K";(119);(1); TCOL175 ^LL15 h4,(BIT%(COL,ROW)); rLL |COL 4,"" ROW 4:4  XLX2X1:YLY9' 0BIT%(COL%,ROW%)BIT%(COL%,ROW%)MASK%(XIT%)- :< 6ANGY @4,4,4:4,(27);"A";(6) JROW011:4,(27);"K";(119);(1); TCOL175 ^LL15 h4,(BIT%(COL,ROW)); rLL |COL 4,"" ROW 4:4  XLX2X1:YLY :YY1:1080 $M02M014:YY1# 8MM02N LD1(2.6M0.2)DY1900((Y1900)4)e ~D1D1(194)219{ D1D1(D17)71 M04M09D1D11 M013M01:YY1:1245 M014M02:YY1:D1D11 D18D11 (Y2100M03)(Y2 Y CALENDAR":"ON THE PRINTER"8 "PLEASE TYPE IN THE":"YEAR THAT YOU":"WISH TO SEE"^ "(EXAMPLE:1984)":6);:Y "THANK YOU! NOW-":"PLEASE TURN ON THE" "PRINTER AND THEN TYPE" 8)"OK" R$R$"OK E IN THE":"MONTH AND YEAR", "THATYOU WISH TO SEE":"(EXAMPLE: 12,1983)"c """;:M0,Y:"THANK YOU!":I1800: M01M03M05M07M08M010M012E131 M04M06M09M011E130 M02Y4(Y4)E12 !D14I110:"";::D;:4330"D13I17:"";::D;:43306"D12I14:"";::D;:4330S"D11"";D;"";:4330e"D2E1:5050"D11D9"";D;"";:4345"D11D9"";D;"";:4345"D174340"D9D;:4345 * * * * * * * * * * * * *"1:^l" JANUARY"," FEBRUARY"," MARCH"," APRIL"," MAY"v" JUNE"," JULY"," AUGUST","SEPTEMBER"," OCTOBER"" NOVEMBER"," DECEMBER"" SUNDAY"," MONDAY"," TUESDAY","06:3019:3000:3022M0I:M81:2292:2020:2035GD1:3050:W28D1:W4(M8)W21:2321WD172030rD2W2:3050:2331:Dx2990:M0J:M82:2292:2020W31M0I:M81:2292:2200W4(2)91,(15)1);2991:M0J:M8)"MARCH"16)"APRIL" (I3:J4:2012+01,(14)10)"MAY"17)"JUNE"=2I5:J6:2012_:1,(14)9)"JULY"16)"AUGUST"q<I7:J8:2012D1,(14)7)"SEPTEMBER"13)"OCTOBER"FI9:J10:2012N1,(14)7)"NOVEMBER"13)"DECEMBER"PI11:J12:2331:DW4(M8)D710M01M03M05M07M08M010M012E131PM04M06M09M011E130lM02Y4(Y4)E128M02Y4(Y4)3400 D171,(15)36);D;:2330 D161,(15)31);D;:2330 D151,(15)1D91,D;:2350 D91,(15)2);D;:2350" 1,(15)1);D;(. E| DE11,(15)9);:2435O} 2328l~ DE11,(15)9);:2435v 2329 1,(15)1);D;  DE11,(15)9);:2535 2533 DE11,(15)9);:2535ETURN 1,(15)3); 1," S M T W T F S"; J 1," S M T W T F S"P a 1,(15)3); 1," - - - - - - -";  1," - - - - - - -"  M01M01300)D1D11:D10D17 (Y2200M03)(Y2200)D1D11:D10D17J (Y2300M03)(Y2300)D1D11:D10D17P H (Y100(Y100))(Y400(Y400))E128:3410M E129R  "THIS IS A PROGRAM":"TO SHOW A" "YEARL"1570"PRINTING":I1800:: THIS IS A SCREEN CALENDAR4M$(12):I112:M$(I):IW65517:A(781):A4053281,1"THIS IS A PROGRAM":"TO SHOW A" "MONTHLY CALENDAR":"ON THE SCREEN""PLEASE TYP8 M02Y4(Y4)5400!"";M$(M0);" ";Y;""!5350:A408!"SMTWTFS"B!5360P!D1:5050u!D17I119:"";::D:A40!D174330!D16I116:"";::D;:4330!D15I113:"";::D;:4330""";D;:4345"D9"";D:4345"D #A40D17#D1#::FL1:5350:A22""f#" DO YOU WANT ANOTHER?":11)"YES OR NO";n#A$#A$""5047#A$"Y"4090##M01M013:YY1:5080#M02M014:YY WEDNESDAY"," THURSDAY"#" FRIDAY"," SATURDAY"C THIS IS A YEARLY CALENDARf65517:A(781):A4053281,11,4:W4(3):3510:I1:J21,(14)13)"HAPPY NEW YEAR ";Y:11,(14)8)"JANUARY"13)"FEBRUARY"3009:3000:3012:C2:2292:2200W31W4(1)91,(15)0);4 W3IW4(1)101,(15)1);T W34W4(2)301,(15)0);`W3W31qW3C02045|1," "I12086I32096I52106I72116I92126I112199&1,(14)920121,(15)1)(12):1:2600 D4W4(M8):D7W4(M8)6/DD4:3050HD11"WHY D1=";D1aM81(D1)102528yM81(D1)92530M82(D1)102428M82D430D4EI2433:2217M82D492430DD41D7:3050:26);D;:2330  D141,(15)21);D;:2330- D131,(15)16);D;:2330M D121,(15)11);D;:2330l D111,(15)6);D;:2330 1,(15)3);D;:2330 1,(15)2);D;  DE11,(15)5);:2350 D11D91,D;:2350 D1 D92533 2534  1,(15)5);D;:2535 1,(15)4);D;# ) j( "DO YOU WANT ANOTHER?":10)"YES OR NO";:Z${- Z$""26052 Z$"Y"20037  1,(15)3);:2992 1,(15)6);  1,(15)7);  :YY1:3080 M02M014:YY1 MM020 D1(2.6M0.2)DY1900((Y1900)4)GN D1D1(194)219] D1D1(D17)71t M04M09D1D11 M013M01:YY1:3250 M014M02:YY1:D1D11 D18D11 (Y2100M03)(Y21 ;:2]1," ";:2c1," ";:2d1," ";:2e1," ";:3f1," ";:3g1," ";:$3m1," ";:53n1," ";:F3o1," ";:W3p1," ";:h3q1,"";:y3w1," ";:3x1," ";:3y1," ";:3z1,"  ";:41," ";:41,"";:41," ";:41," ";:51," ";:51," ";:"51," ";:351," ";:D51," ";:U51," ";:f51," ";:w51," ";:51," ";:51," ";:51,"  1#MM02#D1(2.6M0.2)DY1900((Y1900)4)$D1D1(194)219,$PD1D1(D17)71C$ZM04M09D1D11_$nM013M01:YY1:5245}$xM014M02:YY1:D1D11$|D18D11$}(Y2100M03)(Y2100)D1D11:D10D17$(Y2 (Y400))E128:5410%E129%" &," JANUARY"," FEBRUARY"," MARCH"," APRIL"U&6" MAY"," JUNE"," JULY"," AUGUST"&@" SEPTEMBER"," OCTOBER"," NOVEMBER"," DECEMBER"&p"THIS IS NOT DONE YET.,6931,6941,6951,6961,6971'1,"":1,""'G1D8 (GG1:6820:D1D:E1E,(G2G1:GG2:6820:D2D:E2EL(G3G1:GG3:6820:D3D:E3El(G4G1:GG4:6820:D4D:E4E(G5G1:GG5:6820:D5D:E5E(G6G1:GG6:6820:D6D:E6E(G7G1:GG7:D1:8800)XE2:X1D2:8800)XE3:X1D3:8800*XE4:X1D4:8800*XE5:X1D5:8800-*XE6:X1D6:8800G*XE7:X1D7:FL1:8800b* 7000:XE1:X1D1:8900w*XE2:X1D2:8900*XE3:X1D3:8900*(XE4:X1D4:8900*2XE5:X1D5:8900*<XE3:X1D3:9100+XE4:X1D4:9100+XE5:X1D5:9100,XE6:X1D6:9100!,XE7:X1D7:FL1:9100',,W,61," ";:1,(14)"SUN";:1,(15)" ";{,71,(14)"MON";:1,(15)" ";,81,(14)"TUE";:1,(15)" ";,91,(14)"WED";:1,";:1,(15)" ";-D1,(14)"---";:1,(15)" ";.E1,(14)"---";:1,(15)" ";/.F1,(14)"---";:1,(15)" ";_.^M01M03M05M07M08M010M012E931.`M04M06M09M011E930.bM02Y4(Y4)E928.dM02Y4(Y4)E1/(Y2100M03)(Y2100)D9D91:D90D970(Y2200M03)(Y2200)D9D91:D90D97A0(Y2300M03)(Y2300)D9D91:D90D97G0W0GE96840g0G106842}0G10G2068460G20G3068480G3068500D1:E31:D41:D53:D64:D75:6005:1'D11:D21:D31:D41:D51:D63:D74:6005:)21D11:D21:D31:D41:D51:D61:D73:6005:X2;D13:D24:D35:D46:D57:D68:D79:6005:i2X1," ";:z2Y1," ";:2Z1," ";:2[1," ";:2\1," "";:3{1," ";:31," ";:31," ";:31," ";:41,"";:41," ";:#41,"";:441," ";:E41," ";:V41," ";:g41," ";:x41," ";:41," ";:41," ";:41,"  ";:51," ";:51," ";:51," ";:51," ";:51," ";:61," ";:16*7000:1," "R6+7000:1," "s6,7000:1," "6-7000:1," "6.7000:1,200M03)(Y2200)D1D11:D10D17%(Y2300M03)(Y2300)D1D11:D10D17"%B%FL0:I122:"*";:::j%D17"":I122:"*";::"":%I122:"*";::"":%" ":%(Y100(Y100))(Y400"&p6010&uE11:E21:E31:E41:E51:E61:E71'v6209:D8D71:2'z1,4,0:65517:A(781):A4053281,1H'7900:7400:1,""'M07210,7220,7230,7240,7250,7260,7270,7280,7290,7300,7310,7320'1,"":1,"":6710:6750:6760'D96911,69216820:D7D:E7E(G1G71:6209:1,"":1,"":G1E96105) 1,"" )88100&)A7000:XE1:X1D1:8700;)LXE2:X1D2:8700P)VXE3:X1D3:8700e)`XE4:X1D4:8700z)jXE5:X1D5:8700)tXE6:X1D6:8700)~XE7:X1D7:FL1:8700)7000:XE1:X1XE6:X1D6:8900*FXE7:X1D7:FL1:8900+m7000:XE1:X1D1:9000+xXE2:X1D2:9000*+XE3:X1D3:9000?+XE4:X1D4:9000T+XE5:X1D5:9000i+XE6:X1D6:9000+XE7:X1D7:FL1:9000+7000:XE1:X1D1:9100+XE2:X1D2:9100+(15)" ";,:1,(14)"THU";:1,(15)" "; -;1,(14)"FRI";:1,(15)" ";+-<1,(14)"SAT";:1,(15)" ";[-@1," ";:1,(14)"---";:1,(15)" ";-A1,(14)"---";:1,(15)" ";-B1,(14)"---";:1,(15)" ";-C1,(14)"---929.f.hM01M013:YY1:6770.mM02M014:YY1.rMM02$/wD9(2.6M0.2)DY1900((Y1900)4);/|D9D9(194)219Q/D9D9(D97)71h/M04M09D9D91/M013M01:YY1:6810/M014M02:YY1:D9D91/D98D9 1:68550DG2:E1:68550DG102:E2:68550DG202:E3:6855 1DG302:E41>1D11:D22:D33:D45:D56:D67:D78:6005:m1 D11:D21:D33:D44:D55:D66:D77:6005:1D11:D21:D31:D43:D54:D65:D76:6005:1D11:D21:D  STAR DEMO PI2E"STAR POINTS WANTED (0 TO END)";PWQPW0"SKIP TRY VALUE CLOSE TO HALF # POINTS)";SK"RADIUS <100 ";RPPIPW2BMGR1:CB2K4:FBMS0:FSCR1<X160:Y100R:TL0FJ1PWPTHTLSK ZTLTH " "6/647000:1," "657000:1," "767000:1," "?777000:1," "`787000:1," "f797>7000:1," "7?7000:1,"  0:1," "8M8R7000:1," "8S7000:1," "9T7000:1," "@9U7000:1," "a9V7000:1," "g9W9\7000:1," "9]7000:1,"  7000:1," ":k:p7000:1," ":q7000:1," " ;r7000:1," "A;s7000:1,""b;t7000:1,""h;u;z7000:1," ";{7000:1,""<7000:1," "<<7000:1," "=7000:1," "!=7000:1," "B=7000:1," "c=7000:1," "i==7000:1," "=7000I410>7000:XI1:8200:7000:XI2:8200:7000:SI3:8200>7000:XI4:FL1:8200 ?Z7000:XI1:8300:7000:XI2:8300:7000:XI3:8300:?[7000:XI4:FL1:8300q?7000:XI1:8400:7000:XI2:8400:7000:XI3:8400?7000:XI4:FL1:8400?"R"@"PLEASE TYPE IN THE":"MONTH AND YEAR"A" THAT YOU WISH TO SEE":" (EXAMPLE: 12,1983":5);AM0,YDA," THANK YOU! NOW---":" PLEASETURN ON THE"oA1"PRINTER AND THE TYPE":8)"OK":R$AJR$"OK"7980A^"PR0:Bl X7012,7022,7032,7042,7052,7062,7072,7082,7092,7002Bv FL11," ";:B 1,"":FL0:&C X7013,7023,7033,7043,7053,7063,7073,7083,7093,7003;C FL11," ";:LC 1,"":FL0:C4!X7014,7024,7034,7044,7054,7064,7074,7084,7094,7004CD"FL0:1,"":D`"X7000,7112,7012,7022,7032:1," ";Dj"X17000,7002,7012,7022,7032,7042,7052,7062,7072,7082,7092Et"FL11," ";:&E~"FL0:1,"":NE"X7000,7113,7013,7023,7033:1," ";E"X17000,7003,7013,7023,7033,7043,7053,7063,7073,b7000,7005,7015,7025,7035,7045,7055,7065,7075,7085,7095F#FL11," ";:F#FL0:1,"":7052,7062,7072,7082,7092Et"FL11," ";:&E~"FL0:1,"":NE"X7000,7113,7013,7023,7033:1," ";E"X17000,7003,7013,7023,7033,7043,7053,7063,7073,:THTHP(PI4) dX2(TH)R1603 nY2(TH)R100F xDRAWX,Y,X2,Y2\ X(X2):Y(Y2):o A$:A$""140 BMGR0:CB2K2:"":20 "7@7000:1," "7A7000:1," " 8B7000:1," "8C28H7000:1," "S8I7000:1," "t8J7000:1," "8K7000:1," "8L700 "9^7000:1," "9_7000:1," " :`7000:1," ":a3:f7000:1," "T:g7000:1," "u:h7000:1," ":i7000:1," ":j ";|7000:1," ";}7000:1," " <~7000:1," "<4<7000:1," "U<7000:1," "v<7000:1," "<7000:1," :1," "=7000:1," "=7000:1," ">7000:1," ">X>I1(Y1000):J1YI11000:I2(J1100):J2J1I2100:I3(J210)h>I4J2I310x>I20I210>I30I310>I407000:XI1:8500:7000:XI2:8500:7000:XI3:8500?#7000:XI4:FL1:8500@7000:XI1:8600:7000:XI2:8600:7000:XI3:8600/@7000:XI4:FL1:8600:_@" THIS IS A PROGRAM":"TO PRINT A"@" MONTHLY CALENDAR":" ON THE PRINTEINTING":I1800::A1,(15)" "A6720A1B" DO YOU WANT ANOTHER?":11)"YES OR NO";BA$BA$""8110)BA$"Y"6010/BhB X7011,7021,7031,7041,7051,7061,7071,7081,7091,7001}B FL11," ";:B 1,"":FL>!FL11," ";:CH!1,"":FL0:C!X7015,7025,7035,7045,7055,7065,7075,7085,7095,7004C!FL11," ";: D!1,"":FL0:2D!X7000,7111,7011,7021,7031:1," ";qD"X17000,7001,7011,7021,7031,7041,7051,7061,7071,7081,7091D"FL11," ";: 7083,7093E"FL11," ";:E"FL0:1,"":E(#X7000,7114,7014,7024,7034:1," ";F2#X17000,7004,7014,7024,7034,7044,7054,7064,7074,7084,70941F<#FL11," ";:BFF#FL0:1,"":RF#1,(15)" "zF#X7000,7115,7015,7025,7035:1," ";F#X1  CIRCLE DEMO&(1)551,54I "CENTER X,Y; 0,0 TO END";A,Bw"RADIUS; LESS THAN OR EQUAL TO A OR B";RFSCR1:CB2K4:BMGR1:FBMS0A0B0BMGR0:CB2K2:"":#RARB102PH0:Y10:X1R<PYPHY1Y11 FPXPYX1X1v2K2:# "CENTER X,Y; 0,0 TO END";A,BQ "RADIUS; LESS THAN OR EQUAL TO A OR B";Rn FSCR1:CB2K4:BMGR1:30;RFSCR1:CB2K4:BMGR1:FBMS0A0B0BMGR0:CB2K2:"":#RARB102PH0:Y10:X1R<PYPHY1Y11 FPXPYX1X1  2080'N O NOh  wxƩLx0RUN ࠝJҦӦ%T$ۍߠ,-&L+W-YȍX,` )NԅON %N`NL NNA )NN`L,L  8_`AB`  s ( GH ׻` NO N`)ܥ)HH sLå  `ehL y,` yɉL7ɍL2 sLETPkzHHziz{`i` !`  ` L L L !` @ L  ֩@L  L  L )) )) `!IŪ@ŬŹ-řЭ)ōнōЩLx   ť)  ť) ŭ) ōЭōЩũЩ ōX`x1XL  ` )؝ٝڝ))  ` y`hhLF 8`....8..`    8M8MMȭL:(mm8Lk`z` KɥL`  8)) ) ƥ)&&&KemLɅii)x)L ɒL )IӥG`Q,Lbǩ1ȩAȩˍ` bǩȩƍ` I`1 % wL6Lw ) ` "SUPERBASIC V3 011084""BY MARTIN C KEES""[CATA":CATA: )x)  MOIRE TITLE PAGE DEMO(EXTC0I CB2K4:BMGR1:FBMS0 :FSCR1XJ03182rDRAWJ,198,160,100 :J03182DRAWJ,0,160,100 :J01982DRAW160,100,318,J :J01982DRAW161,100,0,J :EXTC4 M1 PPLOT AX1,BY1( ZPLOT AX1,BY1; dPLOTAX1,BY1N nPLOTAX1,BY1a xPOOTA,BX/x QHQHTQ ȇTT݉w6nvw*$"SUPERBASIC":HRCS53248:M$M$""3 (X120:Y80:50` -M$"BY MCSOFT":M$M$"":X124:Y120:50 /CHRX54,152,89:CHRX52,160,89 0J1800: 1FSCR16: 100 2CODEM$:J1(M$) <CHRX((M$,J,1)),X,Y FXX8: P dA$:A$""10 s `    a H 'hu % &Щ ` HH  hh Ѝ` ) N`NI=Н`  )NԅO N N N %` 1MOVE]DSPReSSNDPLAYBKGD8EXTCAKSPRJESPRTBSPP\STUFECGR}MCGRBMGRSIZEXYSCCATABANK5VS1KqCB2KDLCSMXGRAKMXGCMXVFCOLPLOTFLIPzCLPXMCPLFSCRFBMSDRAWHRCS