' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]$$8HIL,նh, ,`, ,`, , ,:/8` 鷎귭෍ᷩ췩緈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`29:BS36864:KB16384:KS16368j$C14096:C2256:C316:C5511:C6255:C7128:C8100:C910:D$(4):I$(9)$SL6:DR1:HB0:HX1:HF1:HT1:VT0:BL0:BF0:CC0:CF0:HE$"0123456789ABCDEF":1860:530 ";:460$#34,0::320:22:320:T#POKE ML I/O, INIT VARIABLES, SET CONSTANTS#(774)32ĺ(4)"BLOAD OBJ.PROEDIT,A$300"#FM768:TM771:EF772:CT773:PD774:CM783:UT795:BK798:HP800:DP806:PB826:BU855$ID63696:LE47:PC58:RD128:WR1RN USES DISPLAYED VALUES)":4:"S - SET SLOT":4:"U - UPDATE COMMAND LINE TO DEC/HEX""l4:"W - WRITE BLOCK TO DISK":4:"X - EXIT TO APPLESOFT":4:"Z - ZERO RELATIVE BYTE COUNTER":"CTRL L/N - LAST/ NEXT SECTOR"#v24:8:"PRESS ANY KEY TO CONTINUEE - EDIT (ESC TO END)"!X4:"H - TOGGLE ASCII EDIT HI-BIT":4:"I,J,K,M - MOVE CURSOR IN FIELD":4:"L - DISASSEMBLE BUFFER":4:"O - OUTPUT SCREEN TO PRINTER"V"b4:"P - POSITION CURSOR IN FIELD":4:"R - SET BLOCK THEN READ (RETUSPACE OR RETURN? ( &120:KY1411740@ 01920:550:PB:250V :PRINT HELP TABLE D:::8:"COMMAND TABLE:"::4:"A - TOGGLE ASCII/HEX DISPLAY":4:"B - TOGGLE ACTIVE BUFFER HALF"!N4:"C - TOGGLE CONTROL-CHAR PRINT":4:"D - SET DRIVE":4:"0NU254;"] ";:1790-"+";NU2;"] ";PR(LE)PR1:PRC5ĺ:D$;"PR#0"::" PLEASE PRESS ";AB$:1920:550:PB:250(KB)C71740PRINT LOOP END - IF YOU'RE HERE, KEY WAS PRESSED KY(KB):KS,0:KY160KY1411740:::"STARTING BYTE ($0 TO $1FE HEX): ";AB$:(AB$)0PR0:1740^950:PR0PR5101710zPRINT LOOP STARTS HEREA1BSPR:A2C2:440:PC,NU:PC1,((BSPR)C2):IDA1(BSPR):A232:440:NUC3179027:"[";:NU(BSPR1):NUC7178h120.r1:1840:600:250:1::KY141ıU| SET UP FOR PARALLEL PRINTER CARDnD$;"PR#1":I$;"80N"V124:V:X(40)(41)256:HXX39:AS(H):(((AS32)(AS64))((AS31)AS));:::I15:::D$"PR#0":DISASSEMBLE BUFFERCER HALF;BFBF:PTVT13HT1BFC2:BU,144BF:530:550`TOGGLE ASCII HI-BIT (EDIT MODE)m"HBHB:,ZERO POINTER OFFSET6OFPT:@ EXIT TO BASICJ::T OUTPUT TO PRINTER^23:1:" VERIFY PRINTER ON & PRESS ";SET ACTIVE SLOT]24:27::"SET SLOT";:1::"SLOT"(7);::6:" ";:830:KY15ī550qKY1KY71490SLKY:UT,(DR1)C7SLC3:550WRITE BLOCK TO DISKCM,WR:24:27::">WRITE<"(7);::980:CM,RD:550TOGGLE DISPLAYED BUFF0'xA1KY:420:830:KY15KYA1:300LA2KY:420:830:KY15İ900:300wA3KY:420:920:BFĭKYC6İ760:1390BFĭKYC2KYC5İ760:1390KYC6KYKYC2300READ A BLOCK FROM DISK24:27::">READ<";::(7)" ";:980:5501860:550:530:1080'(LAST BLOCK?2BLBL1:BL01060P<BL279:1060`FNEXT BLOCKzPBLBL1:BL2791060ZBL0:1060dSET POINTER IN BUFFERn24:27::"SET-PTR";:23:33::"PTR"(7);::" "(8)(8)(8);:830:KY15İ550:25GLE CTL-CHAR PRINT/HF2CCCC:CT,CC:5305NTOGGLE ACTIVE DRIVEaDR((DR1))1~UT,(DR1)C7SLC3:550EDIT24:27::(7)">>EDIT<<";:ED1340:600:1270TOGGLE COM'D LINE HEX/DEC CFCF:HELP SCREENjKY0KY27ĴKY1160,1550,1200,1230,1260,760,760,1570,150,150,150,1710,150,760,1630,1390,760,1470,1490,760,1290,760,1530,1610,760,1590t1080~TOGGLE ASCII/HEX FIELD DISPLAYHXHX:HX1180HF2:FM,HF:530HF1:FM,HF:530TOGz#????     ήԠ̠ήҠϮҠή̠ˠήҠΠ͠٠ˠǮԠîԠʮԠήҠ8(ST6UVk,ȱk-`),-`G ::63000]Y140:"=";::qX;:5:A$(X):(" "X" ";:6:(A$(X),15):2X" ";:5:(NA$(X),8,15):<1:20:22:20:34,1:2:FP33,21:32,19:1:1:: U33,40:   (7)(7)(7);::460:KY141470Q$BK1,(BLC2):BK,(BL((BLC2)C2)):520q.TOP OF MAIN 'COMMAND' LOOP8216,0:ED0:580:600:(772)0İ780B GET COMMANDL270:120:KY140İ1330:1080VKY142İ1360:1080`KYKY192:KY11310LOCK";::" ";:830:KY15KY(BK)(BK1)C2:1020[A1KY:420:830:KY15KYA1:1020A2KY:420:830:KY15İ900:1020A3KY:420:920KY0KY279ĺ(7);:980BLKY:60023:1::"BLOCK";:!(CM)129Ģ24:27::"??WRITE??"DEC (3 DIGITS)4ENCODE STRING INPUT TO HEX VALUEAB$"000"AB$:AB$(AB$,4):J1:I14:PR(I)0:I:I1(AB$):PR(I)((AB$,J,1))48:PR(I)9PR(I)PR(I)7JJ1:I:PRC1PR(1)C2PR(2)C3PR(3)PR(4):PRODOS BLOCK NUMBER423:1::"BASSEMBLE NUMBERQEDCFKYA1C3A2::'EDIT' OR COMMAND LINE HEX (2 DIGITS)EDCFKYA1C9A2::NOT 'EDIT', GET DEC NUMBER (2 DIGITS)EDCFKYA1C2A2C3A3::'EDIT' OR COMMAND LINE HEX (3 DIGITS)KYA1C8A2C9A3::COMMAND LINE :772,0:35,24:53054KEYPRESS DECODE FOR NUMERICSH>460:KY141ılHKYKY176:KY0KY22İ760:830RKY9KYKY7:KY10KY15İ760:830\EDı:EDIT MODE? THEN MUST BE HEXfCFKY9İ760:830:COMMAND LINE DEC NUMBER TOO BIG?pzL;:15:DR;:22:CFĺ"HEX";:,"DEC";:;RING BELLL(7)(7);:nDECODE ERROR, PRINT TO FIELD ER(EF):34,1:35,21::12:12:ER39ĺ"DISK I/O ERROR"ER40ĺ"NO DEVICE CONNECTED" ER43ĺ"DISK WRITE PROTECTED"*I12500:(8);(8);(8);(8);:PTOF1ĺ" ";:6803"-";c(PTOF)C6ĺ"1";:TM,(PTOF)C2:HP:700~"0";:TM,(PTOF):HP23:21:"^";::HF1ĺ"HEX";::"^ ";HF2HBĺ"ASC/MSB=";::"0";HF2HBĺ"ASC/MSB=";::"1";24:6:S ";:37:PT" ";:24:36:PTOF1ĺ" ";(8);(8);(8);PTOF;:700ubCFĺ" ";(8);(8);(8);(8);PTOF;:700lBLC6ĺ"1";:TM,BLC2:HP:640v"0";:TM,BL:HP37:PTC6ĺ"1";:TM,PTC2:HP:660"0";:TM,PT:HP)24:36:" ";INE LABELSN&23:1:958::"BLOCK";:BFĖ12::">";::"BUF";::"FER";:x0BFĖ13::"BUF";::"FER";::"<";::33:"PTR":"SLOT";:9:"DRIVE";:18:"I/O";D24:27::"COMMAND";::" ";:NPRINT STATUS LINE VALUESEX23:7:CFĺBL" HAR 120:KY155ıR BL(BK1)C2(BK):1920:550:600:530:CM,RD:1080] :480 POKE VALUE INTO BUFFER, PRINT TO FIELD BSPT,KY:270:" ";:TM,KY:DP:200 ACCESS DISK, PRINT BUFFER FIELD PD PB:250 PRINT STATUS LA1KY:4205 830:KY15ĺ(7);:390:2ND HEX DIGITg A2KY:420:900:500:CONVERT DIGITS TO TOTAL PRINT DEC/HEX DIGIT FROM LOOKUP TABLE (HE$,KY1,1);: CALC A1 MOD A2 NU((A1)((A1A2))(A2).05)(A1A2): INPUT ASCII C):HTKY(VT13)1:550:2503 6PRINT "----------"I @I140:"-";::` JPROCESS EDIT DATA T:270:"> "(8)(8);:HF1370:HEX DATA?? ^460:HBKYKYC7: GET ASCII CHAR, SET BIT 7? h500 r830:KY15ĺ(7);:370:1ST HEX DIGIT |30 250# VTVT1:VT19VT08 VT19HT9HT9` 270::">"::PTVT13HT1BFC2:z CALC CURSOR POSITION HT1HT13:VTVT1:VT0VT19:HT9 (HT1)31:VT2: "PRINT CURSOR IN BUFFER FIELD ,KY(KY):270:" ";:VT(KY13 n WAIT FOR KEY* xKY(KB):KYC71206 KS,0:P MOVE CURSOR IN FIELD 270:" ":KYKY8:KY160,180,200,1080,230 VTVT1:VT0VT19:240 250 HTHT1:HT0HT13:160 250 HTHT1:HT13HT1:230 VT19HT9HT1:2 *********************7* PROEDIT *R* PRODOS BLOCK *m(* EDITOR *2* BY BOB BERGSTROM *<* (C) 1985 *F* SOFTKEY PUBLISHING*P*********************Zd::36863:1940:550:1080          BRANCH>JMPNEWLN;NEEDNEWLINE3HBUFENDJSRCLREOL;PRINTSPACESONRESTOFLINE%RINCCV;MOVECURSORTONEXTLINE \JSRVTAB&fLDA#$16;SETTOPLINEOFSCROLL-"pSTAWNDTOP;WINDOWTOLINE22zRTS;RETURNTOBASICPROG*-*BROUTJSRCOUT;GOPRINTLDA#$A0;PRINTTWOSPACES JSRCOUT LDA#$A0 JSRCOUT,COUNTINCBUFCNT;MOVEPOINTER1FURTHER* BEQBUFEND;IFROLLEDTOZERO,BRANCH-*DECLNLFT;DECREASELINESPACEREMAINING&4BNESAMELN;IFSPACELEFT,FORCOUT(CMP#$A0;VALUE>=$A0?(NORMORLC)BPLPROUT;YES,GOPRINT#LDXCFLAG;GETCTRLPRINTMODECPX#$00;PRINTA'.'?BEQDOT;YES'SBC#$80;NO,SETFORINVERSECHARJMPPROUT)DOTLDA#$AE;NO,CTRL-CHARPRINT"."PBUF91=FER(POKEBEFORECALL).DLDXPRNTMOD;GETPRINTMODE(1=HEX2=ASC) NCPX#$02;PRINTASCIITEXT? XBEQTXTPRNT;YES,GODOIT.bJSRPRBYTE;NO,PRINTHEX.lLDA#$A0;PRINTASPACE vJSRCOUTJMPCOUNT(TXTPRNTORA#$80;SETMSB=1TACH;TOLEFTEDGEOFFIELD&STABUFCNT;INITPTRTOBUFSTART*NEWLNLDA#$0D;SETCOUNTFOR13PRINT#STALNLFT;POSITIONSPERLINE.LDA#$A0;PRINTASPACE &JSRCOUT30SAMELNLDXBUFCNT;GETOFFSETINTOBUFFER,CHAR2:LDA$9000,X;90=JSRCOUT;PRINTTEXTRTS*-*CALLHEREPRINTS1/2BLOCKOFHEX/ASCII-*WHICHHALFOFBUFFERCONTROLLEDBYPOKE*$LDA#$01;SETCURSORVERTICALLY#STACV;ATTOPOFFIELDWINDOW JSRVTAB&LDA#$00;SETCURSORHORIZONTALLY"S*'JLDATEMP1;LOADACCUMFORPRINTOUT%TLDXPRNTMOD;GETPRINTMODECODE%^CPX#$02;ASCIIPRINTREQUESTED?*hBEQASCPRNT;YES,PRINTFIELDASTEXT.rHEXPRNTJSRPRBYTE;NO,PRINTFIELDASHEX|RTS(ASCPRNTORA#$80;SETMSB=1FORCOUTRIVEPARMHEREBEFORECALL*DATABUF.HS0090;BUFFERADDRESSLO,HI4BLOKNUM.HS0;BLOCKNUMBERTOREADPOKEDHERE*+*CALLHEREPRINTSBASELINEDATAASHEX*LDATEMP1"JMPHEXPRNT,*-6*CALLHEREPRINTSFIELDDATAASTYPEDIN@80;COMMANDPOKEDHERE(80=RD81=WR)&x.DAPARMLST;ADDRESSOFPARMLIST RTS;PRODOSRETURNSTOHERE**%ERRORSTAEFLAG;STOREERRORCODEJSRBELL;RINGBELLRTS**#PARMLST.HS03;PARAMETERCOUNT4UNITNUM.HS60;SLOT/DFLG(00='.'01=CTRL)**CALLHEREFORDISKI/O(*32ENTRYJSRSYSCALL;CALLTHESYSTEMCALLROUTINE'<BNEERROR;IFA-REG=0THENERROR$FRTS;CALLCOMPLETE,NOPROBLEMSP*Z*5dSYSCALLJSRMLI;ENTERPRODOSMACHLANGINTERFACE-n.HSTMODE(01=HEX02=ASCII)1LNLFT.HS00;SPACELEFTONCURLINE(0D->00)4BUFCNT.HS00;BUFFERCOUNT,DATAPRINT(00->FF)3TEMP1.HS00;DECDATAPOKEDHEREFORHEXCONV..EFLAG.HS00;MLIERRORFLAG(00=NOERROR)6 CFLAG.HS00;CTRLCHARPRINTB.EQ$FC22;VTABTOCV*jCLREOL.EQ$FC9C;CLEARTOENDOFLINE&tPRBYTE.EQ$FDDA;PRINTAHEXBYTE$~COUT.EQ$FDED;PRINTASCIITEXTBELL.EQ$FF3A;RINGBELL***.OR$0300.TFOBJ.PROEDIT**5PRNTMOD.HS01;DATAPRIN *-**MACHINELANGUAGE*SUBROUTINESFOR *PROEDIT*BYBOBBERGSTROM*-*$*.*8WNDTOP.EQ$22;WINDOWTOP#BCH.EQ$24;CURSORHORPOSITION$LCV.EQ$25;CURSORVERTPOSITION-VMLI.EQ$BF00;PRODOSSYSTEMCALLADDRESS`VTA      ` ` :``L0 ` `% "$   L ɠL~ нLH % ""` INSTANT RECALL CONTROLLERHTK3:LT35:ST15:LS15:CDWR:FAST1[360:490:610~360:490:610:(TRK)LT1050TK(TRK):ST(SCT):1020:"COPYDONE":'(4)"BLOAD RWTS.RECALL,A$1900"W(SCT):1020 B"COPYDONE":6 1 CHANGES,17,0,1,170 BTKLT1020c L:"DONE WITH COPY":~  1 CHANGES,17,0,1,178%BATALLA DE PALABRAS CONTROLLERMTK4:LT35:ST15:LS15:CDWR:FAST1[490:27047405,24:47406,96:47497,24:47498,96610490:230::310$47405,208:47406,19:47497,208:47498,185.610:(TRK)LT1090 8TK(TRK):ST  :D$(4)%D$"BLOADGES.PG1"F16304,1:16297,1:16302,1\(D$"BLOADGES.PG2"l2K(16368)<16299,1:X1500::16300,1:X1500:F(16368)K60P:10:10:"ONE MOMENT PLEASE":ZD$"RUN SPANISH HELLO"3TKTK4 =BF0TKLT1070/ BTKLT1020K L::"DONE WITH COPY":Z 3 CHANGESi 1,15,0,24x 1,15,1,96 1,15,2,221C1% FINANCIAL COOKBOOK CONTROLLER?TK0:ST0:LT21:CDWRPT1TK:490:s430:100:STST1:STDOS1030BF1060ST0:TKTK1:TK3TKTK4TKLT1030$310:490:TKT1:ST0.430:100:STST1:STDOS1070 8ST0:TKTK1:TK ANGES 0,4,53,222% 0,4,63,1706 0,4,145,222G 0,4,155,170HSUPER ZAXXON CONTROLLERFTK0:LT28:ST15:LS15:CDWR:FAST1e490::190:210:170:610310:230:490:610:(TRK)LT1050TK(TRK):ST(SCT):1020:"COPYDONE":213,170,150213,170,173170,222,170,222 4 CH 41352,3 F72,0:144. P(4)"BLOAD DUMMY"R Z41350,173:41351,95:41352,1704TG A$"88888888888888C3C1CECECFCEC2C1CCCCA0C2CCC9D4DAA0A0A0A0A0A0A0"vA$"A21DBD11039D75AACA10F7AD5FAA4C89A1"A$I1(A$)2:HX$HX$" "(A$,I,2):(HX$"300:"HX$" ND823G"2I1(HX$):511I,((HX$,I,1))128: <41350,76:41351,0: RECTORY !!!": |:1000"X138:B$B$"=":3 ,X10511:NAME$(X)B$:I 6NAME$(0)(B$,19)U @D$(4)} E12:12:"READING CATALOG ":12:29 Y63075 ^2054:D$"CATALOG" c216,0:D$"PR#0":D$"IN#0": h(NA$(0),1)" "Ģ12:868:"!!! ERROR - UNABLE TO READ DI85:34,22 23:958T "SELECT A FILE BY NUMBER -->";A$:A(A$):AMAX2010_ A1Ĭ} :::T(A)66T$"BRUN " T(A)84T$"EXEC " T(A)65T(A)73T$"RUN " 23:T$A$(A) 23:D$T$A$(A)  NAME$(105),A$(105),T(105) ((NA$(N),8,1))942000! XX1: A$(X)(NA$(N),8,30)T T(X)((NA$(N),2,1))h X21İ30:2000 X21X61X101İ80 X41İ40:2000 $X41X81İ90 .X61İ30:2000 8X81İ40:2000 BX101İ30:2000 L40  MAXX 32,0:23:1::U Z85:23:"IS YOUR PROGRAM LISTED HERE? Y/";::"N";::" ";:A$:w dA$"Y"MAXN1:N105::2000 n23:958:34,1:35,21::35,24: 60:X0 N1105 ((NA$(N),8,1))652000 ((NA$(N),8,1))61N105:2000