' +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 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?Lˆʎõĵ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- ( 0 Ϡ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`z#      Ҡ+Ү堠$ Ҡ#Ϡ ԠͺԲ Ҡ Ϡ"Ү堠+Ɍ ) `ɋ `ɉ `Ɏ۩ `ɠɍɈ$ť!$$"%%%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`L ɤ 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\  04,0:16297,0:16302,0:16300,0:K :(7)"KANN NICHT FORTFAHREN"::[ ( I/O ERRORi 2EL140ĉ <::"KANN PROGRAMM NICHT FINDEN" F:"DISKETTE UND LAUFWERK PRUEFEN" P:"BITTE EINE TASTE DRUECKEN "; ZX$:d:R HANDLING j896L tEL(218)(219)256:ER(222):ER0ERR15Ĺ216,0:] ~ER6İ60110n ER8İ60210{ 216,0: FILE NOT FOUND EL140ĉ ::"PROGRAMM NICHT AUF DER DISKETTE"::"BITTE EINE TASTE DRUECKEN ";:X$$ EL140Ĺ16397,0:16302,0:16300,0:HGR> DI(64435):DI6DI$".//e"F X$ X$"A"ĉ::(10):" ASSEMBLER WIRD GELADEN...":(13)(4)"RUN ASSEMBLER"DI$ X$"T"ĉ::(10):" TRAINER WIRD GELADEN...":(13)(4)"RUN TRAINER"DI$ (7):160 ` ERROd HELLO PROG"n::60000RxD$(4):D$"NOMONC,I,O":D$"PR#0":D$"IN#0"y:(16):" MENUE WIRD GELADEN..."(8):"DIESE DISKETTE GEHOERT ZUM SYBEX-BUCH""MIT DER REF.-NR. 3408." D$"BLOAD HNDLERR":D$"BLOAD LOGO":16304,0:162   <`?x~`Ox"<<6:|x~C?||x~?~@_|s``|@?p@?66x`"x| @?p~x?x~Gp|?@x~O@?||x?|`_|c@?p~>``""|@? ~}|? x~ >> ~?x~Cp |`x~OA          "ɰ`"ʚ` pp pp|| || pp@@@@@@@@@@pp <>??<<==>>??<<==>>??@ HA H??08D D A A ߤhA h@ `$%  ' 0 8 ʆ` I `,0`ɰ`"ʚ`<< pp|p?x~_~c"<"<||?pxO@p~?~Cp~|@?|""|"""~"$$*""""x" "$$pp2""|~`x"" *"""|xC?x~`_|s" *"||`pG?<x~~Op|~`x<">|"""@?|">*<>">" >p@?"<>>">x`"""xpp>>>>*">><">|xA?x~@_|w>>*">||{pC??|x~`Oxxpp ""|~**"`x""" """""``" """"|@?"""p@?x`" ""*""  ""|xA?x~@Ox""*""|8x~?@?|8x`@?~|x>~@_xwp@?x`: :x*:* <:pp " @?p:< :|"<``|@?">"<<6:>: :RIGHTF*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$"t) @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:           ~?x~Cp |`x~OA|x|_~a@|~@`@?p~|~|@?|x~|p?x~_~a|||xxO~A `|?~?@`x~<"<|?""<~<6<<"<"<|~<<<"<`x,"<~|@?|""<"<<"<3V6::H110:24010:D150::23010:H190::24010EV6XB:PO2:410kV6X0:CU5:CWCU:ML10:R1:34,20:V6PO7:510:PS$PR$:PO12:410:XB14130V6PO7:610V619,0:Z$:Z(Z$):Z8İ710:14060V7Z21İ810:14060V 7Z$"X"į:W7Z477Z50İ1100:13040$U,3(7):13060U6320,0:762:"Richtig!":"Moechten Sie eine N)eue Zahl oder":" zurueck ins Menue (N/X)?":"Bitte waehlen Sie";U@3Z$:Z$"N"Ĺ34,0:B((B)981):13010UJ3Z$"X"Ĺ34,0::UT3(7):13110V6HEX TO DECD190::25020=T2PR$(B):(PR$)3PR$(ZE$,3(PR$))PR$hT2PO2:310:X0:CU8:CWCU:ML2:34,20:T2PO7:205:310:PS$PR$:PO12:530:XB13110T2PO7:610T319,0:Z$:Z(Z$):Z8İ710:13060T3Z21İ810:13060T3Z$"X"į:U"3Z4xSN/20,0:762:"Richtig!":"Moechten Sie eine N)eue Zahl oder":" zurueck ins Menue (N/X)?":"Bitte waehlen Sie";SX/Z$:Z$"N"Ĺ34,0:B((B)2541):12010Sb/Z$"X"Ĺ34,0::Sl/(7):12110S2 DEC TO BCDT2:D110:25020:C150:28020:)3PR$(ZE$,3(PR$))PR$FR.PO2:310:X0:CU8:CWCU:ML2:34,20:vR/PO7:10:310:PS$PR$:PO12:530:XB12110R/PO7:610R/19,0:Z$:Z(Z$):Z8İ710:12060R&/Z21İ810:12060R0/Z$"X"į:R:/Z47Z50İ900:12040SD/(7):12060chten Sie eine N)eue Zahl oder":" zurueck ins Menue (N/X)?":"Bitte waehlen Sie";Q+Z$:Z$"N"Ĺ34,0:B((B)655341):11010Q+Z$"X"Ĺ34,0::Q+(7):11130Q.DEC TO BINQ.:D110:25020:B150:26010:D190::25020R.PR$(B):(PR$34,20:4P +PO7:410:PS$PR$:PO12:510:XB11130BP*+PO7:610kP4+19,0:Z$:Z(Z$):Z8İ710:11060PH+Z21İ810:11060PR+Z$"X"į:P\+Z47Z58İ910:11040Pf+Z64Z71İ910:11040Pp+(7)(7):11060UQz+20,0:762:"Richtig!":"MoeX0:4010:7040!OX$"A"7040JOX$"S"XX1:X0X255:4010:7040[OX$"S"7040kO(7):7070{O*DEC TO HEXO+:D110:23010:H150::24010:D190::23010O +PR$(B):(PR$)5PR$(ZE$,5(PR$))PR$P+PO2:310:X0:CU4:CWCU:ML16:usgang, zum Addieren zu":"und zum Subtrahieren von der Zahl":35,20eNv25010:26010:27010NPO2:PR$(X):(PR$)27060NPR$(ZE$,3(PR$))PR$:N310:20:PO7:310:120:PO12:310N(18):X$:X$"X"į::OX$"A"XX1:X25520:PO7:310:205:PO12:310:M(18):X$:X$"X"į::bMX$"A"XX1:X99X0:4010:6040sMX$"A"6040MX$"S"XX1:X0X99:4010:6040MX$"S"6040M(7):6070MX HEXMbX$"255":X255:3100:CF0:BC0LNl(21):" fuer A "L"CF0:3:Lp BCD fuer Ausgang, zum Addieren zu":"und zum Subtrahieren von der Zahl":35,20L25010:26010:28010LPO2:PR$(X):(PR$)26060LPR$(ZE$,3(PR$))PR$:M310:1K72,9052,9052,11572,115:52,9055,8775,87QK12,8:"IJ":13,8:"KL"\KCF1:cK0K72,5052,5052,7572,75:52,5055,4775,47K7,8:" ":8,8:" "K72,9052,9052,11572,115:52,9055,8775,87L12,8:" ":13,8:""0"qJ: Z%(Z$):Z%0Z%Xĺ(7);"ZAHL LIEGT NICHT ZWISCHEN 0 UND "X$:"BITTE VERSUCHEN SIE ES ERNEUT!"::3120|JD XZ%:JSET (CLEAR) CARRYJCF04080JBC14050J72,5052,5052,7572,75:52,5055,4775,47J7,8:"IJ":8,8:"KL":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):"Mit welcher Zahl wollen Sie beginnen?"I& "(zwischen 0 und "X$")";J0 Z$:Z$""Z$HX99R3PS$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):940,H176,H3118,H3115,H1:118,H3118,H23115,H2:97,H394,H194,H2HfiXf`m PRINT BCDdfjmC190:yftmC2C125:C3C13f~m:fm"EFIJMN"fm"GHKLOP"gm73,C1241,C1241,C273,C273,C176,C3244,C3241,C1:244,C3244,C23241,C2:97,C394,C194,C,B1115,B2:139,B3136,B1136,B2:160,B3157,B1157,B2:181,B3178,B1178,B2|ee202,B3199,B1199,B2:223,B3220,B1220,B2eeexiPRINT HEXeiH190:eiH2H125:H3H13ei:ei" IJ QR UV "ei" KL ST WX "Bfi73,H1115,H1115,H273,H2733136,D2:97,D394,D194,D2:118,D3115,D1115,D28daGdePRINT BINSdeB150:hdeB2B125:B3B13pde:de"EF MNQR "de"GH OPST "Lee73,B1241,B1241,B273,B273,B176,B3244,B3241,B1:244,B3244,B23241,B2:97,B394,B194,B2:118,B311557,H1:160,H3160,H23157,H2:97,H394,H194,H2:118,H3115,H1115,H2:139,H3136,H1136,H2bc]rca PRINT DECca:D110caD2D125:D3D13ca:ca"MNQRIJ"ca"OPSTKL"2da73,D1136,D1136,D273,D273,D176,D3139,D3136,D1:139,D3139,D23178,D1:181,D3181,D23178,D2:97,D394,D194,D2:118,D3115,D1115,D2:139,D3136,D1136,D2:160,D3157,D1157,D2{bZb]PRINT HEX 2b]H2H125:H3H13b]:b]" IJ QR UV "b]" KL ST WX \c]73,H1157,H1157,H273,H273,H176,H3160,H31D,aU:762::"Wollen Sie dieses Programm"UaV"wirklich verlassen? (J/N) ";:3000caVB$"N"ı}aVB$"J"ĺ(7):22010a"V:aYPRINT DEC 2aYD2D125:D3D13aY:aY"MNQRIJ"aZ"OPSTKL"ub Z73,D1178,D1178,D273,D273,D176,D3181,D5)"Bitte waehlen ";%`XRB$:B$"X"ıC`bRB(B$):B0ĺ(7):21010Y`lRB6ĺ(7):21010|`vRB1B4B(((78))655341)`RB2B5B(((78))2541)`RB3B6B(((78))981)`R(B$)11010,12010,13010,14010,15010,16010`R21010aU EN0_OB$"X"İ22010:20150,_$O(7):20150<_R EXERCISESM_R:(2):(10)e_R:"UEBUNGEN":::_&R5)"Dez zu Hex..1 Hex zu Dez..4":_0R5)"Dez zu Bin..2 Bin zu Dez..5":_:R5)"Dez zu BCD..3 BCD zu Dez..6":_DR5)"Hauptmenue..X"::`NR"Dez, Bin & BCD.....B"7^N:9)"Dez, Bin & Hex.....H"X^N:9)"Uebungen...........U"y^N:9)"Programmende.......X"^N::8)"Bitte waehlen ";^N3000:B$""ĺ(7):20150^NB$"H"İ7010:20150^OB$"B"İ6010:20150_OB$"U"İ21000:2015ND$"BRUN LOMEM:":16384:(4)"BRUN CHAT2"s]pN:X0:Z%X:N33:Y1X:Y2X:N0X:N22:O148:O210:O37:N11:N44:N88]zNCH$(16,2)]NI015]NJ01]NX,Y:CH$(I,J)(X)(Y)]N:]NZE$"00000000"]N:(2):(10)::"HAUPTMENUE":^N::9)\ N::230,32:228,1279\*ND$(4):D$"PR#0":D$"IN#0"N\4ND$"NOMONC,I,O":x\>N(4):8)"HEX-, BCD-, BINAER-TRAINER"\HN:19)"von"\RN:11)"Malcolm Whapshott"\WN:\\N:15)"(c) 1984"\^N:11)"SYBEX Verlag GmbH"\`N14)"Duesseldorf"+]f"X"į:#[>Z47Z58İ900:160404[>(7):16060[>20,0:762:"Richtig!":"Moechten Sie eine N)eue Zahl oder":" zurueck ins Menue (N/X)?":"Bitte waehlen Sie";[>Z$:Z$"N"Ĺ34,0:B((B)981):16010[?Z$"X"į:34,0:\ ?(7):16110BCD TO DEC:C110:28020:D150::25020:C190::28020SZ>XB:PO2:210:310yZ>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[>Z$бY:Z47Z58İ910:15040-Y:(7):15060Y;20,0:762:"Richtig!":"Moechten Sie eine N)eue Zahl oder":" zurueck ins Menue (N/X)?":"Bitte waehlen Sie";Y;Z$:Z$"N"Ĺ34,0:B((B)2541):15010Y;Z$"X"į:34,0:Y$;(7):15110 Z> DEC6X::B110:26020:D150::25020:B190::26020LX:XB:PO2:20:310rX: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:15060Y:Z$"X"į:Z58İ910:14040%W(7(7)(7):14060W2720,0:762:"Richtig!":"Moechten Sie eine N)eue Zahl oder":" zurueck ins Menue (N/X)?":"Bitte waehlen Sie";W<7Z$:Z$"N"Ĺ34,0:B((B)655341):14010WF7Z$"X"į:34,0:WP7(7):14130X:BIN TO2,9052,9052,11572,115:52,9055,8775,87KK12,8:"IJ":13,8:"KL"VKCF1:]K0K72,5052,5052,7572,75:52,5055,4775,47K7,8:" ":8,8:" "K72,9052,9052,11572,115:52,9055,8775,87K12,8:" ":13,8:" " L"0"kJ: Z%(Z$):Z%0Z%Xĺ(7);"ZAHL LIEGT NICHT ZWISCHEN 0 UND "X$:"VERSUCHEN SIE ES ERNEUT!"::3120vJD XZ%:JSET (CLEAR) CARRYJCF04080JBC14050J72,5052,5052,7572,75:52,5055,4775,47J7,8:"IJ":8,8:"KL"+K7: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):"MIT WELCHER ZAHL WOLLEN SIE BEGINNEN?"I& "(ZWISCHEN 0 UND "X$")";J0 Z$:Z$""Z$HX99R3PS$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$"X) @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:             01,202,203,204:C)iÃ205,206,207,208:DAiÃ209,210,211,212:EYiÃ213,214,215,216:Fbi`765mij216,0sitXX1,172:TWO&hnÃ173,174,175,176:THREEAhxÃ177,178,179,180:FOUR\hÃ181,182,183,184:FIVEvhÃ185,186,187,188:SIXhÃ189,190,191,192:SEVENhÃ225,226,227,228:EIGHThÃ229,230,231,232:NINEhÃ193,194,195,196:AhÃ197,198,199,200:BiÃ22:118,C3115,C1115,C2gm139,C3136,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:ONE hdÃ169,170,1700:16040[>(7):16060[>20,0:762:"RICHTIG!":"MOECHTEN SIE EINE N)EUE ZAHL ODER":" ZURUECK INS MENUE (N/X)":"BITTE WAEHLEN ";[>Z$:Z$"N"Ĺ34,0:B((B)981):16010[?Z$"X"į:34,0:[ ?(7):16110[ N::230,32:228,127\*N8020:D150::25020:C190::280209Z>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:16060Z>Z$"X"į: [>Z47Z58İ915040Y:(7):15060Y;20,0:762:"RICHTIG!":"MOECHTEN SIE EINE N)EUE ZAHL ODER":" ZURUECK INS MENUE (N/X)":"BITTE WAEHLEN ";Y;Z$:Z$"N"Ĺ34,0:B((B)2541):15010Y;Z$"X"į:34,0:Y$;(7):15110Y>BCD TO DEC"Z>:C110:220:D150::25020:B190::260206X:XB:PO2:20:310\X: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"į:Y:Z47Z58İ910:W(7(7)(7):14060W2720,0:762:"RICHTIG!":"MOECHTEN SIE EINE N)EUE ZAHL ODER":" ZURUECK INS MENUE (N/X)":"BITTE WAEHLEN ";W<7Z$:Z$"N"Ĺ34,0:B((B)655341):14010WF7Z$"X"į:34,0:WP7(7):14130W:BIN TO DEC X::B110:260010:D150::23010:H190::240103V6XB:PO2:410YV6X0:CU5:CWCU:ML10:R1:34,20:V6PO7:510:PS$PR$:PO12:410:XB14130V6PO7:610V619,0:Z$:Z(Z$):Z8İ710:14060V7Z21İ810:14060V 7Z$"X"į:V7Z47Z58İ910:1404013040U,3(7):13060U6320,0:762:"RICHTIG!":"MOECHTEN SIE EINE N)EUE ZAHL ODER":" ZURUECK INS MENUE (N/X)":"BITTE WAEHLEN ";U@3Z$:Z$"N"Ĺ34,0:B((B)981):13010UJ3Z$"X"Ĺ34,0::UT3(7):13110U6HEX TO DEC!V6::H110:24/T2PR$(B):(PR$)3PR$(ZE$,3(PR$))PR$ZT2PO2:310:X0:CU8:CWCU:ML2:34,20:T2PO7:205:310:PS$PR$:PO12:530:XB13110T2PO7:610T319,0:Z$:Z(Z$):Z8İ710:13060T3Z21İ810:13060T3Z$"X"į:U"3Z47Z50İ1100:,0:762:"RICHTIG!":"MOECHTEN SIE EINE N)EUE ZAHL ODER":" ZURUECK INS MENUE (N/X)":"BITTE WAEHLEN ";SX/Z$:Z$"N"Ĺ34,0:B((B)2541):12010Sb/Z$"X"Ĺ34,0::Sl/(7):12110S2 DEC TO BCDT2:D110:25020:C150:28020:D190::25020ZE$,3(PR$))PR$ ZURUECK INS MENUE (N/X)":"BITTE WAEHLEN ";zQ+Z$:Z$"N"Ĺ34,0:B((B)655341):11010Q+Z$"X"Ĺ34,0::Q+(7):11130Q.DEC TO BINQ.:D110:25020:B150:26010:D190::25020R.PR$(B):(PR$)3PR$(:.P +PO7:410:PS$PR$:PO12:510:XB11130 ZUM ADDIEREN ZU":"UND ZUM SUBTRAHIEREN VON DER ZAHL":35,20_Nv25010:26010:27010NPO2:PR$(X):(PR$)27060NPR$(ZE$,3(PR$))PR$:N310:20:PO7:310:120:PO12:310N(18):X$:X$"X"į:: OX$"A"XX1:X255X0:7:310:205:PO12:3104M(18):X$:X$"X"į::\MX$"A"XX1:X99X0:4010:6040mMX$"A"6040MX$"S"XX1:X0X99:4010:6040MX$"S"6040M(7):6070MX HEXMbX$"255":X255:3100:CF0:BC0FNl(21):" FUER AUSGANG"CF0:3:Lp BCD6LzX$"99":X99:3100:CF0:BC1L(21):" FUER AUSGANG, ZUM ADDIEREN ZU":"UND ZUM SUBTRAHIEREN VON DER ZAHL":35,20L25010:26010:28010LPO2:PR$(X):(PR$)26060LPR$(ZE$,3(PR$))PR$:M310:20:PO" d50000nEA6ĺ:"Bitte warten ... "TxX1E:Z1A:K$(X)F$(Z)180LK(X):ADF(Z):K1(X)1A2%AD256:A1%AD256A2%:L1,A2%:L,A1%:180YADL1:Y130Y127160:(7)"*VERZWEIGUNG ZU WEIT BEI ADRESSE*";::L Y0Y          06,207,208:D%iÃ209,210,211,212:E=iÃ213,214,215,216:FFi`765Qij216,0WitXX176:THREE%hxÃ177,178,179,180:FOUR@hÃ181,182,183,184:FIVEZhÃ185,186,187,188:SIXvhÃ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:C iÃ205,2139,C3136,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:TWO hnÃ173,174,175,,H3118,H23115,H2:97,H394,H194,H2,fiN(4):8)"HEX-, BCD-, BINAER-TRAINER"k\HN:19)"VON"\RN:12)"MALCOLM WHAPSHOTT"\WN::\\N:16)"(C) 1984"\^N:12)"SYBEX VERLAG GMBH"\`N15)"DUESSELDORF"]fND$"BRUN LOMEM:":16384:ne Taste druecken"2360"0"? ";HI$BHL(HI$):C0PHL0ġ:{(HI$)36HLHL1:HI$(HI$,HL):2280HI1HL:HA((HI$,HI,1))48IV%(HA0HA9):IV%HIHL1::2320:C(HI$):2310HI1HL:HA((HI$,HI,1))48!ODE",*" ----------]-----------]--------"54C%LP>759,C%,C%:C%EN2130ZH2110R" -----------1-----------1--------------"\D$"PR#0"f::::::::10)"PROGRAMM GELISTET":::::p2180:6000z2180:51105)"Bitte eicken ";:HI$:R:(6):"Bitte STARTADRESSE eingeben";:2210:IV%2020ZLC(11):"........ und die ENDADRESSE";:2210:IV%2040ENC:PR1:Y0 D$"PR#1"" ADRESSE ] MASCHINEN-] ASSEMBLER-" " DEZ HEX ] CODE ] C6:"Startadresse fuer Einfuegung";:2210:IV%1940?SICl:"Ende des Programms";:2210:IV%1960uEAC:"Laenge der Einfuegung";:2210IV%1980LIC:MPSILI1900:::::"LEERRAUM EINGEFUEGT":::"Bitte Leertaste drueks";:2210:IV%1850DEACON"Neue ";::"START";::"ADRESSE des Blocks"X" . ... d.h. nach Verschiebung";:2210:IV%1870bMPClYEASI1:XEASI1:YY1vNO(X):(MPY),NO:Z$"I"ı::::12)"BLOCK VERSCHOBEN":2010 Verschieben..V"2360KZ$"E"ĺ:::"EINFUEGEN GEWAEHLT"::1940}Z$"V"ĺ:::"VERSCHIEBEN GEWAEHLT"::18301790&"Alte ";::"START";::"ADRESSE des Blocks";:2210:IV%18300SIC:"Alte ";::"END";::"ADRESSE des Bloc)K$(Z)(NM)K(EA1)LY0K1(EA1)K1(Z)G::LLY1:EEA1yA2%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::::"Einfuegen..E730 "A100,A20:Y1:XM(CM)M1(CM):YY1;6Z1AM@XF(Z)1630nJA1A11:F$(AA1)F$(Z)(NM)TF(AA1)LY:ZA:A2A21^hK(X):LY,K::AAA2rA10:Y1:XM(CM)M1(CM):YY1|Z1EXK(Z)1710 A1A11:K$(EA10AA1:Z$"+"1510A(7)"UNDEFINIERTER MARKENTYP":1050WDD1:X$(LB$,D)vF$(A)X$:I0F(A)L:1090HI$OC$:2220:F(A)C:1050DD1:X$(LB$,D)X$"END"1750X1NMX$M$(X)CM0:1560CMX:XNM:CM01dA%F(Z)65536:ZA::1770>n(68)3(68)0A%255:1770VxL32768A%L:1770kA%L65536:1770:::"STARTADRESSE eingeben";:2210:IV%HI11420:(C):(18):1000AA1:I0:D(LB$):Z$(LB$,1):Z$"*"1480Z$"@"I1:148RZWEIGUNG ZU WEIT":1050/(LB$,1)"@"1440P(7)"ILLEGALER CODE ":1050q( ADDRESS PROCESSING ROUTINE2(AD$,1)"@"1360<HI$AD$:2220:C32768A%C:FA%C65536:PZ1A:F$(Z)AD$Ă:1390ZF(Z)32768A%F(Z):ZA::1770RAEINGABE":1050! IV%212808 (LB$,1)"+"1440B (7)m (LB$,1)"*"ĺ"CODE FEHLT ":1050 (LB$,1)"@"ĺ"ADRESSE FEHLT ":1050 "UNDEFINIERTER MARKENTYP":1050 IV%1ĺ"ILLEGALES RELATIVES FORMAT":1050 IV%5ĺ(7)"VEV%01220 jL%1LL%:1150/ tLL%65536M ~IV%0(AD$,1)"@"İ1760k IV%1170,1180,1190:1050 (7)"FORMATFEHLER ":1050 (7)"VERZWEIGUNG ZU WEIT":1050 OC$"END"ĺ(7)"UNBEKANNTER CODE ":1050 110 (7)"EXT"STARTADRESSE";:2210:::LC:IV%HL11020[ 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%BC%1 `I" = MENUE = WEITERES "C 9)" AUFLISTEN?";M "2360b ,Z$"W"Y0:230z 6Z$"M"ĺ(7):290 @Y0::(4): :(6):"Bitte eine Taste druecken ";:2360:: 2360: ::" ASSEMBLER-PROGRAMM NUN EINGEBEN ":/ 256Y L,Y :: :R " STARTADRESSE";:2210:LC:Y0:IV%HL1190i C32768C%C:230x C%C65536 ::" ADRESSE MASCHINEN- ASSEMBLER-" "DEZ HEX CODE CODE" YY1:Y18270 759,C%,C%:250 : I/O ERRORO(&"DISKETTENPROBLEME, BITTE UEBERPRUEFEN":"SIE IHR LAUFWERK"::v(0"BITTE LEERTASTE DRUECKEN";:Z$:( FILE NOT FOUND("KANN "F$" NICHT LADEN "::60620( FILE TYPE MISMATCH("DATEI IST VOM FALSCHEN TYP"::60620)H DIS'hED2ED21:]'r"ZAHL DER MARKEN ZU GROSS...":"VERSUCHE, KONTROLLE ZURUECKZUERLANGEN"h'|:110~' WRITE PROTECTED'"DISKETTE IST SCHREIBGESCHUETZT":'"DIE LEERTASTE BRINGT SIE ZURUECK INS"'"MENUE 'ANDERE FUNKTIONEN'";:Z$: (: WRITE PROTECT,&ER860710: I/O ERRORM&ER660810: FILE NOT FOUNDs&ER1360910: FILE TYPE MISMATCH&ER961010: DISK FULL&ER1061110: FILE LOCKED&ER1161210: SYNTAX ERROR&216,0:&T BAD SUBSCRIPT&^AD2AD2"A"İ2020:6000'%Z$"L"İ2580:6000?%Z$"S"İ2640:6000S%Z$"H"ė:5110c%(7):6000i%_~%` ERROR HANDLING%j756:(7)%tER(222):EL(218)(219)256%~ER255Ĺ216,0:%ER10760510%ER0ER15Ĺ216,0:&ER460610en........M":4$9)"DATA-Anweisungen........D":Z$9)"Liste ausdrucken........A":$9)"Zurueck ins Hauptmenue..H":::$7)"Bitte waehlen Sie ";$2360$Z$"E"İ1780:6000$Z$"M"ė:151:6000$Z$"D"İ2390:6000%Z$"S"İ1420:5110&#dZ$"A"6000:5110?#nZ$"V"ĺ(7):5110O#x2720:5110t#p::(10):"ANDERE FUNKTIONEN":#z:9)"Einfuegen/Verschieben...E":#9)"Programm laden..........L":#9)"Programm speichern......S":$9)"Monitor aufrufamm eingeben...E":5" 9)"Programm listen.....L":W"9)"Programm starten....S":y"9)"Andere Funktionen...A":"(9)"Programm verlassen..V":::"27)"Bitte waehlen Sie ";"<2360"FZ$"E"İ1020:5070"PZ$"L"İ190:5110#ZZ$к: !11)"SYBEX Verlag GmbH"7!14)"Duesseldorf"K!D$"BRUN BLMET"_!:D$(13)(4)u!D125:D220:D310!X$(D1),F$(D2),F(D2),K$(D2),K(D2),K1(D2),M$(D3),M(D3),M1(D3)!DD$"0123456789ABCDEF"!::(15):"HAUPTMENUE":":9)"Progr60010:.  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)::(9):" APPLE //E ASSEMBLER": :19)"von" 11)"Malcolm Wapshott" :: 15)"(c) 1984"!00:26704 LE%EASA1::D$"BSAVE"F$",A"SA",L"LE%: L END ROUTINE ::753:"Sind Sie sicher (J/N)?";:2360:Z$"N"ı Z$"J"ė: (7);:2730 PRINT CATALOG F$""ġ: (F$,1)"?"ı F$"":D$"CATALOG":X$: :P SAVE PROG=Z ::"Unter welchem Namen moechten Sie "rd "das Programm speichern";:F$:2760:F$""2650n :"STARTADRESSE";:2210:SAC:IV%HL12670x :"ENDADRESSE";:2210:EAC:IV%HL12680 EASA1ĺ::"START/END-KONFLIKT "::10SE"F$:D$"NOMONC,I,O"? "DATA-ANWEISUNGEN EINGETRAGEN":1000l :"ZEILENNNUMMER > 63999 ";:2360:2550| LOAD PROG ::"Welche Datei moechten Sie "( "laden";:F$:2760:F$""25902 (F$,1)"A"ĺ(7):2590< :D$"BLOAD ";F$F TIGEN":"UM FORTZUFAHREN":2360K D$"OPEN "F$:D$"DELETE"F$:D$"OPEN "F$Y D$"MONO"j D$"WRITE"F$ Z$(A)"DATA":EBB15:F(E):Z$Z$(F):ECE1B16Z$Z$",":2540 EB16 :Z$:BB16:AA10:A639992570:BC2520 D$"CLOn";:2210:BC:IV%2420F~ :"ENDADRESSE der Daten";:2210:IV%2430x CBĞ:"*START/ENDADRESSEN-KONFLIKT*"::50 :"Welcher Dateiname?":F$:2760:F$""2450 (F$)25F$(F$,25) F$F$".DATA" :"DISKETTE EINLEGEN UND TASTE BETAEHO$,DI%):8 Z$:Z$""2360;B (Z$)95Z$((Z$)95)AL XV DATA STATEMENTS`` D0j ::"Zeilennummer der ersten DATA-Anw.?":A$:A(A$):A60000A10Ğ:(7)"*ZEILENNUMMER GIBT ES NICHT*"::I11000::2410t :"STARTADRESSE der DateHA9HAHA7:HA10HA152320:HA0C16CHA:HIR IV%C65536:IV%ı :::"*DIE ADRESSE ";::HI$;::" GIBT ES NICHT*"::C0:1000 HO$"":DI%42(DI256)$ DIDA(DI16):HO$(DD$,1DI16DA,1)HO$:DIDA:2340 . HO$("000"" NEUE ";::"START";::"ADRESSE DES BLOCKS"dX" ...D.H. NACH VERSCHIEBUNG ";:2210:IV%1870mbMPClYEASI1:XEASI1:YY1vNO(X):(MPY),NO:Z$"I"ı::::12)"BLOCK VERSCHOBEN":2010:"STARTADRESSE FUER EINFUEG"E"ĺ:::"EINFUEGEN GEWAEHLT"::1940ZZ$"V"ĺ:::"VERSCHIEBEN GEWAEHLT"::1830d1790&" ALTE ";::"START";::"ADRESSE DES BLOCKS";:2210:IV%18300SIC:" ALTE ";::"END";::"ADRESSE DES BLOCKS";:2210:IV%1850DEAC/NK1(EA1)K1(Z)%::LLY1:EEA1WA2%L256:A1%L256A2%:58,A1%:59,A2%:1050cNMNM1M$(NM)X$:M(NM)L:1050M1(NM)L1:1050EE1:K$(E)AD$:K1(E)BC%:K(E1)L1::::"EINFUEGEN..E:VERSCHIEBEN..V"2360(Z$)M1(CM):YY16Z1A+@XF(Z)1630LJA1A11:F$(AA1)F$(Z)(NM)hTF(AA1)LY:ZA:A2A21n^hK(X):LY,K::AAA2rA10:Y1:XM(CM)M1(CM):YY1|Z1EXK(Z)1710A1A11:K$(EA1)K$(Z)(NM)K(EA1)LY"UNDEFINIERTER MARKENTYP":10505DD1:X$(LB$,D)TF$(A)X$:I0F(A)L:1090sHI$OC$:2220:F(A)C:1050DD1:X$(LB$,D)X$"END"1750X1NMX$M$(X)CM0:1560CMX:XNM:CM01730"A10,A20:Y1:XM(CM(68)3(68)0A%255:17704xL32768A%L:1770IA%L65536:1770:::"STARTADRESSE EINGEBEN";:2210:IV%HI11420:(C):(18):1000AA1:I0:D(LB$):Z$(LB$,1):Z$"*"1480Z$"@"I1:1480AA1:Z$"+"1510(7)$,1)"@"1440.(7)"ILLEGALER CODE ":1050O( ADDRESS PROCESSING ROUTINEf2(AD$,1)"@"1360<HI$AD$:2220:C32768A%C:FA%C65536:PZ1A:F$(Z)AD$Ă:1390ZF(Z)32768A%F(Z):ZA::1770dA%F(Z)65536:ZA::1770n21280 (LB$,1)"+"1440' (7)M (LB$,1)"*"ĺ"CODE FEHLT":1050v (LB$,1)"@"ĺ"ADRESSE FEHLT":1050 "UNDEFINIERTER MARKENTYP":1050 IV%1ĺ"ILLEGALES RELATIVES FORMAT":1050 IV%5ĺ(7)"VERZWEIGUNG ZU WEIT":1050 (LBL%1LL%:1150! tLL%65536? ~IV%0(AD$,1)"@"İ1760] IV%1170,1180,1190:1050{ (7)"FORMATFEHLER":1050 (7)"VERZWEIGUNG ZU WEIT":1050 OC$"END"ĺ(7)"UNBEKANNTER CODE":1050 110 (7)"EXTRAEINGABE":1050 IV%SE";:2210:::LC:IV%HL11020M A2%L256:A1%L256A2%:58,A1%:59,A2%p 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%BC%1 `IV%01220 j MENUE, = WEITERES"9 9)" AUFLISTEN?";C "2360X ,Z$"W"Y0:230p 6Z$"M"ĺ(7):290 @Y0::(4): :(6):"BITTE EINE TASTE DRUECKEN ";:2360:: 2360: ::" ASSEMBLER-PROGRAMM NUN EINGEBEN":! "STARTADRES L,Y :: :M " STARTADRESSE";:2210:LC:Y0:IV%HL1190d C32768C%C:230s C%C65536 ::" ADRESSE MASCHINEN- ASSEMBLER-" "DEZ HEX CODE CODE" YY1:Y18270 759,C%,C%:250 :" =! d5000+nEA6ĺ:"BITTE WARTEN..."OxX1E:Z1A:K$(X)F$(Z)180LK(X):ADF(Z):K1(X)1A2%AD256:A1%AD256A2%:L1,A2%:L,A1%:180YADL1:Y130Y127160:(7)"*VERZWEIGUNG ZU WEIT BEI ADRESSE*";::L Y0Y256Y            NDEREN DATEINAMEN":60620K FULLU)R"DISKETTE IST VOLL, BITTE VERSUCHEN":"SIE ES MIT EINER ANDEREN"::60520g) FILE LOCKED)" "F$" IST GESCHUETZT, VERWENDEN SIE":"BITTE EINEN ANDEREN DATEINAMEN":60620) SYNTAX*" "F$" IST ILLEGAL, BITTE":"VERWENDEN SIE EINEN ASTE AUSDRUCKEN.......A":B$9)"ZURUECK INS HAUPTMENUE.H":::_$7)"BITTE WAEHLEN SIE";i$2360$Z$"E"İ1780:6000$Z$"M"ė:151:6000$Z$"D"İ2390:6000$Z$"A"İ2020:6000$Z$"L"İ2580:6000$Z$"S"İ2640:6000%5110#x2720:51109#p::(10):"ANDERE FUNKTIONEN":`#z:9)"EINFUEGEN/VERSCHIEBEN..E":#9)"PROGRAMM LADEN.........L":#9)"PROGRAMM SPEICHERN.....S":#9)"MONITOR AUFRUFEN.......M":#9)"DATA-ANWEISUNGEN.......D":$9)"LI9)"PROGRAMM STARTEN....S":@"9)"ANDERE FUNKTIONEN...A":f"(9)"PROGRAMM VERLASSEN..V":::"27)"BITTE WAEHLEN SIE";"<2360"FZ$"E"İ1020:5070"PZ$"L"İ190:5110"ZZ$"S"İ1420:5110"dZ$"A"6000:5110#nZ$"V"ĺ(7):!D$"BRUN BLMET"&!:D$(13)(4) 63999";:2360:25507 LOAD PROG\ ::"WELCHE DATEI MOECHTEN SIE"( "LADEN";:F$:2760:F$""25902 (F$,1)"A"ĺ(7):2590< :D$"BLOAD ";F$F P SAVE PROGZ ::"UNTER WELCHEM NAMEN MOECHTEN SIE")d "DAS POPEN "F$ D$"MONO"' D$"WRITE"F$v Z$(A)"DATA":EBB15:F(E):Z$Z$(F):ECE1B16Z$Z$",":2540 EB16 :Z$:BB16:AA10:A639992570:BC2520 D$"CLOSE"F$:D$"NOMONC,I,O" "DATA-ANWEISUNGEN EINGETRAGEN":1000' 4305 CBĞ:"*START/END-ADRESSENKONFLIKT*"::50g :"WELCHER DATEINAME?":F$:2760:F$""2450 (F$)25F$(F$,25) F$F$".DATA" :"DISKETTE EINLEGEN UND TASTE DRUECKEN, ":"UM FORTZUFAHREN":2360 D$"OPEN "F$:D$"DELETE"F$:D$"95Z$((Z$)95)L /V DATA STATEMENTS7` D0j ::"ZEILENNUMMER DER ERSTEN DATA-ANW.?";A:A60000A10Ğ:"*ZEILENNUMMER GIBT ES NICHT*"::2410t :"STARTADRESSE DER DATEN";:2210:BC:IV%2420~ :"ENDADRESSE DER DATEN";:2210:IV%20C16CHA:HI) IV%C65536:IV%ın :::"*DIE ADRESSE ";::HI$;::" GIBT ES NICHT*"::C0:1000 HO$"":DI%42(DI256)$ DIDA(DI16):HO$(DD$,1DI16DA,1)HO$:DIDA:2340. HO$("000"HO$,DI%):8 Z$:Z$""2360B (Z$)? ";HI$HL(HI$):C0'HL0ġ:R(HI$)36HLHL1:HI$(HI$,HL):2280tHI1HL:HA((HI$,HI,1))48IV%(HA0HA9):IV%HIHL1::2320:C(HI$):2310HI1HL:HA((HI$,HI,1))48HA9HAHA7:HA10HA152320HA--" 4C%L'>759,C%,C%:C%EN21301H2110`R" -----------1-----------1--------------"n\D$"PR#0"f::::::::10)"PROGRAMM GELISTET":::::p2180:6000z2180:51105)"BITTE EINE TASTE DRUECKEN"2360"E STARTADRESSE EINGEBEN";:2210:IV%20201LCk(11):" ....... UND DIE ENDADRESSE";:2210:IV%2040}ENC:PR1:Y0 D$"PR#1"" ADRESSE ] MASCHINEN-] ASSEMBLER-" " DEZ HEX ] CODE ] CODE"*" ----------]-----------]------UNG";:2210:IV%1940SICK:"ENDE DES PROGRAMMS";:2210:IV%1960TEAC:"LAENGE DER EINFUEGUNG";:2210IV%1980LIC:MPSILI1900:::::"LEERRAUM EINGEFUEGT":::"BITTE DRUECKEN";:HI$:):(6):"BITTNDEREN"::60520") FILE LOCKEDv)" "F$" IST GESCHUETZT, VERWENDEN SIE":"BITTE EINEN ANDEREN DATEINAMEN":60620) SYNTAX)" "F$" IST ILLEGAL, BITTE":"VERWENDEN SIE EINEN ANDEREN DATEINAMEN":60620 UFWERK"::2(0"BITTE LEERTASTE DRUECKEN";:Z$:G( FILE NOT FOUNDm("KANN "F$" NICHT LADEN"::60620( FILE TYPE MISMATCH("DATEI IST VOM FALSCHEN TYP"::60620(H DISK FULL)R"DISKETTE IST VOLL, BITTE VERSUCHEN":"SIE ES MIT EINER ATROLLE ZURUECKZUERLANGEN"$'|:110:' WRITE PROTECTEDb'"DISKETTE IST SCHREIBGESCHUETZT":'"DIE LEERTASTE BRINGT SIE ZURUECK INS"'"MENUE 'ANDERE FUNKTIONEN'";:Z$:' I/O ERROR (&"DISKETTENPROBLEME, BITTE UEBERPRUEFEN":"SIE IHR LANOT FOUND/&ER1360910: FILE TYPE MISMATCHK&ER961010: DISK FULLj&ER1061110: FILE LOCKED&ER1161210: SYNTAX ERROR&216,0:&T BAD SUBSCRIPT&^AD2AD2&hED2ED21:'r"ZAHL DER MARKEN ZU GROSS...":"VERSUCHE, KONZ$"H"ė:5110%(7):6000%%_:%` ERROR HANDLINGI%j756:(7)l%tER(222):EL(218)(219)256%~ER255Ĺ216,0:%ER10760510%ER0ER15Ĺ216,0:%ER460610: WRITE PROTECT%ER860710: I/O ERROR &ER660810: FILE