' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]E˵B̵CõDĵEµµBD ĵ ⵭µLj` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 ᷈LɍL巬 췌`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,&" ۰!õĵ񷮻ʊֵ׵ Rĵ µL  !"#$%&'()*+,-./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:-,,-6,,-+0-;9-#0-,31-*(E(B;+4! h8+3 10PX !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌` L ۰L8õ浍õĵBD`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@ [_ /QSIR4b_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 켍ٶ׶ L{ BH [ h`Lo õ ڬL 켍׶ٶ L~H hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L  `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8DH 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뷭鷭  Lª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵ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#>  'Q` XL"# X"#L X [  LO   ( Ѕ  L LB`L  L `Ǡՠ͠ΠŠč0L L L ʅL  @@ iL;   Lb L  `( ` i 1L `ii`  LŠՠ͠Ӡ ΍ÍΠ((((PP 2 X`456t6 7  67 X $  L`  [  [`Bɪi&iL @@    LL %*+@6ɢL" ɘLD @L( LYiЅi ⭁/i iЅ ⭃ 2 X [eP LVP iŠĠŠɠҠӠĠàhhl  . $ ; &?1?=A>?I i`HH11`쩻듧ƙɾ5Ö+]̵ h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L4 uLCL@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:0`: V:8 J8L Lӭpd`HVTQ PS 6" (!#%L" PJ TuVTvP` P&Q&R&S8RTSURSP`/T P 8/`HJ) )h)i( ((`ɇ@ 0`$($$4i#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDD h,h-<:B/ Y`EL\lY@5)I:< ?L<EhH 0l( Lh:h; LehHh:h;/ V; THH::;:-H,H E@A  J -&,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S$`J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,- W :L ` `  eȱe ` -L -La=?P<Ȅ> sʆ>PHt?QnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hLz#?     ԮҠ ŠŮʰ  ŠŠԠǠɠԠǠɠ ǠĠРˠĠҠҮʠҠР8ˠŠҠ!ԠŠҠҠԱ0 PRINT 2*A%":8JY$"CATALOG":"'"Y$"' DISPLAYS DISK FILES. ]"Y$:340"CHR$ RETURNS THE CHARACTER FOR A GIVEN ASCII CODE. ]?CHR$(65) ]A":8"'CLEAR' FORGETS ALL VARIABLES. PROGRAM LINES ARE NOT CLEARED. ]CLEAR":88"'CLOSE' TERMINATILE,A768,L96 (DEC) ]"Y$" (HEX)":340"'CALL' JUMPS TO A MACHINE ROUTINE AT THESPECIFIED OR CALCULATED ADDRESS. ]CALL 768 ]CALL A 5 CALL A+B":8"'CHAIN' COMMAND WORKS ONLY WITH INTBASIC":8"'%' DENOTES AN INTEGER VARIABLE. 10 A%=51 2LE ]BLOAD FILE,A768 (DEC) ]"Y$" (HEX)":340Y$"BRUN EXPENSIVE GAME":"'BRUN' FIRST LOADS A BINARY PROGRAM, THEN RUNS IT. ]"Y$:340&Y$"BSAVE FILE,A$300,L$60":"'BSAVE' SAVES A BLOCK OF MEMORY. A AND LDEFINE STARTING ADDRESS AND LENGTH. ]BSAVE F$3F5.IF A JMP TO A MACHINE ROUTINE IS PLACED AT $3F5, THE ROUTINE WILL CALLED BY '&'. 100 &":8,Y$"BLOAD FILE,A$300":"'BLOAD' LOADS A DISK IMAGE OF MEMORY TO THE SPACE FROM WHICH IT WAS SAVED, OR TOA DIFFERENT LOCATION WITH 'A' PARAMETER. ]BLOAD FIY$Q$:8v"'ASC' GIVES THE ASCII CODE FOR THE FIRSTCHARACTER IN A STRING. ]?ASC("(34)"APPLE"(34)") ]65":8"'ATN' IS ARCTANGENT. IT GIVES THE RADIANANGLE FOR TANGENT SPECIFIED. ]5 X = ATN(2.5)":8`"& EXITS BASIC, JUMPING TO LOCATION TO 10) 9 IF 3>2 AND 4>5 THEN 10 (DOESN'T GO) AN 'OR' IS TRUE IF ANY PART IS TRUE. 5 IF 3<4 OR 5>6 THEN 50 (GOES TO 50)":8Y$"APPEND FILE":"'APPEND' REPLACES 'OPEN' WHEN ADDING RE-CORDS AT THE END OF A SEQUENTIAL FILE. 5 PRINT CHR$(4)"Q$,TEXT,THEN,TRACE,UNLOCK,^G,USR,VERIFY,VLIN,VTAB,WRITE,^J,VAL,XDRAWk"CAN'T HELP YOU WITH ";::G$::8"ABS IS ABSOLUTE VALUE. ]?ABS(-10) ]10":8"AN 'AND' EXPRESSION IS TRUE ONLY IF BOTHCONDITIONS ARE TRUE. 8 IF 3>2 AND 4<5 THEN 10 (GOESON,NEW,",",MAXFILES,NEXT,NOMON,NORMAL,NOT,":",NOTRACE,ON,ONERR,OPEN,OR,";",PDL,PEEK,PLOT,POKE,POP,=,POSITION,POS,PR#,PRINTB4READ,>,RESTORE,REM,RENAME,RESUME,RETURN,<,RIGHT$,RND,ROT=,RUN,SAVE,?,SCALE=,SGN,SIN,SPEED=,SPC(,.,SQR,STEP,STOP,STR$,TAB(,^C,TANCLEAR,CLOSE,CONT,$,COLOR=,COS,DATA,DEF,DEL,(,DELETE,DIM,DRAW,END,EXEC,),EXP,FLASH,FN,FOR,FP,E,FRE,GET,GOSUB,GOTO,GR,+,HCOLOR=,HGR,HGR2,HLIN,HOME,-z3"HIMEM:",HPLOT,HTAB,IF,IN#,*,INVERSE,INIT,INT,INPUT,LEFT$,/,LEN,LET,LIST,LOAD,LOCK,^,LOG,"LOMEM:",MID$,M5,160,3,169,0,145,105,160,4,169,2,145,105,169,0,76,59,213 .165,105,141,136,3,165,106,141,137,3,169,96,133,104,169,151,133,106,169,0,133,105,169,1,141,87,170,32,212,167,76,102,2132ABS,AND,APPEND,ASC,ATN,&,BLOAD,BRUN,BSAVE,CALL,CHAIN,%,CATALOG,CHR$,I134 :G$""G$"-BLANK-" (G$,1)"Q"ė:"BACK TO YOUR PROGRAM:":104,8:105,(904):106,(905):115,0:116,96::25153: W(G$):W(W3):W4N114W6 :N2009 -32,123,221,32,82,231,32,26,214,76,65,217,32,111,253,138,160,2,145,103:116,96:115,0:5 A$(136):I1134:A$(I)::20R 23:"HIT ANY KEY ";:C$ Q$(34):H1::I1135:H:A$(I);:HH92(H8):H39H1: 0:N0 :"(";::"Q";::")UIT";::24:"WHICH?";::" ";:918:G$G$"" I1134:G$A$(I)NI:::55)"!! HELP !!"31)"(C) 1982"28)"BY LEIGHTON PAUL"52): (889)9Ĺ889,0:10:"FOR HELP WITH BASIC/DOS COMMANDS, TYPE ]HELP NOTE: 'HELP' MAY BE CLOBBERED BY USING HIMEM, FP, INT, OR MAXFILES. 'BRUN' HAS BEEN DISABLED.":104,8:106,8:105,24576,0:24577,0:24578,0:104,96:889,9::12:11)"HELP IS ON THE WAY!!":(4)"RUN HELP" G$"":I906975:J:I,J::1013,76:1014,138:1015,3:43262,72:43263,69:43264,76:43265,208:43325,64:43326,112:41870,76:41871,175:41872,3? (889)96# SERIAL #42-051385-1708A  !!HELP!! (C) 1981 BY LEIGHTON PAUL DISTRIBUTED BY: TELEPHONE SOFTWARE CONNECTION INC. P.O. BOX 6548 TORRANCE, CA 90504 (213) 516-9430 VOICE (213) 516-9432 MODEM [ (104)8ĺ(4)"MAXFILES1":                    8&"'IF...THEN' ARE A PAIR. BOTH MUST BE IN THE SAME LINE. THE REST OF A LINE AFTER 'THEN' IS IGNORED WHEN THE CONDITION IS FALSE. 5 IF A>3 THEN 10 7 IF P ARE RELATIONAL OPERATORS. A=B A EQUAL TO B AB A GREATER THAN B A<=B A LESS THAN OR EQUAL TO B A>=B A GREATER THAN OR EQUAL TO B A<>B A NOT EQUAL TO B EXAMPLE: 10 IF A<=B GOTO 500":85#246n3 "'POKE LOCATION,NUMBER' STORES A NUMBER FROM 0 TO 255 IN THE MEMORY LOCATION. 8 POKE 768,96":84!"'POP' REMOVES ONE ADDRESS FROM THE STACKOF SUBROUTINE RETURN ADDRESSES. AFTER A POP, A SUBROUTINE WILL RETURN TO THE GOSUB PRIOR TO THE SENALL PRINT ON THE SAME LINE. ';' IS ALSO USED IN INPUT STATEMENTS. 70 INPUT"Q$"WHAT?"Q$";W$":82"'PDL' GIVES THE SETTING OF A PADDLE. ]?PDL(1) ]87":82"'PEEK' READS THE CONTENT OF A MEMORY LOCATION. 50 A=PEEK(33) ]?PEEK(99) ]39":83PREPARES A TEXTFILE FOR A READ ORWRITE AT THE BEGINNING. 5 PRINT CHR$(4)"Q$"OPEN SEQUENTIAL FILE"Q$" 6 PRINT CHR$(4)"Q$"OPEN RANDOM,L30"Q$" (L IS RECORD LENGTH)":81202e2"';' EXTENDS THE SAME PRINT LINE. 50 PRINT A;B;C$; 60 PRINT D$ ST GOES TO THE NEXT INSTRUCTION.":80"'ONERR GOTO' SETS A FLAG SO IF AN ERROR OCCURS LATER IN THE PROGRAM, CONTROL IS QUIETLY SENT TO THE LINE SPECIFIED. 50 ONERR GOTO 400 'RESUME' IN THE ERROR ROUTINE JUMPS BACKTO THE ERROR POINT.":81"'OPEN' E' SHOWS LINE NUMBERS AS A PROGRAM IS RUN. 'NOTRACE' CANCELS. ]TRACE ]NOTRACE":8$0"ON...GOTO AND ON...GOSUB MAY BE USED FORMULTIPLE BRANCHING 50 ON A GOTO 60,70,80,90 WILL GOTO 60 ON A=1, 70 ON 2,80 ON 3, 90 ON A=4. IF A<>1,2,3 OR 4, THE PROGRAMJUILES' SETS HOW MANY TEXTFILES MAY BE OPEN AT ONCE. DEFAULT 3, MAX 16. ]"Y$:340Z.234c.270l.255."'NOT' FLIP-FLOPS TRUTH VALUE. ]?8>6 ]1 ]?NOT(8>6) ]0":8."':' SEPARATES STATEMENTS IN A LINE 5 HTAB 3:PRINT A:VTAB 6":8S/"'TRAC) ]NOMON C,I,O (TO CANCEL)":340R-"'NEW' ERASES PROGRAM IN MEMORY. ]NEW":8-"',' TABS SCREEN PRINTING INTO 3 COLUMNS. 5 PRINT A,B,C ',' ALSO DELIMITS MULTIPLE INPUTS: 6 INPUT A$,B$,C,D% ]BSAVE FILE,A768,L96,S6,D1":8Q.Y$G$" 5":"'MAXF249, "'MID$' SELECTS A PORTION OF A PREVIOUSLYDEFINED STRING. 50 B$=MID$(A$,5,3) ]?MID$("Q$"MARYLAND"Q$",3,2) ]RY":8!-Y$G$" C,I,O":"'MON' DISPLAYS DISK I/O ON SCREEN. (C)OMMANDS (I)NPUT (O)UTPUT ]MON C ]MON I ]MON O ]MON C,I,O (ALL, THENLOADS THE PROGRAM INTO MEMORY FROM DISK. ]"Y$:340+ Y$G$" HELLO":"'LOCK' PREVENTS OVERWRITING A DISK FILE,MARKING THE CATALOG WITH '*'.'UNLOCK' ISTHE REVERSE COMMAND. ]"Y$:340+ "'^' RAISES A NUMBER TO A POWER. ]?3^2 ]9":8+ 231, *"'LET' IS OPTIONAL. THESE HAVE THE SAME EFFECT: 4 LET A=21 4 A=21":8*"'LIST' PRINTS LINES: ]LIST (ALL LINES) ]LIST 2 (LINE 2) ]LIST 2-5 (LINES 2-5) ]LIST 9- (LINES 9+)":89+Y$"LOAD FILENAME":"'LOAD' SELECTS THE PROPER LANGUAGE BE ENTERED)":8)"'LEFT$' & 'RIGHT$' SELECT PORTIONS OF ANEXISTING STRING. 30 C$=RIGHT$(NAME$,5) ]?LEFT$("Q$"APPLE"Q$",3) ]APP":8)"'/' IS THE DIVISION SIGN. ]?11/5 ]2.2":8)"'LEN' GIVES THE LENGTH OF A STRING. 20 A=LEN(NAME$)":8L(6.2564) ]6 'INT', TYPED ALONE, SELECTS INTBASIC. ]INT >":8)"'INPUT' HALTS THE PROGRAM, PROMPTING THEUSER TO ENTER A VARIABLE OR SERIES. 5 INPUT A$ (PROMPT: ?) 6 INPUT"Q$"ENTER A"Q$";A (PROMPT: ENTER A) 7 INPUT A,B%,C$ (ALL MUST03'"* IS THE MULTIPLICATION SIGN. ]?2*4 ]8":8u'"SCREEN PRINT MODES: NORMAL "::"INVERSE "::"FLASH"::8'"'INIT' ERASES A DISK, FORMATS IT, THEN SAVES PROGRAM IN MEMORY. ]INIT HELLO":8B("'INT' GIVES INTEGER PART OF A NUMBER. ]?INTNNECTION"41)::34,6 :" THIS PROGRAM WILL CATCH APPLESOFT, INTEGER, BINARY, TEXT, AND OTHER DOS 3.3FILES AND PROGRAMS, SENT OVER THE PHONEBY SOMEONE USING TSC'S":::9)"TELEPHONE TRANSFER II"::' " AS FILES ARE RECEIVED, THEY WILL F2(30):D$(4)w <INIT10752:STARTFILEIN3:MOVEBLOKIN6:WRITEBUFIN9:CLOSEIN12:LOCMMIIIN15:PGECNT971:BFFR250 d44596,96 xA$:::::41):13)"TELEPHONE LINKER"41):7)"BY LEIGHTON PAUL & ED MAGNIN"41):" (C) 1982 TELEPHONE SOFTWARE CO:13:"INSERT DISK WITH TELEPHONE LINKER"::"AND PRESS RETURN";:A$:: :3:SE2:FE388:60,10:6000:10,170:SE396:FE578:6000 I192:A:I767,A: FME1860:252,FM256:251,FM(FM256)256 831 RV11520:CCRV3 S39168:C. P.O. BOX 6548 TORRANCE, CA 90504 (213) 516-9430 VOICE (213) 516-9432 MODEM  8/20/82 (4)"MAXFILES1":12288:13312:63999:63999:11 (4)"VERIFYTELEPHONE LINKER":36877,0 216,0:12I 216,0:  SERIAL #53-051385-1708A  TELEPHONE LINKER BY LEIGHTON PAUL & ED MAGNIN (C) 1982 BY TELEPHONE SOFTWARE CONNECTION -ALL RIGHTS RESERVED- v  DISTRIBUTED BY: TELEPHONE SOFTWARE CONNECTION IN          "Q$:8->L"CTRL J INSERTS A LINE FEED.":8>M"'VAL' GIVES THE VALUE OF THE DIGITS IN ASTRING. ]?VAL("Q$"12.3 APPLES"Q$") ]12.3":8>N227>T" 8 PRINT CHR$(4)"Q$Y$Q$:8GhaItJU DISK.":340=I246=J251>K"'WRITE', AFTER 'OPEN' / 'APPEND' SELECTSTHE DISK FILE FOR OUTPUT. 5 ?CHR$(4)"Q$"WRITE SEQ FILE"Q$" 5 ?CHR$(4)"Q$"WRITE RAND FILE,R98"Q$" 'READ' SELECTS THE FILE FOR INPUT. 9 ?CHR$(4)"Q$"READ RAND FILE,R98. ]TEXT":8"'A$=STR$(A)' FORMS AN A$ WITH THE SAME CHARACTERS AS THE VARIABLE A.":8;?"PRINT TAB(32)"Q$"BANANA"Q$" PRINTS BANANA":8;@"CTRL-C HALTS A PROGRAM. ]BREAK IN 25":8;A220 ";:16368,0:A$:A$&VOL,0A"47081,DS16:47082,DDs,CMD,1:TRACK,17:SEC,15:BLO,0:BHI,144:7806(36877)136(36913)0540@(ERR)0ĺD$"CATALOG,S"DS",D"DD::"THE ABOVE FILES WILL BE ERASED IF YOU CONTINUE!"::"OK TO CON)162ĺ:"DOES SLOT #"DS" HAVE A ";::::"FLOPPY";:::" DISK CARD? ";:A$:A$:A$"Y"250:"WHICH DRIVE? #1"(8);:A$:A$:DD(A$)1(A$(13)):DD1DD2ĺ(7):250:"PLEASE INSERT A BLANK DISKETTE IN":"SLOT #"DS", DRIVE #"DD" AND PRESS L}.ɍɠ0)?췭뷩  H *`췩뷩  H``;8ȱȱɩ)``T L-L.L.L-L-`ލ -Ȅ- . - .L+- . ~. -° .LI- . ~. . -ȑ` ``ȑX`1zmmL+#L+L+L+4췭뷩"  H ^+ *L,`.4 `뷩췩  H`"`.. ;+` *` #``#L,#e ` i8` /+``4422((t~~tt}pwԢԤ̝̿ʿʛҙԢ<( L*L*L/*L9*LC*L, ў Y* * ` ў u* * + ` ў N+ ` ў , ` ў + ], , + u* `!',U-:-70?2M1W1U1O5J;AB7C*@,;4=6@;BDCL@R;X;X=W>TAUD^AhbCh@k=i>lBv@|<~>{C~@;;?C?BB:38EOMC@B@;:?C?;;=?BCBJOOkMjSf`fifkxjj`UONoOYNZOrOMNOOTak}kZk[jih! (<<,10:2010,pISF2:10(I),(I1):I:ME(121)(122)256:EE42:173,95(08?FA ;6/*"#&+2<BB?:9;CNW] Z TPQX`iic_ajt{~ |sl#j'o"u{yx ,198,252,198,250,202,208,238,96162,47,189,81,158,157,208,3,202,16,247,173,83,158,141,243,3,73,165,141,244,3,173,82,158,141,242,3,173,95,170,208,4(27)ı:"LOST CONNECTION!!!":2990 6::"TOO MUCH NOISE ON LINE!!!":::1912MS2,183,32,227,3,32,217,3,169,0,133,72,96,0,0,169,0,133,249,169,48,133,250,96,160,0,177,249,153,0,149,136,208,248,230,250,206,23,3,96,173,23,3,208,235,96,32,220,3,32,214,3,96169,47,133,250,169,0,133,249,162,6,160,255,177,251,145,249,136,192,255,208,247"3-LOAD OBJECT CODE FROM DISK":P "4-RUN MACHINE LANGUAGE PROGRAM WITH SYS"V "5-RUN MACHINE LANGUAGE PROGRAM WITH USR" "6-LIST MACHINE LANGUAGE PROGRAM" A$:A$""180 (A$)0(A$)6180 (A$)14000,20000,9000,10000% $ 6502 ASSEMBLER FOR APPLE ][e< BY LYNN NICHOLSON[ MN$(256),BY%(256),CO$(16)hE0255{MN$(E),BY%(E)(<E015FCO$(E)PZ(147):d"1-INPUT SOURCE 0ODE AND ASSEMBLE":n"2-SAVE OBJECT CODE TO DISK":! x     (#(147)$2#"ENTER FILE NAME";N$5<#OPEN1,1,0,N$@F##1,ZZKP##1,ENYZ#ADZZENed##1,DA%qn#AD,DA%wx##CLOSE1#ULL,0,CPXZ,2,SBCZ,2Tt INCZ,2,NULL,0,INX,1,SBCIM,2,NOP,1,NULL,0,CPX,3,SBC,3,INC,3~ NULL,0,BEQ,2,SBCIY,2,NULL,0,NULL,0,NULL,0,SBCXZ,2,INCZX,2,NULL,0,SED,1 SBCY,3,NULL,0,NULL,0,NULL,0,SBCX,3,INCX,3,NULL,0 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F DL NULL,0,NULL,0,CPYZ,2,CMPZ,2,DECZ,2,NULL,0,INY,1,CMPIM,2,DEX,1V NULL,0,CPY,3,CMP,3,DEC,3,NULL,0,BNE,2,CMPIY,2,NULL,0,NULL,0` NULL,0,CMPZX,2,DECZX,2,NULL,0,CLD,1,CMPY,3,NULL,0,NULL,0,NULL,0j CMPX,3,DECX,3,NULL,0,CPXIM,2,SBCIX,2,NULL,0,NDYIM,2,LDAIX,2,LDXIM,2,NULL,0,LDYZ,2,LDAZ,2,LDXZ,2,NULL,0y. TAY,1,LDAIM,2,TAX,1,NULL,0,LDY,3,LDA,3,LDX,3,NULL,0,BCS,28 LDAIY,2,NULL,0,NULL,0,LDYZX,2,LDAZX,2,LDXZY,2,NULL,0,CLV,1B LDAY,3,TSX,1,NULL,0,LDYX,3,LDAX,3,LDXY,3,NULL,0,CPYIM,2,CMPIX,2X,3,NULL,0,NULL,0,STAIX,2,NULL,0,NULL,0,STYZ,2o STAZ,2,STXZ,2,NULL,0,DEY,1,NULL,0,TKA,1,NULL,0,STY,3,STA,3 STX,3,NULL,0,BCC,2,STAIY,2,NULL,0,NULL,0STYZX,2,STAZX,2,STXZY,2 NULL,0,TYA,1,STAY,3,TXS,1,NULL,0,NULL,0,STAX,3,NULL,0,NULL,09$ LORX,3,LSRX,3,NULL,0,RTS,1_ ADCIX,2,NULL,0,NULL,0,NULL,0,ADCZ,2,RORZ,2,NULL,0,PLA,1,ADCIM,2 RORA,1,NULL,0,JMPI,3,ADC,3,ROR,3,NULL,0,BVS,2,ADCIY,2,NULL,0 NULL,0,NULL,0,ADCZX,2,RORZX,2,NULL,0,SEI,1,ADCY,3,NULL,0,NULL,0. NULL,0,ADCX,3,RORLL,0,NULL,0,ANDX,3W ROLX,3,NULL,0,RTI,1,EORIX,2,NULL,0,NULL,0,NULL,0,EORZ,2,LSRZ,2 NULL,0,PHA,1,EORIM,2,LSRA,1,NULL,0,JMP,3,EOR,3,LSR,3,NULL,0BVC,2,EIY,2,NULL,0,NULL,0,NULL,0,EZX,2,LSRZX,2,NULL,0 CLI,1,EORIY,3,NULL,0,NULL,0,NULL,0,EE NULL,0,NULL,0,NULL,0,ORAX,3,ASLX,3,NULL,0,JSR,3,ANDIX,2,NULL,0 NULL,0,BITZ,2,ANDZ,2,ROLZ,2,NULL,0,PLP,1,ANDIM,2,ROLA,1,NULL,0 BIT,3,AND,3,ROL,3,NULL,0,BMI,2,ANDIY,2,NULL,0,NULL,0,NULL,0 ANDZX,2,ROLZX,2,NULL,0,SEC,1,ANDY,3,NULL,0,NU(19)I0: A$(13)50500 I0:(147): 3000} p BRK,1,ORAIX,2,NULL,0,NULL,0,NULL,0,ORAZ,2,ASL,2,NULL,0,PHP,1 z ORAIM,2,ASLA,1,NULL,0,NULL,0,ORA,3,ASL,3,NULL,0,BPL,2,ORAIY,2 NULL,0,NULL,0,NULL,0,ORAZX,2,ASLZX,2,NULL,0,CLC,1,ORAY,3AD2 5030 DCIB:1000+ B1$HX$@ DC(AD1):1000L B2$HX$a DC(AD2):1000m B3$HX$ OP(AD1)((AD2)256) 13000 AD;AD$12);B1$;" ";B2$;" ";B3$;21);MN$(IB);27);OP ADAD3 3000 A$:A$""5050 A$ ADAD1:3000. BY%(IB)3060,3090,4050E DCIB:1000:13000f AD;AD$12);HX$;21);MN$(IB)r  ADAD1|  5030  DCIB:1000 B1$HX$ DC(AD1):1000 B2$HX$ 13000:PDC AD;AD$12);B1$;" ";B2$;21);MN$(IB);27);P AD,11000,2900 90# SX(DC16)5 UNDC(SX16)E SX$CO$(SX)U UN$CO$(UN)e HX$SX$UN$k w T (147) ^ "START ADDRESS";AD:I0 I245050 II1 IB(AD) MN$(IB)"NULL"3050 DCIB:1000:13000 AD;AD$12)HX$"*""3-LOAD OBJECT CODE FROM DISK":P "4-RUN MACHINE LANGUAGE PROGRAM WITH SYS"V "5-RUN MACHINE LANGUAGE PROGRAM WITH USR" "6-LIST MACHINE LANGUAGE PROGRAM" A$:A$""180 (A$)0(A$)6180 (A$)14000,20000,9000,10000YMENTS: ":N< :"ENTER NUMBER OF PAYMENTS PER YEAR: ":MT XRM:YRM1:ZYNj MP(PXZ(Z1)) :"MONTHLY PAYMENT=$";MP :"TOTAL PAYBACK=$";NMP :"PRESS FOR NEW LOAN" "PRESS FOR AMORTIZATION" "PRESS

