IMD 1.12: 29/04/2006 5:55:11 TRSDOS Model II Disk Operating System and Basic Interpreter Version 2.0 A (C) Tandy Corp. 1980 Cat No. 26-4910 20010181      ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****TRSDOS BP P  TSDRES facmas4S  223 (-(4( 8og!!!6G==Gogw!#!~4!&o~:zA{AP "!! "F#Ëi<!""!"!!#}o2V"2X"|G!s#r!U"F#V#N#Q^Uw#!F#K>P! !#>:O(ˏ 2! `>>#>CË}!O݀2ϳ!8F#V#NQR>R>K,TRSDOS 3 : O:4 W!& !3 5z<8! 4>24 !~2 #~$>>D  x N#>>!"o0 O!$"} # 2 >`2 !#>(+"} C }??W!& :} o"  >od! ! ~#Oy<>DIAG9 cnqv{'DIAG.III - FOR 1.2: 32 & 64K!G ^#V##>G^;>> o   > w#!!`>>>> >> >G:2M 64K MEMORY 32K MEMORYEND MEMORY TEST  1!x!z""!>ͺ! _ W g !!!!)!!>Ov READ ERRORRE-BOOTy>! g _ ͘!!Y!! SEEK E;>>;2=O! -!!`((ov!F#V#NQK!F#K>y}/P$END PIO TEST END DMA TESTLMHMDMPI BOOT ERROR BOOT'P!! f1("D"!~2 #> !H!!+U!6!!SYSRES SYSNOT A SYSTEM DISK INITIALIZING\ >o5 RROR #>͏!>͏! x >Nx!>! g W(>!>vG(M[!N#!ϳ!O 4:G>2:x2 !`!O !`>>FqR~ wR p#7R8>>!!Pw#!     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****>$>$>$c (U!(5#(5#(5 >>!C#406>;!E!D !! ~(*+"| !!!Av .@f( < = !˶V>(~( ˾~(˾> 6.#͕ HGB"9 P; >0 p͵#  !͡ pp͵ A͵BQ(.p͵͵Q ͵A6 # +͵! z>(~ S 6ѷ~(:@G> 6* x0>8*b寸(  F͵ #A͵͕ (AAWA_zA{AK}! R8(b{0$o>>8( S*R" F ů(B* |)o0$ :Do0$:E7o" |gxoyF#!6=!{6~ ~ Tiˇ>>!{>>M!{MËm<2ϫËy(2ϫËz (2ϫËm< 2ϫx(:!@7f ?*R"R*R"R8!@˦0 6 #!C^#V#z(*RR8Z(#~#fo"G!A:U6#x2S~0 8p#:w#6.#++6:U'8*bo0$^#Vz(>)Mo0$(z0># r+s=# (Vw+^wѯy>(2|x( !L!x !X!td} ::U2U!:| w!d>< /2UTP0(cPT e 1(+cPTP0x(͗x=80|0ĸ8 OS~<(=(#~#foѯ>x ;! V^R8<0w###{ 'd !! ~08( 0$V^(8= +++z' >xo !})0 7Qy()88, O>  x8CiSk>2o2n<2m>!͡ >!B!Bˎ!k!mqɯ>2nɯ>2oɯ>2pKi[kk:mg!BPNSx( F# A̵ͣ:o:p !^!c:nx րG (<=(=(=(3\ !j~#(8+6+6##G(A>:G0>!'~>/(#^#V͹G!")n(u~ o~( !A~˾ +VV^R(V^R> B~9>07W :X2X,(0o~,fo+")F!L͡ >">ѷ,N,^,VB:x^;r   R M qR ? I o %>!o> ~e%x0> ͣ >0:|*7Rܧ >8͗!͡ x!R8 :|   :|O:}GP( *:| 7R(DMbk͵2|>G:|O*}[ [}RR*R7x ģ 0>ͨ Sͳ _~#0 8 87ɳ_z {W z0:8w#,,,,% x8> _! N+>L0,>cU >>""! ! w:x 2 'yMз n2 z( _ 6) w##w++!i~##4( =0 )##:p( ~  wx!m ~(,5(-5+~#(%70 )> ~_ _) G4x*!BN! x>c:mw> (6!B!~(N(V>-(S>b > >b > 6N(>e>>'0, + |(}DOBMDSP+ ,>#,N,| g,,^,VxGѯ C)G>" QH:G!R ÎSG":G I+"!2>_2!#>> (+"CU: 1t !38BB  OSW\ n  "8=Y`de p w{x د!A˦!A*[}K[::U2U:U?2UTK(͵5 :|Ox(~#0#*7R0 > 8!G͡ A!R8[[}RR0 [*}[ n2  2>Gy ˸x""#": ! _Tw(~=(~M8 > ͉Wȯw( y>͉( 6Tq>͉: (P~g K=( = !@N <!>|T("! ͞( : @@(? : _ͦ!(G>f|,` >+p >x( ~  >* ~2 : >2 × T: (=2 ×  : | .cP6HZrp< `B &NT3Yc:!"~(t% &0? (N !"R %Zy w!G  >o? "! ~#Oy >> ~jO~!{_0W\}o&))))W})_|#ͪ WN(&!@ V *h[R( w"! M*[R( hF"˸ !@˶>#B!l!""!@ ˖ ˾R8!Anˮf( k Cz(5 |gJ [zW7R0  #RS  !::U2U~?2U T*}y82[ !x8(=>o0$B8KB0:}OAI Eů>ߠ=(! =(!! 2 : Oz|>(Tأ _>:@o°: °ø)1Tw>Z2T{>8>( =x>(=(> ! >dU >l>ll x  mxLU!"( !B!(R O$>0 ~պ 8#~83>" !C{+o~#fo"T[R!Cˮ>>T!DLo͋*R(7RDMbk61"!P͉͐_ !("P!^!^͋!@˦!Cˮ+f˦( !(6(cc= ͪѯx8> ! o0$z& oz??W!`!% &͈ _oR ((( ͎ R (z??W͎ ! ( M (( (͈M K͎ !!B!Bˆ> 5v !C~ #~>(##>&+Z     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****tVZtVVuJ4V͡͹(V(͖ q͐5N( ~ o0$~w_( P( ͱ C͖ >5N ~(GN ^ WfnV^bGɯnf >bb"p>Zj Zjcɯ<_G=22+# ˵j~ |(l( ˬ"(' | ;2j | +~2#"t( "8 |(˵2| "!>x>(H~ >( ? (3# cW"rW"|W"^#V#!iiii2!͵8(3!͵(ͦ.!Q+N.!+͡.g.ͱ.>ͦ.!a+N.> >0ͱ.>'ͦ. !+2>9!*ͅ/8(  !0.24(2(2)!-2! Q##*Z/ͦ.!*~ ( 8G># VB(!],2J(!o,2Z(!,2>=2( ͦ.ͦ. !+2!,2! ,2Y4(!l7M~(6#͊4b64Z):5( N Disk Ready? (Y/Q) DIRECTORY Location Incompatible, FILE Allocated to Alternate Directory TrackChange Diskette Information? Enter New Password Enter New Disk Name Reading Boot Track'-- The following files are DEFECT-IVE -- 00 Files Examined,00?O999*/M~(w#q0*/`~E2#"/*/@"/*/K26X6?Y6_1"/~( _2##"/>1[/2q28>#  F#> 2>*F#C2> x=(y  u4( c 5N ~ p6q7>w8͡VÑ͹(K͡V ͐8((8.~ ݾ &~ ݖ(< ~ (~(݆ ( 0͖V~5N( fn~ww_(3( CcV(ͱV ͖V~>w;W^ fnGN V^>w8("08!:8A8[8a8{0 !͵8(>N 7# #! N !"R L͡ LU!"R F#N#V#!CT]6͐!""! : ͵s!; F# ͕ H ! F#(.(.Ͱ5"Q)Ď*:*G:*0<:* ./(͆*! Q"*52n):* ..(͆*! Q"*!#|(:* ./(͆*>(! Q"*5!*>ą/:*G:*O@!:`Ml7>~(#:4 =>!-K*>!-K* !-2!-2:)! .K*>!.K* ! .2!.2 !, Files Copied 00 Files Deleted,00 Files Defective Source Diskette is UNREADABLE".".> C.>á.͛.|.͊.|. ͛.>z =͹.!F >͹.!2 >>K.> >=2.>2.(!7+!+.+ͦ.!*͡.N. (G>##:*(:*(:* !,2Y?(:*.( ,(͆*###~O2*:*(  !-24(#~2*(!l7_n ~(  !5-24(O:*G!:`l7>( #~ M~( (  !,24(#` #:* !+2Q?(N?(Y :*G:3*O!: = >0:8bnf>6_͡$~6~7~9~:FNV 4tur ~w ~w ~ w V ^ ~ <(fnR8 ~ ݾ (07> F?NG~<(#~<_DŁO?xG8#~_+FO8 xy>w ͵ ((p  !; F# ͕ H !$ F# ͵ ((> H 6.#60#60p !@~˾ ͐!'~ (P> >PGPG!S F## ͕ vR M Enter Date (MM/DD/YYYY) Enter Time (HH.MM.SS) BAD Response  CRITICAL READ ERROR - ABORT1"!$F)2>( !l7_6:*( !l7_6?:*W*:*W*ͦ. !+2:*(:*?(:k3?(!>+.?(6/4 0:#wɷO! 7:*G= z8:!n+2>'4(((G>'¦.!J+.** * 7 QInsert & di.7*J> :=2/2>:*.*!**K/  !8,2! ,2Y?(:*.7*(7?#~# (~ (>/~# (6 ͻ/ ̓01~7 a/*/"/`"//"/*/6#"/q0*/T]!n+2>'4(:* N**|(:* A!b-2Y 7**| !-* 2y4V"*:* !-* 2x2*y4:*( !*Q**|("Q:*G!:#~>',(H >ȑG6 #!66b62~5`! 8! 7~( ~( q#y2k3 #@46#`! 7! 8~(~ ~4>0QHFR xy~ nfW<#( +~_z(0#utw  #~ w~ w~ w 5N(~w@x w qp15N>. *~(O&h;DI &iDNI u \ut~ ~(݆ 8! F͞#V#N#Q>G^0O!2T"]"R 2U:!#pp$skette - press ANY key to continue DESTINATIONSOURCE S Y S T E MPROPERWRITE PROTECTED W R O N G *Destination Diskette DIRECTORY WRITE ERRORBACKUP ABORTEDBackup Complete'Diskette contains DATA - use it? (Y/Q) ? (Y/+N/S) Source diskette ERRORO6*/T]6 (:/G͎ LQ͈ FYS2*/: 7$>&0M*/[/F2I0>F(>o~(< #ݯ[2gz|(S!// q0`ͮ0:2( P1͆1`1*/@"/*/#"/!26*/~ [/!2@P1n10w1~<(0##>>(yN6q#@# !6~72n)25 2~5#(#G!7@"*S5:)<2)*Z/>> y(?8 >/!*~ (G>#>(&>(!!+2Y(N( S 25 :5N64:)<2)C5**G 53**p#q#6#"*:*<2*QH^V$~9w6~:w7~;w8 ͱ~w;<> $~4>0> 5v(FOWM t ,5N>. !~fn   #"'ɷ~(7OnI e"'an NI }2'nt FN ( ((>nly GOOD files can be copiedContinue anyway? (Y/Q) $Source and Destination SAME Diskette DUAL ALLOCATION ALLOCATED ON FLAWED TRACK ALLOCATION ERROR Writing DIRECTORY Track< DESTINATION Disk contains FLAWED Tracks t,hat are Necessary DESTINATIOF1B a1#~(>1> >1o(!2N6͆1`1~wP1w*/[/R}_*/6&o?[/*/[/ (!R( w#n1 4S/ :2w*/1!2w21^#~G~?:*Gp:6ɯ!:*2***N#V##"*:*Gp="6͎*+~2+6N6(:)=2):)<2)!l7 6:)<2)=_! 76 !-2! Q"*>255 !Q^#V**R>,(:R>',(>> 2TS*!*>2> !,962!'~( 8!'*( !8*     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****2#^#V82*2*0!+72!'~( 8!'*( ! 9*2#^#V82*0!+72Bad Drive Number:*G:*2*!'~/8O \#^#V#~+=*(!8> ##~*( *(208#^#VS48"!8>*(##~*( *(2*#^#VSh8#~=*(#J7#^#V7 L!8> #~=*(#~*( (!>!(>2 d(X)r((X)r(}(r((X)Q(xr((X)r((X)r(>D2(!'T(!'~^(>0r(!A*r(!(/Æ3ʆ3G>'Æ3:(!(>0PPATCH completeARBF(CO)000000000!'~j)(#^#~*##[)#^#V (##[)#~=(#[)# Bt11|1:31}2!3:3O |¢1:3<ڛ1ڢ121:!3O:3<21O:321*3:1O "1232:3O:123:1123*1"31*#36#6>"Ͷ/:!3o2:3<2,2&:3O |R2:3<(2R2ͦ28+>":3O:!3=2!3:3=23>23ͦ2:!3O:3<22O:322 (>p!P6:(>0:6O!P]:($>0> !j)(:)02")Gp!P6:(!6:(~2!)> 27*X6| #"X6>1)%+(> 7(>("(> >2) :> (>("(>3) !))G>'2X!A!)F#>&!))(>9:")!>))!$5,[k0~# (~ (>/~# (> Sk0>*k0~(~# ( >::")0> "k0:!)!PE`~/@ M!.6#!.#N#~(#>(>!..~($($ 60Nwy+.R*(2D8#^#VSL8!8> >2*!8>*(>24*(!8> >25!8>*(>26ç7!s9*V"*>(O!*V"*:*( O*!:* !U92Y( Q?(:*(:*.###N((,(y2*#~2)++++**ʳ8* QR|2*B(0?Aʰ)B)R)FQ*CQ**:(* *~)*N#^#V!S)B!O)>*S(>2(* )* *~**=*N#^#V!X)B!S)>*~R2**#6##s#r*!S)60K* \**~f**#^#V+~"y*'˜*# _ʋ** :223ͦ28+>":3O :323>23:3O:223:2232!3ͦ2!~,:3OB:!3O !(:3O :3O>2͓/!(:3O =0:3O2<0:3O>O:!32:08+>!C80*3#3^#V!80*#3##"#3Y0[3{=3z=W2 3S38+>"[3{_>W2 3S3[3!~,J))(>  >:")!j)2)!) F#> FPress ANY key to continue+Mount TRSDOS 2.0 SYSTEM diskette in Drive 0%Mount DESTINATION diskette in Drive x JOB ABORTEDPhase 1 now startingConversion Complete XFERSYS:0 S)!*):O !B~ v #~ 0#-ܯ.!PE0HO!@>  s. > ~# (~ (>/~# (!Q.) !/)>-File must be MOVED or KILLED --> / Ly2S/.2-/.<21/.\/M(+8%0!!.N'''O ##~(#6M>PWIDABSNEWPROMPTNOAUTOSYSSource drive number? (0-3) Destination drive number? (0-3) (TRS-80 Model II Backup Utility Vers 2.0Source Diskette Ready? (Y/Q) PASSWORD6Oø* Gʢ**W#Ϳ*ʱ**##§*#6**!*>({00X*>/>0G͍.8+!t+>(%+:(D ͵. !5n>0(1 / .͆..4+&4+ɯ t++-WF~,~-~.8+>*ɷG>'!'Ny¡.>nf8+> :|BFr3S38+>"[3S3>9(v( !*))(!*>2:'(!'!' 5*' !**~*~2)40:'(O*'( +>0(>M2(2#)(!+>(+> >D2(2#)(F#C*> x=(y()TRS-80 Model II XFERSYS Utility Vers 2.0Enter DESTINATION drive (0-3) 8Cant run XFE~#(%O~G~"!+>0K(>#:(O:(=.3/_:{+/=/3/!- /!+K( (:(O>"/͓/!(K(8+>,!=//PATCH string too LONG - Abort!e//-File contains Variabz/le Length Records - Abort!//String not found - AbRSYS w*hen DEBUG, HOST, SPOOL, or COMM activeMINDATAFULLsM5K!)0!PC:,$>0!6>( ,M!C~6< 6#MPCw#:!)_DM>P6!PDPC!`D@`~# +6##~# +6#+++K!)!14/SYS SYSCB/SYS SYSDB/SYS SYS15B/SYS SYSCA/SYS SYSDA/SYS SYS15A/SYS IODVRS/SYS SYSL/SYS TRSDOS/SYS SYSRES/SYS SYS0/SYS SYS1/SYS SYS2/SYS SYS3/SYS SYS4/SYS SYS5/SYS SYS6/SYS SYS7/SYS SYS8/SYS SYS9/SYS{g1 BASIC FORMAT BACKUP TERMINAL XFERSYS PATCH RSCOBOL ort!//)Address out of program-load range - AbortF# > !Y0^#V{#80K808+>#0!+K:0 !=0:<0O8+K80>,/ Y0c000001:(23!(~23#~23%3Y3x1G1111Y3x=231Y3x=23=23Y3!3pY3!3p*3K3PC=+,$>0DV"P5>y2R5:!)2S52T5!556 :")G!P5=( =(=(= >L0:")G!P6=,>0:O5( :#)F(=:#)F(!m0!m0"k0!P] !t0"k0!PD`~(  ~ (,@  !m0"k0/0- $!A>)((G>'G>'!0){MRSCBL212/OBJ RSCBL312/OBJ RSCBL412/OBJ RUNCOBOL RSCBLD12/OBJ COBPRT AM5***** Copyright 1980 (c) (p) by TANDY CORPORATION *****)     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****)sy+:)2+>'+~O2+*)#,R|2, :'+!,4:,8$?+(0 ?+C{+S}+"+)>*=2/*K!)'+ +>/++:")GI'++!+>('+:+o& wwwwww69:!)w>Bw>w+t6#6:+W:")G'+x{/>N!)8:$>0!)8`~(G ~ (>/ >(3>3 ~w#~w#~w#~w&~w6@   /,+RFSYSTEM SYS)(Sn.2!]Qp: L :((:p. !!5 .>!..F.Y(Q(* ). TRSDOSPASSWORDG>' !(F #> 7.6#6#6!6Z>  !(F#> !(F#> >  >>9Insert SYSTEM diskettePress ANY key to continue,Unable to Format this diskette, y>!@-6=vG  ˇ>/->/- x !@-5>!J-͍-Ëy(!c-͍-Ëi<!|-͍-Ëz(F#*(6!-6ϯ ˾:(͸->2-:_.G!.> XP!.>1ernate Directory Track NOT Available - DEFAULT USEDTRSDOS ***** Copyright (c) (p) 1980 by TANDY CORPORATION *****2!263`@!2 *+!,:!)GT+H:")GK+[+!,='+!,5($?+*+>0.?+C+S+(K{+[}+!,*G>' !+){y+z8  :+0>ɯZ~p(DW~<( ##Nzw#SYSTEM/SYS:X ( - JOB ABORTEDͯ4,)> Ϲ( >x2_.!.> >M!J*!:* *{+ ͯ+( )!Zj6#͖-!R*!B* x, N *{+ ͯ+( :a.<2a.66#> >:a._B!.>### > !R! *!)!) >H.n(Disk DRIVE Error'System Track NOT F-###:_.G/> :_.G!q.>  F#> *dfn:(_*d^#V! F#CM.> x=(y(All sectors 'QUICK' verified Flawed tracksContinue? (Y/Q) Formatting track 00 Verifying sector ![1 .z22!h4 .!R4>2:'(!'!'F4#^#V !S4.F.25002(>2`.2p.!X(~#"b.2d.!_(~#"k.2m.!' ~nfN> 4>34>3F4> 4> 44>44>14F4> 4>744>?4F4>F44>;4F4~=F4 O+ ,WF8Not enough space on destination diskette for System file))ORMATTED successfully,Flawed Track count EXCEEDS maximum allowableZ*f*******t*n*****( #PN 2N N 6NN     *f.:3!Zj6MKi0"K>y2K:g.(.*e./ z(!LR8!:3~ 6_{2 22K&!1 .!f3~(#/6_:3R}2 22K:j.(3*h./ #z(!LR8!:3~ v {6?2@22K/!1 .: 2_!:337R0;3~ v(#6?:3R}2@22K7O +.w+ 60+#>3~J4~=F4~nf3 0W(T"b.2d.43 0E(B"k.2m."303(0"h.2j.30!("e.2g.F3=2p.>>>2`.0/>'>9Format WHICH Drive? ,TRS-80 Model II Diskette Formatter Vers 2.0QUICKFULLNONEIDPWABSDIRALT!2"N-"m-*d^#VS(͖-)s/++!)/+z+##"/!)/!)/*/"/.>ʴ* >R2/>2/!A! /.>(+*)[/R8:.<8 .>*ô*:/w:/w:/o(>Pw*/tu .>"(+>*:/F :/ !,O!+ !+Ny "/tu).>+ !*nq[N-G+X+8G+!*"***~(#"*fnwX+8G+X+8*N-+R"P-fnFN##2z+N#F#~# x(+B:z+-A->,w  o )W 1G yfn^#VSh-#NF:`.(F4,--Z--x>,& )&_ #/G>' >!81 ..6n(.6#6L#K: 223>23>!A2K9 MH:(G!K=(  *b.2:d.O*k.:m.O82?2!0!W\}o&))))W})_|#"2:L22:I2 2:H2!2!2"2]!2"Z^! 2 !Z_6 !]Q:(G4-!K5 !b5w(>.!..F.Y(Qx(:(Gp!K: -N: &` # :p. !5.F.Qx(Y 7.#68#6-++6>Disk Drive NOT READY -Diskette is WRITE-PROTECTED -.Diskette CONTAINS DATA; Format OVER it? (Y/Q) (Mount Diskette for Forma*.> +6:#:")0w#6 >2/>W2/~2/P 2/>F2/~2/.! />(+:.Wo& ~w#~w#~w#~w&~w:.G+:/2/V^ fnR(0&.>*+ѷRڷ*+():/F :/ ,+O +Ny tu .>++(G>'+&1G &)W &g ,g xݾ8(&>|*m-y> #z -->s->, "_ )W 1G Oy(g >y͖-!.>###:_.G> ->Z, 1G (g w y͖--> , (g W(w 1G0=/ !2:(GQ: 2O=/ :@2(!!2:(GQ:@2O=/ "Diskette will NOT accept Directory/System tracks now being written to the diskette>Requested Primary Directory Track NOT Available - DEFAULT USED@Requested Alt5tting on Drive x(     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION ***** \!B> Lb!6#s#r#\6#s#r#6 >*d s#r!LF# > >$DEBUG is now ON"<#"+"*s11\!>"^ >/x 0 C͝1\ L C9! > cI!> !!˾!ͭM" L!F# !>¡s#r+++äABDH XYFCE L$͋>KL!B˾*d 6#6!6#6!F# > >$S :2x2h7!Zͷ(D>x  > > ֯!'R0ί!R8 >0:?AG?7X6.#C> 7> !->xOff,Prt,raM,Regs,SystDEBUG is now OFF PC SP SZHPNC AF BC DE HL IX IY AF' BC' DE' HL'(D=T=A=S=E=#==>C=?#~#fo<8~!='o>gxwH-#wp(>0HyM@>yHx,G (˨ypG  x>yy!&xw#608M> S(((! 1!~> *|>-(>+ +"To&p<2P!~<(#~e*b$^#VS!`S!6*d6@#6^#V!"6#60#6!C!P"SPOOL is now ON> ͋>KL>$!ͭM">!ͭM"@[>R8#"D!ͭM"B[D8R0*>[BKDá!>P> ~ 0>.w# B >¤ ä!!^w#Vw#{(~w#!ͭM">!ͭM"@[>R8#"!ͭ(!Fͷ 8Hs8##F*>;y(3{_/ p># L,y(+ # y(+ 6 y HG 8 w#>y8A> L:@2x!F ( G> >x> xʡ 8~͉G#~+͉80 8 87ɷ[ e*<wMB JCLFODXRHSPWE80 (    /@ M @NRFWFP*>&!!C˾d!*F# > SPOOL is now >!>( T!> J#>F D>" A: 8>" 5!>"!>*d s#r!@6#qs#r>!@>$>G>'>*>P:2w# >"(  Ϳ> 2wG>'!F# > (: OͿ>$>*> !@6>#6$#6!@ˆ!>!>ϯ*d w#w>(#!+"| ä"<á!ͭ7cI18901G!_^#V#{( Lͽ L!ͭS(> !~(+V+^##{(~w+r+s{(>á[!~# ~(##W#F!>:!X6#6>> >>>!Xw#BK0O0q#p#i>F>~͊# ͠#Z! F> *w*w!~OOOOOO# ͊+͊+>Z>18>0!>P> O!>?6 :>(> ~͔~0:~ 8~>.> /C9> 2^Zw(sÀ!-*ds#r!!~A( !!x w>y>JyKy#t u 66 #tuF7w D> #=2*d^#V{2@!"!>>y~((G2:wx!28D~N(OOFF^ )!:FG!;>P>%*˶͇O (go2"!:G:I2>w[JOd!=w:H+˾͇TG>w2P#>-6 2P{v(!v > ˶!$>! "Last Line Printed Was .....v!RF DO file error>F>~>V >V>v>v>(2> 2!F(*++"s#r^#VS%S!Xpx#(w#6#s#r!X"*"!>KL1{!ͭS(y@ (( *<"<͝  L> !!O>!x${ _{ _vZ͊~. 80G> > !Z>!v ${ 8 8"8  <{ 8 ?O>  { '{(88 O~("(9(E!(S!7(HD!Z(8!_(-)!h(!(~26!2 xww*T*I0(F!Z>JaiKaih4 4GG G! !f n -7X -?+>**LKN> !<>(=ɷ!"G>'Line Number too LARGE[&:oGO( R0GOQ># 4W_!n#GO(x Q>"! > S}2 >v! !s#r!s#r#6>d!C˶b"!IF# > HOST is now OFF>a8(W >  ! F(?# >( #~ # 6+6!!@V(>(##6!@!G! N(* q#V#^x( T]#!((v{_{ _ 8v ͩ8>˃v & !X> sڡw@ L@õx!Xw@ L@!˶*<2!> > ;sڡw###### #ʤ!ͭ7cI! (###^TL> !q> {_xͩ8>!>T2> u( !z(yGF#~(8~0 ##ɯ&&..66>>!"**12::45F!"**66CCKKSS[[ss{{45F!"**66TRS-80 Model II DEBUG Program@Brk,Cont,Decimal,Empty,Find,heX,Jump,Load, An  x  F57_ ?G  x -G!= f n ~= >y~yZ= >y~ˏyJ= >y~y:= >y~˧y*= f n 6= >0y>y>(y>y>  !~26#^#V!!Bv(;V : F#n F >)oFW_(˶##5N > ^ FQ>"G( x&hF ˞!4x *#2>"ޯ*ͥ!Aˮ!y+f˦~~ J!(R0?!Cn 8*(["!G! Y( N(x2*d^#V^#V!"! ""*d^#VS! "˾#6#6++!A[b!^#VS! ^#VS! S!C*d"<6#6 *Ns#FrC*"Ns#FrC%#6 Disable Remote key? (Y/N     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****0) HOST is now ONYF#C> x=(y( 0sx7!>"n7!0>ϯ2l7>ϯ25!l7~(6=>*(G>'{x7!7͒5!9=G7G!c0> !>*n7>>9Tz4M50O3Ao2E0S0B41L1P0W0G2X4R3C(3D{3F2V2QT0!g7>w~!: !0:͒5!;P=I7>&?0!g7~wn!F: !Z:͒5?0:;!:(!:͒5!<͒5> x 4p#"t730 !<͒5!g7˞> e:i7(x :j7G1 -:k7G'V(*9<>dP >d+| >d':h7G>a8&(W(~5!=͒5n(e6~5Å4!1=͒5!g7~5>`8!O=͒5F>#>0=!n<G7> {_!=B>##>>*5[5=6M6 5 9-- Enter Menu Selection Enter Filespec (1-34) Print Option Now ON Print Option Now OFF Echo Option Now ON Echo Option Now OFF Ram Buffer Now OPEN Ram Buffer Now CLOSED Reset Ram Buffer? (Y/N) Fx Key Will Send xx Hex Code C(!z(" > !(\?)> x y Q >$F Q( >2X!A!5) >%U Q( >!@F !B~ v !C~ v!(= >  TRS-80 Model II Memory Test ENTER Full (destroys DOS), User (destroys user memory), or Quit Memory Test (F,U, or Q0?02;!g7( !:͒5?0˦!:͒5?0!g7>@wv!$; !r;͒5?0!;͒5}60!!<͒5> x2i7;ͷ5͗6>!;͒5!;͒5!g7}60 >wVV!<(!<<!;͒5V(T!<͒5}60f=!;G>0(!+<D> z(!R8G>"9!C~ x ( >>25*5[5M6(=6F"5#?R!>R!:w: ͷ5+͒5:g7Oė6>> v=!:G7Y7Nx!z7N#>`  :g7W :h7(>(6!<͒5>`66:hange? (Y/N) Prompt Option Now OFF Prompt Option ON With '' as the Character Line Feed Option Now ON Display Filter is Now ON Display Filter is Now OFF Line Feed Option Now OFF Enter TRSDOS Command (1-79) Enter Auto Sign-on Message (1-60) Break ) DebG(ug,Do,Host,Setcom, and Spooler must not be active - ABORTMEMTEST:0 (1;ͷ5!;͒5?0!g7>wN!=; !W;͒5?0j7>1S6!:=G7N(Y ͜5j7>1S6k7>2S6!:=G7N?0Y ͜5k7>2S6?0!p=͒5!:=G7N?0Y !;"==I7H "v76A>!= 6 #!p=͒5?0!:#=I7!l76!7>( I!g7˞!B"t7>" 9:7F :7 :?6 :g7V :h7(>>> :h40> >:h40>2h4:7V !?GN# 2:7(!?O!@F#y8CS7> x=(y(>>>B= @?3R@?WF TRS-80 Model II Terminal Utility Vers 2.0 M Displ;Key is Now 1B Hex Break Char is Now 03 Hex Type of Break is Now CHR SEQCHRBreak SEQ is 250 mil secs 2Enter New Break SEQ Time in mil secs (1 - 431 ms) Enter New CHAR Value in Hex (2) Enter New Key (1) Press Enter to Leave as-is or Enter New Ch$MEMTESTF:1MonJul 7198018915.44.00 700>D0"0|!l00!0X0!@"0!00ͫ0`0B160@0<0RR2b3!>U2:UW0! F#> v>>2f64K Memory Test ( 8 Min. )32K Memory Test ( 6 Min. )"0*0>20nf~!04;1R0B 12 =>" 38 7[t7St7!<͒5G>'>*ϯ2l7?0!:#=I7!l76!7>( +!BKt7B(~2?>+ > (#>*?0G>'>*ϯ2l7?0>!B[t7R >?0F#:g7(>Oė6>D>!g7>w^!o: !:͒5?0͒5!:=G7N?0Y !B"t7?0*R[t77ay Menu B Set/Change Break Char KEY W Set/Change Prompt Wait Character F Set/Change F1 & F2 keys A Set/Change Auto Sign-on L Toggle Line Feed Option P Toggle Printer Option E Toggle Self-Echo Option R Toggle Ram Buffer Option V Toggle Video Fi<1nf:0o0$F#fh100:0=20 151nf:0<o1$0"0nf:0_F#fh"0*007H1x6;!xU1yOxG!1͕1͟1e͟1!1͕1a͟1!1͕1`͟1 >F>#•1|????ͺ1>|ͺ1>!2#=1FMEMORY FAI3%R!4"5>*v7"/4!="'4!4"5>!B"'4*t7"/4!!g7R EF>a85 #n(e6> f(ͩ68 s6:;(ͩ68s6 t5>!4"5!g7>`t5 r :h7 V !<͒5Y> v P~5Nė6gP oO wF(>A>>>^(*t78lter Option S Perform System Command G Get Disk File into Ram Buffer C Copy Ram Buffer onto Disk D Display Ram Buffer X Transmit Ram Buffer and Enter Terminal Mode O Enter Terminal Mode with Auto Sign-on T Enter Terminal Mode Q QUIT = 0LURE AT ADDRESS INCORRECT CONTENTS1= CORRECT CONTENTS=0123456789ABCDEF!_2 F#> *0*0>20>22͆2[2 yX2:2<227?27`1M.A. Memory Test in Progress22ڧ2}ږ2-Җ2%"2}Ҥ2,Ҥ2$"2!9"~2!2"|22!2"|22*0{~2{23*     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****2#+:2W+:23_:22:22*|22{2*2+#:2_22#:2W22"0}/o|/g#3Z>3*0:22:227*|2*|2*0+:2P3#:2Y3GK"0:3GJ"0:3!3 F#> *0*0>20͟3`1Checker Memory Test in Progress!5w#<3ͳ3Ss4R$<<<<<<|*s4y!,zp+Bx!z#=yFMEMORY FAILUR7E AT ADDRESS  INCORRECT CONTENTS= CORRECT CONTENTS=0123456789ABCDEF*x*x>2x>2-znz`z y]z:-z<2-z7Dz7uy2-zڏz}~z-~z%"jz}Ҍz,Ҍz$"lz!9"fz!z"dzðz!z"dzz*x{fz{jz3*<0&,*w, ,*w,&, U,r#U,s# , U,~H,#U,~L,# (,BM,CU,N>>%$<=T]!-jVk^#:gk-"BASICN:1TUEJUN10198016201.11.52 61(i]DzDeCEPC^Xa:NOA+O>%$<=T]!5jVk^#:gkjz#+:-zW+:-z3_:mz¹z:lz¹z*dz8{lz*lz+#:-z_2hz#:-zW2iz"x}/o|/g#3Z&{*x:kzz:jzz7*dz*dz*x+:hz8{#:izA{GK"x"{GJ"x"{*x*x>2x]{uyɯ!}w#G("(|!((!([(C(!3((!c([(>99(C(?(RR#*f+!>U2:UZ(! F#> *********** Memory Test Complete **********64K Memory Test ( 6 Min. )32K Memory Test ( 4 Min. )"(*(>2(nf~!(4])R(B+)>^)n(SUMENPENIELDETUTLOSEOADERGE(AMEILLSETSETAVEYSTEMPRINTEFRINTONTISTLISTELETEUTOLEARENUMEWAB(ONPC(SINGARPTRSRRLRRTRING$NSTRIME$ATE$EMNKEY$HENOTTEPNDRORQVMPODܾGNNTBSREOWOSQRNDOGXPOSINANT4{*1|{*1|{ |r#|s9# { |~|#|~|# {B|C|N>>%$<=T]!}jVk^#:gk)f:(o)$F#fh?)):(=2(+)W)nf:(<o<)$("(nf:(_F#fh"(*()7!)͙)ͣ)eͣ)!)͙)aͣ)!)͙)`ͣ) >F>#™)|????;)>|;)>!*#=)FMEMORY FAILURE AT ADDRESS INCORRECT CONTENTS=NVIVSVDOFOCOFKI$KS$KD$INT)SNGDBLIXENCT$EX$TR$ALSCHR$PACE$EFT$IGHT$ID$Y1aa3Z3e64Q63_3@34XN3{33 Y3wYxY}YY2222 6OS4f4"4fceecbZcggx:xRR.zJ{Rxgx͊xuxAWA_>N#zA{AP! R8(:********** Memory Test Complete :') CORRECT CONTENTS=0123456789ABCDEF_#*!c* F#> *(*(>2(>2"*͊*_* y\*:"*<2"*7C*7d)M.A. Memory Test in Progress*2"*ګ*}ښ*-Қ*%"*}Ҩ*,Ҩ*$"*!9"*!*"**!*"***({*{*3**#+:"*W+:"*3_:**:****{*E8DNFSNRGODFCOVOMULBSDD/0IDTMOSLS*STCNUFNRRWUEMOBO????FOIEBNFFBMAOIOFE??DFEFRNNMMM??DSFL3333333333@MP@kkWF:,RE-BOOT SYSTEM **********"6x*x>2xnf~!x4nyRyBoynf:xoy$F#fhPy-y:x=2x+GJ"(>+!+ F#> *(*(>2(ͣ+d)Ch+ecker Memory Test in Progress!-w#<+ͷ+Sw,R$<<<<<<|*w,2y,++*w,@"w,:y,=+ ,*w,+     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****,&-M!+>d2,3͢3",!9d. 1 +V+^##*,1", X*,*M+͗: / /u7'2]D~<{C"͑D͜CQZ~> v7͑D͜C.CO͗:G*,3I`W",s,~:().#~#ʅ.#^#V"M+:.(>[ͶV1J>]ͶV[2ր38<O!2* N-2,,9Q~,(:,N7>?ͶV^6Y#~+ʡ3*I+|a͗: "WG"( :,W(:,+[!736HùH+(,I6+©6:,Y*I+| !>7Y[6?Extra ignored ͢3 #~#/#^#V", 6u7(+ X8",*,~",7_ >2,9Q:,u7",",͠< X!;9C:,*,~)(,*,,2-(82,!9C!9.:,G:-Od3}!- Oʹ<;3*,*,)>",:(-O XO/AA#4/.̀ASG~_#~W#~OJAhcGy 'JTeox 2.| y0O )zWyO@x\E( !.w0@x!.1AF#~怩OÑC 4/~_#~W#~O!.~/woG}_}W}O8CZQ oz y- Error in Ready Break!9~#N#F#i`z( / /*M+|<(:, z!Y333883383498888388>888858B;<;6337338#F#~: ( 0 Ҵ20?<=2Y.AOG YAGx33ͤ3#*M+00`i+/`.",/"M+#| :,¦/![2>:yHG~:,{n\!*xV7z8Q%87z%8! .:, /N#F7#N#F7#!.N#F#N#FKGL8*,x70808W.",͑D́CN]D:xdd!v:͗:7* .Zy2,:, (80+Wx("z(Dx(Qz /0S!* N#F* .ͽDC" .".!&-ʹ<*-+"-|2-!*O `<:w# x *M+#| />2,O>Q~.#I^u7]Dzu7<3+{>2D+ͼ0!"M+N#F#xʧ/*I+|WN#F#ڦ/",1J~ (> ͶVU=!+L=ͺW~W#+~#\=  E_!S(~#-O0-yOzW{_xG$cACu͍M r5.C3A1rA͜C>2.́C!AͨÓC͑C!AͨO\B́C=CÍ@.C.By20B"+BPX!@!B! .~#(,Wy0O|g}oxGEBx Gz CZQÓC!'H͎C.C..B44+~2B+~88888883;86543<7>.=2B *,"M+   *M+",|<(",&/*,ïX{K2A+*,",*,|<("-"-*,|!,( 5r2wY2H+ͭW{C0208>-_!*~?(>?ͶV~ͶVͶV!E.*,Y[̺Wʁ`|<)J>W2H+KcͭW!Q.i:Aȸ#"(֌ W9Q",:3,u7G:,x(͠<:, .8. (* .#^#V*O+0*-0!,0 >\Z\ͰC &3z( 0PYv3",:,{:A+_/<~G(+K xʜ23,,/<2A+~( 3zb3<*,*,"M+~ #####z<¢3:,=Y͑CͽD!*:,og~#foC2,(8" .͑D!*́CͱD͜C"." .ͱD́CͱDZB /HYҭ9(.Hʟ9"[ʂ:&9 S $Àh:A+: *,͑F #(# <͞aY99Q)|3zD;]^Haa` ]de;= ʊ[~#=ͼ000T]=3!Q.Y[!0*- `i"-]D͗::.:.Í@rX[2+ PX(&,( 3BK(,3(,3.z3",00`i3 3!3^{#V(~#+ ͭ?͇>*,0`i^{#V( #s#r 2B+~2BAOW_2B}o|gxG>?B02B7y<=B:BxʶB> A{_zWyO)xG:B2By !.5 @>.!.N#G.x(}!.GxCƀwJBͻCw+.C/@/͜Cx/G͍@!.4/:.:./<!.Op#6@oC͗:F /!.~woCog+BS!"M+:,(=*,1J0>*8> /ͶV_0 2,2,*,80", U>>ͶV_8<=(3+~ ( (#~ ̦C0",҂ců2,",08v3ܷ=(#*- X"-t##s#r#+w# ͨ0!+6"W+*I+",nX*U+"W+*,"I+/*O+bk~##### sâ3<3/ (3(,*,(43.|3",2,",/u7~,̴2(+oC(_3Û2͢3  >2D+(5da@̠`+̺W6U55,(N;5u7͗:(8@J[6 * .4*I+| !* .:D+(:C+ :E+G<( :,=ԺW\[\[(5*I+| ~ :D+((:s7)}x7*,TC9Q" .͗:9C~a{_&3;9O(/H *#~;9Y0 :07083G0-7))))o/+08./)))0O zDOyE8s7,D* .<͙9} 8ܑD9( N#fi-++k "  ̈́?z *?+6 +6 +601 ̈́?:u?;?0 > 8@ͭW!?Y[1J͐?)J+Undefined line ™>̈́?###N#F>!>*?+p+q+w:~@È>5J*?+++(w#  YDM*-}o|g"-  >2u?zD͗: /.C* .||* .*.͟CC" .`i".! .^#V#N#F# .:,Gw#!.~7w?##wy7O!.C!.C .͗:.x.C!7C.Cy!.yD#x+y+z+{z|8C9C}9C!.ͰC..C!7C.CO!.y#D+ -D7C͗:* . /#r( 3( 3.*O+D0M~#+##~#fo`i~#fo??2,O+~ ʌ1G"ʨ1ʮ1:,~Œ1?>ʌ1~08<ڌ1R(n1~a8{0_wN#?1~ȹ j1Ox +#~a8_(Hy6:  # 6:#p# # :(K 2,V0G~( (# !D D:C+ø5:F+G:,(ԺW50/55<)+ֻ(*I+| ~ :D+5:C+:,/0 ͶV-52D+go"I+#a͹<~v69QD_Y[>3?Redo from start :,.!76Y[*,ba!+Ù6͹<~#[6͹<~6">2H+[;\[^Y#~+ʡ36,* " .Ä7:,07]DzʛF{:9F:F {o|P {o|< {o|2 {/o|/}//o|//}o|gÑF:,ogzD ;͙9N#F!JB:,̺\! .00O!*+ ;2u?M#^#V#"?+ô2>   ?ǎ*O+~#(###~#(?+? (* #*O+bk~#]@###~#( s#r##+( #~ ( !.6*3> }($_>>0/<g@6#s#r#6 #+<=8#ʰ?+ (,((88ø?*-"-"-*-&o"-DMD!/:.0D" .>2,CDaj͗:D /͜CDxͻC! .FA* .D|UBC͗: /D!"." .>>D͗: /GOW_͜CͻCgE>^A|1AJAz< ͗:.CE]CETC͗:0 /nD!.~: .~D6{y@!.~ O+~+ !cEzDýDy      ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****͜CͻC+6+qE:.O!.>ͩGEdG2.G!.~5#(!x(>)ڮR)0 ڮR= |G|Fy|GzyDͱD́C͖FJ|zDpFDM!>)8)0 F= |FxxF(ͱD́CͱDAxzDͱD]C|.pF|FDM!> 07>{_zW\J6-TC#60:,W:,%KKJtJM!.F :,_ ( x* {“JAq(E(D( 0(,(. +60{(+6${+p2,!.6 W͛LJ02M60̦CEM+~0(.ĦC(!͗:>"w#6+K6-/</ 0:#p#w#6!.#zҔK.L*Mz MM{C= MhrÓC)EƁcO͊@!|OͨOJA`ÓC:.oO@/͑C|Yt&wz^Pc|u~r1́C&F͜CÁC~#͎C=A͟C͍@]D|3(O͜CͱDA!A͂@)E!>+K&.)yO~w0 *,:,O- #% !e",D>2,!.p+pOT8#~  L=ͺWkS~>\W~LT( WT >\ͶV~͔W 0 (( (>ͶVwW# 6HT͔W( T( (,(( ($ 8>(W+T ~7JB#~+w#y8 o&DM#XwW#ÌTx+>W L=ͺWz 2D+2H+>^ͶV@ͶVúW*-|/*-"M+>2.9Q!-ͰC*-͗:,9Q͗: /*-3ͰC-ͰC>2,9Q2,`i *- `i"-~,~A[?rX 3+*,Z,u7=+.}o|g= F|GwF|zDOoygFzD* .|F|DBC9Fg{o}D!.~w!.~G+N.C0/<#Fwx+ F+N9ͻC!.G>w2.!.ͩG:.2.xG̀GRG4/GRG>͂G!.ܗGG:. !.Vwz# x @!.G:Gx( !.w@:.dG!.xJ(p#6!.#:,~ (*(+jKpK-+$0 #0 ++w(YK(6%5L(,N'DK@J+6%CK.CěLK_x MMEMM2MAK_yĔIKIK{_x L MM My5MO MGOEM *,= MPJKͮDѯ;L.C7ěLy@!P͂@:.w"~ÁC)E͊@\PCP͍@͍@.C]C͍@]C:.P2.!P͙O:.2."~Ie&X4#]ÍCBṔC͑C\ͬVͶV_WͬVW~#!wV#(7aV+>(+~#.(@\( $(* x#8~$> #W(H~#.(#(, z@W~#>._U# (%~##(UT]^###xG#z+ x(~-( >W(Pu}_|W7X*-( 7X"K+",rX4Z9Q",`..~#~#dZ͎C͂@ͨC͟CC)####N#F#^#Vi`E:,/r+s^#V#D͟C( "M+i`W2",*,~,[26Zͷ\~#N#F;\^#N#F{zد< #(?9C͊N͍N@J[ͺ\ ]~#q[N#F [oͮ\>q[!~++w!.4# 4/+65.!.ÈGG>!..2G# ~/w!.Oyw# q8NsY+  W~w+ !.~w# .C:.@B͍Hq(G܀GGx  G!.ͰGL} H!.ͰCG:..:.@B44/͍H!<.qA>ĔIOzWOI[LiL/<lLͬV(u7D* .AN]\[* .G> 6VͶVz>+ĶV*I+|¼e:D+W :C+=2C+- > ͶV:C+ (8:C+< W((2C+q`2D+> W> W2C+,w#s#r+"P#~ (( "̴2#0[y [,>*," .>2,ͰC,",~/#[ͺ\͡C ͶV ̿W*K+*,/O #8",#/s[*,",!*-!,*,[)\!-"-*-"-*-*-(~### *\_*-~#fo*-("-##^#V#"-*-JwG?8>wG:.<=UG!.G!5|H.Gx !.5 @y2.+;.~q+ C+~/wͳF4/@D`hzD~&9-H+(+کI.VIe(E Il( L(q(Q( :,(>~%bI#pI!qId(D wIf:J _{_II TC͗:!JB̓͗:MC!$NCͳFiE4N> 2MhM/>ͅG0>ͅGp#= !.͎C @>D͑CzN?2M͜C/{_#zW#yO++0>A#͑Cp#8>N>2MN#F#* ./}o|g0" .p#= 2Mw1_cƤ~@zr2.go" .͗: !P." .*,W TR3*-(-^#~# :, ~#^#V# :,.DMJBS /:,w#_3q#p#O X##",q#:,y 0q#p#͞E= BK7X)X"-+6 W*,^) ++s#r#80GO~#^#V#ҮR͞E=DM :,D:H+Š[ > ͶV:, 8:E+@WG:,(̿W((<2, `*I+|(-5fJBKc:Q+![2nX!Q.Y[>>ͶV`:H+HY/2H+HY:,úW6!+> ͶV*I+|(:D+(2C+ɯ2,I`ȷ̔W2+JY Y ¶V:D+ *I+|(> ͶV> ͶVͿW> )X\~#͟C  ",N #*,(\ů,\#^#V#DM*,`i`i}+F+N+n& PY+DM*,Xq#pi`+Ü[* .8D~* ./[;\ͽ\*,ͦ\ͦ\!75[~#N#Fo,- D* .\PYN*, G ",*,+F+N+",:ͷ\W~:\3#^#V[D͗: wIH!JB!]DƷwIxȊDĽD͗:CH=͗:QB+H!̶V1J> ͶV!+ ~# G͔W(;908 0 _zW!S³STT(A18 !U8T#(?ʌTBT]TU(ʇT(ʄTͺWTS~W# !WT7͔W_WT~6TW~ +*- >>ƕo>8g9*K+++ {[G(*,w#ͼ]O>~8xq[#F#fh DM [oͮ\;\5[ͼ]~Ϳ]3Ϳ^O]=O~GC\:_#~#foFr+͹Hp)Cs7͗:>(<3,u7D,* .u7)ͷ\JB:      ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****ͽ\G=O>x~#F#fh GN#^#V$^  ( #ѯx<#(9QD#^#V*-8*O+0 ZͰC,<3~Ϳ^n7ͷ\G!JBy~3<8yH #^#fk GN#~#foyw# )(,<)ɯ2,^*-!9͗::ͺ\͙[*K+*,:>?ͶV>U+"W+"I+*M+#|< "M+:+Bh5f/)rh*W+6ɯ͇aqfgAS DMqf*W+##>/gͣg*O+*-*I+B >+ 3*O+*K+ Tc*I+>"( 'cB O2+!. ^/:+aGů͇a!B x:@Jw# +6-#>4P+~ (#6ZSETCOM {A=()} This sets up Channel A with all default parameters LOAD COMSUB64 } This loads the machine language subroutine into HIGH memory BASIC BASCOM64 -M:61000 l :Define the entry address for the machine language subroutine.l0&HEF80l :Make A$ an ascii null of length 1.l(A$(0)Fm2 :Pass A$ as the argument to machine language subroutine. 'On return, print the argume ͶV_^WV_6 p2+^W2ͺW! _lS:G+>\2G+ (ͶV+( ~ͶV+ͶV ͶVͺW!+2G+O(:G+( >\ͶV2G+y(VJY7 ʵW (F _;JY_ _?_¨_JYE_ 6ͺW!+L=_ _x< *I+|>(!+3"M+/yq2,#W _2,^..!> ~2+B G~,  x[5[{d$~#.#~:ù2|}EX*O++6*i~h¹bç/!}jY[",",!h ~#!~k"K+",!>!i`>!"M+2H+2,2A+!"C+!,",!&-"-2w+!i"i:ii<2i*,~G"iiF#~+w ʋi ʋi##wi+6"i*,~i # +i-ʼi+6""i#-ʼi¯ii6MiF.:9nt.Tm< 0(A$);mF :Input character from keyboard that is to be transmitted.mPA$/nZ :Look for down arrow key as programmed exit character, 'you may use any value at CHR$(nn) as the exit character.Bnd A$(31) W( _V_I`(ŷ"`G>> y2`,0ր2H`> !H`> > y2,> x:aaȯ2aa>>2aa ( G>rh >$u7ͷ\~3G#~#fo>&rh( <3,<3)EK+ ,:+ I`((<~, za.ra)}3e[(͔W%ew# 65[ Y5f.ë́a.!? ~8" (*I+`i"I+5f@ 6"I+hC͇aůPY>*rhBë́a.PY>!`i#zD̈́a.PY>!>#>!`iDM>!zD*I+~Y#V p(zw#2(z3{32w+",+i-ÿii+*,+",7X+:w+!h"U+W+2w+<Bs#r# $$=j#"O+~k7X"K+",)X{ozg !jY[1J!jY[:w+o&1J!jY[!Y["/ͺW!."(h Owned by Microsoft Bytes free, FilesTRS-80 Model II BASIC-80 Rev. 1.2 Conn :See if a character was input from the keyboard (INKEY$).nxA(A$)n :Reset A$ if no character was gotten from the keyboard.n A0 A$(0)o :Pass A$ to the subroutine. On return, print A$.'o 0(A$)Mo :Loop as a continuou2+<[*,w5[!P." .>2,>ͶVa_2,5a.ʹC1.ʹC5[x[!.>-*,5a).ʹC5[> x:#zaѻ.,`i"I++#̴2u7<_:w+.!W+N#F ͈a!B >>>͠<[*,C ]>>>ͷ\3<#N#fi2,C͗:6 , Zba9+>+rh2S+za.PY>!PfY~, 3+.{.##BK:S+ >#rh>,)f*I+T]@ ~(6#~>" :+A w rh? 67u7ͷ\~.!.#N#F+ w#= > w6u7ͷ\~.#N#F O(I( D(R.,#̴2pyright 1979, 1980 by Tandy Corp. Lijcensed from Microsoft Created: 10-Jun-80  .s program.Vo 40pQD63W_5f.  " bG{,x PX5f8C!+Oz"y(& (M O{,yĪb5f8 { (,> ( ( ( (ͪb5f0"( $5f8 (,ʒb 5f8 ( *I+@ 66!+{ ([Hɷw#fͳb:w+2R++( ,R.2w+2Q+!+6"W+^X:R+2w+*<,{ѷ._͇a.qf| +g(,<(=3 C",>px2+2+>W2~+z"I+!+"z+!B"x+ "z+:+($"x+!x+>(($rh >2+>R2~+!x+>(rhr#6= :+(?{.:~+R.:+.*x+"z+*I+!>2+w>*+w# Pg#6#6*,k(ated: 10-Jun-80  .      ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****Pog~ >`8 pG>a8 G z 6!60(4#!"> ERROR"0p!1F#>& |!8F#> my(!F#A(D > Ry(x(` ? 2!NV> >->  > 0>'"DATE ADDITION OR DIFFERENCE (A/D) ENTER PARAMETERS DATM64p`|(8"z(8S͎ > #>S(>V:_!1^*R#0*:oR#8*2"!4~ 8 w!4~d8dw!4~d(2o&1:G0$o"!"!nd`>:_@R>#####:o&>o> ,R[>!q*\>-Š!yo0$:! Go0$:ͽ:ͺ:ͺ[:ͽ:ͽÍ7_!{>*N#"GW>_SMONTUEWEDTHUFRISATSUN JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC:o !n&>ϯ>%X> <23>0{!{>b(Q> 8L{2>/ C#b =(:{2>/ 1#b +>0&{2b {2V:!1o0$:=0>!>0 6 #͎Š> Š#͎Š!"!6Nwy##ڊ # >:_W*R0!5:_>!04Š!{>M|ÍV:_!1^*0!4"!4~ 8 w!4~d8dw!4C0      ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****      ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****      ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****!     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****"     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****#     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****$     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****%     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****&     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****'     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****(     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****)     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION ******     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****+     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****CLS PAUSE ******************* CONVERT TO 50Hz POWER SUPPLY ******************* PAUSE These PATCHES will modify TRSDOS 2.0 for a 50 Hertz power supply PAUSE IT IS A PERMANENT CHANGE... DO NOT RUN UNLESS OPERATING ON 50Hz PAUSE CLS PAUSE ******* Convert Printer Software for Line Printer II ********* PAUSE This program is for TRSDOS 2.0 ONLY PATCH SYSRES/SYS {A=115E F=1604 C=161E} PAUSE >>>>>>>>>>>>>> CONVERSION COMPLETE <<<<<<<<<<<<<<<<<< CLS PAUSE ****** Convert Printer Software for BACKSPACE support ****** PAUSE This program is for TRSDOS 2.0 ONLY PATCH SYSRES/SYS {A=10C0 F=FE00 C=FE08} PAUSE >>>>>>>>>>>>>>> Conversion Complete <<<<<<<<<<<<<<<<<<<<<  To ABORT, use the key PAUSE ***** LAST CHANCE --- PRESS ANY KEY TO M O D I F Y S Y S T E M ***** PATCH SYSRES/SYS {A=0082 F=3E1D C=3E18} PATCH SYSRES/SYS {A=0668 F=19001818 C=1E02181B} PATCH SYSRES/SYS {A=0DF7 F=3E5A C=3E4B} PATCH SYSRES/SYS {A=0E90 F=363D C=3636} PATCH SYSRES/SYS {A=1160 F=361E C=3619} PATCH FORMAT {A=2D01 F=363D C=3633} PAUSE >>>>>>>>>>>>>>>>>>>>>> CONVERSION COMPLETE <<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ,     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****"UD'_?,    SYSTEM SYS-3BQQSYSRES SYS!QQBACKUP BCQQPATCH B!QQ    XFERSYS BcQQFORMAT BBQQSYSTEM64 QQTERMINAL B"QQ    MEMTEST BQQBASIC BEQQ LPII BB+`QQ    PRTBKSP BB+QQ     -     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****L--- --.. ... / / / / /0 001 112 22- RES (c) (p) 1980 Tandy Corp. ERECEIVERENAMERESET SCREENSETCOMSPOOL STATUS TIMETVERIFY> !m& > INIT DONE >G>'͋>*dfn#V!'> ~ 0>.w# B >  !(!!~0O"/&!~wrs66"F# > !p&F# > >>  >>Press ANY key to continue:'/(0*'O &> !& &> !&F# > 0>'Dual Routing now ONDual Routing now OFF~w ~w ~w *' F͞!C~< #~< r+s##> >2v&!_"s&r&8>8z>(!><8#"s&2v&_0 ( ##ݯѷ>% C""#v&&3$`&$&(>P0>"'~ ( #> A('3> ϯ( >>!$P '!@F(@> ϯ (x2'!Q'6 !$>!'R'R '!$N#>(: ###`&B8͹ >(>'>"0KP[R!'xG>'> ~ ( V#^## U%L&&f$z>1$R1$$2O%2R%b"":L%(4*H#V#^$$z`2;${2?$>F8$ 2e#>8*""###6?#!u%6~##(:O%0*~2O%"P%!:L%0 [M%z ~#:R%0~2R%"S%#>(##++ ""##"":R%(*S%^:O%*P%0R_?wD2#~+o&>++~2#y2#!} !&R"['""v#͚$t >%'&!f#:2F"(O:C%y><#ͪv>H&Ü#:2%O['E%:C%(> v( ˶Q>~( !A~˾> :VV^R('V^R[#~98:@%W[#~9[#:AѲ2A:C% *~?2D%N(~2%>V2B%2A%=>F2"m$['ts#ufn>6_0s#$s#FVs#>_0 >>s#5v #5N(~wFs#.~(C6#~  ~  ~ (1~ w~ w~ w5f x#>_0 >FI( >zV      __________!'!'6'[!$w~(=(#!'N #(z{(W#~(N #(D!'ͼ#$  5v(/z Z$>  #( !'ͼ#$ #!'z}(#y͹##O 5#rput#$>. !$p! $q>!1$###""6+++$r#s#6+~2?$+~`2;$"#>F8$¹#2e#>ڹ#:e#Z$<(/V#^{2j#$$}` > > **H###"H#:L%<8>!1$2L%}`:e#[H#<*M%+"M%:e#.#|.#!##6*M%}(| "*H#V#^$r>w! !U%!*B%~2A%0:D%w?>www<2%~w:A%w:B%V :@%Wy$:Hw<:Iw;:Lw:a$:A2A>['t >w#w>> ͪ~  H&(>W2@%x2!`>+!w}2%Uw:B%V >www w #:A2Aw9> gt _6#6~ (w##~ (6/#~ (w##~06:#w#6 #;ѯR6 f n > ݾ go!#~ (~(݆ (0#>y(#~<9$~2>$#~2F$~$<2>$2F$ #z2$&:>$`"       $ $ }{*/.:()TO H##~: # (:$>#*( 0848A8>Ͱ$8߹(;#z/ >Ͱ$8͹()##z. >Ͱ$8(#z: >Ͱ$8z((! $z(##>Ͱ$8 z) #ͼ#!$F# > ####`&B8 >ϯ>TRSDOS READY AGAINXMANALY#~ w!~ w#~ w>FV I>O!>Z$G<8#2?$";$2d$2?$b!`";$v%S">>F8$ >83}`#>S">F8$ >8<# !&R0z{{&o>Y}W>!v%:A%w:Hw8w<:Iw7w;:Lw6w::D%w?Vuutt !~w##>:GI( >>:G:%W>*'͋%["!:%  :%:@%P 2A%>F2B%>WW(>R2@%x2%#2#:B%V>F 2A%>V2B%:C%0R2C%:B%V(:A%([<%!(R(o"B$>?$ ==<(`o"B$2F$a$G<8#2F$"B$2k$['t >%A < 7!A~˾ /VV^R(V^R> ~98>z%ͪv> :2%O& ͂%6 6 6 x#*6ww" TRS-80 Model II TRSDOS version 2.0a January 1, 1981 ZEAPPENDATTRIBAUTOBUILDCLEARCLOCK CLSCOPYCREATEDATEDEBUGDIRDODUALDUMPECHO ERRORFORMSFREEHELPHOST I KILLLIB LISTLOADMOVEPAUSEPRINTPROTPURG!~(0~_(>wV>_$F#N+(B ###F1$uV1$"#>_0 >>1$fnV ^ ~ <(R>ϯ(#"M%U%~( #~#y2L%(SH#6#>2"!~(@04!([:%R(0&go[>%R( !(R(0:C%(:@%R(ѷ>$x2q%y2w%!C^#VR(!R(>_0 ( ##ԯ>%>w*<%tuw8w;=w6w9w7w:w3www *:%tu*>%tu:w~w5 ~w##:A%w>w:Aw4wwwww6w7w8w:w;wFV( >$I>$*';6 *'>wrsw8w;=w6w9w7w:w3www rsrs:w~w5 ~w##>w~9w4~w ~(c)(p) 1980,1981 TANDY CORPORATION. All rights reserved. Unauthorized reproduction of this software is prohibited and is in violation of United States copyright laws. .     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION ***** "~">%%Z&"%!$"$ͭ$>.$ Xͭ$>.$ Mͭ$R> =>88K> .>;8)S>>;C 8v!D6!Ep!Fr!Gq͛#>"%!$"$ͭ$>/$ ͭ$>/$ ͭ$ͭ$R> > 8ï2M#{2"s> >!$o0$~0:" > 2M#s> >(>z"s"s""1>!&6>=2"!&q%!'%%(Q%$!E^#V#N!%.͖%!HV#N!L^!%/͖%*':' >0~2%0Gݶ2&!%>% ~ >!%=%!&:%!m&:%>!&q%%`ʝ$}2" }!oU%""n ~š$:'(#"#2& "['S#"#͠":'(l:'(f*'"#*'"#͠" W&!'~(<݆Onf>::&0!#!'~(<݆OnfRE > >/G>'[#*"#}!&+FOf#ͪv>&VV^R(V^R>~98>[#"'%@s?$!'~V#$V#"'"~T  >""P $(>B2#L $(><2#W $(>2#C ;~= ~$~=(s2#0i8#O=$>0!;$> O{2#S 3R +X #D N >_A  Q  >_!g$F# > >0>/(G>'!#6B"g##!'(@>(= #^#V!">(d0>'#^#V!"> !B~(8*d ^#V!B~(%#ˮ!(b!"!"F# > !B~ #~ v !@F(!":O32(64S,#!A>2X!&# 'H>%DEBUG is now ONDEBUG is now OFF.Cant "DE>z"{#2#$#$#$G!##N #R8>(Q( (:#o !#n&>>z"!#~2M#~2L#~2H#~2I͛#}"G!Hp#< }"!$"$!$"$͌$!$6 4:I!E*$N#"$ = !HN !Jr#sv:G8L2G:I_!$^:H<2H82H ['O>š$V^!%!%!#~( 0_#>_!%!%"]#>!%!%!%!%%N(1%%1%>V2%,%>F2% _!%!%Kfn>   %,%# { O>aUn>]!%!%n(>P>D2%~(>S>*2%>TBfn:&2f((> !& :&G:#W!&*#w>_!& >:G:#W(>Ix2#y2#!C^#V!R(>_0 ( ##ݯѷ>% ---> 2&!'~$!'$#^#V0G2Y%!`:$^#VSz%ͪv>$!##6<##62#!=$60!K$6 #{?$6$G>G(60#x(H>""!6$[#$O$[#P$V$[#P$]$60#[#P>|d$& !A$> !$%Q(DY B<>">"!$F# > !$F# > > !$%T( RV#Q " >BUG" while DO, HOST, or SPOOLER activeSYSTEMxx:0 "DO" is already active Cant "DO" while DEBUG active !' />'x!@F(!1#Ã"!B~(!I#Ã":O32>|(64>S,#W*':'O6 !A>2X!&# 'H>%:'(O[' J E:Gͪv> 5:I< 2Iڛ# 2I:L:L_@R>#####:Mo&>o͌$ ,R!JV#^>!Nq:Lo !Mn&>ϯ*$q#"$>0ͤ$= $ͤ$= ɷR~*%N#"%R(>AfnR(X2%~902%^:!%!%^ (g$ ( >/v(!%6?!% =%!&q%>#"!`>F2$QYF A  ˁ:$f0F#2$}8yJO(!&!%Y!&!%!& =%>>0'&”$O~=y  :%>(5%>(F( %>(S %>(B  %>(;$&$ 0>=ݾ("&>!& n 0>=ݾ("&>` $>>!&w$~(F~`(` =~ ( (8~L(/!&6 *&NnfV[z%R> /0G>':&w(C&6 " ~(nf~="$~=",#{0000FORMS SET P= L= W= C= $FORMS Control function now in effectPrinter ready? (Y/Q) Align paper to Top of PagePress ANY key to continue$Top, Repeat, or Quit? Enter (T/R/Q) >VV^R(+V^R> ~9>0 0/G>'!'W%$O~=y  p%>(Jm%>(f s%> W% $O>=ݾ(!w%~(# >( #O #> ~2%W%  )$O>=ݾ)$%%V"%>$W%  )$O>=ݾ)$%%V"%>$[%*%:%-$|($MonTueWedThuFriSatSun JanFebMarAprMayJunJulAugSepOctNovDec"%:G8͛#:N!%Go0$%:I!%Go0$%:H%:Mͽ%:Lͽ%*JU\%:Gͽ%%:Fͽ%%:Eͽ%:I%:N%!$"%7_!>|*%N#"%GW>_S%6.#"%:'(*'> W >B>'" ~nf>|!&!&q%F#~ > >%+&>  &>%կG(%O#G#~#+yͣ%p#zͣ%p#{60 84:#w#O*&NnfV"z%"!:Y%G= !&F# > :& %!%_ !z%6#6B!%F# >  対(b}2%U$~ Qs#r#s#r$}o&~ (#xo> ( >/~# 6 # > #>`(OLDNEWPWFile(s) now LOCKEDFile(s) now UNLOC|6$%F#C%> x=(y(s4%>2"?%1>0G>'!'~ >  ['!&> >2*&!'~(!'7%*'~2l&0G!Y&> !/&͈&$&!P&͈&$&!n&͈& "#>(0>F 0>D>A%>F2%>.F(>X%:%#>  !"$&tu!%F# > z(rs!%F# > :%(~9w9!%F# > :G:W1$ > ~(nfUPDACCPROTRENAMEKILLWRITEREADEXECNONE Access PW set Update PW setAccess privilege set ~ J~" E!'>% ;'> >->  > 0>':'(*' ~ 6.#>0w#w  ~ "  DISK NAME: DRIVE: FILE NAME CREATED UPDATED ATRB FILE REC NMBR NMBR GRAN SECT SECT MM DD YY MM DD YY TYPE LEN RECS EXTS ALOC ALOC USED (** FREE GRANULES IN EXTENTS **...+++SYSPRTKEDNew Master Password SET ~(nfN# :'( !'^#VRE&>>0($GO= !&' > '>  >G>'AUTO SET = 9%#&! "& " :84 F# > +ɗ F R E E S P A C E M A P TRK # ........ - DRIVE:001-04: | | | PRT"կG(&O#G#~#+ge set/     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION ***** "|'8]"r"HP> w#"t"!v"~#((^#N#F!#^(#N#[r"*t"R8 6 #"r"W ͯ>   ()+ , )-/B  &UzPo R 2345 6b78A:; Y  < &Ue> d?@dCDdE  ""#%!'~(+0#^#V!D">(#:'( !:">( >0G>'ONo"OFFo"˾ˮ>  !~"6 #A > > *d^#V!['x *~# (~ (>/~# (6 ^>~# (*/(~ (/ #~ (#~  "T##!'(F>(= #^#V!">(T0>'#^#V!"> !Cv("˾#^6#V6!!Cv !"!" !#!8#!"F# > !Cv +~(f"^ p":O32(64S#!A>2X!# 'H>%*d^#V! HOST is now ONHOST is now OFFSerial channe "Enter Filespec (1-8) SPOOL is now OFFSPOOL is now ONCant SPOOL While DEBUG Active!'!"!""6*d^#V"[""Y""]"?$ :C!+" !"S$ï#x=ʨ#:%¨#""?$fFX  !! GHg&hi""&jIkblK$ m76n% `MX! pqrsg&tb" &uUv%wU%#Q>%'$,dS%U&&n*+#b\,>m8A{|n- .]&^_/}~, 0S~,1y>aa`aaErrorNotFileDiskWriteNoOpe(: !~# ( * z0z0 2r#""(:* (0(ͪ#½"0&(  ~ (/(##½"#½">¼"=2r#*"~/( (#½"ü"ʽ"#* ʼ"( *7Ⱦ#~/ S"*~#/( ( ["+*Ⱦ['s-$xl A not activeSYSTEMxx:0 Cant "HOST" while DEBUG activeHOST cannot be executed nows~#!>"#!q#>> >!>*#>1!@F!_$$%$!B~!b$$%$!Bv!h$$%$!C~!o$$%$!Cv!u$$%$[R!I$>!T$>!4$+> *z$~$BE#yҨ#x>= {^?$(3>=ʨ#{C v$¨#z¨#sL v$¨#S"{F¨#f¨#""y 6Yb$ ?$(y_s=ʨ#>""è#~K¨#"~(>0G>'ϰ>$:"G!#>"$$#$$ $#*["ê$!B~( !;"S$>$#~( !+"S$nPrinterI/OBadFoundOn AvailableIllegalReadyFilesDrive DirectoryReadRS-232SpaceDuringFunctionCodeOrExistsRecordAttemptDataAlreadyFor SpecifiedFADFIDFullOutExtentsProgramToLoadSVCCallLine Character ParameterCRCDoor Operatio2%"%>2$+$շ(R>y<(L=($ >`0 >1i>ͻ$~>$`Y$#*%6#Mͻ$ ~$ɯGOW_._"$>2$͠$8>8͠$8>8*%q#p#s#r!><8#"$2$ !~$ > *|$$BE !$> z$[z$|$[|$s#rHIGH MEMORY ADDRESS = hex / dec. DO DEBUG SETCOM SPOOL HOST$$ ON:OFF:>$:O32(64S9$!A>2X!2$F#'H>% SYSTEMxx:0  ~nfOFF #> ./:(x!]$N#y8!q$60#A+!q$D> z *["*Y":C !"S$>$!"f +##f %!"F#_""> ϱ(x= !"6+S"x2"[]"!nInputOutputInvalidProvidedByCallerMaximum16MayOpenedAtOnceAnUponFault ProtectedDCBBeSectorModifiedAndUnusableNameAccessDeniedEOFRangeMoreEnoughNumberFulfill RequirementsBeenMemoryChange IncorrectRoutineASEEKLost (files +6:#:%0w#6 6%#fn#"%>(~2%~?2%~92%N( 2%b"%>V$~2%(O|(>aUn>]"%>F2% ~<( #~<2%_0#"%y2%[%"!%S%: F['Se&"T&"&}2(&x2" F#C%> x=(y(PNSHR y= F= g%= i%> !$%>ONOFFpec)InBusyStatusPaper ApplicableVLRTypeUnknown*OfWasIsOnlyImproperDuePassword ProtectionPastOutsideLimits()Closed AllocationCannotBeMade FragmentationUseNonAsUnopenHardwareHasTurnedOffRequiredCommandWhileWhich&08|(80x2-&y2/&q& R! (8,0#$*& A~w#*&B"&R0*& "&R8ɯ((x>0}=>0*T&R(8<<<<<CODE BACK INTO B%V ! JR CREX ;DISPLAY ERROR AND EXIT`  #j MVNAM EQU $ ;MOVE NAME ROUTINE#t  LD IX,OCAB1F ;GET NAME POINTER~  LD C,(IX+0) ;LENGTH!  LD B,0 ;BC = LENGTH OF NAME LD L,(IX+1), ( LD H,(IX+2) ;HL => NAME IN COMMAND LINE  LD DE,0     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****(*:'4):'4)J)!'w*(>=ݾ =~ *O>(0+ *O>(A *O>(a  O*>(o-)!*w*4)G>=ݾ(S* >F!*w*4)G>=ݾ(S* R8goR({2*(!*w* sG>=ݾ(dS* _"*(!*w* V K>=ݾ(D~F(V ;2*(!*~(4}.!.F#> !'.!F.!- !b.!. F#> !*F#> *':', x=(y(:Keep, Delete, Replace, Insert, or Quit? Enter (K/D/R/I/Q) Store Line? (cr/esc) )*** End Of File -- Add To EOF (Y/Ning Record 00000(>"X(:( >+>,!'+X(>((L (!]*(+Y( Q (N (>20+$Existing file. Copy over it? (Y/Q) :((^F:)(V:/+ :.+G:)(D!*ͥ) (:Source and Destination File types are incompatible - ABORTX(*!(Q!^#V.>G(60#x(H>  C!.>4P> !B,F# ERROR Command : Invalid input!@!'~(gOfn ->(aG ->(K9 5-> -!-!-,,,> 2,> 0>'n( !-ˮ!--!-F# > ()~H([H ':*(QO**>El&0gx(#"*70G/>'.>*J)>)!'Nnf.> .!*>( !/6K* >, >*:):*2*:*O(:*2*J)!*6!*>(:)!5!~& o!.FV:)**~<(#~ x=(y(+*+.WF (`,a*+s*)>2.:'ʦ(*',O6 .2.<2)>-")!' ~/)fn 5*>(:0 C*>(bH*>(m ;*>(#?*>(.>0>/{* !07R0SX*e* !07R0SZ*R* !(7R0S^*?* !(7R0S\*,~= OFFON Verify is now XXXDETECTNˎ>*:)***>:*o&*>!**!.*~ (#!*>0 #>1G> *>G(60#x(H> ~(nf/.WFLRLNRECSNGRANSTYPE GRANS IN EXTENTS ALLOCATED TO s-,>2*:',@-20+=2(S(s(!'~ --÷,O*'(> :'(*'~2(!'~(O!'~ 0!(X(.-(!X(~ ( :(((#6:#:(w#6 *'X(> .-!'~( (#^#V!>->(:( >20+:(G:(£(ʣ(!-(!("n-ú ~ fn~=(~R(T 2`*O(G>'1>0*X*[Z*R0*\*| *X*"\*(R>08:`*R(*^*| *\*"^*(R>08,!M*>( [X**Z*R80#B0M>)y)*\*})|))# "\*:`*R> >)>)*^*})|)),>*))%)><2))!-#")w,>!.*>(+!.@*>(,>",:.,>+,0,,,,>W2.>2.>R2.2.@-!.>(,!.>(,>",>+,>!C+>"ͮ, x4-!--s-K >+ͮ, Z-D  -R  - I >#C,Q >+ͮ,0, ">2.>W2.>(,>2.>+,D,3,+,>0G>'(>*X(>*1u-+**(*(ͻ)5)u-!+/"(*(*)ͫ)*(S(*(R0(5)(>*((2)0)>(>$!A-(+!(!S-X(+!( : w!'~#^#V2(ABSSource Filespec? Destination Filespec? +,+. (R!j-(>((!Q(n(>P2-+:t-21+:r-2/+V 2):q-2.+2) <2)!+,")"'+(*(+%)!-")~= ~~= fn>START=END=TRA=RELO=RORT=.-PF0T:'O>/*>**' w:'(*'~02:'O:'(3>0 C:G :+89 3,>3>3 U+N(Q(,>) !+F# > G>'  %>G>' !-F#-> N( Y C,'-,1>",>+,!-> x !*P>x(H2*Yx  > 4--> x ( > >>+ͮ,, >-!*P2,~2.> :.w (#y2**>*,@*>*,x&G>'{(! =2(+*!+/"(ͫ)"(*(ͻ)*([(R8!m)!Z)͟)y( >ͥ)!)ͥ)>  >Mount SOURCE disk Mount DESTINATION disk Press ANY key to continue> F#> +.>~O!#") *>> ͟)C)!)> =2)> ! *> Copy,>3U+Y >) !+F# > ><2 +&o>_>~(}26+ }& oU~ >o!,>  +:'( 6.#*'O6:#:0w#6 #+N#!,RE.+Y( N( Q(+Delete? (Y/N/Q)  *** File Deleted ***F#C+> x=(y(!'F>8>(:#1     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****(4*-!'~(!')*'~0)2)!' ~(TfnO )>(%)>($0 ,)>()> !)!)!)6!)):) 2)!)/ *H ):)G`!: \N#F)VB> H:)G ?*)8> 8/>3w)N(Q AS (BAUD=, BITS= , PARITY=, STOPS=)PORT DISABLED['x.~A(Bº.#~ʺ. Һ.#~ں. Һ.#~O( N(Eº.#~(º.~!BA 0^º.`>  >ú.>  >ú.d>*!1(i ͊) ͅ)ͅ) > :(V[-([(z S(S(!-( z !."(!(>-(> >->  *(<B0K(!"(:'G*' > >" O*!)(> !(F> *U*>  >  *!1(A > ^*(F>~)# x :(("( ͅ):( +!%( ͊)[(z |)(A͊)>O  *:( K*(Wo_gl)Fͅ) #x  ͅ) **(~_l)Fͅ) #x  ͅ)"(:( :(  *-d* ͅ) *>2(>ϯ2(*(%)\)!*ò*(!~O+F& o6:(2(!(I(>((+ (!))Y( Q(/N !(I(>2(>((I(,!(QI(>* (>* ([(S(!,>> (> y( >C(!,> >2,K(> !,> Copying Record S(!'~(JO#^#V##(>(%/!A>) !*F# > >0>/G>'><2+)&o>_>~(}2A) }& oU:)~(w(n(o((>o!/>  +6:#:)0w#6 #)N#!/RE/*Y( N( Q(#*ALLDATAPROGSYS Enter disk password (1-8) Delete? (Y/N/Q 7 >ú.Vº.b>  >ú.>  >ú.e>  >ú.v (:O32(64S.!A>2X!. >& Y(/".`~A(>>~dA(R>~!BA SYSTEMxx:0 >!Bv(~A #v +^(˞`>>d>B V(˖b>>8>8.># x :((<7*(Wo_gl)F> #x *(~_l)F># x "( >>ͫ*>!#( > [(|)(A> > O *:(<2(_|)( > :( L( G!G:,OB!. "(!(4 C(x( c)C( *( "(K(B"(!(4͕*,>0G>'>9,. +R/1W2 !),)(<)>"*)")> CE)>,)&))((!.> >2S*!.> >2(2.!.> >2l.:'(*:' :'O:'( :l. !.():'( *'~02(*(͢.(0 2(> !.()002(:'(!'!'-*'~02(!/()002(:(G:(2(!()  *** File Deleted ***F#C$*> x=(y(*+~##( ͼ*͂+ f(ld,ͼ*͂+ W(]d,X>A2U,!B^((/^#V!V,d,>B2U,!BV((/^#V!V,d, G>'ɯ![,U,*++>(1F#^#V#N> (>} #"+>0Gx(+e>(/"/!B^ V ˶*d^#V*:( +!%( > [(z |)(A> >O  *:( + *9+:((  > Ì+:(  *-;*>2(>ϯ2(*(%)\)!*:(g( > >i+)) >z =D)!F >D)!) >>KE)> >=2N)>2U)(1)!p),)((Insert SOURCE DESTINATION% Diskette - Press ANY Key to Continue-  Existing File - Copy over it? (Y/N/Q) ? (Y/N/Q/S)  F#> >(F>3>(:( !!/)Y( N (Q (:(G(((ů(H}2?. }!oU("I.~ % (>3> >3 W/ Sx.#>_0W/*x.R*!6/ ) ( : 0ABSALLPROMPTSYS'Enter SOURCE filespec or wildcard mask Enter SOURCE drive (0-3x'!+#++>0H!+>2o+!p+N#F#>(!o+4R :o+_n,X` %* >,(>>0x !+~A(B 2U,y= * >((>,('>)(~> a,>(|+ F+ {2V,y)(W*(+ {8 02W,y->0 6 #.-)RPAGE R=LRL=TYPE=EOFBYTE 1...5...10...15...20...25...30...35...40...45...50...55...60...65...70...75...80...85...90...95..1008:(F*(+|>" ?x >>s(:'5)!'~-ͳ--(- T~A !(R @~= 9ͳ--(G>8$G(60#(HG> z5)S(5) -O> -!( -O> -!(PRTSLOW ~(nf~=5):(GP):'O*',6 !(>(7)K(:(F#C*> x=(y(2"([x.+ :( !x)_)> Ϲ( >*(~ (G>#>  >!))Y(Q (N("S 2S**(.+2(2,=2*!"(ʹ**( "(K(B (>6*2***+*("( (>" U!.:(O:(F y !,~O [(S(*(R0^+ ,2,:) Enter DESTINATION drive (0-3) SOURCE disk ready ? No matching source files to MOVE)(<*( :+N( O(E+2X,y)(*(+:+1(2+2Y,y)+!U,͌->0AEOFF!U,!, !'-8-,,(I~#!n+'o0$^#V,,~#_,,,~_,,!8-RE > N#!+>|PORT  ENABLED# 3!*:(Gī*\+:(( :(G{++ >!.(H> >0G>',>*ϯG>>{(!.**(#"(,>" !(60#>+(!(>>>7) ͅ):'G*' ͊)>' O*!)(͊)!(Fͅ) *U*͊)  *!( ͊)*(#"(|)(A ͊) ͅ)>2(  ((͑)!(~8)͑)!(>~(>w!#( ͊)[(|)(A͊)> O(!~8)͑)!(>~(>w *:(d2(_|)( ͊):( L( G!G:,OB!. "(!(4 C(x( c)C( *( "(K(B"(!(4!*6d͕**(F>~8>8.( !x)_)'+^+I(>*G>' >ϯ2* (>* (~ (#:(S+I(~ (#:(6:#0w#6 :( !)_):( =2(,>*("(*(1:(O:(F y /~O "(I(>+(~,*([(R8>ϯ!( (>((+>W!B(n(>P2(:(2(:(2(:(2( (,2     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****(*s(6)((>͢(:)w('> 2n(~#1  )+ >2n(0 (~ >_(G)#{  ){( )ɯ (>!>*)>,>*1,!->":)(:-w#( !-g _(!.!-!-F#(G>' 8>.0 8o Carrier present Data Carrier lost Channel is NOT activeReady to Receive Now Receiving Start address = Last address = TRA address = CHADDSUB B=pw] [PROT=level]}5fs (filespec) = filename[/ext][.pw][:drive[(diskid)]]HELP syntax: [xx] = optional parameter = grouping or for clarity | = "or" c/r = enter key sw = "ON" | "OFF" | c/r fs = filespec pw = password id = disk id :d = drive wc = wil> [ADD=hhhh | SUB=hhhh]}RENAME fs [ TO ] fs[SPOOL sw SPOOL {N F=} SPOOL {P F=fs [K] [C=nn] [L=nn]} SPOOL {S | H | }TIME | c/rVERIFY sw VERIFY DETECT sw"XFERSYS [:d] {[DATA | MIN | FULL]}2+!,!',(z> S>=T,x!+>(G60#w#> !LR8{2+2+!+>(>!+>!+ >>0F#^#V#N#:)W(>:)o>INPUT filespec ? .-(RF:' !),(),O*'> ,!+)>((!') ͽ)) ͽ)!>")!(>>:3)!)F :2)2(   >ˮV(>0(~!)A(V  ~(nfF#C)> x=(y(dcard nn = decimal number hhhh = hex number or addressAUTO command | c/r"COPY [fs] [ TO ] [fs | :d] {[ABS]}XCREATE fs {NGRANS=nn [LRL=nn] [TYPE=]} CREATE fs {NRECS=nn LRL=nn [TYPE=]}DATE | c/rDEBUG swDO fsBUILD fsERROR nnD(>!)],!'(r!'(b!+~>0!'N#^#V!],> w+!+>(!n,~2+!m,~2+>*:+W:+G ],>:+O*`!'#^#V2+G+`!],>w#w#"( J~#( *S(@  >_0[(:+GM~(>y #d*HEADING "RECEIVE" COMMANDRnN;-----------------------------------------------------------------------------x;B>; RECEIVE - RECEIVE FROM SERIAL CHANNEL, IN INTEL HEX FORMAT;; COMMAND LINE:,(; RECEIVE { C=x [ADD=dddd | SUB=dddd] };s+SN+!'͘,¶*=Ÿ*> ?->Ÿ*͘,£*=ʟ*> e~!BA(B YV(a&b.e"-^(T&`.d"-> :-> *-"8+-> "*-"8+͘, =(> > S6+*0/>'+!&- ͒,+:-(2*:-2,>X(> =2*!,͒,!<- ͒,!,?,!,: .,IR [*/ext][:d] {[SYS] [PRT]} DUAL ON | OFFCDUMP fs {START=hhhh END=hhhh [TRA=hhhh] [RELO=hhhh] [RORT=]}HOST swKILL fs | wc[:d]!LIST fs {[PRT] [SLOW] [A] [R=nn]}PRINT [fs] {[A] [V]}&PURGE [:d] {[DATA] [PROG] [SYS] [ALL]}CFORMAT [:d] {[ABS] [ID=id]!],!>8!+~(:+2C*:+2I*n(ͷ)!a+$+z* ͷ):+G02+!+>!+$+z*3* />(x2a)**l*> +!+ͱ*P*)*!++z*>G>'x!+N6 #6 ! +"_+!"^*>2S*!+n(!+"_+!"^*>2S*~# (3/; WHERE: x = serial channel number ( A or B ) HD; dddd = displacment to add to addresses of blocks coming in.>:; "ADD=" invokes adding the displacement, "SUB=" causes.*; subtraction of the displacement value.;; INTEL HEX FORM#,> > C+OW +g+o+(",+ŷBy,!/R0a 8]R0U[,R8S, +[,R0S,> =2w+K0,7,!Q-͒,+w# {DW+*!, !,!,!-K0,7,͒,4 >!d- ͒,*,y,!u- ͒,*,y,!- ͒,*,y, >1(!'~ !](F# > !(~G# > H #^#V!(~(O#>( :G(<2G( >'O!( ^#VF#> %HELP is available for the following: )))6+)-+I+l+++++,*,+,..n,v,,z--, .,./J.,////H**ANALYZEAPPENDATTRIBAUTOBACKUPBUILDCOPYCREATEDA [PW=pw] [DIR=nn] [ALT=nn] [FULL | NONE]}PBACKUP [:d] [ TO ] [:d] {[ID=id] [PW=pw] [NEW=pw] [ABS] [SYS] [PROMPT] [NOAUTO]}ZMOVE [fs | wc:d] [ TO ] [:d] {[ABS] [PROMPT]} MOVE [:d] [ TO ] [:d] {[ALL] [ABS] [PROMPT]}JPATCH fs {A=hhhh F=string C=string} PATCH ~ ( >/~#X!+>:+0 > 2+N#F#>( >=0>L8毷> ͷ)*_+ "_+!S*5*+"+!*6 :*(!+O!+v(>> ϯ2*ͷ)>Q:+G~#(?~G~:; 2 LENGTH OF THIS LINE IN HEX BYTES (X 2 = CHARS SENT);7; 3,4 MSB/LSB OF LOAD ADDRESS OF THE START OF THE LINE<8; 5 EOF CODE - = '0' MEANS NOT EOF, <> '0' MEANS EOFE"A; 6-n DATA BYT!,,w#,w+O,8g_|>ڴ+ x> 7,> > &,C0,~e,G#~+e,80 8 87ɷ,>ª+ > F#>  ~(Ofn~ #=Check sum Error Address is invalidBad Hex Character NTEDEBUGDIRDODUALDUMPERRORFORMATFORMSFREEHOSTKILLLISTMOVEPATCHPRINTPROTPURGERECEIVERENAMESETCOMSPOOLTIMEVERIFYXFERSYSSYNTAXFILESPEC,ANALYZE fs {[PRT]} ANALYZE :d {[T=nn] [PRT]}APPEND [fs] [ TO ] [fs | :d]*ATTRIB fs {[ACC=pw] [UPDfs {R=nn B=nn F=string C=string})PROT :d {OLD=pw [NEW=pw] [LOCK | UNLOCK]}FSETCOM {=(baud,length,parity,stop)} SETCOM {=OFF} SETCOM c/rKFORMS {T | X | D | N | A | Q | S | R} FORMS {[P=nn] [L=nn] [W=nn] [C=byte]}FREE [:d] {[PRT]}(RECEIVE {CH= L|bt!6#s#r#\t6#s#r#6 >*d ys#r!LtF# > >$DEBUG is now ON"<~#"~+"~*~s~1~1\t!>"^w >/zx 0 C~͝z1\t L| C9z!~ > czIz!~> !~!~˾!~ͭ{My"~ L|!}F# !~>x¡ts#r+++ätABDH XYFCE L$͋u>K~L|!B˾*d 6#6!6#6!}F# > >$Sy :~2xy2hy7z!Z~ͷy(D>x  > > ֯!'R0ί!sR8 >0:?AG?7zX6.#C> 7z> !->xOff,Prt,ra}M,Regs,SystDEBUG is now OFF PC SP SZHPNC AF BC DE HL IX IY AF' BC' DE' HL'(D=T=A=S=E=#==>C=?r#~#fo<8~!s='o>gxwH-s#wp(>0HyM@>yHx,G (˨ypG  x>yy!s&xw#608Mp> Sv(((! 1!v~|> *||>-(v>+ +"|Tzo&xp<2P|!v~<(#~ew*b$^#VSy!`wS{!v6*d6@#6v^#V!"y6#60#6{!C!Pw"ySPOOL is now ON{w> ͋u>tK~L|>$!~ͭ{My">~!~ͭ{My"@~[>~R8#"D~!~ͭ{My"B~[D~8tR0*>~[B~KD~át!>~P> ~ 0>.w# B >¤t ät!t!~^w#Vw#{(~w#!~ͭ{My">~!~ͭ{My"@~[>~R8#"u!~ͭ{(!F~ͷy 8Hsz8##F~*>;y(3{_y/z p># L|,y(+ # y(+ 6 y HG 8 w#>y8A> L|:~@2~x!F ( G> >x> xʡt 8~͉zG#~+͉z80 8 87ɷ[<~!'R8#"<~!sR0"<~L|!}F# > e{*<~w~MwB vJtCvLuFuOyDtXtRxHtStPWuEuv8vv0v v(vvvvwvvvvv yyzzzzzt  wwwwww w/@z wMxttxxxx xxt@vyNywRFxWFPv*y>&y!v!C˾ydz!*yF# > SPOOL is now }>!}|>( T!~> J#>F D>" A:~ 8>" 5!>"}!}>*d s#r!@6#q}s#r>!@>$>G>'>*>|P:~2~w# >"(  Ϳ}> 2~wG>'!~F# > (:~ OͿ}>$|>*> !@6>#6$#6!@ˆ!>!>ϯ*d w#w~~>(#!u+"u| ät"<~át!~ͭ{7zczIz18901G!~_^#V#{( L|ͽ{{ L|!~ͭ{Sy(> !~(+V+^##{(~w+r+s{(>át[~!~~# ~(##Ww#F!~>:w!X~6#6>> >>>!X~w#BK0O0q#p#i>F>~{͊z{# ͠{#Z{!} F> *~w{*~w{!~~O{O{O{O{O{O{# ͊{+͊{+>Z{>18>0!>~P> O!>~?~6 :~>(> ~͔{~0:~ 8~>.> /zC9z> 2^~Z~w{{p(psqqÀqq!r-rss*dps#r!s!s~A( !s!sx w>y>JyKy#t u 66 #tuF7w Dq> #=2p*d^#V{2@q!"q!>q>y~((G2:qwx!28qD~N(OOFF^yyyyy )z!z:FvG!;y>Pv>%v*y˶͇zO (go2{"y!v:Gv:Iv2v>w[JvzOyvdz!v=w:Hv+˾v͇zTzG>w2P|#>-6 2vyPv{zvv(!vv > ˶y!$z>! z"yLast Line Printed Was .....vvy!}~RF DO file error}>F>~>Vv >V>v>v>(2w> 2w!~F(*~++"~s#r^#VS~%S~!X~px|#(w#6#s#r!X~"~*~"w!>K~L|1~{~!~ͭ{Sy(y@ (( *<~"<~͝z  |L|> !w!O>!~x${ _{ _vZ~͊{{{~. 80G> > !Z~>!~v ${ 8 8"8  <{ 8 ?O>  { '{(88 O~("(9(E!}|(S!7}|(HD!Z}|(8!_}|(-)!h}|(!p(~26q!2q xww*sTsrr*sIsrr0(F!Zq>JaiKaih4 4GG G!s !sf n -s7X -?+v>**LvKNv> !<>(=ɷ!z"yG>'Line Number too LARGE[y&w:{oGO( R0GOQv># 4W_!wn#zGO(x Qv>"!w > Sy}2{ >tvt! u!s#r!s#r#6>d!C˶b"!ItF# > HOST is now OFF>a8(W >  ! uF(?# >( #~ # 6+6!!@V(>(##6!@!G! uN(* q#V#^x( T]#!t((v{_w{ _ 8v ͩy8>˃v & |!X~> szڡtw@z |L|{@zõwx!X~w@z |L|{@z!~˶*<~2!>~ |> ;szڡtw###### #ʤt!~ͭ{7zczIz!y (###^T|L|> !q> {_xͩy8>!>~T|2> u}|( |!z}|(yGF#~(8~0 ##ɯ&&..66>>!"**12::45F!"**66CCKKSS[[ss{{45F!"**66TRS-80 Model II DEBUG Program@Brk,Cont,Decimal,Empty,Find,heX,Jump,Load,q An  x  F5s7_ ?G  x -sG!s= f n ~= >y~yZ= >y~ˏyJ= >y~y:= >y~˧y*= f n 6= >0y>y>(y>y>  !s~2s6#^#Vv!{!vBv(;V :v F#ny F >)oFW_z(˶##5N > ^ FQv>"G( x&whF ˞!{4x *y#2y>"yޯ*yͥzv!Aˮ!v{y|+f˦~|~ J!(R0?!Cn 8*v([v"v!vtG!u uvY( N(vx2t*d^#V^#V!"t! ""t*d^#VSt! "t˾#6#6t++!uAt[b!^#VSt! v^#VSt! vSu!C*d" key? (Y/N6     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****0u) HOST is now ONYttF#Cv> x=(y( uSETCOM {A=()} This sets up Channel A with all default parameters LOAD COMSUB32 } This loads the machine language subroutine into HIGH memory BASIC BASCOM32 -M:28540 l :Define the entry address for the machine language subroutine.l0&H6F80l :Make A$ an ascii null of length 1.l(A$(0)Fm2 :Pass A$ as the argument to machine language subroutine. 'On return, print the argumePoog~ >`8 pG>a8 G z 6!o60(4#!o"> ERROR"0pk!1lF#>& |!k8lF#> my(!lF#A(D > Ry(x(`l ? 2!NlVl> >->  > 0>'"DATE ADDITION OR DIFFERENCE (A/D) ENTER PARAMETERS DATM32pknt.Tm< 0(A$);mF :Input character from keyboard that is to be transmitted.mPA$/nZ :Look for down arrow key as programmed exit character, 'you may use any value at CHR$(nn) as the exit character.Bnd A$(31) nn :See if a character was input from the keyboard (INKEY$).nxA(A$)n :Reset A$ if no character was gotten from the keyboard.n A0 A$(0)o :Pass A$ to the subroutine. On return, print A$.'o 0(A$)Mo :Loop as a continuous program.Vo 40a7     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****`l|(8"z(8Smo͎n > #>Sn(>Vn:n_!1n^*nR#0*n:noR#8*2n"n!n4~ 8 w!n4~d8dw!n4~d(2no&1n:nG0$o"n!m"m!nnd`>:n_@R>#####:no&>o>n ,R[n>!nq*m\m>-Šl!myo0$m:n! nGo0$m:nͽm:nͺm:nͺm[nmm:nͽm:nͽmÍl7_!{n>n*mN#"mGW>_SmmMONTUEWEDTHUFRISATSUN JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC:no !nn&>ϯ>%Xnn> <23n>0{n!{n>nbn(Q> 8L{2n>/ C#bn =(:{2n>/ 1#bn +>0&{2nbn {2nVn:n!1no0$:n=0>!nn>0 6 #͎nŠl> Šl#n͎nŠl!"n!n6nNwy#n#ڊl n# >:n_W*nR0!n5:n_>!n04Šl!{n>M|onmÍlVn:n_!1n^*n0!n4"n!n4~ 8 w!n4~d8dw!n4Co08     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****9     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****:     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****;     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****<     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****=     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****>     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****?     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****@     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****A     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****B     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****C     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****D     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****E     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****F     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****G     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****H     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****I     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****J     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****K     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****L     ,4***** Copyright (c) (p) 1980 by TANDY CORPORATION *****