) ********************************O***** BASIC-MONITOR ********u********************************(***** 28.1.86 BY ********2***** A.FACHAT ********<********************************61000: DATAS EINLESEN15000:E$".";59010: BEFEHLSZEILE HOLENZ10000: BEFEHLE AUSWERTENhFP1:1EXJ0::""(L$,E)"?";:1010J4J101015 J14600001010A$$FP1,;.'********'EX0:FP0'59100:EXEX0:'A4610000/'A128FP1:AA127S'J0AB:B%(J)A:EX1:FP0:p'FPJ51,4:1,;:10020y 'FP0$'J111000,12000,13000,15500,14100,11100,13100,12200,15100,12150.'J914000,14200,15000,15200,10100,15300,15400t':"REԑ";:*********$***** HEX-DUMP;*59180:A2AD:EXU +ADA1A2LE::11023i +1050:A$""q+:+".;";:59230:" ";+I0LE1:H(ADI)+59240:" ";:I+"";:I0LE1:H(ADI) +(H127)32H34H46*+(H);:I:"";4+[+**** GET HEX*\+59220:EXIf+IADADLE1:59160:EXzp+I,H:::"";:11023:ADAD8:E$".;":12410.**** DISS-ASS.59180:A2AD:ADA1:EX.:12010.1050:A$"".ADA212001..".:";:59230:" ";.H(AD):AA%(H)0.AAA7:L2(A8)8:AA0L1?/NR(A16)i/A$(NR)" ";C$(2AA);:NR0NR912100x/L112080&/IADL1AD11:H(I):59240:0/C$(2AA1);:ADADL:D/A1AD:H(AD1):L2:ADAD2H:H127ADAD256N/59230:ADA1:12080v/59220:EX(/E$".:":12410</**** ASSEMBLERM/59220:EXg/59100:EXEX0:J0:x/A$(E$,E,3)/NR056:A$A$(NR):EX1:/L1:A$"":B$"":NR0A0:12360/EE3:59100:EXEX0:12330/12260/59100:EX/A$A$(A):A3612255./59160:A1H:EXS/L2:59100:EXEX0:B$"":12330n0EE1:A41A4412310 0L3:59160:A1A1256H:EX059100:EXEX0:12330 0B$B$(A):12310*0L1ANR16:1236040I07:A$C$(I2)B$C$(I21):EX1:>0ANR16(L2)8I9C0NR0NR912500:EXYH0I0255:AA%(I):EX1:nR0AD,I:L112400\0AD1,A1256(A1256):L212400f0AD2,A1256p0:"";:12010:E$".:"z059300:E$E$AD$" "::0A1AD2A1A1256 0L2:A1A1AD2:A1256EX1: 0- 2**** BINAERD 259180:A2AD:EX[ 2ADA1A2::13023o 21050:A$""y 2AD: 2".,";:59230:" "; 2H(AD):I701 2A$(464(H2I)):A$;:I: +3**** GET BINAER ,359220:EX 63H0:I07:59100:EX" @3A46HH2:13150; J3A42HH21:13150F T3EX1:x ^3:AD,H::"";:13023:ADAD1:E$".,":12410 6**** OCCUPY 659210:EX 659160:EX 6IA1AD:I,H:: 7**** COMPARE 759208:EX 7A3ADA2: (7ADA2A1:(I)(IA3)59230:" ";1 271050:A$""9 <7:L w7**** TRANSFER] x759208:EXj 7A3ADA2 7ADA2ADA114250 7IA2A1:IA3,(I):: 7IA1A21:IA3,(I):: :**** REGISTER ::"BASIC-MON 28.1.86 BY A.FACHAT" :" PC AC XR YR NV-BDIZC5 :".>";:ADPC:59230:" ";K :HAC:59240:" ";a :HXR:59240:" ";w :HYR:59240:" "; :HS:59400 :**** GET REGISTER :59220:EX ;PCAD:59160:EX ;ACH:59160:EX ;XRH:59160:EX ;YRH:H0 ;I701:59140:EX) ;A1EX1:@ $;HH2A::SH32:O _;**** GOTOp `;59100:EREX0:ADPC:15220 j;EE1:59220:EX t;SA,AC:SX,XR:SY,YR:SS,S ~;H(AD256):SP1,H:SP,AD256H:SG ;AC(SA):XR(SX):YR(SY):S(SS):15000 ; DEZ > HEX2;AD((E$,E1)):AD65535EX1:C;"=";:59230O'<**** $d(<59220:"="AD;:t<**** FIND<59210:L1:EX<59160:EX"=GETR,A,O,T,R,G,X,#,$S16,77,68,66,70,67,59,44,58,62,65,79,84,82,71,88,35,36]G****HC$(16),B$(16),A$(56),A%(255),A(8)MSP512:SA515:SX516:SY517:SS514:SG518NL$""RS32:LE8:60000\I056:A$(I):$fI0255:A%(I):9pI015:C$(I):NzI015:B$(I):qAB:B%(AB):I0AB:B%(I)::