' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈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,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB 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 iõ`  \ 濭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 Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢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䵍䵐`"L ŵ8ŵH ~(`  d ֠z# u`??!0?? @@O_HO@@+ k ~BBW~ ` @`   cAAc  @@@@ @p @   ``@@@~^ 9 ` @$ 1<33n   0@cC>~~||xp`9 <    <<||xxysscA:! 9 "G cnC<C<?~|powcCsN 1Y9 -"] px?~xp`p=xp AaaI @ ! $@@#@m?D00pp0p`@@@$x`c 00 JBBRd" ``  w@ L   888xxp```@@{7<< <8<< a1qc  x0p0x  >>|||xxp`@}~<<8<<|cFBAHg    G   p0>`@@00PP p L8q 1((HDD4#v ^ Ac10dC x `@ACO^\xp  44bbAA c@00` >~~||xp`}@px<<<~ ~GlAlG 3# @ ``o0x|rP00pp! ?>~  @`""b"""2rZD;0@~~~||xp@<>||~?9aC @@ $DEF6"]p @!@@@` 0<s!@3{{%[{{ |de$d|! ~BBW~ ` @`   cAAc  @@@@ @p @   ``@@@~^ 9     GRAM"/ F:"PLEASE CHECK DISK AND DISK DRIVE"T P:"PRESS ANY KEY TO CONTINUE ";^ ZX$:dP:"PRESS ANY KEY TO CONTINUE "; ZX$:d FILE NOT FOUND EL140ĉk ::" PROGRAM NOT ON THIS DISK"::" PRESS ANY KEY TO CONTINUE ";:X$ EL140Ĺ16304,0:16297,0:16302,0:16300,0: :(7)"UNABLE TO CONTINUE":: ( I/O ERROR 2EL140ĉ <::"UNABLE TO FIND PRO65002 (A$,X);::(A$,X1,1);::(A$,LX1)9 Xo 255:12:"GENERIC CATSEND/AE/BBS (208) 746-8591"u  ` ERROR HANDLING j896 tEL(218)(219)256:ER(222):ER0ERR15Ĺ216,0: ~ER6İ60110 ER8İ60210 216,0: X$"A"ĉ::(10):" LOADING ASSEMBLER...":(13)(4)"RUN ASSEMBLER"DI$ X$"T"ĉ::(10):" LOADING TUTOR...":(13)(4)"RUN TUTOR"DI$ (7):160 ::235 A$"GENERIC CATSEND/AE/BBS (208) 746-8591" L(A$) X1L 12:X3`d HELLO PROGh200+n::60000[xD$(4):D$"NOMONC,I,O":D$"PR#0":D$"IN#0"~:(10):" LOADING MENU..."D$"BLOAD HNDLERR":D$"BLOAD LOGO":16304,0:16297,0:16302,0:16300,0:HGRDI(64435):DI6DI$".//e"X$J     !!`3`xPUW X7#    Ġ  ԠҮ堠+ Ҡ+ͺ ԲҠԮà""Ҡˍ"Ԡé" ĠŠčϠ"Ϡ" Ү堠#Ҡ#ABLE TO CONTINUE"::% ( I/O ERROR3 2EL140ĉU <::"UNABLE TO FIND PROGRAM" F:"PLEASE CHECK DISK AND DISK DRIVE" P:"PRESS ANY KEY TO CONTINUE "; ZX$:d(222):ER0ERR15Ĺ216,0:- ~ER6İ60110> ER8İ60210K 216,0:` FILE NOT FOUNDn EL140ĉ ::" PROGRAM NOT ON THIS DISK"::" PRESS ANY KEY TO CONTINUE ";:X$ EL140Ĺ16304,0:16297,0:16302,0:16300,0: :(7)"UN(64435):DI6DI$".//e" X$o X$"A"ĉ::(10):" LOADING ASSEMBLER...":(13)(4)"RUN ASSEMBLER"DI$ X$"T"ĉ::(10):" LOADING TUTOR...":(13)(4)"RUN TUTOR"DI$ (7):160 ` ERROR HANDLING j896 tEL(218)(219)256:ERаd HELLO PROG,e(4);"BLOAD TIT.PIC"7f3116@gAK$Pn::60000xD$(4):D$"NOMONC,I,O":D$"PR#0":D$"IN#0":(10):" LOADING MENU..."D$"BLOAD HNDLERR":D$"BLOAD LOGO":16304,0:16297,0:16302,0:16300,0:HGR DI   [0$ @" @@@@H$ry@<@p<<``H$0@ 0H` f0<@cH$0\x`8x>`H[@A`dL0$`H[@A Lcc@3lG c8FqH GI30$H$H{@%D"@A0F6L00&`"$H[0@ @$(0( H$`x<`p@<<p`<H$H@J$|p@?|~x~q@?|sHd[0$ 0A $@@0H$x<@<@<@9<<``H[?$0@ 0D` p@H$0@^<@<x<`H[`ch0$,H[@A3c@N cLA Fa030$H$H@!D"`@G 10&`"$H[0 86$0HH$`x<`p@<<p`H$H@$|p@?|~x~q@?|sH$@[@0$D@8 < H$x<P@<@<9<<``H[?$0@@D`pC@H$ @O<@A<<`CH[0|$*H[@Aa3caAC cLB Fa0<0$H$H@#D"`83c0 C`"$H[0pGFx#c$H$p@<px@`0xp@H$ H@$@~~yxg`~?||~x`@?x~yH$@[@0$<p@x DC`H$<r@x`< <`pH[0$0@@B`0@ H$`@7`@b<P<<`cH[0Z];mn]$4*H[@A C!Lc 'A1l3'8F1F3 FAN10$H$H !Db`LcvpApGg@"1$H[0ZL@ -$H          [0$0@@C`0@ H$@@'``C<<`<<`wH$p@<px@`pxp@H$ H[@qas8CGb`GvXCac os0$~O$H[0$B8`p`@?H$<|@pp<@<<`xH[? CG $H[0$"D"$D)H$@|~pxC`>x|x`@>xH$H@CD"`0`!"$H[0$`@ HB @@H$@acppA<0`8<`H$p@p8@`?8p@CH$<<~p ~|~pcxH[@Ab@@ @0$@$H[0$B` 0`@ H$>xp@~`<<`~H[?@E`@" $H[0$@ow{}>_D) x}>_ow{H$`>x|`p@|>|p`|H$HA$@A0@ R$ @?~ `@0xp`H|[0$`@ HB @ @H$aCp?x@< `<<`pH{$p@p8@`N8p@H$<>pp@<~@gx`xH[@A4@ 0$@$H[0$H$@`@w0~~>p@7/xoH IDr<` oqC;xP$"9$H[0@$HP( H$`>x|`p@|>|p`|H$HAc00 @ B$^?p@p<`x@~|?pAH[0$ @(B @ @H$sAy<@`p<<``H{$p@p8@` 8p@H$0xpp<~p=`<H[@A@4@" 0d$H[`cs8GOw`AgG>^w]ccgp>??<<==>>??<<==>>??@ HA H??08D D A A ߤhA h@ `$%  ' 0 8 ʆ` I `,0`ɰ`"ʚ`<< ppɌ ) `ɋ `ɉ `Ɏ۩ `ɠɍɈ$ť!$$"%%%L $%%#%"H I @ C A D !hi# H I 1 Lb $ !`% @  A `@ e A i $ 0 i & & &iڍ i  I8  L+ i X,P,S,T,Wʅ6789 ]L   Ȍ `Lɗ*ɉ5ɑ+ɺ % ,$ $L i XL L X / LH , h(,`5%H$H55H ) h55h$h% $5L$ $$!N`     0L@` g RgƖ8PgPQhQghe Ӣi  g y  gh^_8^eP^ȱ^ eQ^^_Ll8ePeQ`L8:D1Ã209,210,211,212:E41Ã213,214,215,216:F=1`765H1j216,0N1tZ%Z:Z%ZPR$"0"PR$:60}2PR$"1"PR$<YZ%:Z%N040P(PR$)N8ıZPR$(ZE$,N8(PR$))PR$:n DEC TO HEXxPR$"":YX:XN0PR$"00": Z%Y16:E0xÃ177,178,179,180:FOUR70Ã181,182,183,184:FIVEQ0Ã185,186,187,188:SIXm0Ã189,190,191,192:SEVEN0Ã225,226,227,228:EIGHT0Ã229,230,231,232:NINE0Ã193,194,195,196:A0Ã197,198,199,200:B0Ã201,202,203,204:C1Ã205,206,207,2036,C1136,C2:160,C3157,C1157,C2:181,C3178,C1178,C2:202,C3199,C1199,C2:222,C3220,C1220,C2:159,C3156,C1156,C2:161,C3158,C1158,C2/m/PÃ217,218,163,164:ZERO/ZÃ165,166,167,168:ONE/dÃ169,170,171,172:TWO0nÃ173,174,175,176:THRE23115,H2:97,H394,H194,H2#.i3.`m PRINT BCD?.jmC190:T.tmC2C125:C3C13\.~m:j.m"EFIJMN"x.m"GHKLOP".m73,C1241,C1241,C273,C273,C176,C3244,C3241,C1:244,C3244,C23241,C2:97,C394,C194,C2:118,C3115,C1115,C2/m139,C31,B3157,B1157,B2:181,B3178,B1178,B2W-e202,B3199,B1199,B2:223,B3220,B1220,B2]-el-xiPRINT HEXx-iH190:-iH2H125:H3H13-i:-i" IJ QR UV "-i" KL ST WX ".i73,H1115,H1115,H273,H273,H176,H3118,H3115,H1:118,H3118,H115,D1115,D2,a",ePRINT BIN.,eB150:C,eB2B125:B3B13K,e:[,e"EF MNQR "k,e"GH OPST "'-e73,B1241,B1241,B273,B273,B176,B3244,B3241,B1:244,B3244,B23241,B2:97,B394,B194,B2:118,B3115,B1115,B2:139,B3136,B1136,B2:16094,H194,H2:118,H3115,H1115,H2:139,H3136,H1136,H2=+]M+a PRINT DECZ+a:D110o+aD2D125:D3D13w+a:+a"MNQRIJ"+a"OPSTKL" ,a73,D1136,D1136,D273,D273,D176,D3139,D3136,D1:139,D3139,D23136,D2:97,D394,D194,D2:118,D3D394,D194,D2:118,D3115,D1115,D2:139,D3136,D1136,D2:160,D3157,D1157,D2V*Zg*]PRINT HEX 2|*]H2H125:H3H13*]:*]" IJ QR UV "*]" KL ST WX 7+]73,H1157,H1157,H273,H273,H176,H3160,H3157,H1:160,H3160,H23157,H2:97,H3WISH TO EXIT"0)V"THIS PROGRAM? (Y/N) ";:3000>)VB$"N"ıX)VB$"Y"ĺ(7):22010`)"V:q)YPRINT DEC 2)YD2D125:D3D13)Y:)Y"MNQRIJ")Z"OPSTKL"P* Z73,D1178,D1178,D273,D273,D176,D3181,D3178,D1:181,D3181,D23178,D2:97,"ı!(bRB(B$):B0ĺ(7):210107(lRB6ĺ(7):21010Z(vRB1B4B(((78))655341){(RB2B5B(((78))2541)(RB3B6B(((78))981)(R(B$)11010,12010,13010,14010,15010,16010(R21010(U END )U:762::"ARE YOU SURE YOU EXERCISES'R:(2):(10)9'R:"EXERCISE MENU":::a'&R5)"DEC TO HEX..1 HEX TO DEC..4":'0R5)"DEC TO BIN..2 BIN TO DEC..5":':R5)"DEC TO BCD..3 BCD TO DEC..6":'DR5)"EXIT TO MAIN MENU..X"::'NR5)"SELECT BY NUMBER ";(XRB$:B$"X.H"$&N:9)"EXERCISES..........E"E&N:9)"EXIT PROGRAM.......X"f&N::8)"SELECT BY LETTER ";&N3000:B$""ĺ(7):20150&NB$"H"İ7010:20150&OB$"B"İ6010:20150&OB$"E"İ21000:20150&OB$"X"İ22010:20150&$O(7):20150 'R0:Z%X:N33:Y1X:Y2X:N0X:N22:O148:O210:O37:N11:N44:N88O%zNCH$(16,2)[%NI015f%NJ01%NX,Y:CH$(I,J)(X)(Y)%N:%NZE$"00000000"%N:(2):(10)::"MAIN MENU":%N::9)"DEC, BIN & BCD.....B"&N:9)"DEC, BIN & HEX....7):16110"$ N::230,32:228,127B$*ND$(4):D$"PR#0":D$"IN#0"W$4ND$"NOMONC,I,O":}$>N(4):8)"HEX, BCD, BINARY TUTOR"$HN:8)"BY"$RN:8)"MALCOLM WHAPSHOTT"$\N:8)"COPYRIGHT (C) 1983"$fND$"BRUN LOMEM:":16384:(4)"BRUN CHAT2"@%pN:X$"X"į:%#>Z47Z58İ900:160406#>(7):16060#>20,0:762:"YOU ARE CORRECT!":"DO YOU WISH TO GUESS A NEW NUMBER":"OR EXIT TO THE MENU? (N/X)":"SELECT BY LETTER ";#>Z$:Z$"N"Ĺ34,0:B((B)2541):16010#?Z$"X"į:34,0: $ ?(>BCD TO DEC>">:C110:28020:D150::25020:C190::28020U">XB:PO2:210:310{">X0:CU3:CWCU:ML10:R3:34,20:">PO7:530:PS$PR$:PO12:205:310:XB16110">PO7:610">19,0:Z$:Z(Z$):Z8İ710:16060">Z21İ810:16060 #>Z:Z47Z58İ910:15040)!:(7):15060!;20,0:762:"YOU ARE CORRECT!":"DO YOU WISH TO GUESS A NEW NUMBER":"OR EXIT TO THE MENU? (N/X)":"SELECT BY LETTER ";!;Z$:Z$"N"Ĺ34,0:B((B)2541):15010!;Z$"X"į:34,0:!$;(7):15110 "2 ::B110:26020:D150::25020:B190::26020H :XB:PO2:20:310n :X0:CU3:CWCU:ML10:R2:34,20: :PO7:530::PS$PR$:PO12:20:310:XB15110 :PO7:610 :19,0:Z$:Z(Z$):Z8İ710:15060 :Z21İ810:15060 :Z$"X"į:!14040(7(7)(7):140602720,0:762:"YOU ARE CORRECT!":"DO YOU WISH TO GUESS A NEW NUMBER":"OR EXIT TO THE MENU? (N/X)":"SELECT BY LETTER ";<7Z$:Z$"N"Ĺ34,0:B((B)655341):14010F7Z$"X"į:34,0:P7(7):14130 :BIN TO DEC110:24010:D150::23010:H190::24010;6XB:PO2:410a6X0:CU5:CWCU:ML10:R1:34,20:6PO7:510:PS$PR$:PO12:410:XB141306PO7:610619,0:Z$:Z(Z$):Z8İ710:140607Z21İ810:14060 7Z$"X"į:7Z47Z58İ910:40,3(7):130606320,0:762:"YOU ARE CORRECT!":"DO YOU WISH TO GUESS A NEW NUMBER":"OR EXIT TO THE MENU? (N/X)":"SELECT BY LETTER ";@3Z$:Z$"N"Ĺ34,0:B((B)2541):13010J3Z$"X"Ĺ34,0::T3(7):131106HEX TO DEC)6::H2PR$(B):(PR$)3PR$(ZE$,3(PR$))PR$W2PO2:310:X0:CU8:CWCU:ML2:34,20:2PO7:205:310:PS$PR$:PO12:530:XB131102PO7:610319,0:Z$:Z(Z$):Z8İ710:130603Z21İ810:130603Z$"X"į:"3Z47Z50İ1100:130 ARE CORRECT!":"DO YOU WISH TO GUESS A NEW NUMBER":"OR EXIT TO THE MENU? (N/X)":"SELECT BY LETTER ";X/Z$:Z$"N"Ĺ34,0:B((B)2541):12010b/Z$"X"Ĺ34,0::l/(7):121102 DEC TO BCD2:D110:25020:C150:28020:D190::25020,PR$/.PO2:310:X0:CU8:CWCU:ML2:34,20:_/PO7:10:310:PS$PR$:PO12:530:XB12110m/PO7:610/19,0:Z$:Z(Z$):Z8İ710:12060&/Z21İ810:120600/Z$"X"į::/Z47Z50İ900:12040D/(7):12060gN/20,0:762:"YOUEW NUMBER":"OR EXIT TO THE MENU? (N/X)":"SELECT BY LETTER ";m+Z$:Z$"N"Ĺ34,0:B((B)655341):11010+Z$"X"Ĺ34,0::+(7):11130.DEC TO BIN.:D110:25020:B150:26010:D190::25020.PR$(B):(PR$)3PR$(ZE$,3(PR$))$:PO12:510:XB11130%*+PO7:610N4+19,0:Z$:Z(Z$):Z8İ710:11060dH+Z21İ810:11060uR+Z$"X"į:\+Z47Z58İ910:11040f+Z64Z71İ910:11040p+(7)(7):11060>z+20,0:762:"YOU ARE CORRECT!":"DO YOU WISH TO GUESS A N7040-X$"S"XX1:X0X255:4010:7040>X$"S"7040N(7):7070^*DEC TO HEX+:D110:23010:H150::24010:D190::23010 +PR$(B):(PR$)5PR$(ZE$,5(PR$))PR$+PO2:310:X0:CU4:CWCU:ML16:34,20: +PO7:410:PS$PRE":"NUMBER AND TO SUBTRACT FROM IT":35,20Hv25010:26010:27010iPO2:PR$(X):(PR$)27060PR$(ZE$,3(PR$))PR$:310:20:PO7:310:120:PO12:310(18):X$:X$"X"į::X$"A"XX1:X255X0:4010:7040X$"A"310!(18):X$:X$"X"į::IX$"A"XX1:X99X0:4010:6040ZX$"A"6040X$"S"XX1:X0X99:4010:6040X$"S"6040(7):6070X HEXbX$"255":X255:3100:CF0:BC0/l(21):"PRESS TO EXIT, TO ADD TO TH BCD'zX$"99":X99:3100:CF0:BC1(21):"PRESS TO EXIT, TO ADD TO THE":"NUMBER AND TO SUBTRACT FROM IT":35,2025010:26010:28010PO2:PR$(X):(PR$)26060PR$(ZE$,3(PR$))PR$:310:20:PO7:310:205:PO12:1572,115:52,9055,8775,87<12,8:"IJ":13,8:"KL"GCF1:N0~72,5052,5052,7572,75:52,5055,4775,477,8:" ":8,8:" "72,9052,9052,11572,115:52,9055,8775,8712,8:" ":13,8:" ""CF0:3:p\: Z%(Z$):Z%0Z%Xĺ(7);"NUMBER MUST BE BETWEEN 0 AND "X$:"PLEASE TRY AGAIN"::3120gD XZ%:~SET (CLEAR) CARRYCF04080BC1405072,5052,5052,7572,75:52,5055,4775,477,8:"IJ":8,8:"KL"72,9052,9052,1:C~MU1:YN0:I411:PS((PS$,I,1))O1:YYPSMU:MUMUML:eX9Y9ĺ(7);:PS$PT$:1140tXXY10: B$:(B$)223B$((B$)32)  :(2):"WHAT NUMBER DO YOU WISH TO START AT?"& "BETWEEN 0 AND "X$" "0 Z$:Z$""Z$"0"X99R3PS$PT$:(7):940%9LALTER CHAR BCDdVPT$PS$:CU1PS$Z$(PS$,CW1):1140`CUCWPS$(PS$,CW1)Z$:1140jLE$(PS$,CU1):RI$(PS$,CWCU):PS$LE$Z$RI$tMU1:ML2:XN0:I851:PS((PS$,I,1))O1:XXPSMU:MUMUMLUCWPS$(PS$,CW1)Z$:940PLE$(PS$,CU1):RI$(PS$,CWCU):PS$LE$Z$RI$MU1:XN0:I(PS$)11:PS((PS$,I,1))O1:PSO2PSPSO3XXPSMU:MUMUML:ML10ıX65535R1PS$PT$:(7):940X255R2PS$PT$:(7):940RIGHT*CUCWĺ(7):G4PO,CV:CH$(PS,N0):PO1,CV:CH$(PS,1)>CVCV3:CUCU1:PC$(PS$,CU,1):PS(PC$)O1:PSO2PSPSO3HPO,CV:" "CH$(PS,N0):PO1,CV:CH$(PS,1)"":ALTER CHARPT$PS$:CU1PS$Z$(PS$,CW1):940C,N0):PO1,CV:CH$(PS,1)"":5 MOVE CURSOR LEFTG CU1ĺ(7):v PO,CV:CH$(PS,N0):PO1,CV:CH$(PS,1) CVCV3:CUCU1:PC$(PS$,CU,1):PS(PC$)O1:PSO2PSPSO3 PO,CV:" "CH$(PS,N0):PO1,CV:CH$(PS,1)"": MOVE CURSOR R$))PR$ 310  FIX DECS PR$(X):(PR$)5PR$(ZE$,5(PR$))PR$:310\ 310 PR$(X):(PR$)3PR$(ZE$,3(PR$))PR$:310 310 XPRINT CURSOR bCVCUN3N8:PC$(PS$,CU,1):PS(PC$)O1:PSO2PSPSO3 lPO,CV:" "CH$(PSPSO2PSPSO3K @KIN3N8:PO,K:CH$(PS,N0):PON1,K:CH$(PS,N1)::a  LONG DEC TO HEX PR$"":YX:XN0PR$"0000":310 Z(Y16):Z%Y(16Z):Z%9PR$(Z%55)PR$:440 PR$(Z%)PR$ YZ:ZN0ī420 (PR$)4PR$(ZE$,4(P1"PR$ Y1Z%:Y1N0215D (PR$)N4PR$(ZE$,N4(PR$))PR$l ZY2N2:Z%Z:ZZ%PR$"0"PR$:245| PR$"1"PR$ Y2Z%:Y2N0235 (PR$)N8PR$(ZE$,N8(PR$))PR$: , PRINT STRING 6I(PR$)N11:PS((PR$,I,N1))O1:Z%9PR$(Z%55):150$ PR$(Z%)Q Z%Y(Z%16):Z%9PR$PR$(Z%55):170c PR$PR$(Z%)} (PR$)2PR$"0"PR$ DEC TO BCD XN0PR$ZE$: Y2(X10):Y1(X(Y210)):PR$"" ZY1N2:Z%Z:ZZ%PR$"0"PR$:225 PR$"O) 20000( DEC TO BIN CONVERSIONGYX:PR$"":XN0PR$ZE$:m(ZYN2:Z%Z:Z%ZPR$"0"PR$:60}2PR$"1"PR$<YZ%:Z%N040P(PR$)N8ıZPR$(ZE$,N8(PR$))PR$:n DEC TO HEXxPR$"":YX:XN0PR$"00": Z%Y16:            08:DiÃ209,210,211,212:E5iÃ213,214,215,216:F>i`765Iij216,0OitXLZ%ZPR$"0"PR$:60}2PR$"1"PR$<YZ%:Z%N040P(PR$)N8ıZPR$(ZE$,N8(PR$))PR$:n DEC TO HEXxPR$"":YX:XN0PR$"00": Z%Y16:EEhxÃ177,178,179,180:FOUR8hÃ181,182,183,184:FIVERhÃ185,186,187,188:SIXnhÃ189,190,191,192:SEVENhÃ225,226,227,228:EIGHThÃ229,230,231,232:NINEhÃ193,194,195,196:AhÃ197,198,199,200:BhÃ201,202,203,204:CiÃ205,206,207,2136,C1136,C2:160,C3157,C1157,C2:181,C3178,C1178,C2:202,C3199,C1199,C2:222,C3220,C1220,C2:159,C3156,C1156,C2:161,C3158,C1158,C2gmgPÃ217,218,163,164:ZEROgZÃ165,166,167,168:ONEgdÃ169,170,171,172:TWOhnÃ173,174,175,176:THRH23115,H2:97,H394,H194,H2$fi4f`m PRINT BCD@fjmC190:UftmC2C125:C3C13]f~m:kfm"EFIJMN"yfm"GHKLOP"fm73,C1241,C1241,C273,C273,C176,C3244,C3241,C1:244,C3244,C23241,C2:97,C394,C194,C2:118,C3115,C1115,C2gm139,C30,B3157,B1157,B2:181,B3178,B1178,B2Xee202,B3199,B1199,B2:223,B3220,B1220,B2^eemexiPRINT HEXyeiH190:eiH2H125:H3H13ei:ei" IJ QR UV "ei" KL ST WX "fi73,H1115,H1115,H273,H273,H176,H3118,H3115,H1:118,H3118,115,D1115,D2da#dePRINT BIN/deB150:DdeB2B125:B3B13Lde:\de"EF MNQR "lde"GH OPST "(ee73,B1241,B1241,B273,B273,B176,B3244,B3241,B1:244,B3244,B23241,B2:97,B394,B194,B2:118,B3115,B1115,B2:139,B3136,B1136,B2:1694,H194,H2:118,H3115,H1115,H2:139,H3136,H1136,H2>c]Nca PRINT DEC[ca:D110pcaD2D125:D3D13xca:ca"MNQRIJ"ca"OPSTKL"da73,D1136,D1136,D273,D273,D176,D3139,D3136,D1:139,D3139,D23136,D2:97,D394,D194,D2:118,D3,D394,D194,D2:118,D3115,D1115,D2:139,D3136,D1136,D2:160,D3157,D1157,D2WbZhb]PRINT HEX 2}b]H2H125:H3H13b]:b]" IJ QR UV "b]" KL ST WX 8c]73,H1157,H1157,H273,H273,H176,H3160,H3157,H1:160,H3160,H23157,H2:97,H3 wish to exit"1aV"this program? (Y/N) ";:3000?aVB$"N"ıYaVB$"Y"ĺ(7):22010aa"V:raYPRINT DEC 2aYD2D125:D3D13aY:aY"MNQRIJ"aZ"OPSTKL"Qb Z73,D1178,D1178,D273,D273,D176,D3181,D3178,D1:181,D3181,D23178,D2:97X"ı"`bRB(B$):B0ĺ(7):210108`lRB6ĺ(7):21010[`vRB1B4B(((78))655341)|`RB2B5B(((78))2541)`RB3B6B(((78))981)`R(B$)11010,12010,13010,14010,15010,16010`R21010`U ENDaU:762::"Are you sure youR EXERCISES_R:(2):(10):_R:"EXERCISE MENU":::b_&R5)"Dec to Hex..1 Hex to Dec..4":_0R5)"Dec to Bin..2 Bin to Dec..5":_:R5)"Dec to BCD..3 BCD to Dec..6":_DR5)"eXit to main menu..X"::_NR5)"Select by number ";`XRB$:B$"..H"%^N:9)"Exercises..........E"F^N:9)"eXit program.......X"g^N::8)"Select by letter ";^N3000:B$""ĺ(7):20150^NB$"H"İ7010:20150^OB$"B"İ6010:20150^OB$"E"İ21000:20150^OB$"X"İ22010:20150^$O(7):20150 _X0:Z%X:N33:Y1X:Y2X:N0X:N22:O148:O210:O37:N11:N44:N88P]zNCH$(16,2)\]NI015g]NJ01]NX,Y:CH$(I,J)(X)(Y)]N:]NZE$"00000000"]N:(2):(10)::"MAIN MENU":]N::9)"Dec, Bin & BCD.....B"^N:9)"Dec, Bin & Hex...(7):16110#\ N::230,32:228,127C\*ND$(4):D$"PR#0":D$"IN#0"X\4ND$"NOMONC,I,O":~\>N(4):8)"HEX, BCD, BINARY TUTOR"\HN:8)"by"\RN:8)"Malcolm Whapshott"\\N:8)"COPYRIGHT (C) 1983"\fND$"BRUN LOMEM:":16384:(4)"BRUN CHAT2"A]pN:Z$"X"į:&[>Z47Z58İ900:160407[>(7):16060[>20,0:762:"You are correct!":"Do you wish to guess a new number":"or exit to the menu? (N/X)":"Select by letter ";[>Z$:Z$"N"Ĺ34,0:B((B)2541):16010[?Z$"X"į:34,0: \ ?>BCD TO DEC?Z>:C110:28020:D150::25020:C190::28020VZ>XB:PO2:210:310|Z>X0:CU3:CWCU:ML10:R3:34,20:Z>PO7:530:PS$PR$:PO12:205:310:XB16110Z>PO7:610Z>19,0:Z$:Z(Z$):Z8İ710:16060Z>Z21İ810:16060 [>Y:Z47Z58İ910:15040*Y:(7):15060Y;20,0:762:"You are correct!":"Do you wish to guess a new number":"or exit to the menu? (N/X)":"Select by letter ";Y;Z$:Z$"N"Ĺ34,0:B((B)2541):15010Y;Z$"X"į:34,0:Y$;(7):15110 ZC3X::B110:26020:D150::25020:B190::26020IX:XB:PO2:20:310oX:X0:CU3:CWCU:ML10:R2:34,20:X:PO7:530::PS$PR$:PO12:20:310:XB15110X:PO7:610X:19,0:Z$:Z(Z$):Z8İ710:15060X:Z21İ810:15060X:Z$"X"į::14040W(7(7)(7):14060W2720,0:762:"You are correct!":"Do you wish to guess a new number":"or exit to the menu? (N/X)":"select by letter ";W<7Z$:Z$"N"Ĺ34,0:B((B)655341):14010WF7Z$"X"į:34,0:WP7(7):14130X:BIN TO DEH110:24010:D150::23010:H190::24010 to subtract from it":35,20INv25010:26010:27010jNPO2:PR$(X):(PR$)27060NPR$(ZE$,3(PR$))PR$:N310:20:PO7:310:120:PO12:310N(18):X$:X$"X"į::NX$"A"XX1:X255X0:4010:7040OX$"A":310"M(18):X$:X$"X"į::JMX$"A"XX1:X99X0:4010:6040[MX$"A"6040MX$"S"XX1:X0X99:4010:6040MX$"S"6040M(7):6070MX HEXMbX$"255":X255:3100:CF0:BC00Nl(21):"Press to exit, to add to tp BCD(LzX$"99":X99:3100:CF0:BC1L(21):"Press to exit, to add to the":"number and to subtract from it":35,20L25010:26010:28010LPO2:PR$(X):(PR$)26060LPR$(ZE$,3(PR$))PR$:M310:20:PO7:310:205:PO1211572,115:52,9055,8775,87=K12,8:"IJ":13,8:"KL"HKCF1:OK0K72,5052,5052,7572,75:52,5055,4775,47K7,8:" ":8,8:" "K72,9052,9052,11572,115:52,9055,8775,87K12,8:" ":13,8:" "K"CF0:3:L"]J: Z%(Z$):Z%0Z%Xĺ(7);"NUMBER MUST BE BETWEEN 0 AND "X$:"PLEASE TRY AGAIN"::3120hJD XZ%:JSET (CLEAR) CARRYJCF04080JBC14050J72,5052,5052,7572,75:52,5055,4775,47J7,8:"IJ":8,8:"KL"K72,9052,9052,:CI~MU1:YN0:I411:PS((PS$,I,1))O1:YYPSMU:MUMUML:eIX9Y9ĺ(7);:PS$PT$:1140tIXXY10:I B$:(B$)223B$((B$)32)I I :(2):"What number do you wish to start at?"I& "between 0 and "X$" ";J0 Z$:Z$""Z$"0HX99R3PS$PT$:(7):940%H9HLALTER CHAR BCDdHVPT$PS$:CU1PS$Z$(PS$,CW1):1140H`CUCWPS$(PS$,CW1)Z$:1140HjLE$(PS$,CU1):RI$(PS$,CWCU):PS$LE$Z$RI$ItMU1:ML2:XN0:I851:PS((PS$,I,1))O1:XXPSMU:MUMUMLUCWPS$(PS$,CW1)Z$:940PGLE$(PS$,CU1):RI$(PS$,CWCU):PS$LE$Z$RI$GMU1:XN0:I(PS$)11:PS((PS$,I,1))O1:PSO2PSPSO3GXXPSMU:MUMUML:GML10ıGX65535R1PS$PT$:(7):940GX255R2PS$PT$:(7):940RIGHTF*CUCWĺ(7):GF4PO,CV:CH$(PS,N0):PO1,CV:CH$(PS,1)F>CVCV3:CUCU1:PC$(PS$,CU,1):PS(PC$)O1:PSO2PSPSO3FHPO,CV:" "CH$(PS,N0):PO1,CV:CH$(PS,1)"":FALTER CHARFPT$PS$:CU1PS$Z$(PS$,CW1):940GC,N0):PO1,CV:CH$(PS,1)"":5EMOVE CURSOR LEFTGECU1ĺ(7):vEPO,CV:CH$(PS,N0):PO1,CV:CH$(PS,1)ECVCV3:CUCU1:PC$(PS$,CU,1):PS(PC$)O1:PSO2PSPSO3EPO,CV:" "CH$(PS,N0):PO1,CV:CH$(PS,1)"":F MOVE CURSOR R$))PR$D310D FIX DECSDPR$(X):(PR$)5PR$(ZE$,5(PR$))PR$:310\D310DPR$(X):(PR$)3PR$(ZE$,3(PR$))PR$:310D310DXPRINT CURSORDbCVCUN3N8:PC$(PS$,CU,1):PS(PC$)O1:PSO2PSPSO3ElPO,CV:" "CH$(PSPSO2PSPSO3KC@KIN3N8:PO,K:CH$(PS,N0):PON1,K:CH$(PS,N1)::aC LONG DEC TO HEXCPR$"":YX:XN0PR$"0000":310CZ(Y16):Z%Y(16Z):Z%9PR$(Z%55)PR$:440CPR$(Z%)PR$CYZ:ZN0ī420D(PR$)4PR$(ZE$,4(P1"PR$BY1Z%:Y1N0215DB(PR$)N4PR$(ZE$,N4(PR$))PR$lBZY2N2:Z%Z:ZZ%PR$"0"PR$:245|BPR$"1"PR$BY2Z%:Y2N0235B(PR$)N8PR$(ZE$,N8(PR$))PR$:BB, PRINT STRINGC6I(PR$)N11:PS((PR$,I,N1))O1:Z%9PR$(Z%55):150$APR$(Z%)QAZ%Y(Z%16):Z%9PR$PR$(Z%55):170cAPR$PR$(Z%)}A(PR$)2PR$"0"PR$AA DEC TO BCDAXN0PR$ZE$:AY2(X10):Y1(X(Y210)):PR$""AZY1N2:Z%Z:ZZ%PR$"0"PR$:225BPR$"P) @20000(@ DEC TO BIN CONVERSIONG@YX:PR$"":XN0PR$ZE$:m@(ZYN2:Z%Z:Z%ZPR$"0"PR$:60}@2PR$"1"PR$@<YZ%:Z%N040@P(PR$)N8ı@ZPR$(ZE$,N8(PR$))PR$:@n DEC TO HEX@xPR$"":YX:XN0PR$"00":AZ%Y16:              ɤ S:; s;:ȑ`HhQ0:P 'LhPQ 'L.: VȄQP 'LқH$ PQ $h`PQ $8$ Jh`ɰ`"ʚ`hh` ~I ~`,0`4Y X G  G 4 G  G @ c h4e@@A sL5ɤɰɺ)۰`8`Aȑ` g RP:Q; ' J ; : H: H:  J/Ȑh,--&,*i  J/X.ɤ  &B&C= G4ݴ Gݺ ɤ4&D L s?ȱ>X@?5=D 5 5 D4 GLLF O `  Y`` ߥ`L j$``e8 ``4HȄ@>?X H c h ALyJ[?>ʊ:>Ș;A/=: S;:,= BC D..=D5֩A s 5/ȄA s 5LܛHA c A shAL5 M c AY= M !иH GɻhLᙤ4hL G `>````````ɝ8S'LLZ@JolLԧL `L: ީ $⩿3 jH 9hH R nh` A M } L\    LOCKEDZ)" "F$" IS LOCKED, PLEASE RE-RUN THIS":"OPTION USING ANOTHER FILE NAME":60620g) SYNTAX)" "F$" IS ILLEGAL, PLEASE":"RE-RUN THIS OPTION USING ANOTHER FILE NAME":60620202060620UT OF RANGE AT ADDRESS*";::L Y0Y2BAR TO CONTINUE";:Z$:,( FILE NOT FOUNDN("UNABLE TO LOAD "F$::60620g( FILE TYPE MISMATCH("THE FILE IS THE WRONG TYPE"::60620(H DISK FULL(R"THIS DISK IS FULL, PLEASE RE-RUN THIS":"OPTION WITH ANOTHER DISK"::60520) FILE TEMPTING RECOVERY"'|:1103' WRITE PROTECTEDX'"THE DISK IS WRITE PROTECTED":'"PRESS THE BAR TO RETURN TO"'"OPTIONS MENU";:Z$:' I/O ERROR'&"DISK PROBLEMS, Pͨèڪ2èͪ22e2ۨHE 810: FILE NOT FOUND:&ER1360910: FILE TYPE MISMATCHV&ER961010: DISK FULLu&ER1061110: FILE LOCKED&ER1161210: SYNTAX ERROR&216,0:&T BAD SUBSCRIPT&^AD2AD2&hED2ED21:'r"NUMBER OF LABELS EXESSIVE..":"AT:6000%Z$"X"ė:5110*%(7):60000%_E%` ERROR HANDLINGT%j756:(7)w%tER(222):EL(218)(219)256%~ER255Ĺ216,0:%ER10760510%ER0ER15Ĺ216,0:%ER460610: WRITE PROTECT%ER860710: I/O ERROR&ER6609)"LIST ON PRINTER.....P":E$9)"EXIT TO MAIN MENU...X":::j$7)"TYPE IN CHOICE REQUIRED ";t$2360$Z$"I"İ1780:6000$Z$"M"ė:151:6000$Z$"D"İ2390:6000$Z$"P"İ2020:6000$Z$"L"İ2580:6000%Z$"S"İ2640#nZ$"X"ĺ(7):5110)#x2720:5110Q#p::(10):"OTHER FUNCTIONS MENU":u#z:9)"INSERT/MOVE CODE....I":#9)"LOAD PROGRAM........L":#9)"SAVE PROGRAM........S":#9)"MONITOR.............M":#9)"'BASIC' DATA........D":$.....L":+"9)"RUN PROGRAM.........R":M"9)"OTHER FUNCTIONS.....O":s"(9)"EXIT................X":::"27)"TYPE IN CHOICE REQUIRED ";"<2360"FZ$"E"İ1020:5070"PZ$"L"İ190:5110"ZZ$"R"İ1420:5110#dZ$"O"6000:5110M WHAPSHOTT" !D$"BRUN BLMET"4!:D$(13)(4)J!D125:D220:D310!X$(D1),F$(D2),F(D2),K$(D2),K(D2),K1(D2),M$(D3),M(D3),M1(D3)!DD$"0123456789ABCDEF"!::(15):"MAIN MENU":!:9)"ENTER PROGRAM.......E": " 9)"LIST PROGRAM...OG": :60010::  APPLE ][ ASSEMBLER VERSION 1.0 D$(4):D$"NOMON C,I,O":D$"PR#0":D$"IN#0": TURN ON 40 COL. SCREEN AND K'BOARD :(6)::(11):" APPLE ][ ASSEMBLER ": (10):" COPYRIGHT (C) 1983" !:" MALCOLD CONFUSION"::1000:2670F LE%EASA1::D$"BSAVE"F$",A"SA",L"LE%L ^ END ROUTINE ::753:"ARE YOU SURE (Y/N)? ";:2360:Z$"N"ı Z$"Y"ė: (7);:2730 PRINT CATALOG F$""ġ: (F$,1)"?"ı F$"":D$"CATAL;F$ F P SAVE PROGHZ ::"WHAT IS THE NAME OF THE PROGRAM YOU"td "WISH TO SAVE ";:F$:2760:F$""2650n :"ENTER START ADDRESS ";:2210:SAC:IV%HL12670x :"ENTER END ADDRESS ";:2210:EAC:IV%HL12680 EASA1ĺ::"START/ENNOMONC,I,O"4 "DATA STATEMENTS NOW ENTERED":1000i :"LINE NUMBER HAS EXEEDED 63999 ";:2360:2550y LOAD PROG ::"WHAT IS THE NAME OF THE FILE YOU WISH"( "TO LOAD ";:F$:2760:F$""25902 (F$,1)"A"ĺ(7):2590< :D$"BLOAD ":"TO CONTINUE":2360A D$"OPEN "F$:D$"DELETE"F$:D$"OPEN "F$O D$"MONO"` D$"WRITE"F$ Z$(A)"DATA":EBB15:F(E):Z$Z$(F):ECE1B16Z$Z$",":2540 EB16 :Z$:BB16:AA10:A639992570:BC2520  D$"CLOSE"F$:D$":"END ADDRESS OF DATA";:2210:IV%2430b CBĞ:"*START/END ADDRESS CONFUSION*:NORMAL:GOTO50 :"WHAT FILE NAME DO YOU WISH TO USE?":F$:2760:F$""2450 (F$)25F$(F$,25) F$F$".DATA" :"INSERT CORRECT DISK THEN PRESS ANY KEY"O$,DI%):8 Z$:Z$""2360:B (Z$)95Z$((Z$)95)@L WV DATA STATEMENTS_` D0j ::"LINE NUMBER OF FIRST DATA STATEMENT";A:A60000A10Ğ:"*LINE NUMBER OUT OF RANGE*"::2410t :"START ADDRESS OF DATA";:2210:BC:IV%2420(~ HAHA7:HA10HA1523203HA0C16CHA:HIK IV%C65536:IV%ı :::"*NO SUCH ADDRESS AS ";::HI$;::" ON AN APPLE *"::C0:1000 HO$"":DI%42(DI256)$ DIDA(DI16):HO$(DD$,1DI16DA,1)HO$:DIDA:2340 . HO$("000"HO CONTINUE"2360)"? ";HI$;HL(HI$):C0IHL0ġ:t(HI$)36HLHL1:HI$(HI$,HL):2280HI1HL:HA((HI$,HI,1))48IV%(HA0HA9):IV%HIHL1::2320:C(HI$):2310HI1HL:HA((HI$,HI,1))48HA9*" ----------]-----------]--------".4C%LI>759,C%,C%:C%EN2130SH2110R" -----------1-----------1--------------"\D$"PR#0"f::::::::10)"OK-PROGRAM LISTED":::::p2180:6000z2180:5110 5)"PRESS ANY KEY THI$:A:(6):"PUT IN PROGRAM START ADDRESS";:2210:IV%2020ILC(11):" ....... AND THE END ADDRESS";:2210:IV%2040ENC:PR1:Y0 D$"PR#1"" ADDRESS ] MACHINE ] ASSEMBLY CODE" " DECML HEX ] CODE ] PROGRAM"%S FOR INSERTION";:2210:IV%1940*SIC[:"END OF CURRENT PROGRAM";:2210:IV%1960dEAC:" LENGTH OF INSERTION";:2210IV%1980LIC:MPSILI1900:::::"OK-SPACE INSERTED":::"PRESS THE BAR TO CONTINUE ";:%1850DEAC=N" NEW "::"START"::"ADDRESS OF BLOCK"pX" ....... I.E. AFTER MOVE ";:2210:IV%1870ybMPClYEASI1:XEASI1:YY1vNO(X):(MPY),NO:Z$"I"ı::::12)"OK - BLOCK MOVED":2010!:" START ADDRESERT..I:MOVE..M"2360FZ$"I"ĺ:::"INSERT SELECTED"::1940qZ$"M"ĺ:::"MOVE SELECTED"::1830{1790&" OLD ";::"START";::" ADDRESS OF BLOCK";:2210:IV%18300SIC:" OLD "::"END"::" ADDRESS OF BLOCK";:2210:IV1:K$(EA1)K$(Z)(NM)&K(EA1)LY9K1(EA1)K1(Z)P::LLY1:EEA1A2%L256:A1%L256A2%:58,A1%:59,A2%:1050NMNM1M$(NM)X$:M(NM)L:1050M1(NM)L1:1050EE1:K$(E)AD$:K1(E)BC%:K(E1)L1::::"INS:CM01730"A109,A20:Y1:XM(CM)M1(CM):YY1D6Z1AV@XF(Z)1630wJA1A11:F$(AA1)F$(Z)(NM)TF(AA1)LY:ZA:A2A21^hK(X):LY,K::AAA2rA10:Y1:XM(CM)M1(CM):YY1|Z1EXK(Z)1710A1A1"@"I1:1480$AA1:Z$"+"1510J(7)"UNDEFINED LABEL TYPE":1050`DD1:X$(LB$,D)F$(A)X$:I0F(A)L:1090HI$OC$:2220:F(A)C:1050DD1:X$(LB$,D)X$"END"1750X1NMX$M$(X)CM0:1560CMX:XNM 770!dA%F(Z)65536:ZA::1770Cn(68)3(68)0A%255:1770[xL32768A%L:1770pA%L65536:1770:::"ENTER PROGRAM START ADDRESS";:2210:IV%HI11420:(C):(18):1000AA1:I0:D(LB$):Z$(LB$,1):Z$"*"1480 Z$7)"BRANCH OUT OF RANGE":10504(LB$,1)"@"1440U(7)"ILLEGAL OP-CODE":1050v( ADDRESS PROCESSING ROUTINE2(AD$,1)"@"1360<HI$AD$:2220:C32768A%C:FA%C65536:PZ1A:F$(Z)AD$Ă:1390ZF(Z)32768A%F(Z):ZA::1 (7)"EXTRA INPUT":1050, IV%21280C (LB$,1)"+"1440M (7)x (LB$,1)"*"ĺ"OP-CODE MISSING":1050 (LB$,1)"@"ĺ"ADDRESS MISSING":1050 "UNDIFINED LABEL TYPE":1050 IV%1ĺ"ILLEGAL RELATIVE FORMAT":1050 IV%5ĺ(BC%1 `IV%01220, jL%1LL%:1150; tLL%65536Y ~IV%0(AD$,1)"@"İ1760w IV%1170,1180,1190:1050 (7)"FORMAT NOT COMPATABLE":1050 (7)"BRANCH OUT OF RANGE":1050 OC$"END"ĺ(7)"UNRECOGNISED OP-CODE":1050 110 NOW":; "START ADDRESS ";:2210:::LC:IV%HL11020g A2%L256:A1%L256A2%:58,A1%:59,A2% 68,0:765:X$,LB$,OC$,AD$,IV% $OC$"END"110 .IV%01220 8LB$""1440 BAD$""İ1320 LAD$""A%0 V762,A%,IV%,BC%,L%:BC%250+ :" PRESS FOR MENU OR FOR"M 9)"CONTINUATION LISTING ";W "2360l ,Z$"C"Y0:230 6Z$"X"ĺ(7):290 @Y0::(4): :(6):"PRESS ANY KEY TO CONTINUE ";:2360:: 2360: ::" ENTER ASSEMBLY LANGUAGE PROGRAM56Y L,Y :: :Y " ENTER START ADDRESS ";:2210:LC:Y0:IV%HL1190p C32768C%C:230 C%C65536 ::" ADDRESS MACHINE ASSEMBLY CODE" "DEC HEX CODE PROGRAM" YY1:Y18270 759,C%,C%:! d50000nEA6ĺ:"WORKING..PLEASE WAIT"TxX1E:Z1A:K$(X)F$(Z)180LK(X):ADF(Z):K1(X)1A2%AD256:A1%AD256A2%:L1,A2%:L,A1%:180YADL1:Y130Y127160:(7)"*BRANCH OUT OF RANGE AT ADDRESS*";::L Y0Y2            HER DISK"::60520$) FILE LOCKEDx)" "F$" IS LOCKED, PLEASE RE-RUN THIS":"OPTION USING ANOTHER FILE NAME":60620) SYNTAX)" "F$" IS ILLEGAL, PLEASE":"RE-RUN THIS OPTION USING ANOTHER FILE NAME":60620AME":60620D:L Y0Y2"::5(0"PRESS THE BAR TO CONTINUE";:Z$:J( FILE NOT FOUNDl("UNABLE TO LOAD "F$::60620( FILE TYPE MISMATCH("THE FILE IS THE WRONG TYPE"::60620(H DISK FULL)R"THIS DISK IS FULL, PLEASE RE-RUN THIS":"OPTION WITH ANOTBER OF LABELS EXESSIVE..":"ATTEMPTING RECOVERY";'|:110Q' WRITE PROTECTEDv'"THE DISK IS WRITE PROTECTED":'"PRESS THE BAR TO RETURN TO"'"OPTIONS MENU";:Z$:' I/O ERROR(&"DISK PROBLEMS, PLEASE CHECK YOUR":"DISK DRIVE60710: I/O ERROR2&ER660810: FILE NOT FOUNDX&ER1360910: FILE TYPE MISMATCHt&ER961010: DISK FULL&ER1061110: FILE LOCKED&ER1161210: SYNTAX ERROR&216,0:&T BAD SUBSCRIPT&^AD2AD2&hED2ED21:0'r"NUMİ2580:6000$%Z$"S"İ2640:60008%Z$"X"ė:5110H%(7):6000N%_c%` ERROR HANDLINGr%j756:(7)%tER(222):EL(218)(219)256%~ER255Ĺ216,0:%ER10760510%ER0ER15Ĺ216,0:%ER460610: WRITE PROTECT&ER89)"'BASIC' Data........D":=$9)"List on printer.....P":c$9)"eXit to main menu...X":::$7)"Type in choice required ";$2360$Z$"I"İ1780:6000$Z$"M"ė:151:6000$Z$"D"İ2390:6000$Z$"P"İ2020:6000 %Z$"L"0:5110#dZ$"O"6000:51107#nZ$"X"ĺ(7):5110G#x2720:5110o#p::(10):"OTHER FUNCTIONS MENU":#z:9)"Insert/move code....I":#9)"Load program........L":#9)"Save program........S":#9)"Monitor.............M":$.E":'" 9)"List program........L":I"9)"Run program.........R":k"9)"Other functions.....O":"(9)"eXit................X":::"27)"Type in choice required ";"<2360"FZ$"E"İ1020:5070"PZ$"L"İ190:5110#ZZ$"R"İ1421983"*!:" MALCOLM WHAPSHOTT">!D$"BRUN BLMET"R!:D$(13)(4)h!D125:D220:D310!X$(D1),F$(D2),F(D2),K$(D2),K(D2),K1(D2),M$(D3),M(D3),M1(D3)!DD$"0123456789ABCDEF"!::(15):"MAIN MENU":":9)"Enter program......"?"ı# F$"":D$"CATALOG":X$:3 :60010:X  APPLE ][ ASSEMBLER VERSION 1.0 D$(4):D$"NOMON C,I,O":D$"PR#0":D$"IN#0": TURN ON 40 COL. SCREEN AND K'BOARD :(6)::(11):" APPLE //E ASSEMBLER":!(10):" COPYRIGHT (C)  EASA1ĺ::"START/END CONFUSION"::1000:2670` LE%EASA1::D$"BSAVE"F$",A"SA",L"LE%f x END ROUTINE ::753:"Are you sure (Y/N)? ";:2360:Z$"N"ı Z$"Y"ė: (7);:2730 PRINT CATALOG F$""ġ: (F$,1)7):2590< :D$"BLOAD ";F$#F 3P SAVE PROGbZ ::"WHAT IS THE NAME OF THE PROGRAM YOU"d "WISH TO SAVE ";:F$:2760:F$""2650n :"Enter start address ";:2210:SAC:IV%HL12670x :"Enter end address ";:2210:EAC:IV%HL1268042520% D$"CLOSE"F$:D$"NOMONC,I,O"N "DATA STATEMENTS NOW ENTERED":1000 :"LINE NUMBER HAS EXEEDED 63999 ";:2360:2550 LOAD PROG ::"What is the name of the file you wish"( "to load ";:F$:2760:F$""25902 (F$,1)"A"ĺ(T DISK THEN PRESS ANY KEY":"TO CONTINUE":2360[ D$"OPEN "F$:D$"DELETE"F$:D$"OPEN "F$i D$"MONO"z D$"WRITE"F$ Z$(A)"DATA":EBB15:F(E):Z$Z$(F):ECE1B16Z$Z$",":2540 EB16 :Z$:BB16:AA10:A639992570:BC:2210:BC:IV%2420B~ :"End address of DATA";:2210:IV%2430| CBĞ:"*START/END ADDRESS CONFUSION*:NORMAL:GOTO50 :"What file name do you wish to use?":F$:2760:F$""2450 (F$)25F$(F$,25) F$F$".DATA"/ :"INSERT CORREC$,DI%):8 Z$:Z$""23609B (Z$)95Z$((Z$)95)?L VV DATA STATEMENTS^` D0j ::"Line number of first DATA statement?":A$:A(A$):A60000A10Ğ:(7)"*LINE NUMBER OUT OF RANGE*"::I11000::2410t :"Start address of DATA";HAHA7:HA10HA1523202HA0C16CHA:HIJ IV%C65536:IV%ı :::"*NO SUCH ADDRESS AS ";::HI$;::" ON AN APPLE *"::C0:1000 HO$"":DI%42(DI256)$ DIDA(DI16):HO$(DD$,1DI16DA,1)HO$:DIDA:2340. HO$("000"HO continue"2360("? ";HI$:HL(HI$):C0HHL0ġ:s(HI$)36HLHL1:HI$(HI$,HL):2280HI1HL:HA((HI$,HI,1))48IV%(HA0HA9):IV%HIHL1::2320:C(HI$):2310HI1HL:HA((HI$,HI,1))48HA9" ----------]-----------]--------"-4C%LH>759,C%,C%:C%EN2130RH2110R" -----------1-----------1--------------"\D$"PR#0"f::::::::10)"OK-PROGRAM LISTED":::::p2180:6000z2180:5110 5)"Press any key toI$:@:(6):"Put in program start address";:2210:IV%2020HLC(11):" ....... And the end address";:2210:IV%2040ENC:PR1:Y0 D$"PR#1"" ADDRESS ] MACHINE ] ASSEMBLY CODE" " DECML HEX ] CODE ] PROGRAM"$* for insertion";:2210:IV%1940)SICZ:"End of current program";:2210:IV%1960cEAC:" Length of insertion";:2210IV%1980LIC:MPSILI1900:::::"OK-SPACE INSERTED":::"Press the bar to continue ";:H1850DEAC<N" New "::"START"::"address of block"oX" ....... i.e. after move ";:2210:IV%1870xbMPClYEASI1:XEASI1:YY1vNO(X):(MPY),NO:Z$"I"ı::::12)"OK - BLOCK MOVED":2010 :" Start addressrt..I:Move..M"2360EZ$"I"ĺ:::"INSERT SELECTED"::1940pZ$"M"ĺ:::"MOVE SELECTED"::1830z1790&" Old ";::"START";::" address of block";:2210:IV%18300SIC:" Old "::"END"::" address of block";:2210:IV%:K$(EA1)K$(Z)(NM)%K(EA1)LY8K1(EA1)K1(Z)O::LLY1:EEA1A2%L256:A1%L256A2%:58,A1%:59,A2%:1050NMNM1M$(NM)X$:M(NM)L:1050M1(NM)L1:1050EE1:K$(E)AD$:K1(E)BC%:K(E1)L1::::"Inse:CM01730"A108,A20:Y1:XM(CM)M1(CM):YY1C6Z1AU@XF(Z)1630vJA1A11:F$(AA1)F$(Z)(NM)TF(AA1)LY:ZA:A2A21^hK(X):LY,K::AAA2rA10:Y1:XM(CM)M1(CM):YY1|Z1EXK(Z)1710A1A11@"I1:1480#AA1:Z$"+"1510I(7)"UNDEFINED LABEL TYPE":1050_DD1:X$(LB$,D)~F$(A)X$:I0F(A)L:1090HI$OC$:2220:F(A)C:1050DD1:X$(LB$,D)X$"END"1750X1NMX$M$(X)CM0:1560CMX:XNM 770!dA%F(Z)65536:ZA::1770Cn(68)3(68)0A%255:1770[xL32768A%L:1770pA%L65536:1770:::"Enter program start address";:2210:IV%HI11420:(C):(18):1000AA1:I0:D(LB$):Z$(LB$,1):Z$"*"1480 Z$"7)"BRANCH OUT OF RANGE":10504(LB$,1)"@"1440U(7)"ILLEGAL OP-CODE":1050v( ADDRESS PROCESSING ROUTINE2(AD$,1)"@"1360<HI$AD$:2220:C32768A%C:FA%C65536:PZ1A:F$(Z)AD$Ă:1390ZF(Z)32768A%F(Z):ZA::1 (7)"EXTRA INPUT":1050, IV%21280C (LB$,1)"+"1440M (7)x (LB$,1)"*"ĺ"OP-CODE MISSING":1050 (LB$,1)"@"ĺ"ADDRESS MISSING":1050 "UNDIFINED LABEL TYPE":1050 IV%1ĺ"ILLEGAL RELATIVE FORMAT":1050 IV%5ĺ(BC%1 `IV%01220, jL%1LL%:1150; tLL%65536Y ~IV%0(AD$,1)"@"İ1760w IV%1170,1180,1190:1050 (7)"FORMAT NOT COMPATABLE":1050 (7)"BRANCH OUT OF RANGE":1050 OC$"END"ĺ(7)"UNRECOGNISED OP-CODE":1050 110 NOW":; "START ADDRESS ";:2210:::LC:IV%HL11020g A2%L256:A1%L256A2%:58,A1%:59,A2% 68,0:765:X$,LB$,OC$,AD$,IV% $OC$"END"110 .IV%01220 8LB$""1440 BAD$""İ1320 LAD$""A%0 V762,A%,IV%,BC%,L%:BC%250+ :" Press for MENU or for"M 9)"continuation listings ";W "2360l ,Z$"C"Y0:230 6Z$"X"ĺ(7):290 @Y0::(4): :(6):"PRESS ANY KEY TO CONTINUE ";:2360:: 2360: ::" ENTER ASSEMBLY LANGUAGE PROGRAM56Y L,Y :: :Y " ENTER START ADDRESS ";:2210:LC:Y0:IV%HL1190p C32768C%C:230 C%C65536 ::" ADDRESS MACHINE ASSEMBLY CODE" "DEC HEX CODE PROGRAM" YY1:Y18270 759,C%,C%:! d50000nEA6ĺ:"WORKING..PLEASE WAIT"TxX1E:Z1A:K$(X)F$(Z)180LK(X):ADF(Z):K1(X)1A2%AD256:A1%AD256A2%:L1,A2%:L,A1%:180YADL1:Y130Y127160:(7)"*BRANCH OUT OF RANGE AT ADDRESS*";::L Y0Y2            LժժԪ(@*UժժժժT*ժԪժժT*(U*ժժժT*U*U*(U*U*U*ժ*UժT*ժT*U*@*>ҭ'ҭӭ/D.Q &88&&&8& lժժժժT*ժԪ">">>""<<<<<ժT*ժT*(U*ժժժT*U*U*U"<"< ",  U*U*U*ժ*UժT*ժT*U*@*U"<"c"">>""">ժ(ժԪ(@*" """*6"" ""$$"ժժժժT*ժԪ""""""""$" $$ժT*ժT*(U*ժժժT*U*U*U" *""2$"U*U*U*ժ*UժT*ժT*U*@*U""""Y"""""""6"ժ*ժԪ(P*""<"**"<""" ">ժժժժT*ժԪ> "" " >>">>ժT*ժT*(U*ժժժT*U*U*U>>*">>""P*U*U*ժ*UժP*ժT*U**U" 2"E""2"" "*> ժ*ժԪ(T*"* "**" """<ժժժժT*ժԪ"*"""""""ժT*ժ U*ժժժT*U*U*U ""*"""""ժ*UժP*ժT*U**U">E>"*"""*"ժ@*ժԪ(*""*<6"<""ժժժժT*ժԪ"*""" <":ժT*ժT*ժժժT*U*U*U*"<<6:"":ժ*Uժ@*ժT*U**U""""Y""&""""""ժP*ժԪ("6" ""ժժժժժԪ""6"""""ժT*ժT*ժժժT*U*U*ժ*Uժ*ժT*U**U""""""c""""""""""ժP*ժԪժժԪ(" "ժժժT*U*U*ժժժԪ>">"  ժT*ժT*U*P*ժժժT*(U* >> ժ*Uժ*ժT*U*ժ*U"<">>"">">>>">""""!!! ! ! ! ! !!!!!!!!!         140ĉ' <::"UNABLE TO FIND PROGRAM"Q F:"PLEASE CHECK DISK AND DISK DRIVE"v P:"PRESS ANY KEY TO CONTINUE "; ZX$:dDNDLERR":D$"BLOAD LOGO":16304,0:16297,0:16302,0:16300,0:HGRDI(64435):DI6DI$".//e"X$A X$"A"ĉ ER8İ60210 216,0:2 FILE NOT FOUND@ EL140ĉ ::" PROGRAM NOT ON THIS DISK"::" PRESS ANY KEY TO CONTINUE ";:X$ EL140Ĺ16304,0:16297,0:16302,0:16300,0: :(7)"UNABLE TO CONTINUE":: ( I/O ERROR 2EL::(10):" LOADING ASSEMBLER...":(13)(4)"RUN ASSEMBLER"DI$ X$"T"ĉ::(10):" LOADING TUTOR...":(13)(4)"RUN TUTOR"DI$ (7):160 ` ERROR HANDLING j896 tEL(218)(219)256:ER(222):ER0ERR15Ĺ216,0: ~ER6İ601100 A$"GENERIC CATSEND/AE/BBS (208) 746-8591"<L(A$)GX1LO#12\%X3660((A$,X);::(A$,X1,1);::(A$,LX1)2X<255=(12):"GENERIC CATSEND/AE/BBS (208) 746-8591"dA"140ĉ' <::"UNABLE TO FIND PROGRAM"Q F:"PLEASE CHECK DISK AND DISK DRIVE"v P:"PRESS ANY KEY TO CONTINUE "; ZX$:dDNDLERR":D$"BLOAD LOGO":16304,0:16297,0:16302,0:16300,0:HGRDI(64435):DI6DI$".//e"X$A X$"A"ĉ ER8İ60210 216,0:2 FILE NOT FOUND@ EL140ĉ ::" PROGRAM NOT ON THIS DISK"::" PRESS ANY KEY TO CONTINUE ";:X$ EL140Ĺ16304,0:16297,0:16302,0:16300,0: :(7)"UNABLE TO CONTINUE":: ( I/O ERROR 2EL::(10):" LOADING ASSEMBLER...":(13)(4)"RUN ASSEMBLER"DI$ X$"T"ĉ::(10):" LOADING TUTOR...":(13)(4)"RUN TUTOR"DI$ (7):160 ` ERROR HANDLING j896 tEL(218)(219)256:ER(222):ER0ERR15Ĺ216,0: ~ER6İ60110d HELLO PROG"n::60000RxD$(4):D$"NOMONC,I,O":D$"PR#0":D$"IN#0"u:(10):" LOADING MENU..."D$"BLOAD HNDLERR":D$"BLOAD LOGO":16304,0:16297,0:16302,0:16300,0:HGRDI(64435):DI6DI$".//e"X$A X$"A"ĉ" " " " " ""