TDX Lh^ ^^^ ^]" 1 BIN"ADSKI BIN#FAN BASlDISP BASs ^^^ ^^^^^ ^^^^]^ ^^^ ^^^^^ ^^^^ ^^^ ^^ ^^^ ^^^^^ ^^^^ ^^^ ^O^ ^^^ ^^^^^ ^^^^ ^^^ ^^ ^^^ ^^^^^ ^^^^ ^^^ ^y^ ^^^ ^^^^^ ^^^^ ^^^ ^^ ^^^ ^^^^^ ^^^^ ^^^ ^k^ ^^^ ^^^^^ ^^^^ ^^^ ^^ ^^^ ^^^^^ ^^^^ ^^^ ^  ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^  ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 1 ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^Z%@  d " "; 250 NEXT I1 260 PRINT 270 NEXT I 280 PRINT:PRINT " DONE" <32 THEN 200 160 IF P>90 THEN 200 162 IF P<65 THEN 170 164 P=P+32 170 P$=CHR$(P) 180 P$=" "+P$ 190 GOTO 230 200 P$=HEX$(P) 210 IF LEN(P$)=2 THEN 230 220 P$="0"+P$ 230 PRINT P$; 240 PRINT.% ^   1^& &u&P4_ o &Uqar  ;&   %    '%    m'L(/O 79m&M*(+m',ƧD$_Z&94!+ 56!5P4!I !+0&L%  ^% ^  10 REM *** HEX/ASCII DUMP *** 20 CLS 30 PRINT 40 PRINT "STARTING MEMORY ADDRESS"; 50 INPUT S 60 S=INT(S/16)*16 70 PRINT "ENDING MEMORY ADDRESS"; 80 INPUT E 90 IF E<>0 THEN 110 100 E=65535 110 FOR I=S TO E STEP 8 112 S$=HEX$(I) 114 S$="000"+S$ 116 S$=RIGHTL% ^:Y <P"D%4 'G *H\' *   % ' *Y  U'[ Q^ $(S$,4) 118 PRINT S$;" "; 130 FOR I1=I TO I+7 140 P=PEEK(I1) 150 IF P<32 THEN 200 160 IF P>90 THEN 200 162 IF P<65 THEN 170 164 P=P+32 170 P$=CHR$(P) 180 P$=" "+P$ 190 GOTO 230 200 P$=HEX$(P) 210 IF LEN(P$)=2 THEN 230 220 P$="0"+P$ 230 PRINT P$; 240 PRINTL% ^ '" *\& % ̀ * + & *( *."?'S T%  ˀ  ;&   %    '%    m'L(/O 79m&M*(+m',ƧD$_Z&94!+ 56!5P4!I !+0& d " "; 250 NEXT I1 260 PRINT 270 NEXT I 280 PRINT:PRINT " DONE" <32 THEN 200 160 IF P>90 THEN 200 162 IF P<65 THEN 170 164 P=P+32 170 P$=CHR$(P) 180 P$=" "+P$ 190 GOTO 230 200 P$=HEX$(P) 210 IF LEN(P$)=2 THEN 230 220 P$="0"+P$ 230 PRINT P$; 240 PRINT.% ^   1^& &u&P4_ o &Uqar  ;&   %    '%    m'L(/O 79m&M*(+m',ƧD$_Z&94!+ 56!5P4!I !+0&L%  ^^ $(S$,4) 118 PRINT S$;" "; 130 FOR I1=I TO I+7 140 P=PEEK(I1) 150 IF P<32 THEN 200 160 IF P>90 THEN 200 162 IF P<65 THEN 170 164 P=P+32 170 P$=CHR$(P) 180 P$=" "+P$ 190 GOTO 230 200 P$=HEX$(P) 210 IF LEN(P$)=2 THEN 230 220 P$="0"+P$ 230 PRINT P$; 240 PRINTL% ^ '" *\& % ̀ * + & *( *."?'S T%  ˀ  ;&   %    '%    m'L(/O 79m&M*(+m',ƧD$_Z&94!+ 56!5P4!I !+0&#^^^ ^^^ ^2 COLOR X/32+1,5 615 GOSUB 60:NEXT X 620 FOR Y=0 TO 190 623 COLOR Y/24+1,5 625 GOSUB 60 :NEXT Y 640 FOR Y=191 TO 1 STEP -1 650 NEXT I 660 FOR I=1 TO 5 STEP 4 670 PMODE 3,I 680 SCREEN 1,0 690 FOR T=1TO10:NEXT T 700 NEXT I 710 GOTO 660 800 ' ICE CUBE 805 PMO ^^^ p2 I1 2552 (I);2( I:2<( I1 255: I2P2 I255 1 12]< (I);2eF I2oP 10110: T3 I3Ɓ 6603 : ICE CUBE3% 4,13*34 1,139 "BM40,80;U40;R40;D40;L40"3> "BM+20,20;U40;R40;D40;L40"4HDE 4,1 810 PCLS 820 SCREEN 1,1 825 DRAW "BM40,80;U40;R40;D40;L40" 830 DRAW "BM+20,20;U40;R40;D40;L40" 840 LINE (60,100)-(40,80),PSET 850 LINE (60,60)-(40,40),PSET 860 LINE (100,60)-(80,40),PSET 870 LINE (100,100)-(80,80),PSET 880 GOTO 880 ICE CUBE 805 PMO^^^ ^^^^^ j20 T=T+1 125 IF T=36 THEN 150 130 S=1 140 GOTO 30 150 END 200 FOR I=1 TO 40 210 T$=MID$(A$,I,1) 220 PRINT ASC(T$); 230 NEXT I ;T;" SECTOR";S 60 PRINT A$;B$ 70 PRINT 80 PRINT "READY";:INPUT T$ 85 IF T$="Y" THEN 200 90 S=S+1 100 IF S=19 THEN 120 110 NEXT I 1^^^ ^^^ ^'S1' 30' 640&8 A$(128): B$(128)&J "TRACK";: T&]"SECTOR";: S&l I1 18&~( 0,T,S,A$,B$&2 "TRACK";T;" SECTOR";S&< A$;B$&F&P "READY";: T$&ZSS1&d S19 120&n I&xTT1&} T36 150 ^^^ Z 1 REM *** DSKI$ *** 10 PRINT"TRACK";:INPUT T 20 PRINT"SECTOR";:INPUT S 30 FOR I=1 TO 18 40 DSKI$ 0,T,S,A$,B$ 50 PRINT "TRACK";T;" SECTOR";S 60 PRINT A$;B$ 70 PRINT 80 PRINT "READY";:INPUT T$ 85 IF T$="Y" THEN 200 90 S=S+1 100 IF S=19 THEN 120 110 NEXT I 1Z^^ ^ &l ^^^ ^DSKI BAS DSKI1 BAS!~DSKI1 BIN"ADSKI BIN#FAN BASDISP BASsCBUG BIN$8DISASM BIN%^^^ ^1VIDEOTEXBINJDUMP BASF`^^ ^^^^^ ^^^^ ^^^ ^Q0''Ȁ I1 40''T$(A$,I,1)'5܇ (T$);'= I I1 18&[( 0,T,S,A$,B$&w2 "TRACK";T;" SECTOR";S&< A$;B$&F&P "READY";: T$&U T$"Y" 200&ZSS1&d S19 120&n I&xTT1&} T36 150&S1' 3 ^^^ & *** DSKI$ ***&' "TRACK";: T&:"SECTOR";: S&I I1 18&[( 0,T,S,A$,B$&w2 "TRACK";T;" SECTOR";S&< A$;B$&F&P "READY";: T$&ZSS1&d S19 120&n I&xTT1&} T36 150&S1& 30&IF T=36 THfħh%-Z&2b5=z504!&54ABDFH2bT4M0i2a   4A:545.Z&j&2a 4X,Z\& ! &'9#! 1?&'918   1({b0-r04 b=4c b=%aM&b$la Ł &A50u'*+~0] d04妠&5l'礁 &4ƆhaiYJ*5nP'0C& 1'&ݕ9W)$vG$"D$ CM&, &鞈@ ߍ49H  &~M*g OJ&'@54P"G$"G%ܕDV 4ܕDV.4ܕ&"Tfja&55ܕ&9 'V &4&0" : &'% 큌%``큌% 0  &܈݈   TmJ'BoJK99HFo9B'줄9'9"1& ޯB9oo-'o,9J* FULL OUTPUT?& SCAN FORMAT?&  eTO PRINTER? 'Cl-h J80-COLUMN? 'l,o' ! .NO CR ON COL 32?o'd''įDOo *o al_'4HHHH4 M__5u402~db%a䭟&d0-?_0a bj&bSA b0d&2f99 S1500404 C0C402׍M0 Z4;460A1ҍ-+),*%#4@AAF.=V' 90da2c$0p~9^U&Z|oH'FlM+5 '#&a% m'z"`m&k  0& 40*oool䣄$4bJcc'05m&2b5'd oo=0%49"f$1H 0406彣00$0 Z&40df4@l5@502d9M K H^r W 8 G]R]IJMCS!B"UAD'LTPX$.=* CABDXYUP SEFHINZVC?'0J&0n CBUG:M &.4P"J54P_ 4ܕ&dYY ja&2by qn5M*g OJ&'@54P"G$"G%ܕDV 4ܕDV.4ܕ&"Tfja&55ܕ&9 'V &4&0" : &'% 큌%``큌% 0  &܈݈   fħh%-Z&2b5=z504!&54ABDFH2bT4M0i2a   4A:545.Z&j&2a 4X,Z\& ! &'9#! 1?&'918   1({b0-r04 b=4c b=%aM&b$la Ł &A50u'*+~0] d04妠&5l'礁 &4ƆhaiYJ*5nP'0C& 1'&ݕ9W)$v=G$ n~9~n,2C SOURCE GEN 6809  (C) 1980 BY THE MICRO WORKS 0ٯ0ۯB4J START ADDRESS? H&! oEND ADDRESS? ,& SADDRESS OFFSET?  & 4SYMBOL TABLE START? &0Q'įBoJ SYMBOL TABLE END?  ^al_'4HHHH4 M__5u402~db%a䭟&d0-?_0a bj&bSA b0d&2f99 S1500404 C0C402׍M0 Z4;460A1ҍ-+),*%#4@A AF.=V' 90da2c$0p~9^U&Z|oH'FlM+5 '#&a% m'z"`m&k  0& 40*oool䣄$4bJcc'05m&2b5'd oo=0%49"f$1H 0406彣00$0 Z&40df4@l5@502d9M K H^r W 8 G]R]IJMCS!B"UAD'LTPX$.=* CABDXYUP SEFHINZVC?'0J&0n CBUG:M &.4P"&0ίHF!'P9'E9 AREA OPTION: 'I9?& & ցP'-S')D'%A'!V'E'T' ILLEGAL OPTION x mJ&2B0$ ZMUST HAVE AT LEAST START AND END k 2NON-DEFAULT AREAS? h&MoJ3 ANY OTHER AREAS? H&- u  q1`}~ (C) 980 BY THE MICRO WORKS4 4a`55/HHHH4'9DDDD09#"4 5呂&9;0+ /+.9 2_*M+S&P9'Ӂ1&o_#445j' 2^^ ^RESTART *** QO@ݮDB"GO"o8E'3O&1 %0D m)&O4O.5Oo. 9 OM8V'S&M %$^!K%'=F:G:H'.OŮ: Y EQU $:00: 9DO" D* -^^ ^D0D9 { }c RMB DOO " 0V 4$AC2b3oRm(&oK0@{jm'KJ'O OH =0 0Z&&  1@4 1T&2b+6'[<6']o+9 FCC ^ ^* [ %ݦ'9?'Q &K&]'9ENTER IN FORM: X $$$$ %'Y'N'ENTER Y OR N OM94.'00%'9# A%F"0haihaihaihaiaa\ M500%'9"#04 c=c4 c=b5aa$l\ M54dodoeieidJ*dd/5&' ^D9 { }c RMB DOO " 0V 4$AC2b3oRm(&oK0@{jm'KJ'O OH =0 0Z&&  1@4 1T&2b+6'[<6']o+9 FCC ^ ^bS&c*9 &Nom&PASS 1 STOPPED ''' &; H&PASS 1 PAUSE ''\'݀1'"J'*J'/J'1J'6J'8& {GOING... 9o)w( #̨ ) 0 0) 0A 0`o)o(%9&!6*** BREAK IN PASS ONE *** 2dRESTART WHERE? &*** ^~^ ^^^ ^^^^^ ^^^^ ^^^ ^^ ^^^ ^^^^^ ^^^^ ^^^ ^^ ^^^ ^^ ^^^ ^^^^^ ^^^^k^ ^^^ ^^ ^^^ ^^^^^ ^^^^ ^^ ^^^^^ ^^^^^ ^^^ ^^^^^ ^^^^ ^^^ ^^ ^^^ ^^^^^ ^^^^ ^^^ ^^ ^^^ ^^^^^ ^^^^ ^^^ ^^ ^^^ ^^^^^ ^^^^ ^^^ ^6^ ^^^ ^^^^^ ^^^^ ^^^ ^]^ ^^^ ^^ ^^^ ^^^^^ ^^^^ ^^^ ^^ ^^^^^^$^ ^^^ ^^^^^ ^^^^ ^^^ ^ M ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^!!^! ^!^!^! ^!^!^!^!^! ^!^!^!^! ^!^!^! ^"_"^" ^"^"^" ^"^"^"^"^" ^"^"^"^" ^"^"^" ^#"^" ^"^"^" ^"^"^"^"^" ^"^"^"^" ^"^"^" ^$i"^" ^"^"^" ^"^"^"^"^" ^"^"^"^" ^"^"^" ^%"^" ^"^"^" ^"^"^"^"^" ^"^"^"^" ^"^"^" ^&{"^" ^"^"^" ^"^"^"^"^" ^"^"^"^" ^"^"^" ^'"^" ^"^"^" ^"^"^"^"^" ^"^"^"^" ^"^"^" ^'