FOR PRI*******************"; d" Amounts Will Be Rounded"` n" To Nearest Dollar" x"****************************************": :"ENTER LOAN AMOUNT: ":P :"ENTER INTEREST RATE IN DECIMAL: ":R :"ENTER TOTAL NUMBER OF PA : APPLE AMORTIZE]: BY LYNN NICHOLSON, 2684 PHEASANT HILL RD., CAMARILLO, CA 93010d:k(:2:THIS PROGRAM WILL GET YOU CLOSE ENOUGH... <I(500),B(500)F:3P" Loans/Mortgates" Z:"*********************  (#(147)$2#"ENTER FILE NAME";N$JULL,0,CPXZ,2,SBCZ,2Tt INCZ,2,NULL,0,INX,1,SBCIM,2,NOP,1,NULL,0,CPX,3,SBC,3,INC,3~ NULL,0,BEQ,2,SBCIY,2,NULL,0,NULL,0,NULL,0,SBCXZ,2,INCZX,2,NULL,0,SED,1 SBCY,3,NULL,0,NULL,0,NULL,0,SBCX,3,INCX,3,NULL,0 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F DL NULL,0,NULL,0,CPYZ,2,CMPZ,2,DECZ,2,NULL,0,INY,1,CMPIM,2,DEX,1V NULL,0,CPY,3,CMP,3,DEC,3,NULL,0,BNE,2,CMPIY,2,NULL,0,NULL,0` NULL,0,CMPZX,2,DECZX,2,NULL,0,CLD,1,CMPY,3,NULL,0,NULL,0,NULL,0j CMPX,3,DECX,3,NULL,0,CPXIM,2,SBCIX,2,NULL,0,NDYIM,2,LDAIX,2,LDXIM,2,NULL,0,LDYZ,2,LDAZ,2,LDXZ,2,NULL,0y. TAY,1,LDAIM,2,TAX,1,NULL,0,LDY,3,LDA,3,LDX,3,NULL,0,BCS,28 LDAIY,2,NULL,0,NULL,0,LDYZX,2,LDAZX,2,LDXZY,2,NULL,0,CLV,1B LDAY,3,TSX,1,NULL,0,LDYX,3,LDAX,3,LDXY,3,NULL,0,CPYIM,2,CMPIX,2X,3,NULL,0,NULL,0,STAIX,2,NULL,0,NULL,0,STYZ,2o STAZ,2,STXZ,2,NULL,0,DEY,1,NULL,0,TKA,1,NULL,0,STY,3,STA,3 STX,3,NULL,0,BCC,2,STAIY,2,NULL,0,NULL,0STYZX,2,STAZX,2,STXZY,2 NULL,0,TYA,1,STAY,3,TXS,1,NULL,0,NULL,0,STAX,3,NULL,0,NULL,09$ LORX,3,LSRX,3,NULL,0,RTS,1_ ADCIX,2,NULL,0,NULL,0,NULL,0,ADCZ,2,RORZ,2,NULL,0,PLA,1,ADCIM,2 RORA,1,NULL,0,JMPI,3,ADC,3,ROR,3,NULL,0,BVS,2,ADCIY,2,NULL,0 NULL,0,NULL,0,ADCZX,2,RORZX,2,NULL,0,SEI,1,ADCY,3,NULL,0,NULL,0. NULL,0,ADCX,3,RORLL,0,NULL,0,ANDX,3W ROLX,3,NULL,0,RTI,1,EORIX,2,NULL,0,NULL,0,NULL,0,EORZ,2,LSRZ,2 NULL,0,PHA,1,EORIM,2,LSRA,1,NULL,0,JMP,3,EOR,3,LSR,3,NULL,0BVC,2,EIY,2,NULL,0,NULL,0,NULL,0,EZX,2,LSRZX,2,NULL,0 CLI,1,EORIY,3,NULL,0,NULL,0,NULL,0,EE NULL,0,NULL,0,NULL,0,ORAX,3,ASLX,3,NULL,0,JSR,3,ANDIX,2,NULL,0 NULL,0,BITZ,2,ANDZ,2,ROLZ,2,NULL,0,PLP,1,ANDIM,2,ROLA,1,NULL,0 BIT,3,AND,3,ROL,3,NULL,0,BMI,2,ANDIY,2,NULL,0,NULL,0,NULL,0 ANDZX,2,ROLZX,2,NULL,0,SEC,1,ANDY,3,NULL,0,NU(19)I0: A$(13)50500 I0:(147): 3000} p BRK,1,ORAIX,2,NULL,0,NULL,0,NULL,0,ORAZ,2,ASL,2,NULL,0,PHP,1 z ORAIM,2,ASLA,1,NULL,0,NULL,0,ORA,3,ASL,3,NULL,0,BPL,2,ORAIY,2 NULL,0,NULL,0,NULL,0,ORAZX,2,ASLZX,2,NULL,0,CLC,1,ORAY,3AD2 5030 DCIB:1000+ B1$HX$@ DC(AD1):1000L B2$HX$a DC(AD2):1000m B3$HX$ OP(AD1)((AD2)256) 13000 AD;AD$12);B1$;" ";B2$;" ";B3$;21);MN$(IB);27);OP ADAD3 3000 A$:A$""5050 A$ ADAD1:3000. BY%(IB)3060,3090,4050E DCIB:1000:13000f AD;AD$12);HX$;21);MN$(IB)r  ADAD1|  5030  DCIB:1000 B1$HX$ DC(AD1):1000 B2$HX$ 13000:PDC AD;AD$12);B1$;" ";B2$;21);MN$(IB);27);P AD,11000,2900 90# SX(DC16)5 UNDC(SX16)E SX$CO$(SX)U UN$CO$(UN)e HX$SX$UN$k w T (147) ^ "START ADDRESS";AD:I0 I245050 II1 IB(AD) MN$(IB)"NULL"3050 DCIB:1000:13000 AD;AD$12)HX$"*"0)& SQ(QN1)(N2)(QN1));Q (X$,1((X$)0),(QN)(QN)(QN)); "("0.00",1((N1)Q),1(NQ2)(QN2)); ,(X$,N(QN)(Q1)(QN)); 6 INPUT IS 'X','N', AND 'S': X IS THE NUMBER TO BEL BE PRINTEDd N IS THE NUMBER OF DIGITS RIGHT OF '.' S IS THE WIDTH OF THE RIGHT JUSTIFIED PRINTING FIELD X$" "((X10N.5)) Q(X$)((X$) N2:SET NUMBER2 OF DECIMALSGS5:SET FIELD ]( WIDTHo2:16298,0:<X55.501FX,"$";P250ZdXnx"UNFORMATTED FORMATTED"THIS IS THE FORMATTING SUBROUTINE. THEZ:0DLTS: ";N$ "MONTHLY PAYMENT= $";MPA "TOTAL PAYBACK= $";NMPK :: 4);"PMT#:";6);"PRINC:";18);"INT:";30);"BAL:" Z1N B(0)P I(Z)RMB(Z1) B(Z)B(Z1)(MPI(Z)) &5);Z;10);(MPI(Z));20);(I(Z));30);(B(Z))0(Z));20);(I(Z));30);(B(Z))% hZV r:"TYPE TO CONTINUE OR TO EXIT":Q$f |Q$"C"420u Q$"X"70 "REDO" 370 Y 70  PRINT ROUTINE 1 "PRINCIPAL AMOUNT: $";P;" RATE: ";R;" TOTAL # OF PAYMENNTOUT":A$ A$""70) A$"A"ī280: A$"P"İ440B 70^  AMORTIZATION SCHEDULEl "Y1N12 ,2);"PMT #";10);"PRIN:";20);"INT:";30);"BAL:" 6ZYY11 @B(0)P JI(Z)RMB(Z1) TB(Z)B(Z1)(MPI(Z)) ^5);Z;10);(MPIYMENTS: ":N< :"ENTER NUMBER OF PAYMENTS PER YEAR: ":MT XRM:YRM1:ZYNj MP(PXZ(Z1)) :"MONTHLY PAYMENT=$";MP :"TOTAL PAYBACK=$";NMP :"PRESS FOR NEW LOAN" "PRESS FOR AMORTIZATION" "PRESS

FOR PRI*******************"; d" Amounts Will Be Rounded"` n" To Nearest Dollar" x"****************************************": :"ENTER LOAN AMOUNT: ":P :"ENTER INTEREST RATE IN DECIMAL: ":R :"ENTER TOTAL NUMBER OF PA : APPLE AMORTIZE]: BY LYNN NICHOLSON, 2684 PHEASANT HILL RD., CAMARILLO, CA 93010d:k(:2:THIS PROGRAM WILL GET YOU CLOSE ENOUGH... <I(500),B(500)F:3P" Loans/Mortgates" Z:"*********************  Z:0DTS: ";N$ "MONTHLY PAYMENT= $";MPA "TOTAL PAYBACK= $";NMPK :: 4);"PMT#:";6);"PRINC:";18);"INT:";30);"BAL:" Z1N B(0)P I(Z)RMB(Z1) B(Z)B(Z1)(MPI(Z)) &5);Z;10);(MPI(Z));20);(I(Z));30);(B(Z))0(Z));20);(I(Z));30);(B(Z))% hZV r:"TYPE TO CONTINUE OR TO EXIT":Q$f |Q$"C"420u Q$"X"70 "REDO" 370 Y 70  PRINT ROUTINE 1 "PRINCIPAL AMOUNT: $";P;" RATE: ";R;" TOTAL # OF PAYMENNTOUT":A$ A$""70) A$"A"ī280: A$"P"İ440B 70^  AMORTIZATION SCHEDULEl "Y1N12 ,2);"PMT #";10);"PRIN:";20);"INT:";30);"BAL:" 6ZYY11 @B(0)P JI(Z)RMB(Z1) TB(Z)B(Z1)(MPI(Z)) ^5);Z;10);(MPI2:21575,243:21576,84:21577,32:21578,88:21579,252:21580,32 P:21581,142:21582,253:21583,174:21584,243:21585,84:21586,142:21587,244:21588,84:21589,138:21590,32:21591,2186 Z:21592,253:21593,169:21594,173:21595,32:21596,240:21597,2535:21551,24:21552,200:21553,169:21554,0:21555,145:21556,24:21557,32:21558,227 <:21559,3:21560,32:21561,217:21562,3:21563,144:21564,3:21565,76:21566,45:21567,255:21568,96:21569,162? F:21570,0:21571,142:21572,242:21573,84:21574,1427,24:21528,200:21529,165:21530,27:21531,145:21532,24:21533,173:21534,241:21535,84:21536,160 (:21537,8:21538,145:21539,24:21540,173:21541,240:21542,84:21543,200:21544,145:21545,24:21546,160:21547,12T 2:21548,169:21549,1:21550,14 t :21504,76:21505,6:21506,84:21507,76:21508,65:21509,84:21510,32:21511,227:21512,3:21513,132:21514,24:21515,133:21516,25:21517,169:21518,0:21519,160:21520,3:21521,145:21522,24:21523,200:21524,165:21525,26e :21526,145:215      TEXAS !$ v--------------------> v! LISTED BY !X v! T N TAYLOR !r v! VERSION 1 ! v! 28 MAR 79 ! v-------------------- v u u--------------------: u! DEBUGGING AID !T u--------------------n u! BY KRIS COBB ! u-------------------- u! FROM THE 3/79 ! u! ISSUE OF THE ! v! APPLE CORPS ! v! NEWSLETTER OF ! v! AUSTIN,THE START OF THE RUN 30000 LINE u SEND THAT LINE. THE LINES FROM YOUR PROGRAM WILL THEN BE READY TO LOOK AT, CHANGE, DELETE, OR WHATEVER. u WHEN READY FOR NEXT SCREENFUL, RUN 30060, CHANGE THE RANGE TOBE LISTED, SEND THE RUN 30000 LINE AND KEEP ON. ONTO THE END OF A PROGRAM AT ANY CONVENIENT LOCATIONS, AS LONG AS THE LINE # OF THE 2ND HOME IS REMEMBERRED u TO USE THIS PROGRAM RUN 30060 AND ENTER THE DESIRED RANGE IN THE LIST LINE PRINTED. u WHEN THE APPLE ACCEPTS THAT, THE CURSOR WILL BE AT 0u:u" "GDu500549: ABOUT ONE SCREENFUL OF ACTUAL PROGRAMSQNu36,0[Xu37,0abulu: THIS IS THE LINE TO REMEMBER vu" "u30020: LIST ABOVE LIST LINEu" RUN 30000"u36,0u37,0ul u THIS PROGRAM CAN BE TACKED Q),1(NQ2)(QN2));8 (X$,N(QN)(Q1)(QN));>  DIGITS RIGHT OF '.'3 .S IS THE WIDTH OF THE L 8 RIGHT JUSTIFIED d B PRINTING FIELD j L X$" "((X10N.5)) Q(X$)((X$)0) SQ(QN1)(N2)(QN1)); (X$,1((X$)0),(QN)(QN)(QN)); ("0.00",1((N1)  X55.501# X,"$";- 20003 : X@ a ""UNFORMATTED FORMATTED"g , THIS IS THE FORMATTING SUBROUTINE. THE INPUT IS 'X','N', AND 'S' X IS THE NUMBER TO BE  BE PRINTED N IS THE NUMBER OF $?d PRINT USING n8x SIMULATOR>U AUG 79[t J. CROSSLEYz: SUBMITTED BY  WM.R.DIALN2:SET NUMBER OF DECIMALSS5:SET FIELD WIDTH   TO RING BELL"- F"&H...............TO HOME"P K"&I...............TO INVERSE"p P"&L...............TO LIST" U"&N...............TO NORMAL OUTPUT" Z"&R...............TO RUN PROGRAM" _"&V...............TO CATALOG D2"" d"&X...............T 125D$(4)6 D$;"BLOAD AMPERHELPER.OBJ"L1014,00:1015,16SH(::"JUST TYPE & AND THE LETTER TO DO"2:"&B...............TO BOOT"7"&C...............TO CATALOG D1"<"&F...............TO FLASH" A"&G............... B `C h n`F `G `H X`I w`L `N s`RL`V h n`X p`v v`"٠ǠҠԠҠŮİĠͮŮİ L`ӠĠͮŬECTOR ";TR%,SE%]&TR%0TR%34SE%0SE%12ĺ(7);"0<= TRACK <=34":"0<= SECTOR <=12":530q026,TR%:27,SE%:21504: READ TTSSX FORMAT DUMPb21507l:"1: SEE IT AGAIN. 2: ANOTHER SECTOR"vA$A$"1"610A$"2"50021738,78:21739,84:21740,73:21741,78:21742,85:21743,69:21744,85:21745,0n:21746,0:21747,0:21748,0t10:11:"SECTOR DUMP PROGRAM"19:"BY" 14:"ALAN G. HILL"20:"ENTER TRACK & SECTOR IN DECIMAL"21:868:"TRACK,S21714,84:21715,169:21716,255:21717,141:21718,242:21719,84:21720,76:21721,118:21722,84:21723,96:21724,141:21725,65:21726,78:21727,89:21728,32:21729,75:21730,69:21731,89:21732,32:21733,84:21734,79N:21735,32:21736,67:21737,79::21691,232:21692,224:21693,20:21694,208:21695,243:21696,173:21697,0:21698,192:21699,16:21700,251:21701,173:21702,16:21703,192:21704,32:21705,88:21706,252:21707,76:21708,76:21709,84:21710,169:21711,160:21712,76h:21713,147:136:21668,208:21669,224:21670,44:21671,242:21672,84:21673,48:21674,48:21675,165:21676,37:21677,201:21678,21:21679,144:21680,155:21681,162:21682,0:21683,189:21684,220:21685,84:21686,9:21687,128:21688,32:21689,240:21690,253x24:21645,176:21646,63:21647,201:21648,160:21649,144:21650,59:21651,32:21652,240:21653,253:21654,169:21655,160:21656,32:21657,240:21658,253:21659,169:21660,160:21661,32:21662,240:21663,253:21664,232:21665,240:21666,56:21667,21621,239:21622,142:21623,243:21624,84 x:21625,32:21626,142:21627,253:21628,162:21629,5:21630,32:21631,74:21632,249:21633,174:21634,244:21635,84:21636,160:21637,8:21638,189:21639,0:21640,85:21641,9:21642,128:21643,201:21644,2:21598,169:21599,160:21600,32:21601,240:21602,253 d:21603,160:21604,8:21605,189:21606,0:21607,85:21608,32:21609,218:21610,253:21611,169:21612,160:21613,32) n:21614,240:21615,253:21616,232:21617,240:21618,96:21619,136:21620,208: ǠӠ͠ӠōȠŠԠΠҍԠ٠ӠŠčРٍŠЍðӠŠҠРԍҮʍ卍䮠箠栢硍򠢦嬍ˡӺҍҍԠΠٺΠ΍ŠٍĬҠ卍󮠠ፍᠢâ퍍蠢Ң   E PROGRAMMING" ) " BY"/ Q " .... DAN HORN"] :::v "CREATED WITH LISA"| "PUBLISHED BY ON-LINE SYSTEMS" PAUSE03000:PAUSE CO CLEAR VARABLES"c f22:1::"ETURN TO HARVEST MENU OR":"XIT TO BASIC (R/E)? ";::A$q hA$"E"Ā jA$"R"120 l102 x122 y:(4)"RUNMENU" z216,0: }:::::(15):"AMPERHELPER"  10:8 "MACHINE LANGUAG