|$$/@$ȶ&& ҶZ&(&$$ 9'7 39&9$ %' $Ȧ ԍ׍ہ'&ѷ$̷$$n63$ $ '73$ $ Z& ľ[uuV{WY8PVnTQT[PU7:u(qt8@TSCBASIC"  O" READ-METXTOBASICCMD8ORENUMBERCMD  OCONVERTBAS O DEAR USER, THIS DISK CONTAINS THREE PROGRAMS AS FOLLOWS: 1: BASIC.CMD ... BASIC 2: RENUMBER.CMD ... THE RENUMBER UTILITY 3: CONVERT.BAS ... ARRAY CONVERSION PROGRAM PROGRAM 3 IS A BASIC PROGRAM WHICH WILL CONVERT SWTPC BASIC VERSION 3.5 VIRTUAL ARRAY FILES INTO VIRTUAL ARRAY FILES WHICH WILL WORK WITH TSC BASIC. THE PROGRAM WILL CONVERT FLOATING POINT OR STRING TYPE VIRTUAL ARRAYS. THE PROGRAM IS SELF PROMPTING. SEE THE USER'S MANUAL FOR A DESCRIPTION OF THE RENUMBER UTILITY. *TSC  O06~+~i~~|~~"&~"&~ }'LΨ@"AL99:Ԇ6.8[7 &~HΨ@-3~%6"]$ Խ$z^61X & '?&~+&~"P2~ S&(u  T X>Ͻ &>X8Z&n x6|9 p'96~BREAK罴X1 '~ X6' '~KDx"'x'czx'.z~'%M+* &H|~>("?|J_Hrqqn|}'"+{% "'| 9&L69~i~1&~O5~ S6i|[Z~ 6 ^;;>j;;t;GP-;;"l$L%$$%%'((R* tHSdL "(6(ߣߥos' oooo ooT !$J_J45UT%9P~ S>>4"Tm' "%m'jJ49z' &'("D' kD'cd&"9k&} 9'am'PmD&oDk'op<s>J&s@>o' >@ ocdbmno19H9H>k' DEH|J|}I\s'@>>@ >s'~96|}9HID'(BH&I#\&op\op97os9 SC   '# J}& $J9}' # 6i# ' 6#2g$Ά= iiZU &,@&Ui #'#'$#~#&&]' '#Z&i _-i ' F#N# i u!#ɆėD'ki_ ކ #k&Ψ@"3~i!~S7osDΨ@"=P&X1X &  7DΨ@~"3~ Q6XLΨ@& L &9&L9~"K}'@~ S9!Ψ@"=;D7oskս&8Ľ&>oo&#62post7D XΨ@"3~0A~ Sk ' ('"Z&oopk>ok9|9u!#Ɇ;D',k jk&O bstpo72Ψ@"3~i|~k lĦB6i4 ERROR # AT LINE [&XX [0%9#A% Z#a%z#  \9\9 @>J> & _# >@H& @m&9> m&@m'J> Č9 [\' Z'~ ~ ?&Z"&~ 3''<'f>'p*'N.&6X 2\&~ 'm&~&"w ́ &[|w w'  L~ ~~ 6 2& k[ 6 2>&f 6 2=&[ ]+}&01t&| u&zii|<9X a>ZԽ &M>X,&(4$&"|Z 0'1''&|01&~ &@` [' 8~ S |a`_^_ \'' X6 2&_[_ ́$&|`[ ́(& `@&``` ` u v~ X X[}Z&0    ~ f1 ~ Xe6[ ́ & g2 3X ew[ @|w ́ '&[ g wJ  9~ Seg'L e eg'e 9os'(&6^_&&2qqrpouvO92 9}0'1'6Z'3&^2&uЗ`O9'ݧ^_ooooqsT ^2|1 poqrq 9| |+ ~%'|9x(~P~P*`&&: }&~~*[i&|~}'*~ނּ־9}'ˍ~}'~*~ނߟע}'@&Ѣ & ޟ'3 67]&M' BCނ32Bޟ'֢~!9}' ʽ}'0' &?|~'~~+1'' {$| | i 'z :~ SX|~}}'9ӽ#;+{$>1':r'Gs'U}&}&lӁG&~0H&~: }&<.5 }&׽$~Y# SU Y"| ONO &~s# ~ BN&ޙNޙ'Pޙߙ NPPB9BO9'Z~sё#Б #' Pļ9~= #Z*9}'$+ {%~>& '| ~ B~ S&,*&#|' ~{% }'~ m~ .'ý '&.6ּ'%Z&Z+ r' 2J'BX|B ) 4~ S; Ľ;&*};'Bxy67|}676B;&x~P~ <~ S2&32|}32xy~60 ' &5 ن=~ SZ&9|BC0 > 'D&> B&"C&B@B>' B@ @5  Ƚ&@0 &Ī|676Z}&'j2&|޻߆޽߈3& | ~ ߻߽xy76|}76ֽ67ֻ67ֈ67ֆ67~0&T0 &M &I|׃0߻0߽ނ+S0**$ "j0|0 x~1Z& >~ S| '5~G~ +)*'`׍ތ&ڽ ߆ |u'r&޻߆ ތl+և67+ּ67}'~)޻߻ކ߆aּXIXI ok&B3232ތBCor&`|~~ & &&Z*|96xߧz~ STOP|8ߔߙ#J*1'&)׃Xߗ_ '\ O~L~ S=/'#J*'%&&}=&]' #Z&|$ E~ =ڄ&6|*[7~2&&d j 8ߔߙ0&O ߗ+{$r's&|~~6}& |:^:}&2|9? }='ޥ&D ޥ'ߥ+~%'&ߣX9~ S=ޣ'X~ ߣߥ~X1 'X0X1 ',&X}='ߣ}'9~ SX1 'V"'''e|V ',' e|V' ' XOVZe9}&U.m޻߂ ނ~&8|> & u&i&||}>~P~ ttjppp~pxxr |p pphnpxrnxnprpnnhhpppl~plvhx|x~~phptppĎ rxp~n!~p"p#ppl$pln)~n*p+h,p.~xp/vp0p~p12p3r4hj5h6l7p8x9~t:n;th?@pp|ABrpCDlGhjHxIpJp4~KhlNl.rTlr.Ulv.V~pr.Wxtv.Xxn.Y.Z~pOh~PvpQ^hn_`eh=i^k/l*m+n-o ~,r;s(t)u#v?:{\| }7߀6ߛ8ߔoo7~}&~'`&| 'N 업9'_&|'3O ^& |'~e'Ӧd%ˁi"|6 2'% I~ S''o&|'  n&|'O ۍ('>m&|' l&| ' ڍ'k&| ' 9~=+G4$~Iāo&|Ɖm'~n' L"~tt'GT"~]"~~'%S| '~灠'R"~&~ -|,߻.߽~t& B*&&~u& 997~  SB|~q}}$||qr~7'~|6~% 'M+|29~& Ҧ|po9엊׋67ފm&K|# B32׋ފ'.ߊּ&"CB}'~)XIXIۋ~mM~ SN  ޽ 3267׋ފ'▻ּ&"%BBaּ67D|޽ 32BC~φM L~ SׅO_vv$FVvvz&&9G~ S6h2M&+S J&+3 J&,* J&,R 5ހ8'.$|ּ־BBC~~|9d~ S~7&~=~ ~׼׾~}&9H~ S6Խ*3d&#+ #Z&$# Z&& Z&% Z&" '~~ڽ ss-~I$0D&~%T5+"H6|#'2_CBB~~=||I' J'K'~ S~Iۂ ߻-~-f324.5b-m.S22A26!6 ޻B 2M& ּBC ּBC׼-~|N'O'5X' 'z& >ߙ0~K֔7֕7G3ך3י|d%i#96|ޔߔ66|662?2>223~-'n& | ' 9~=+#TāT#]"~O9 &u'~M ҅'Ё%G'~ ߗ}}$||Oޔ8['"&M'֘ߔoo~~BC~ ~B&ޔ ߗBm' ' "B6#D636ߗBO ~#c.m޻ė~-閑  O_T'&׼~-.޻&$' &߻~-[~ S|U&~(J'J''J'ZJ'3J&~~# vޗO~>'oo a޻ ߻0|u'Mr&q ҆~ S>޻>?>׼޻ /'>WVޙB' oo ~u& |9t'~ r'! ֚6732ך ޻ /9ޙBO_'-B&Ѽ$B мVWWVVW}^97ޛߗZ&ߛ39OVWNO' |W&|V 9NV' 6#2''9' 'O9 &&99V&>V>@'>> V@@9_9#.W'vޗ"B5>BB>Z&WO~*+*' *#&Z~ S,-67./67޻,޽. d|}67*|'32|}32./32,-|9~=}&$ .}&9J~ S}& ~.~.~ TkT'M&$&# k&P~ SBVWCBkBkB#WVkkB9M&$VW!(klߝTB֞B&C$MWVB&C&BޝBWVޝ BCޝVW֞kBT&ޝT9CB&=ў&9WVCB&&VWBVW9BkB~!4ލΨ@-!%9~ S~3 $~3*'}'Π 94~ SLΨ@&L9&9&9 ~ S1K((6~iֽ++' *' 4~ S |}'Π ,&| "ļ #~#c6H'FJ&m&5>@ _o@Z&>ڧٽ-%ن3o %֧~)~ S }'~ SΨ@-% 3&;0ά~~ S׽v&7| ؽv&(|ؽ #(~ S+r'#t{% |9~ 6H'J&'9+~ S}'~$' '~#~#ˆ*~ Sن&9~ Sن'&ن &ݦ$ &}&~L&L 62'm&m'6#2 ὴ&L9, ~ S}&~L&L $8'm&m'׽#  "B6H'@J&oo'm'"3ن@!r&| ~+ ~ S( * LL9LL9Ψ@ &~~"K"Ψ@-~3m*'o9Ψ@"="3|r&$"Ψq-Ψ@ & ~ !3(+{$ ޻Ψ@ B&A& S&~0~| *$ &~ ~߻-~~ &+{$)&| %~ ~ ن~"?&+{$)&| %Ľ% B߻ ּٖ&6&(9~"K>Ϊ&"Ϊ>ٍ0ن "?o9~"Kּٖ&6'&얻ּ&S 9@>D>@DZ&9 !&M'B&C'~/~ SJKm'2'189mD&89 "?_S'&mG'\ .~ S, H6DE6F٧72562: "? !ن)"?O"AJ J&ٽ"3~"=v&#W'J&9m&m& ~$~ ~#c>Ϊ&"٦J' J'$I# 0Bن'#&. $Z&#ˆ'Hħ;lO"A"3#;Ϊ>ٽ&"9~"KΨ@"G~"3~ (~ Sv&#W'D6 \,&ҽ(}&ė׃ނo\*\6\%" r& |~'-~ S~NO'JV V'( J L9''~ JV V'J 9*(Z}' ނVW9~ 'L'' >@V V'@ >@ @>L' > @' ''~ 9_C& (&NX96oZ&9c+N' (ħZ&~oZ&~#vޗּ־O~v& #W'9~ O 3232o`'lތBC`'߻i&| ּ'-%| ''&m'' m')Ć~^ , 0~ S_ ׼}&,|ފ*'޻ފ'U#D6ފaּ꽭6}'9ٖ%ފm&~m ~ O ֮о%׮yyyyz&sst*X9|׃'ފ92*߻ߊ#%)׃23٦-ފm&9(B''~(r& " K~~ +I+'''A&A&;&59&(O9' 9&&+ֽ9* 9O9-<'Ȁ־&5~,~5-<'''$DVv|&*" F| ׾ּDVvz&׼+#ֽ׽ּ .$|FVv׼˗~+ICFּ׼$sss+Ļ'5Җ˗Ö+ڼڽ'(ּz&zxyYI*׼־'Ā&9׾9e~ S-<' ',_ƽ+*~5~.a-<'2M',O־‚ˀ׾CGvvvv|+*I~5҆g~ SÖĖ /O,ĽD$vvvvvvZ&9שÖĖOŐÒҿ%Öyyyyyyz"'ŐŖĒĖÒ vsss9Ʀ¦ػ̖ʊ9-hĄ9+' &"޻޽HHHHHyyy0yZ&ͽ5̈́0X+3|9߻7-.3]'WU5 5~ o*9o'mM*CSjXI*m*9'%(@'.,ּ̊.׼'*5҆~+얻*5 ' 59oooo9+%P'j*h~ S1'D%:P'>+ש*>}&m'%CS .DVf$vz&9* * ɊDVz&9W.Ľ0K0I~0@555OǗVLW 'ۖ*-0Kt#(޻߷޽߹5o.ֻɗJ*@޷߻޹߽SȽ1.0\$,*z *%,R| ɗ.,sdž 2M..0KM*_0KL&0*%|+3 ֵ0Kz&/.0K50&5 0TTTT .'5&]'0|}&5&0K05 zW zW'.& zW5'E!J+M*@-0K1_  9055|W9 Hz@CPt$30x> nk(-xIL}# znwQs'Ŭp7m.'!9.aXeg1̽1i%1ǁ.&1΁E'e&=߹2!޹1Ƚ19")61&^($X}*@25ǗƘ׾+*@ # +6 21< $H':HX0ޫ}*~,R~,*e~ S_ % \ X 4g0%:$ 9 9  '9_+'-&S9X̍&+ֽ}*CS׼9j~ SO%|Ǎ%6|ǖHּYy%:HYy%)HYy%"2׼%2_ټ׼ٻ׻$l~ S޻߭޽߯9޻߱޽߳9ޱ߻޳߽9k~ S+'򗬄2]'2ѽ+S55ѽ5,R5+S23,R+S*CDC DJ9ʂ"7ʃf 3{2*,*2!23c55|,*'`~5O 3{',*2!3S55| '2*,*2!3;55|,*''9}r#/Ix]}IۀIہIۂu2{6;w:}w,z"|%a>~I؀'L3G,R32*4r+Sz2!.z.-ll+S+־% 4v~+S9O'4r*#5s4~*#$2*4z+S2!234z,*4r+3,Rs2*,*2!4f55|,*}' 3K+S}'4L4+7S޷&4+S֬Āػ׻95`~L$K~y]ׁ 0 5k,R|2!.&:-+3'J2!455|D$64,*2%*~59f~ S;*=z`J|v"~1q1r5󁖻+V'R5ľ2!5E52*5M55|,R_*S-~+S58)ʬ~d~ޅV?i~ S55k~,*1r55x~,* 7,*5+S3Z&97~592!5~,R'' ߹5޹,*~44r׻׼׽׾9|5&|&ֻL*|Ā9   6'&H%'6'H%& Ψ@?~~&&&΢A D' &|-     D':  '1 +!''{Ě$ }'%~' 9&}'+ &}&@  & &Z*  & &  چ  '9 ...RENUMBER IN PROGRESS...1 REM -- CONVERT - CONVERT VIRTUAL ARRAY FILES UNDER SWTP BASIC 2 REM TO FORMAT COMPATIBLE UNDER TSC BASIC 10 DIM A(10) \REM ARRAY OF BCD DIGITS 20 DIM TN(10) \REM POWERS OF TEN 25 T = 1/10 30 FOR I=1 TO 10 40 TN(I)=T \T=T/10 50 NEXT I 60 MH = HEX('F0') \REM MASK HI BITS 70 ML = HEX('0F') \REM MASK LO BITS 100 INPUT "SOURCE FILE"; SS$ 110 INPUT "OUTPUT FILE"; S1$ 120 OPEN OLD SS$ AS 1 \REM SOURCE FILE 130 OPEN NEW S1$ AS 2 \REM OBJECT FILE 140 PRINT \INPUT "STRING OR FLOATING POINT FILE (S/F)"; T$ \PRINT 150 IF T$='S' THEN 200 160 IF T$='F' THEN 2000 170 PRINT "PLEASE, EITHER 'S' OR 'F'" \GOTO 140 200 REM --- CONVERT STRING ARRAY --- 210 PRINT "DIMENSIONS OF ARRAY" 220 PRINT "USE 0 FOR SECOND DIMENSION IF SINGLE DIMENSIONED ARRAY" 230 INPUT D1,D2 240 INPUT "SIZE OF EACH STRING"; SS 250 IF SS>252 THEN PRINT "TOO LARGE, MAXIMUM IS 252" \GOTO 240 260 IF D2<>0 THEN GOTO 400 300 REM --- HERE FOR SINGLE DIMENSIONED ARRAY --- 310 DIM #1, A$(D1-1)=SS \DIM #2, B$(D1)=SS 320 FOR I=1 TO D1 330 I$=A$(I-1) \REM GET STRING TO CONVERT 340 GOSUB 1000 350 B$(I) = O$ 360 NEXT I 370 GOTO 9998 \REM DONE 400 REM --- HERE FOR DOUBLE DIMENSIONED ARRAY --- 410 DIM #1, A$(D1-1, D2-1)=SS \DIM #2, B$(D1,D2)=SS 420 FOR I=1 TO D1 430 FOR J=1 TO D2 440 I$=A$(I-1,J-1) 450 GOSUB 1000 460 B$(I,J)=O$ 470 NEXT J 480 NEXT I 490 GOTO 9998 1000 REM --- CONVERT STRING I$ (IN SWTPC FORMAT) TO O$ (TSC FORMAT) --- 1010 L=LEN(I$) 1020 FOR L1=L TO 1 STEP -1 1030 IF ASC(MID$(I$,L1,1))=0 THEN NEXT L1 \REM REMOVE ANY TRAILING NULLS 1040 O$=LEFT$(I$, L1) 1050 RETURN 2000 REM 2001 REM --- CONVERT FLOATING POINT FILES --- 2010 PRINT "DIMENSIONS OF ARRAY" 2020 PRINT "USE 0 FOR SECOND DIMENSION IF SINGLE DIMENSIONED ARRAY" 2030 INPUT D1,D2 2040 IF D2=0 THEN 2400 2 100 DIM #1, A$(D1-1, D2-1)=6 \DIM #2, B(D1,D2) 2110 FOR L1=1 TO D1 2120 FOR J=1 TO D2 2130 I$=A$(L1-1, J-1) 2140 GOSUB 3000 \REM DO THE CONVERSION 2150 B(L1,J)=O 2160 NEXT J 2170 NEXT L1 2180 GOTO 9998 2400 REM --- SINGLE DIMENSION --- 2410 DIM # 1, A$(D1-1)=6 \DIM #2, B(D1) 2420 FOR L1=1 TO D1 2430 I$=A$(L1-1) 2440 GOSUB 3000 2450 B(L1)=O 2460 NEXT L1 2470 GOTO 9998 3000 REM --- CONVERT BCD STRING TO INTERNAL (BINARY) FORMAT --- 3010 K=0 3020 FOR I=1 TO 5 \REM GET THE SIGN + 9 DIGITS 3030 A=ASC(MID$(I$,I,1)) \REM GET BCD BYTE 3040 A(K) = (A AND MH)/16 \REM HI NIBBLE 3050 A(K+1) = A AND ML \REM LO NIBBLE 3060 K = K+2 3070 NEXT I 3080 EP = ASC(RIGHT$(I$,1)) \REM GET EXPONENT 3100 REM 3110 O=0 3120 FOR I=1 TO 7 \REM 'ADD' UP TH E DIGITS 3130 O=O + A(I)*TN(I) \REM WHERE TN(X)= 10^-X 3140 NEXT I 3145 IF A(0)>0 THEN O=O-1 \REM COMPLEMENT 3150 IF ABS(EP)>38 THEN O=0 ELSE O=O*10^EP \REM SCALE 3160 RETURN 9998 PRINT \PRINT 'DONE' \CLOSE 1,2 9999 END                                                                                       !!!!!!!!! ! """"""""" "