' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( >  ؠ-@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B  ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L HΝ *`HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z#e original. If they are not identical, then Diversi-COPY beeps and gives a 'Compare Error'. Comparison mode works with 1-drive, 2-drives, formatting and mass production. At the end of a mass production session, we recommend that you compare your originaer 'C' will appear in the lower right corner of the screen. To leave comparison mode, hit 'C' again (the letter 'C' will disappear). While in comparison mode, Diversi-COPY does not write duplicates. Instead it compares an already written duplicate to th12 - Verify error / compressed data NOTE: To copy 40-track disks, hit '*' from the main menu (requires 40-track drives). *** Comparing Disks *** Diversi-Copy can compare 2 disks to see if they are identical. To enter comparison mode, hit 'C'. The lettdrive or motor speed error 2 - Write protected 3 - No address mark (D5 AA 96) 4 - Volume mismatch 5 - Wrong track 6 - Bad address data 7 - No data mark (D5 AA AD) 8 - Data checksum error 9 - No DE trailer 10 - No AA trailer 11 - Verify error / wrong byte 64K Apple II+ with an extra 128K card is just a little short of the 200K needed, but will work for almost all originals if a few sectors are unused. *** Error Numbers *** For the technically oriented, here is a list of possible disk errors: 1 - Empty already have a //e with a 64K extended 80-column card, then buy a 128K card from Titan, Legend, Omega, Prometheus or Abacus. The Abacus 128K card is the most versatile for the hobbyist (313 524-2444), but the other companies are larger and better known. A 192K 'Neptune' extended 80-column card may also be used. If you're buying a new computer for mass production, we suggest that you get a //e without an 80-column card. Then buy the 192K 'Neptune' extended 80-column card from Titan (313 662-8542). If you y full disks, however, you'll need to add extra memory to your computer. You need a total of about 200K to copy any disk. Diversi-COPY automatically recognizes the 64K extended 80-column card in the Apple //e, and all 16K and 128K cards in any slot. Thehe keyboard. While Diversi-COPY is writing to drive #2, put a new disk in drive #1, and vice-versa. *** Extra Memory *** You can mass-produce newly formatted disks on any computer, since Diversi-COPY will compress the unused sectors. To handle completel? @0@4@|@@@@˜ @@@@Ʃ@@z'@7@}Ɯ0LZα˜̜Μ Lz@P`p#ˠ͠ōL?@ALH0L HL,HȽ8HG }FH>ȱH?,+$8}`LIF}>թ}>}F𷍋1˜}@?>>??>Ȋ> UYCTYCUYCTYCUU * PREDEFINED VALUES1 *38:3CURTYPE2:" ";@ +I(A$)64g +YCO,AC(I):YMED,AM(I):YFIN,AF(I) +YUFIN,AU(I):YPRN,AP(I):YNUM,AL(I) %+CURTYPEI &+38:3CURTYPE2:"*"; *+9000:,12,204,0TYCTYCTYCUTYCTYCUYCTYCUYCTYCUCUUT * PREDEFINED VALUES1 *38:3CURTYPE2:" ";@ +I(A$)64g +YCO,AC(I):YMED,AM(I):YFIN,AF(I) +YUFIN,AU(I):YPRN,AP(I):YNUM,AL(I) %+CURTYPEI &+38:3CURTYPE2:"*"; *+9000:,12,204,0TYCTYCTYCUTYCTYC' TYPE OF INPUT/' EACH LINE IS OF THE@$' FOLLOWING:|.' ,,,,, 8'B' PRINT TYPE ISL' 0 = NORMALV' 1 = WIDER`' 2 = NARROWERj't'2,5,14,121,204,0 ~' 1,20,12,12,186,0A05120#NUMLINA:YNUM,NUMLIN-90006 510Dp END JzU23:1^DOGdu(#21:1:9582#UFIN(YUFIN):FIN(YFIN)<#NUMLIN(YNUM)F#"Ultra Fine: ";UFIN;P#25);"Fine: ";FIN;Z#40);"Line Compress: ";NUMLINd#510 PRINT ITZDUMP)CSCN12510F CHANGE VALUESY21:13:"";A$rA((A$)):A05040UFINA:YUFIN,UFIN900021:31:"";A$A((A$)):A05080FINA:YFIN,FIN900021:55:"";A$ A((A$)):A((A$)):A1A6ĺ"";:515%AJA1000,2000,3000,4000,5000,6000] CLEAR SCREENfZCLqCSCN0z510 GET PICCSCN1ČZCLZFAXCSCN14096,160:510510 SHIFT PIC 23:1 ZSHFT CSCN1 "3) Shift picture":."4) Print picture":H""5) Alter values ":W,"6) Exit"f@I1TYPESuJ2I3:40TAN$(I):^38:3CURTYPE2:"*";90009:58:"Choice- ";A$B$(64TYPES)A$"A"A$B$İ11000:510NZFAX3 ZMOVE14848:DOG976@(12800)(12801)3520190X(4);"BLOAD F.OBJ"j80:YELLOW:uZMOVECSCN1: CLEAR THE SCREEN33)"Fax Decoder"33)"-----------"5"1) Clear screens":"2) Get picture":2)"B) 60 lpm"HdYCO,AC(CURTYPE):YMED,AM(CURTYPE):YFIN,AF(CURTYPE)iYUFIN,AU(CURTYPE):YPRN,AP(CURTYPE):YNUM,AL(CURTYPE)xZFAX12800:ZCL13312ZSHFT13568:ZDUMP14080YCOZFAX8:YMEDZFAX7:YFINZFAX6YUFINZFAX5:YNUMZFAX4:YPR $ FAX DECODER BY WARREN TOOMEY*06(B-TYPES2P.CURTYPE12AN$(TYPES),AL(TYPES),AC(TYPES),AM(TYPES),AF(TYPES),AU(TYPES)7AP(TYPES)<I1TYPESFAL(I),AC(I),AM(I),AF(I),AU(I),AP(I)PZAN$(1)"A) 120 lpm"[AN$(   ~' 1,12,204,0 ** PREDEFINED VALUESE*38:3CURTYPE2:" ";T+I(A$)64e +YUFIN,AU(I)u+YFIN,AF(I) +YNUM,AC(I)%+CURTYPEI&+38:3CURTYPE2:"*";*+9000:,12,204,0TYC12,204,0TYC#Z#40);"Line Compress: ";NUMLIN)d#=' TYPE OF INPUTW' EACH LINE IS OF THEh$' FOLLOWING:.' ,,,,8'B' PRINT TYPE ISL' 0 = NORMALV' 1 = WIDER`' 2 = NARROWERj't' 2,9,204,0 900021:55:"";A$1A((A$)):A05120KNUMLINA:YNUM,NUMLINU9000^ 510lp END rz}23:1DOG(#21:1:9582#UFIN(YUFIN):FIN(YFIN)<#NUMLIN(YNUM)F#"Ultra Fine: ";UFIN;P#25);"Fine: ";FIN;IC  23:1 ZSHFT# CSCN1, 510; PRINT ITFZDUMPQCSCN1Z510n CHANGE VALUES21:13:"";A$A((A$)):A05040UFINA:YUFIN,UFIN900021:31:"";A$A((A$)):A05080FINA:YFIN,FIN- "; A$B$(64TYPES)?A$"A"A$B$İ11000:510bA((A$)):A1A6ĺ"";:515iAA1000,2000,3000,4000,5000,6000 CLEAR SCREENZCLCSCN0510 GET PICCSCN1ČZCLZFAXCSCN1 SHIFT P----" 5&"1) Clear screens":>"2) Get picture":X"3) Shift picture":r"4) Print picture":""5) Alter values ":,"6) Exit"@I1TYPESJ2I3:40TAN$(I):^38:3CURTYPE2:"*";90009:58:"Choice312ZSHFT13568:ZDUMP14080<YUFINZFAX6:YFINZFAX5LYNUMZFAX4dZMOVE14848:DOG976(12800)(12801)3520190(4);"BLOAD F.OBJ"80:YELLOW:ZMOVECSCN1: CLEAR THE SCREEN33)"Fax Decoder"33)"-------$ FAX DECODER BY WARREN TOOMEY*06(B-TYPES2P.CURTYPE12AN$(TYPES),AC(TYPES),AF(TYPES),AU(TYPES),AP(TYPES)<I1TYPESFAC(I),AF(I),AU(I),AP(I)PZAN$(1)"A) 120 lpm"[AN$(2)"B) 60 lpm"xZFAX12800:ZCL13   S  ; ; ; ;  ; ; ZPGSWAP #$00 ^1 $0000,YSWAP ZPG WITH  ZTEMP,YZTEMP $0000,Y  ZTEMP,Y  <1  ; ; ; ;  ZTEMP $3F00 ; ; ZPGSWAP #$00 ^1 $0000,YSWAP ZPG WITH  ZTEMP,YZTEMP $0000,Y  ZTEMP,Y  <1  ; ; PR ' TYPE OF INPUT/' EACH LINE IS OF THE@$' FOLLOWING:|.' ,,,,, 8'B' PRINT TYPE ISL' 0 = NORMALV' 1 = WIDER`' 2 = NARROWERj't'2,5,14,121,204,0 ~' 1,18,17,12,186,0A05120#NUMLINA:YNUM,NUMLIN-90006 510Dp END JzU23:1^DOGdu(#21:1:9582#UFIN(YUFIN):FIN(YFIN)<#NUMLIN(YNUM)F#"Ultra Fine: ";UFIN;P#25);"Fine: ";FIN;Z#40);"Line Compress: ";NUMLINd#510 PRINT ITZDUMP)CSCN12510F CHANGE VALUESY21:13:"";A$rA((A$)):A05040UFINA:YUFIN,UFIN900021:31:"";A$A((A$)):A05080FINA:YFIN,FIN900021:55:"";A$ A((A$)):A((A$)):A1A6ĺ"";:515%AJA1000,2000,3000,4000,5000,6000] CLEAR SCREENfZCLqCSCN0z510 GET PICCSCN1ČZCLZFAXCSCN14096,160:510510 SHIFT PIC 23:1 ZSHFT CSCN1 "3) Shift picture":."4) Print picture":H""5) Alter values ":W,"6) Exit"f@I1TYPESuJ2I3:40TAN$(I):^38:3CURTYPE2:"*";90009:58:"Choice- ";A$B$(64TYPES)A$"A"A$B$İ11000:510NZFAX3 ZMOVE14848:DOG976@(12800)(12801)3520190X(4);"BLOAD F.OBJ"j80:YELLOW:uZMOVECSCN1: CLEAR THE SCREEN33)"Fax Decoder"33)"-----------"5"1) Clear screens":"2) Get picture":2)"B) 60 lpm"HdYCO,AC(CURTYPE):YMED,AM(CURTYPE):YFIN,AF(CURTYPE)iYUFIN,AU(CURTYPE):YPRN,AP(CURTYPE):YNUM,AL(CURTYPE)xZFAX12800:ZCL13312ZSHFT13568:ZDUMP14080YCOZFAX8:YMEDZFAX7:YFINZFAX6YUFINZFAX5:YNUMZFAX4:YPR $ FAX DECODER BY WARREN TOOMEY*06(B-TYPES2P.CURTYPE12AN$(TYPES),AL(TYPES),AC(TYPES),AM(TYPES),AF(TYPES),AU(TYPES)7AP(TYPES)<I1TYPESFAL(I),AC(I),AM(I),AF(I),AU(I),AP(I)PZAN$(1)"A) 120 lpm"[AN$(     z#?   " ؠز @Юà  س ش   ŮàŮʠ֮à ֮ʠ!̠! Ʈʠ"ؠ  خʠ @Ԯà Ԯʠήà ήʠ вà  вʠֲ ͮŠ:ͮŮ2ͮŮ٠ Ԡ  @خà` iw`LxLx`'`(` l l ol h1 l o ol h2 Lm l x x` h **END OF PASS `@ `󅯩Ll8e |wMISSING 'END'L`ȱL!m;*à L!m n &eheh`I0  jeI0`HHH hhh`HHHLkhhh`L/` #f Fe Nc`` a b`ELlLmL|wLkLk x` t2jH7j hLih ɰ, fjhh` d' { 0`:0`` Gi [i i ii i i i iLQi ``HHH h fjL~j) B 2 4 " fjƩ/ fj b L|j Lj fjLj Lj fLj bhhh`H&H&( )? i(`@#i05i`޼άݍ``Li` Gi [i i iiLQi fj iLi` Gi [i i ii i i iLQi`Hȱh` Gi [i i ii i i i iLQi Gi JLQiHH8L[  "LIST P5.L" ; TRUE 1 FALSE 0 HAS64K FALSE ; ; HAS64K  $D000   $7800  ;  $800 ;: ;: P5LwjLuiLgkL,kLBjL kLrjLiLfjLKjLiLiL[iLiiH h ɓ)I(Lhɛ  iLh hH(h)h` IAIA `$N 2.5D -- 48K L/`B@fm a g h BLOAD a h,A$ ZgLg h BAD FILENAME ` LHH 8b ghhL8b@> a g h BSAVE a h,A$ Zg h,L$ g h ` 8b8 1b 1b L L!` < h afɻ h e 1b`8 h af h L;fffjf af h Lhd ة``-`Vʩ/V X h LAZER SYSTEM'S INTERACTIVE SYMBOLIC ASSEMBLER (C) 1981 LAZER SYSTEMS VERSIODREQUORGOBJEPZSTRDCMASCICLENDLSTNLSHEXBYTHBYPAUDFSDCIPAGINVBLKDBYTTLSBCLET.IF.EL.FI= PHSDPH.DAGENNOGUSRLfȱ0M*;Lf00 H :hLe h : h Lfh:Le af afLe h)H hemcmcH hBCCBCSBPLBNEBEQBVSBVCBSBBNMBM1BNZBIZBIMBIPBICBNCBRABTRBFLBRKBKSCLVCLCCLDCLIDEXDEYINXINYNOPPHAPLAPHPPLPRTSRTIRSBRTNSECSEISEDTAXTAYTSXTXATXSTYAADDCPRDCRINRSUBLDDPOPPPDSTDSTPLDRSTOSETADCANDORABITCMPCPXCPYDECEORINCJMPJSRLDALDXLDYSTASTXSTYXORLSRRORROLASLA a  b`iiL9cL9c a,ɠ,ɃL/` Hf ke sc`` a b`H b ah` bh a, a b` b sc a b 8b b h`ei 8b b h`H bhH zch ]b`cBGEBLTBMIhh```````HH (beihh` 8b a b` b a b b h b a sc b hL8b h h8` hBAD # ` a > b` b a,AR? h a)YLnf` aH !` h OPEN a hhH h WRITE,  h h INS (b ke scLSa h CLOSEhLa !` a h  `a)_ hLa   a ` (b#e 1bLa`HH O`6LnfL/`L,`L;`LLkeL8bLHfLaXc>LQ _` b hpt^! h h a>fm̍م3vua)_ݞ`4)_ݯ`* h WHAT? L;`BLLSAIDLANMWF ROEAP`` `L;`led]z tg`ggbcbk`ca``aaa,L gL h CLE                   Lz{|ߦ X0 Ǡpd Le L|LĠͮŮİĠͮŮİ L`ӠĠͮŬȱ#/, k$pLz L[x k$pLz L[x' ȱ L[x"ȱ L[x0 ȱ A)ȱ L|A) L[xi) IIl h k$pLz L[xh8鿪| L}a!AAh8鿪 kUNDEFINED SYMBOLL[x L[xy9YYh" k$pLTzLz L[x8H ꂥ9$phLzh{ L[x}=]]^~>$phLTzh{ L[xu5UUVv6h8Ԫ{ L[xJj* h8鿪| L[x`pHȱ +z+zl{;}{|||<{;zh>Lz k$pA kUNDEFINED SYMBOL-MUST BE ZPAGE.L[x k$PȥK 7 kADDRESSING MODE REQUIRES ZPAGE VARIABLE.L[x L[x8鿪#{ k$p" ED SYMBOLL[x8噅嚅ƚƙ&( kBRANCH OUT OF RANGEL[x0 L[x0pP ɼ+8鲪zHȱ@ȱA8)h L[xɾ.ɽȱ@ HLy@HLyȱ@0HLyȩPHLyȱA8)  k$pLz *ILxLLQLLLL멀vم􅢅(򅡠 Lpx 8e륙ȱ0 ;*Ӡ ؐL}ɲ LwyLzɖLx8閪x L[x XʈHh(`@ 8x8逪ay k$p kUNDEFINhEhELv=,HH thőhŒhLvhLv#LvHH thőhŒ iw`Lv,L ` x h **ERROR AT LINE h: h h h h h h h C)ONTINUE OR A)BORT? h)AL``L``;" ) ImLuHh+HH thehe `-HH t8h呅h咅 `*$HH thh  `/$HH thh  `|HH thhLv&HH th%h%ĩLv^HH t!I%Lu'Lu"Lu h= |w** DAMAGE ** ILLEGAL CHARACTER IN OPERAND`ȱ-L[u yo 8呅咅Lv oLvȱꅑȱLvȱ Lu8ȱLvH iw h`hLvȱ 5mA8Lp |wSTY ABS,X NOT ALLOWEDLoL7qF t2LpL7q |wABS,Y IS NOT ALLOWED.LoL7q tL7qLp t ow ow,Loȱ'" t ow,Lo tLtȱꅝȱŝȱŝ owLt`$Lu< >A[Lu*Lu s` rL`8eȱ`% k$pLqLoeeLoJȱ ?,ȱ# ow kLus/ ow kLus'" tLus ow ow kLusLoLoLo )LoȱLpLpLp5 tFORWARD REFERENCE.Lo |wEQU W/O LABELLoLoLoLoLoLtLtLoLtLoLoLo6L2s sLo rLo |wUNMATCHED IF/EL/FI` |wNESTED IF'S NOT ALLOWEDL` rLo t$p |wUNDEF SYMBOLLo ow owLo ɾ* owLoLtԐذȱ t ow ow owLoLsȱ 5m owLKqLo t owLo  tLoL\m mLo k$PQLo& k$P5eeeeLo5 t$P Lo |wILLEGAL ;*^ l :Lp iwLtp1  kȥLo |wDUPLICATE LABELLo Lo lLo :a^& |wLOCAL LABELS MAY NOT BE EQUATEDLo k$P lLo |wUNDEF. SYMBOL/ILLEGAL ADDRESSLo l ɖ n+HH nhehe `-HH n8h呅h咅 ` iw; |wSYMBOL WAS NOT PREVIOUSLY DEFINED IN AN EPZ STATEMENT.`LnȢ hL|oH hᅒh`ȩ1 0&&Lo8&&Lo`Lo8eȱLp ` ` h h BLOAD "' h h,A$` ` ` h`>fm`@>fm`$RA[L6o!3%7 hLn |wILLEGAL OPERAND IN ADDRESS FIELD` yoLn oLnȱ 5mA8) ImLɻ |wVALUE > $FF` lLl nLlL\m mLlLl0 : AG`8`&&&&`#Zm[m l`  yn h BLOAD TEMP. @ Lmn rL` yn]  h BSAVE TEMP.,A$ ` ` h,L$HH `hh8 ȹRrLՋɾ.ȹ ,"hh SILLEGAL SWEET-16 REGISTERLLȩ ,L"ȹ,` fL ;L8` f`L#L/L(L# hLV @L*L$L'L"L!L%L<>Lhh SILLEGAL SYMB  L+xt8`xrirsL护t` `uɖLɲLɿLƋ԰LذLjLL&'# `L !;hh SOPERAND NOT ALLOWEDL8`R)r%@)hh SILLEGAL SWEET-16 OPERANDLLL`r`s / SILLEGAL OPERAND.L ђ SILLEGAL ADDRESSING MODE.LH `;* + SILLEGAL BLANK IN OPERAND FIELDhLhH uh   t  `txtr=a)r : SBAD LOCAL LABELL^Lj @ SBAD CHARACTER IN LABELL @=#  :Ź: LL  : ` ` @V.=E SILLEGAL MNEMONIC.LD/ ( SLABEL NOT ALLOWED HERELE5 LL=LuLL7i( SMEMORY FULL`e` h h^ h h **ERROR: h h h h h` Q h8``  ` h L Q h  `*; Ȍ `^< h  TC SADR OUTC (PNTR),Y #',' P2DBY PRLN P300 ; ;: ; HBY PSP1L 0E6 PSP1L2  P2HBY0 :  GDR2 AFND PSP2L USYM ; PSP2L SADR+$1 OUTC (PNTR),Y #',' P2HBY0 PRLN P300 ; ; BYT ; PSP1L2 0 ɻ hL: h ɻ hL : h ɮ hL ɍ h h h h h`HHH$`) %`&`$`) xhhh` h h hhhhhhh` x`LLPAUSE ENCOUNTEREDL[" $pLҥ L[_ $pLADR+$1 OU嵐 kSYM TABLE FULLL`ȥȩ`H phi쥵퐯8ƵȱȥȥL,쥕i Lz`HH p ȥȩhh` ``H h LISA 2.5 h h I ` hĢ h L h ` h t`HH0;*  ` ` hhh` k `LYHH ` h `hh`0 : AG`8`쥕^:&#L, kDUPLICATE LABELL,i LŴL暤梤`ꅝȱŝȱŝ`ꅝȱŝȱŝ" % LA`,0`ɠ,Ƀ,L`,`櫥` `` ` 1} ` hĢ h h h섘 h ti9Ģ3 1` $P L[xLz L[x_ȱ"' <, L[x# $P LM/ $P LM $P LM  L[x L[x  ) L[x 1 h t h ***** END OF ASSEMBLY ` kƚƙ`hhh kLpx6  kLET W/O LABELL[x k ꂠȥ L[xC.L L[x kUNMATCHED IF/EL/FIL[x ܁ݩL[x kNESTED IF'S NOT ALLOWEDL` L[x $p Lz  ܁`8eH hȱL[x+ȱꅝȱŝ L L[x8ȱ * &ɻ"A) ȱA) L6 L[x, kFLOATING POINT NOT YET IMPLIMENTEDL[x  L[x L[x2مvu x h ȱꅝȱŝ hLӀ h h L[xHHH $pLz, ƻƺL eeee L[x $pLz L[x L[xȥ쥚  Lȩ < L[x4ȩ <IƜƛI L[x? < L[x?@ < " $pLz , L[x $pLz , L[x:ȱ"' <, $pLz , L[x  L[x L[x kPAUSE ENCOUNTEREDL[x" $pLz L[x_ $pLz,-} L}q1QQ k$pLTzLz L[xh L k$pLz L[x LE}H $phLz'h8鿪} LP}m- ,MMNn.h8鿪} L[xe%$EEFf&" $pLz , L[xЍLҭrs Ґ /Ӱ SILLEGAL OPERAND.L ڰ SILLEGAL ADDRESSING MODE.LИH ;* + SILLEGAL BLANK IN OPERAND FIELDhLЩhH uh   t  `txtr=a)r : SBAD LOCAL LABELLЍ^Lj Jڰ SBAD CHARACTER IN LABELLй Jڙ=#  ܐ:Ź: LLј  : `  JڰV.=E SILLEGAL MNEMONIC.LйD/ ( SLABEL NOT ALLOWED HERELЩ0LLGLLLNݬi( SMEMORY FULL`e` ^ **ERROR: ` Q 8``   L Q  `*; Ȍ `^<                 I 0 IFCNT P300 ; IFERR3 ERRR  'UNMATCHED IF/EL/FI'  00 P300 ; P3EL PRLN DELIF IFCNT IFERR3 #0 IFCNT P300 ; P3IF : IFCNT GOODIF ERRR  'NESTED IF''S NOT ALLOWED'  00 WARMST ; GOODIF : TSTIF `ȱvȱHHŴ嵐fv 8㥶ȱřȱ嚰,深셹셸Lȱřȱ嚰L셒셑Lqhhh8`Lehhh` L[ PAUSE ENCOUNTEREDL[" $pLҥ L[_ $pLIFERR3 # hBSAVE ASM.CODE,A$6000,L$36B0,D2 eзL`H>L<Lꕱ ;+7-3,/)+ɻ'*#/|&^=# H H쥕4#Lϕ8셑ȱ셒Li Lhhh`L'`( :,6)2(.+*-&;" */|^& =#8``HHHJ eeffff㥨hhh`HHH&&&8呪咐樈㥨hhh`ȹ `  Fȱ" LLГLߓ L8`Ӄ͊`8`K͊X͊b͊t͊͊͊hhhhLv vȹv , 8`0 : AG`8`A[ a{)8``ȹ , ȹ ,ȹ ' # SILLEGAL IMMEDIATE HEX DATAhhL8`ȹ # SILLEGAL IMMEDIATE ASCII DATALLDLL 8``L ݐ ` 1  8`hh SCOMMENT NOT ALLOWED HERELL ,'ȹ , SNOT ENOUGH DIGITS.hhL   SILLEGAL HEX DIGIT.hhL8` SILLEGAL OPERAND / INSTRUCTION TYPEhhL'" SILLEGAL STRING, (ȹ f(`L`8``L f,ȹL,'" fȹ,пL? LO hh SMISSING OPERANDL# fL/ fL'" L f,ȹL 0 ȹLhh SEXTRA STUFF IN OPERAND FIELDL8`Cȹ';ȩyLr"ȹ $ȹ"ȩyLr;y hL`8`yȹ @  SLABEL TOO LONG`+- f`*/&|^=#), ;`8`  08 ِ7ݰ3 f`  8` f `8` f`,)`Lȹ)X$Y+hh SONLY "X" OR "Y" ALLOWEDLLLy* ȩyLr$yȹ ,Lr`><ȹ hLAȹLr!-Ȣyȹ hLr`%yȹ01Lr` @S'ȹ OL IN OPERAND FIELDL f`L f`){,%hh SMISSING ",X)", "),Y", OR ")"Lȹ)X!hh SONLY "(,X)" ALLOWEDLȹ)hh SMISSING ")"LLȹ , `8`ȹ)Yhh SONLY (),Y ALLOWEDLȹ hh```````HH (eihh` 8 `    ᭈ s  L8 8` BAD # ` > ` ,AR? )YLn` H ! OPEN hH WRITE,  INS ( k sLS CLOSEhL !  `a)_ L   ` (#e 1L`HH O00 LnL/L,LLLkL8LHL>LQ ` pt^! >fm̍م3vua)_ݞ4)_ݯ* WHAT? L;BLLSAIDLANMWF ROEAP L;led]z t,L L CLEGENFLG ; 08 LOCC+$01 CODE+$01 LSAV+$01 ;: 00 LOCC CODE LSAV CDSP LNUM+$01 #!40 LINCNT ;: 01 LNUM PRTR ;: 00 #' ' STRLP TTL,Y  #$20 STRLP ; ; #$0 P301 ;: P3P3 PRLN ;: P3h`L ީ'(ȱvȱHHŴ嵐fv 8㥶ȱřȱ嚰,深셹셸L3ȱřȱ嚰L3ޱ셒셑Lޥhhh8`L|hhh`Lr!-Ȣyȹ Lr`%yȹ01Lr` @ RUNINT Fȱ" FOUND AT LINE # eзL`H>L<Lޱ ;+7-3,/)+ɻ'*#/|&^=# H H쥕4#L8셑ȱ셒Li Lhh͊ :,6)2(.+*-&;" */|^& =#8``HHHJ eeffff㥨hhh`HHH&&&8呪咐樈㥨hhh` ȹ  a)ߝ `LLLL L8`Ӄ&͊`8`U͊b͊l͊~͊͊hhhhLЅv vȹv , 8`0:a{)AG`8`A[ a{)8``ȹ ,ڐ ȹ ,ڐȹ ' # SILLEGAL IMMEDIATE HEX DATAhhL8`ȹ # SILLEGAL IMMEDIATE ASCII DATALLխDLL 8` ݐ ` 1  8`hh SCOMMENT NOT ALLOWED HERELLٹ ,ڐ'ȹ ,ڰ SNOT ENOUGH DIGITS.hhL   SILLEGAL HEX DIGIT.hhL8` SILLEGAL OPERAND / INSTRUCTION TYPEhhLй'" SILLEGAL STRING, (ȹ f(`L`8``L f֐,ȹL,ع'" f֐ȹ,пL? LOع hh SMISSING OPERANDL# fֹL/ fL'" L fֹ,ȹL 0 ȹLhh SEXTRA STUFF IN OPERAND FIELDL8`Cȹ';ȩyLr"ȹ $ȹ"ȩyLr;y L`8`yȹ Jڙ ܐ SLABEL TOO LONG`+- fְ`*/&|^=#), ;`8`  08 ِ7ݰ3 f`  8` f `8` fְ`,)`Lȹ)X$Y+hh SONLY "X" OR "Y" ALLOWEDLЙLՙLթy* ȩyLr$yȹ ,ڰLr`><ȹ LAȹLr!-Ȣyȹ Lr`%yȹ01Lr` JڰS'ȹ OL IN OPERAND FIELDLЩ fְ`L fְ`){,%hh SMISSING ",X)", "),Y", OR ")"Lȹ)X!hh SONLY "(,X)" ALLOWEDLЙȹ)hh SMISSING ")"LЩLȹ , `8`ȹ)Yhh SONLY (),Y ALLOWEDLЙȹ ԩ ȹRrLӭɾ.ȹ ,ڰ"hh SILLEGAL SWEET-16 REGISTERLLȩ ,ڰL"ȹ,` fֈLչ ;Lԩ8` fְ`Lչ#L/L(L# L` JڐL*L$L'L"L!L%L<>Lhh SILLEGAL SYMB  L+ӥxt8`xrirsLҤt` uɖLɲLɿL԰LذLjLL&'# `L׹ !;hh SOPERAND NOT ALLOWEDLЩ8`R)r%@)hh SILLEGAL SWEET-16 OPERANDLЩLFORWARD REFERENCE.L |EQU W/O LABELLLLLLLLLLLLL6L2 L L |UNMATCHED IF/EL/FI` |NESTED IF'S NOT ALLOWEDL L $p |UNDEF SYMBOLL陋 o oL ɾ* oLLԐذȱ o o oLLȱ 5 oLKL oL  LL\ L $PQL& $P5eeeeL5 $P L |ILLEGAL ;*^  :L iLt1  ȥL |DUPLICATE LABELL L陵 L :a^& |LOCAL LABELS MAY NOT BE EQUATEDL $P L |UNDEF. SYMBOL/ILLEGAL ADDRESSL陵 ɖ +HH hehe `-HH 8h呅h咅 ` i; |SYMBOL WAS NOT PREVIOUSLY DEFINED IN AN EPZ STATEMENT.`LȢ L|H ᅒh`ȩ1 0&&L8&&L`L8eȱL 褓 BLOAD "'  ,A$ >fm`@>fm`$RA[L6!3%7 L |ILLEGAL OPERAND IN ADDRESS FIELD` yL Lȱ 5A8) ILɻ |VALUE > $FF` L LL\ LL0 : AG`8`&&&&`#Z[ 쥐`  y BLOAD TEMP. @ Lm L y]  BSAVE TEMP.,A$ ,L$HH hh8` i`LЭLЭ'( o 1 o 2 L 쭀 Э` **END OF PASS `@ `󅯩L8e |MISSING 'END'LȱL!;*à L! &eheh`I0  eI0`HHH hhh`HHHLhhh`Yh" $pLTҥLҥ ALLL|LL뭀 ` 2H7 hLh ɰ, fhh` d' { 0`:0`` G [ i LQ ``HHH  fL~) B 2 4 " fƩ/ f b L| Lꥇ fL L fL bhhh`H&H&( )? (`@#05餆`޼άݍ``L麥` G [ iLQ f L` G [ i LQ`Hȱh` G [ i LQ G JLQHH8M ACUM  ADDR  IMMD  INDJ  INDX  INDY  IDXX  IDXY ;: ;: IDXY 0D1 IXY5 #$CE IXY6 IXY1 ;: LwLuLgL,LBL LrLLfLKLLL[Li鄅H ɓ)I(Lɛ  L H(h)h` IAIA `$N 2.5D -- 64K L/B@fm BLOAD ,A$ ZL BAD FILENAME ` LHH 8 hhL8@> BSAVE ,A$ Z ,L$ ` 88 1 1 L L!;: ACCh aɻ e 1`8 a L;fj a Ld ة-Vʩ/V X LAZER SYSTEM'S INTERACTIVE SYMBOLIC ASSEMBLER (C) 1981 LAZER SYSTEMS VERSIODREQUORGOBJEPZSTRDCMASCICLENDLSTNLSHEXBYTHBYPAUDFSDCIPAGINVBLKDBYTTLSBCLET.IF.EL.FI= PHSDPH.DAGENNOGUSRLȱ0M*;L00 H :hL : Lh:L a aL )H hemmH BCCBCSBPLBNEBEQBVSBVCBSBBNMBM1BNZBIZBIMBIPBICBNCBRABTRBFLBRKBKSCLVCLCCLDCLIDEXDEYINXINYNOPPHAPLAPHPPLPRTSRTIRSBRTNSECSEISEDTAXTAYTSXTXATXSTYAADDCPRDCRINRSUBLDDPOPPPDSTDSTPLDRSTOSETADCANDORABITCMPCPXCPYDECEORINCJMPJSRLDALDXLDYSTASTXSTYXORLSRRORROLASLA  `iiL9L9 ,ɠ,ɃL/ H k s`` `H h` h , ` s  8  `ei 8  `H hH zh ]`BGEBLTBMILLLQLLLLݩ멀vم􅢅򅡠 Lp ۠8e륙ȱ0 ;*Ӡ ؐLɲ LwLɖL8閪 L[ XʈHh(`@ 8x8逪a $p UNDEFIN     Yl  . $ ; &?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*:` `: V:8 J8L Lӭpd`HVTQ PS 6" (!#%L" PJ TuVTvP` P&Q&R&S8RTSURSP`/T P 8/`HJ) )h)i( ((`ɇ@ 0`$($$!fi#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 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4*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,--&hEhEL=,HH hőhŒhLhL#LHH hőhŒ i`L,L ` **ERROR AT LINE :  C)ONTINUE OR A)BORT? )AL`L`;" ) ILHh+HH hehe `-HH 8h呅h咅 `*$HH hh Э `/$HH hh Э `|HH hhL&HH h%h%ĩL^HH !I%L'L"L = |** DAMAGE ** ILLEGAL CHARACTER IN OPERAND`ȱ-L[ y怒 8呅咅L 勒LȱꅑȱLȱ L8ȱLH i h`hLȱ 5A8L𤓈 |STY ABS,X NOT ALLOWEDLL7F 2LL7񤓈 |ABS,Y IS NOT ALLOWED.LL7 L7L o o,Lȱ'" o,L Lȱꅝȱŝȱŝ oL`$L< >A[L*L ` L8eȱ`% $pL񥙅LeeLJȱ ?,ȱ# o Lu/ o Lu'" Lu o o LuLLL )LȱLLL5 (16954)(16955)576509 (4);"BLOAD MORFART"C29000j<16368,0::(15)::"MAIN MENU":F(8):(10)::"1";::" FAX"P(10):(10)::"2";::" RTTY"Z(12):(10)::"3";::" CW"d(14):(10)::"4";::" END"( n(19):(20      ɻ Lݩ: ɻ L ީ: ɮ L ɍ 詍 h`HHH$) %&$) hhh` hhhhhh` `LLޅȹLr!-Ȣyȹ Lr`%yȹ01Lr` @ 嵐 SYM TABLE FULLLȥȩ`H phi쥵퐯8ƵȱȥȥL,ݠ쥕i Lz`HH pݥ ȥȩhh` `H LISA 2.5 I Ģ L۩ ` t`HH0;*  hh` 륒 ॑LYܥHH  hh`0 : AG`8`쥕^:&#L, DUPLICATE LABELL,i LܠŴLބ暤梤`ꅝȱŝȱŝ`ꅝȱŝȱŝ" % LA`,0`ɠ,Ƀ,L,`櫥 ݩ`` ` 1ܠ} Ģ 섘 ti9Ģ3 1ܹ` $P L[L L[_ȱ"' <۱, L[# $P LM/ $P LM $P ڥ LM  L[ L[  ) L[ 1ܩ t ***** END OF ASSEMBLY ` 륙ƚƙ`hhh Lp6  LET W/O LABELL[Р ڠȥ L[C.L ۥL[ UNMATCHED IF/EL/FIL[ ٥ݩL[Х NESTED IF'S NOT ALLOWEDL L[ $p L ۥ `8eH hȱL[+ȱꅝȱŝ L L[8ȱ * &ɻ"A) ȱA) L6 L[, FLOATING POINT NOT YET IMPLIMENTEDL[  L[ L[2مvu  ȱꅝȱŝ Lة L[HHH $pLҥ, ڄƻƺL eeee L[ $pLҥ L[ L[ȥ쥚  Lȩ < L[4ȩ <ۤIƜƛI L[? < L[?@ < " $pLҥ ڥ ڱ, L[ $pLҥ ڱ, L[:ȱ"' <۱, $pLҥ ڱ, L[  L[ L[ PAUSE ENCOUNTEREDL[" $pLҥ L[_ $pLұ,- Lq1QQ $pLTҥLҥ L[h L $pLҥ ڥ L[ LEH $phLҥ'h8鿪 LPm- ,MMNn.h8鿪 ڥ L[e%$EEFf&" $pLҥ ڥ ڱ, L[ȱ#/, $pLҥ L[ $pLҥ L[' ȱ L["ȱ L[0 ȱ A)ȱ ܰLA) L[i) IIl h $pLҥ ڥ L[h8鿪 La!AAh8鿪 UNDEFINED SYMBOLL[Х ڥ L[y9YYh" $pLTҥLҥ L[8H ڥ9$phLh ڥ ڥ L[}=]]^~>$phLTh ڥ L[u5UUVv6h8Ԫ L[Jj* h8鿪 ڥ L[Р`pHȱ +҅+҅l;Ӯ<;h>Lҩ $pA UNDEFINED SYMBOL-MUST BE ZPAGE.L[Є $PȥK ڥ7 ADDRESSING MODE REQUIRES ZPAGE VARIABLE.L[Х L[Ф8鿪# $p" ED SYMBOLL[8噅嚅ƚƙ&( BRANCH OUT OF RANGEL[Х0 L[а0pP ɼ+8鲪Hȱ@ȱA8)h L[ɾ.ɽȱ@ HLѩ@HLȱ@0HLȩPHLȱA8)  $pLҥ CC* CmCLCCCjjjCCLNBCLNBC mCsCi ICLNBɠ۰ ` XCC``a *MCj`E3 A- S'I8U7 DR4JN,F%C:K(T5Z"L)W2HY6P0Q1O9B?G$M.X/V=   BH`E (h` D0LCbEbEbE E D0bE0LAH4B5B3B05B5B 4B6Bh(`L BJHCCCCb`CLNBCLNBCLNBCLNBɛ$CILNBɰɺ8鱍CCCLNB(h`b0LNB gCCɀCCLB CCC XC UC gCCjC UCCI;?P P$P(P,P0P4P8P< $(,048"&*.26:>P#P'P+P/P3P7P;P?#'+/37;?H 0//I/00@0(h`H0LAh(`b00LAH0LAh(`a0@ $(,048< $(,048<!%)-159=!%)-159="&*.26:>"&*.26:>#'+/37;?#'+/37;?( ($(((,(0(4(8(< $(,048<(!(%()(-(1(5(9(=!%)-159=("(&(*(.(2(6(:(>"&*.26:>(#('(+(/(3(7(;(?#'+/37   Ao INHo INHNHHNHNHHNHo INHNHHNHNHHNHANHINHNHHNHNHHNHANHNHFA RTtCWNG,TUNHHNHANHRYTUNE16861#N,D:LNGTH%,1:FRQ%,N:TIME%,D:PLAY%:I>N::FRQ%,N:TIME%,D:PLAY%:I>N::I>N::FRQ%,N:TIME%,D:PLAY%:I>N:FRQ%,N:TIME%,D:PLAY%:I>N:Ao INHo INHNHI>N:5:X5A372& 17683,A:A$"HIGH":A37A$"LOW"u0 (15):(10):"SPEED NOW ";A$:(21):"PRESS ANY KEY";:A$:3000 :(24):(10):"TO EXIT, PRESS ANY KEY":(1):(1):35,22:(# DATA SETUP 2#FAX17768:RTTY16954:CW17347:NGTIVE16790:TUNE16825:"(2)";::" RUN DECODER"> (14):(10)::"(3)";::" SPEED"h (16):(10)::"(4)";::" MAIN MENU" (20):(18):"SELECT";:A$ A$"1"A$"4"ĺ"":3000 A$"4"ı A$"1"ČTUNE:3200:3000 A$"2"İ3200:CW:3000  :X(17683):AA$"NOT REQUIRED"W~ (15):(10):"CARRIER NOW ";A$:(21):"PRESS ANY KEY";:A$:2000a 2000gT w CW DECODE 35,24 ::"CW ROUTINE. TO EXIT AT ANY "::"STAGE, PRESS ANY KEY." (10):(10)::"(1)";::" TUNE UP" (12):(10)::A0:X0A18 17345,A:A$"NORMAL":A1A$"INVERTED"{ (15):(10):"SENSE NOW ";A$:(21):"PRESS ANY KEY";:A$:2000` CARRIER REQUIRED?j :X(17082):A234:B234:C234:X234A76:B78:C66t 17082,A:17083,B:17084,C:A$"REQUIRED":A234:" MAIN MENU"G (19):(20):"SELECT";:A$:A$"1"A$"5"ĺ"":2000k (A$)2100,2200,2300,2400,2900 4:(23):(5):"ESC 123456789 B OR A OR L OR F":35,22:(1):(1) >RTTY H35,22:2000 RYTUNE 2000  INVERT  :X(17345): NGTIVE 1300 '  RTTY? ::"NOW SELECT.."i (8):(10)::"1";::" RECEIVE RTTY" (10):(10)::"2";::" TUNE UP" (12):(10)::"3";::" INVERT" (14):(10)::"4";::" CARRIER/NON CARRIER" (16):(10)::"5";:9):(20):"SELECT";:A$:A$"1"A$"5"ĺ"":1045U L(A$)1010,1300,1400,1200,1999m PRINTER COMMANDS t 1 (145) 0  PRINTER COMMANDS 1045  VIEW SCREEN 49239,0:49236,0:49232,0:49234,0:A$ (1045 x INVERTX ::"NOW SELECT.."F (8):(10)::"1";::" RECEIVE PICTURE"w $(10):(10)::"2";::" VIEW PICTURE AGAIN" .(12):(10)::"3";::" INVERT PICTURE" 8(14):(10)::"4";::" PRINT PICTURE" =(16):(10)::"5";::" MAIN MENU"1 B(1):"SELECT";:A$:A$"1"A$"4"ĺ"":609 xA$"4"180A :a (A$)1000,2000,3000,20000i 60w  FAX RTN 1045  0:230,32:0,0:62454 ::(10):(10):"TO START, PRESS A KEY";:A$ 49239,0:49236,0:49232,0:49234,0:FAOMPRESSED ENOUGH GETNO, SCAN AGAIN ; ; NEXTROW ROWMOVE DOWN A ROW ROW #$C0END OF SCREEN NSCREENYES,EXIT YLOW,XNO, SET UP NEW BASEROW BASE YHIGH,X XBYTECONVERT AGAIN BASE+1 #$00RESET Y TO 0 SPKRCLICK SPEAKER #$20TO $60-$7F BASE+1 !FINE UFINDLYULTRA FINE DLY  SWAIT   SWAIT  SWAIT PAGENOW ON PG2 GETAND GET MORE BYTES ; ; FOUROWS PAGERESET TO PG1 BASE+1RESET BASE TO #$DF1ST PART OF SCREEN BASE+1 COUNTC'^3 FINEDLYDELAY SEVERAL BLANKS SWAIT  #$28END OF ROW? GETNO, LOOP BACK ; NEWPAGE?#$00RESET Y TO 0 $1000TOGGLE ASTERISK #$0AON SCREEN $1000 PAGEWHICH PAGE? FOUROWSPG2, BACK TO PAGE1 BASE+1ELSE FIX UP BASE NO UFINDLYYES, INC DELAY DISPLAYAND CONTINUE ^2 #$95--> ? DUM1NO UFINDLYDEC DELAY DUM1 #$9BAN ESCAPE? DISPLAYNO DONEYES, EXIT ; DISPLAY BYTEGET SEVEN BITS (BASE),YADD BITS ALREADY (BASE),YON THE SCREEN ROW NUMBER YLOW,X BASE YHIGH,X $XBYTECONVERT IT TO RIGHT ADDRESS BASE+1 ; ; STARTROWLINESGET # LINES COUNT ; ; GET GETBYTOK, GET A BYTE KYBDA KEY PRESSED? DISPLAYNO, SKIP KBDSTRBTURN IT OFF #$88<-- ? >2E 1 #$01SET TOP SCREEN PBANK2GET PAGE 1 IN SBANK2 #$02DO 3 SCREENS SCREEN #$60SET UP XOR BYTE XBYTE ^1 TAPEINGET A BIT <1 ; STARTSCN#$00SET UP ROW BASE #$00SET Y-REG TO 0 TOO PAGESET UP LEFT PAGE ROWANDMEDDLY 07MEDIUM DELAY UFINDLY B4ULTRA-FINE FINEDLY 09FINE DELAY LINES 02NUMBER OF LINES *PRINT 00PRINT TYPE (SEE DBLDUMP.SRC) ;  0000 FAXER2 $C050TURN ON GRAFIX $C052TURN ON FULL GRAFIX $C04EDOUBLE HI-RES $C054PAGROW BASE MSB ; KYBD $C000KEYBOARD KBDSTRB $C010STROBE SPKR $C030SPEAKER TAPEIN $C061ACTUALLY SW0 #HBLNK $C1C2HORZ. BLANKING SIG ; PBANK2 $C6 SBANK2 $C07D ; ; ; ;  $31F8  $800 ; ; CORSDLY 07COARSE DELAY REEN $EDWHICH SCREEN WE'RE ON DLY $EEDELAY LENGTH $PAGE $EFPAGE WE'RE ADDRESSING COUNT $FBNO OF ROWS TO OR ROW $FCROW NUMBER BYTE $FDINPUT BYTE BASE $FEROW ADDRESS YLOW $3000ROW BASE LSB YHIGH $30C0************* * * * FAXER * * * * FACSIMILE * * DECODER * * * * BY * * W.TOOMEY! * * * ************* ; ; XBYTE $D6XOR BYTE BCNT $D7BIT COUNT NUMBITS $EC# BITS TO GET $SC   ì堧󧮠? MULTIPRINT which file? PRINT which document? UNLOCK which document? CREATE. Document name? New name of document?נŠóؠŠĠᰍOPERATING THE PROGRAMSeF&&LEcFeF&&LEdFbFbF09bFA0LE1Hh(aI`fFʠ}fF`LEuF`LE2((L EaEaEi `aE LELEaE`֭ȳ޸HbFcF/@0@eF0 2F0 2F0 0@bF?0(h`dFdFʎdFbF*/&ȱ/'eF*eFɀeFcFȌcF( CFcFLF 2F0 cF٭`EdE bELD8`E*`E^E]EdEcEbE\E D]E^EcEdEfE dEdEfEeEeEeE, E DfE 'eE" mfEeE D DLC D LC DLCeE\EfEcE_E]E D]E_EcEfE`\E ]E \EcELD]E \E]EcE\E]E`b``E(E 4ƍ} #ƍ}LL"I ' ȑL#I 'HI hI &ȑȥ`ƍ}MQ`OT DISK"E Z2ƍ} "ƍ} "ƍ}`@`,P,R,N,Tƍ}ɛLS#ɈɕvLS"I` "ƍ} "ƍ}LL"( L"I HI 'hI (I `I` #I &ȑȥ`ƍ}Q`,P,R,N,Tƍ}ɛL6ɈɕvL500I` W5ƍ} W5ƍ}L 5( L]5I HI 'hI (I `00I` 5ƍ} 5ƍ}L 5I ' ȑL5I 'HI h`a) *e 2JJJJf 2`9:25:,P,R,N,Tƍ}`a00E1 2Ɉ1L\2ɕ1ɛL21 2(̠I  1H 2hH 2h 2Ф)߅И00E,0L420& ƍ}UL 2ƍ}NQTL 2ƍ}QTM`O``עa) *eׅ׭1 2JJJJf1 2`H?h?` @ ,P,R,N,Tƍ}`֭a00Eօ1 2Ɉ1L\2ɕ1ɛL21 2(̠I  1H 2hH 2h 2Ф)߅И00Eօ,0L420& ƍ}UL 2ƍ}OQTL 2ƍ}QT  RRY & INTO BIT0 BCNTADD TO COUNT BCNT CORSDLYNOW DELAY COARSE SWAIT ENOUGH SAMPLES <6NO ; BCNTGET COUNT SHIFT BIT INTO CARRY    BYTEAND INTO BYTE MEDDLYMEDIUM DELAY SWAIT NUMBITSMORE BITS? <5YE SWAIT DLYSAVE DELAY ^2 DLY <2 ELSE RETURN ; GETBYT #$00SET BYTE 0 BYTE #$08GET 8 BITS NUMBITS ^5 #$00SET COUNT TO 0 BCNT #$0FGET 15 SAMPLES ^6 TAPEINGET SAMPLE #$80TURN BITS OFF INTO CA $C04F 80 COL $C051TEXT $C054NORMAL SCREEN #$A0ALTER XBYTE TOO XBYTE STARTSCNAND DO LAST SCREEN ; ; DONE #$01RESET MEMORY PBANK2 SBANK2 $C051SET TEXT SCREEN $C054PAGE 1 $C04F80-COL TEXT AND FINISH ; ;STARTROWAND START A ROW ; ; NSCREEN SCREEN DONEYES, EXIT PAGE3EITHER PAGE3 OR "PAGE2 #$02PG2. BRING IN HGR4 PBANK2 SBANK2 $C055TURN ON PAGE2 !STARTSCNAND DO ANOTHER SCREEN ; PAGE3 #$01RESET MEMORY PBANK2 SBANK2 'HI hI &ȑȥ`ƍ}QO`2`@,P,R,N,Tƍ}ɛL'6ɈɕL500I` a5ƍ} a5ƍ}0I a5L 5( Lg5I HI 'hI (I `00I` 5ƍ} 5ƍ}0I 5L 5I ' ȑL5I DONE #$01RESET MEMORY PBANK2 SBANK2 $C051 $C04F AND RETURN ; ;  !) BASE+1 #$00  (BASE),YAND SAVE IT BASE+1BACK AGAIN! #$20 BASE+1 #$26 DUM2 (BASE),YGET BYTE  (BASE),YSHIFT IT   #$FFEND OF ROW? DUM2 YES, SAVE LAST BYTE TEMP (BASE),Y AND RETURN ; ; ; TE TEMP ^8 MOVE DOWN #$FFEND OF ROW >9 (BASE),YGET BYTE  (BASE),YSHIFT IT  <8AND LOOP ^9 BASE+1SWAP SCREENS #$20 BASE+1 #$27GET 1ST BYTE HERE (BASE),Y SAVE IT BASE+1 #$20MOVE BACK (ARRGHPBANK2 SBANK2 RIGHT1 #$01 PBANK2 SBANK2 YHIGH,X #$A0 BASE+1 RIGHT1 NEXT ROW #$C0 <7 <1AND RETURN ; ; RIGHT1 BASE+1MOVE BASE TO #$202ND HALF OF SCREEN BASE+1 #$27START AT TOP (BASE),YGET 1ST BYROW? <7 YES, SAVE LAST BYTE TEMP (BASE),Y BASE+1AND RESTORE BASE #$20 BASE+1 AND RETURN ; RIGHT #$00DO 192 LINES ^7 YLOW,XGET ADDRESS BASE YHIGH,X #$60 BASE+1 RIGHT1SHIFT RIGHT #$02NOW HGR4 GET 1ST BYTE HERE (BASE),Y SAVE IT BASE+1MOVE BACK #$20(YUK, ISNT IT!) BASE+1 #$27 AND SAVE IT (BASE),Y BASE+1BACK AGAIN #$20 BASE+1 #$01 ^7 (BASE),YGET BYTE  (BASE),YSHIFT IT   #$28END OF 1AND RETURN ; LEFT1 #$00START AT BOTTOM (BASE),YGET 1ST BYTE TEMPSAVE IT ^4 MOVE UP #$28END OF ROW >6 (BASE),YGET BYTE  (BASE),YSHIFT IT  <4AND LOOP ^6 BASE+1SWAP SCREENS #$20 BASE+1 #$00FT #$00DO 192 LINES ^3 YLOW,XGET ADDRESS BASE YHIGH,X #$60 BASE+1 LEFT1SHIFT LEFT #$02NOW HGR4 PBANK2 SBANK2 LEFT1 #$01 PBANK2 SBANK2 YHIGH,X #$A0 BASE+1 LEFT1 NEXT ROW #$C0 <3  PRINT #'*'SET A 72dpi PRINTLINE #$04 PRINT #$80128 + PRINT #$022*256 = 640 PRINT  ; ; ; !PRINTLIN#$00START ON THE LEFT !^2 <1AND START AGAIN ; END RETURN ; ; ; $SETBASE #$00SET DEST OFFSET TO 0 "^2 YLOW,XGET BASE OF LINE BAS0L,YSTORE IT  YHIGH,X XBASEALTER TO RIGHT ADDRESS BAS0L,Y  #$10DONE 16 BYTES? RTS1YES, RETURN MOVE LINE TO 0 LINE ^1 LINEGET LINE #$C0IS IT LEGAL? ENDNO, FINISHED PRINTGFXTELL PRINTER TO GRFX SETBASESET UP BASES  !LINESET UP LINE FOR NEXT TIME #$08 LINE PRINTLINPRINT THE LINE #$0APRINT A PRINT T UP XBASE XBASE #$01 PBANK2 SBANK2 DBLDUMPDUMP HGR3 #$60 XBASE #$02 PBANK2 SBANK2 DBLDUMPDUMP HGR4 #$01 PBANK2 SBANK2 ; #$A0SET XBASE TO $8000 ON XBASE DBLDUMP ZPGSWAP  ; ; DBLDUMP #$00SET7L $FE BAS7H $FF ; ; ESC $1B YLOW $3000 YHIGH $30C0 ZTEMP $3F00 ; PBANK2 $C6 SBANK2 $C07D PRINTER $C090 BUSY $C1C1 ; ; ;  $3700  $800 ; ; #DUMPBOTHLINEFEEDSET LINEFEED UP ZPGSWAP #$60SE $E7 XBASE $EE LINE $EF ; BAS0L $F0 BAS0H $F1 BAS1L $F2 BAS1H $F3 BAS2L $F4 BAS2H $F5 BAS3L $F6 BAS3H $F7 BAS4L $F8 BAS4H $F9 BAS5L $FA BAS5H $FB BAS6L $FC BAS6H $FD BASm *************** * * * DOUBLE RES * * DOUBLE DUMP * * * *************** ; ; DUMPS FIRST HGR3 THEN HGR4 ; ; BYT0 $E0 BYT1 $E1 BYT2 $E2 BYT3 $E3 BYT4 $E4 BYT5 $E5 BYT6 $E6 BYT7  @ƍ} %4ƍ} %4ƍ}@ )4`@` P A PAGE COUNT <1AND LOOP  ; ; ;  MEMORY PBANK SBANK #$40FINALLY 16K AT $8000 COUNT #$80 CLSCN2  ; CLRSCN #$40SET #$40 PAGES COUNT !CLSCN2 BASE+1AND SET UP BASE #$00 BASE SET A-REG TO 0 ^1 (BASE),YSET BYTE OFF  <1 BASE+1MOVE U0;CLEAR BOTH HGR3 & HGR4 ; ; ;  $3400  $800 ; ; PBANK $C6 SBANK $C07DMEM SWITCHES BASE $FE COUNT $FD ; START #$01DO HGR3 FIRST PBANK SBANK CLRSCN #$02NOW HGR4 PBANK SBANK CLRSCN #$01RESET        iIU:6789Ѕ퍂`ɿ`I67Ѕ퍂LĠND OFFSET #$D0 MID+1 #$90 NEWBOT+1 ^2 (MID),Y  (NEWBOT),Y (MID),Y  (NEWBOT),Y  <2 NEWBOT+1 MID+1 <2 $C082TURN OFF BANK RAM DOG ; ; ;  RSTVCTRMODIFY RESET VECTOR DOG+1AND DOS PTR /DOSWRM RSTVCTR+1 DOG+2 #$A5 !RSTVCTR+2FIX UP POWER-UP BYTE #DOSINPRECONNECT DOS CSWL /DOSINP CSWL+1 $C083TURN ON BANK RAM $C083 #$00SET UP PTRS MID NEWBOT A(MID),Y COPY MID TO BOT (NEWBOT),Y  <1 NEWBOT+1 MID+1MOVE BASES UP <1IF NOT 0, LOOP $C082TURN OFF BANK RAM AND RETURN ; ; ; $MEMOVE2 RSTVCTRSWAP DOS BACK IN? #DOSWRM >1YES! NO, RETURN ^1 #DOSWRM SWL /KEYIN KSWL+1 $C083TURN ON BANK RAM $C083 #$00SET UP PTRS MID NEWBOT SET UP OFFSET #$D0COPY $D000-$FFFF MID+1 #$90TO $9000-$BFFF NEWBOT+1 ^1 (MID),YGET A BYTE SAVE IT (NEWBOT),YCOPY BOT TO MID $3A00  $800 ; ; MOVEOUT #MONMODIFY RESET RSTVCTRVECTOR /MON RSTVCTR+1 #$A5 RSTVCTR+2AND POWER-UP BYTE #MEMOVE2NOW MODIFY DOS PTR DOG+1 /MEMOVE2 DOG+2 #COUT1DISCONNECT DOS CSWL /COUT1 CSWL+1 #KEYIN KTR RSTVCTR $3F2RESET VECTOR DOSWRM $9DBFDOS WARMSTART "DOSINP $9EBDDOS INPUT ROUTINE RESET $FA62RESET ROUTINE KEYIN $FD1BINPUT ROUTINE COUT $FDEDPRINT CHAR COUT1 $FDF0SCREEN ROUTINE MON $FF69MONITOR ; ; ;  ; ROUTINES TO COPY DOS IN & OUT ; OF THE RAM CARD ; ; ; ;ZERO PAGE VARIABLES ; MID $FCMIDDLE ROW BASE NEWBOT $FENEWBOT BASE ; ; ;DOS & ROM STUFF ; CSWL $36OUTPUT POINTER KSWL $38INPUT PTR DOG $3D0DOS WARM P *F*F*F*F*F* 7` ``( 7 7`ƍ} 47`ƍ} 47ƍ} 47 7` q7 W7i 7 7L87`0Ƚ0E` 7* 7 7 7 7` 7( 8 7(` 7A 7 7`H,0h`H?h?`F*F*F  B #$20ADD $20 BAS0H,X MOVE TO NEXT MSB  #$10DONE 8 MSB'S? <6 YES, RETURN ; ; ;  ; ; ;  YES, RETURN ; ; ;  8 "^5 BYT0SHIFT A BIT INTO C AND BACK INTO A BYT1  BYT2  BYT3  BYT4  BYT5  BYT6  BYT7  PRINTPRINT RESULT  <5AND LOOP RETURN ; ; MOVBASE #$00SET OFFSET TO 0 ^6 BAS0H,XGET MSa) *e JJJf `6) % ,P,R,N,Tƍ}aI` aa0 ɈLeɕɛLI (ʠ H hH h Ъ)߅ЏI`,0L.0 ƍ}ULƍ}QTM``  BCNT #$08NOW DELAY COARSE SWAIT ENOUGH SAMPLES <6NO ; BCNTGET COUNT SHIFT BIT INTO CARRY   BYTEAND INTO BYTE #$0BMEDIUM DELAY SWAIT NUMBITSMORE BITS? <5YES  ; ; ; ;  <2 ELSE RETURN ; GETBYT #$00SET BYTE 0 BYTE #$08GET 8 BITS NUMBITS ^5 #$00SET COUNT TO 0 BCNT #$07GET 7 SAMPLES ^6 TAPEINGET SAMPLE #$80TURN BITS OFF INTO CARRY & INTO BIT0 BCNTADD TO COUNT RING IN HGR4 PBANK2 SBANK2 $C055TURN ON PAGE2 !STARTSCNAND DO ANOTHER SCREEN ; ; DONE #$01RESET MEMORY PBANK2 SBANK2 $C051SET TEXT $C054PAGE 1 $C04DLO-RES AND FINISH ; ; SWAIT DLYSAVE DELAY ^2 DLY SCREEN NSCREENYES,EXIT YLOW,XNO, SET UP NEW BASEROW BASE YHIGH,X #$60CONVERT AGAIN BASE+1 #$00RESET Y TO 0 SPKRCLICK SPEAKER STARTROWAND START A ROW ; ; !NSCREEN SCREENDONE 2 SCREENS? DONEYES, EXIT #$02ELSE BWAIT  SWAIT PAGENOW ON PG2 GETAND GET MORE BYTES ; ; FOUROWS PAGERESET TO PG1 BASE+1RESET BASE TO #$DF$40-$5F BASE+1 COUNTCOMPRESSED ENOUGH SYNCNO, SCAN AGAIN ; ; NEXTROW ROWMOVE DOWN A ROW ROW #$C0END OFANKS SWAIT  #$28END OF ROW? GETNO, LOOP BACK ; NEWPAGE?#$00RESET Y TO 0 PAGEWHICH PAGE? FOUROWSPG2, BACK TO PAGE1 BASE+1ELSE FIX UP BASE #$20TO $60-$7F BASE+1 !FINE UFINDLYULTRA FINE DLY  SWAIT   SD CONTINUE ^2 #$95--> ? DUM1NO UFINDLYDEC DELAY DUM1 #$9BAN ESCAPE? DISPLAYNO DONEYES, EXIT ; DISPLAY BYTEGET SEVEN BITS #$FF (BASE),YADD BITS ALREADY (BASE),YON THE SCREEN '^3 FINEDLYDELAY SEVERAL BL GETNO #^1 TAPEINCOME HELL OR HIGH <1WATER ^1 TAPEINNOW A LOW <1 ; GET GETBYTOK, GET A BYTE KYBDA KEY PRESSED? DISPLAYNO, SKIP KBDSTRBTURN IT OFF #$88<-- ? >2NO UFINDLYYES, INC DELAY DISPLAYAN<1 ; STARTSCN#$00SET UP ROW BASE #$00SET Y-REG TO 0 TOO PAGESET UP LEFT PAGE ROWAND ROW NUMBER YLOW,X BASE YHIGH,X #$60CONVERT IT TO $40-$5F BASE+1 ; ; STARTROWLINESGET # LINES COUNT ; SYNC SYNCFLAGSYNC? 02NUMBER OF LINES SYNCFLAG 001 TO SYNC ; 00000000 FAXER2 $C050TURN ON GRAFIX $C052TURN ON FULL GRAFIX $C04EDOUBLE HI-RES $C054PAGE 1 #$01SET TOP SCREEN PBANK2GET PAGE 1 IN SBANK2 SCREEN ^1 TAPEINGET A BIT 00KEYBOARD KBDSTRB $C010STROBE SPKR $C030SPEAKER TAPEIN $C061ACTUALLY SW0 #HBLNK $C1C2HORZ. BLANKING SIG ; PBANK2 $C6 SBANK2 $C07D ; ; ; ;  $18F8  $800 ; ; UFINDLY B4ULTRA-FINE FINEDLY 09FINE DELAY LINES CREEN DLY $F9DELAY LENGTH !PAGE $FAPAGE WE'RE ADSSING COUNT $FBNO OF ROWS TO OR ROW $FCROW NUMBER BYTE $FDINPUT BYTE BASE $FEROW ADDRESS YLOW $1B00ROW BASE LSB YHIGH $1BC0ROW BASE MSB ; KYBD $C0 ************* * * * FAXER * * * * FACSIMILE * * DECODER * * * * BY * * W.TOOMEY! * * * ************* ; ; BCNT $F6BIT COUNT NUMBITS $F7# BITS TO GET SCREEN $F8TOP OR BOT SiIU:6789Ѕ퍂`ɿ`I67Ѕ퍂LĠ*F*F*F*F*F* 7` ` 7 7`ƍ} 47`ƍ} 47ƍ} 47 7` q7 W7i 7 7L87`0Ƚ0E` 7* 7 7 7 7` 7( 8 7(` 7A 7 7`H,0h`H?h?`F*F*F'HI hI &ȑȥ`ƍ}QO`2`,P,R,N,Tƍ}ɛL'6ɈɕL500I` a5ƍ} a5ƍ}0I a5L 5( Lg5I HI 'hI (I `00I` 5ƍ} 5ƍ}0I 5L 5I ' ȑL5I ƍ} %4ƍ} %4ƍ}@ )4`@``עa) *eׅ׭1 2JJJJf1 2`H?h?`,P,R,N,Tƍ}`֭a00Eօ1 2Ɉ1L\2ɕ1ɛL21 2(̠I  1H 2hH 2h 2Ф)߅И00Eօ,0L420& ƍ}UL 2ƍ}OQTL 2ƍ}QTO`37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? 0 ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/! ! ! !!!!!!!!! 37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/!! C  C  C   C   C  C    Z23:1bZSHFTgCSCN1%l1603 END 9D23:1MDOGSd21:1:958UFIN(YUFIN):FIN(YFIN)NUMLIN(YNUM)"Ultra Fine: ";UFIN;25);"Fine: ";FIN;40);"Line Compress: ";NUMLIN";SYNC S21:13:"";A$,A((A$)):A0529C UFINA:YUFIN,UFINL900_21:31:"";A$wA((A$)):A0539FINA:YFIN,FIN90021:55:"";A$!A((A$)):A0559#NUMLINA:YNUM,NUMLIN/9000160X SHIFT PIC]A$:A((A$)):A1A6ĺ"";:170)AHA200,300,400,500,600,700[ CLEAR SCREENdZCLoCSCN0x160, GET PIC1CSCN1ČZCL6ZFAX;CSCN1@4096,160:160 PRINT ITZDUMPCSCN1160 CHANGE VALUEN1: CLEAR THE SCREEN-35)"Fax Decoder"D35)"-----------"K(5e2"1) Clear screens":}<"2) Get picture":F"3) Print picture":P"4) Change values":V"5) Shift Picture":Y"6) Exit"Z9009:55:"Choice- ";"$ FAX DECODER BY WARREN TOOMEY*CZFAX12800:ZCL13312_ZSHFT13568:ZDUMP14080|YUFINZFAX8:YFINZFAX7YNUMZFAX6ZMOVE14848:DOG976(12800)(12801)352010 (4);"BLOAD F.OBJ" 80:YELLOW: ZMOVECSC""""""93)# NUMLIN(6394):SYNC(6395)= "Ultra Fine: ";UFIN;T 25);"Fine: ";FINs "Line Compress: ";NUMLIN; 25);"Sync (1=On): ";SYNC ";SYNC A0549! #NUMLINA:6394,NUMLIN* %900= &22:38:"";A$U +A((A$)):A0559k -SYNCA:6395,SYNCt /900} 0160 X SHIFT PIC ]23:1 b8768 gCSCN1 l160  END 23:1  21:1:958 UFIN(6392):FIN(63 @160  PRINT IT" 8192- CSCN16 160J  CHANGE VALUES] 21:13:"";A$u A((A$)):A0529 UFINA:6392,UFIN 900 21:31:"";A$ A((A$)):A0539 FINA:6393,FIN 900 22:16:"";A$ !A((A$)):": V"5) Shift Picture":, Y"6) Exit"5 Z900M 9:25:"Choice- ";t A$:A((A$)):A1A6ĺ"";:170{ A A200,300,400,500,600,700 CLEAR SCREEN 8704 CSCN0 160 , GET PIC 1CSCN1Č8704 66400 ;CSCN1(6400)(6401)3520108(4);"BLOAD FAX.OBJ"J 40:YELLOW:hCSCN1: CLEAR THE SCREEN15)"Fax Decoder"15)"-----------"(52"1) Clear screens":<"2) Get picture":F"3) Print picture": P"4) Change values"" " " "