LALt LTLLLL }lhd`,($ P5.4RFF A$%$% 0"$)$$H hLW , `e$$%`  R@P1   *  T.`GH`@1`  LTCDCH zhC gDD zCDLgL`"LQl LYK2(KHk A 00KhAx 0:; < =KҺ?764ө0>5ҩ:23 4 1 234 5} 1 > ,P v ҥҥ07Р0X`# P 21 2 - 35451 - ) 8 } Ȅ1 2 H 3545 1Q`jj)?j) <ө P AC E'0& '`?0,0?}>06L(L ) ߍҩҭҍ ) ǭ `)ҩЍҊ Үe1i1`ҍ ҩ(ҢAҩ`?@} A n$%8C[C$$K%S[%ݬ!d0 $l%t%$% D }D ` ~   N*)L <*D  La(( > M L_La( >   }L ( L 0j   $.B #"C ! '  h .  } L_La )o>Ly JJ   HH)H M h < hy  hy!!  }  .LP> *Lo QA  A`*`/A! }߰")+ݤ " $//G@ }L_LaL  3 > L_  >  M  ( <E`?$ ` N <LK ) ꩧLa h "#}LA ` )Lݤ <LG/Ș ݤLaL_08`"))8`0 <}G$Șݤ(`  8(()$}$%)з`$GȘݤ`H)h?H^ji "0("&hEEd }"EiEȱEiE`h`hQEEd" ) E8EȱEE`@ .d 8E QEEH.}8 *h | `LaLaI <$(I0G/IɛIL_I L L_ ECȱE, CqECȊ}qEC I {G.G LPsrotceS eerF H0 C ) *,=,?, Gh)H<, GȽ$G h>, GȄI} ! GI` ~ d~  ~ L/DC8C~D 0IGIDC`p}ih =H*"" h0Ch h0!)C)з?$Щ 08.`}"%, "$' HH`L5 tqLO"7)0+0,)i Z,0 +!,"  | F La S}  LPE,0Ȯ" $JJJȐEʈE ʽEȩ?E7EȩE, 0EȩE  Ά}` "d*J N ^  3 > C?Cݔ( ' (    C L} LPL ,C 3 )C  L LPB, 3     !0 B,  L  }LPLa0CMݨLݧ *ML A NݤLaL_LaNLML_|{ }AO  A0`.ADA +)@  AL((La,.}![4" }S  La) .!KESF.ʎ|JJG.c Lac}lGtH`}$0^:;ȩ~$. ȩ "* ?~?/ɛ ~  ~Ýн .`}La$ .(`BDOS SYS $%  $L% LL_#".|,")  }  8 I0 ` X`  45  )?i@3245, 4224 ;Ӡ@ԠBX`F5*F}5*4*4*Bx)%`0 g  *0#\ JGGȽG * La `8 }H h|LЌ8`  +0(.G)ݟG)ȱGȱG`LK"!"La`8!} " iL9iipE`  " "dEE8EF "h( :(,0(`( dE"}FEi (| 0`Ƀ0.c}.C/`C,"0)@H@ @ h@@ "C8&C #}C8X` w 675  υ   w A,90 S  6 6L+,7,60 7` l  L7 7$} VH 7h`,70"56ڠ 076 $ 7` nBDE J V,70 +0,6 7 $ 7 l`̠%}DE60 7 BJ V0iƝDEHIB V0K=8DEHI V3 ,5&}0 =,0H 7h` H hll,0DHEhĝDEL8H'}IHI, VL4,50 @L$9qD:AUTORUN.SYSD:BDUP.SYSE: B V BLV` 8#,#(}0 A"!"}LL zCED$FCECEDFF@6I6 Ӣ@ԍ` s)`)}  \`h@)l    QG ɟ 9I/ɞ ʎ0H *}M #IL_ ! PPBD}$9L$L2 3<i`5Sw7k. R,9 d58 Fj5! 5" 6 6,#02,,}6,"0$z56} 4 s) '+ '+ s) '+ s) '+ s)R C5 4Kommando: @Lw +ɛ -}^ v4 $L!$!OAO@(9) 0|%Ю 3L!$ x4 *{%9 *90 Z+L$H x4 v4h8A %v%.}%w% .L$D1:*.*C+%%,,,,.-,h10/13 %L 4KEIN BASIC/MODUL`` 4Datei kopieren,(nach): *9ɛ`/}:D 2( ) 4ӭɛ`9 '"9A 4`99:ɛ?9 *:: :,90}:D 2(,90  ' (99V 9,90 (9,9B X( 8)` q(99Q'!U 4(J) +0ɛN x4 v4L&J 1}v4 F5,9 'JB V F5(0L': 4 ' Y5: 48H:IB V L4,90 4Ziel2} #( @ ' '9A Y5: 4 BXY 4S0 ,90 (L' C5,9 ,90 (L&`:,9iL4:* ? ɛ,3}`<ӽD'E'C 9LKL4 4Original +0ɛLx4hh`9:::*::.::Ȍ9`:Y4}:,ɛ者Y:`Y:::E: : E: .:ȽE: : 𩛙: )2 ( 4Kopiere- : 4,9 4 -> 5}1: x4:`::Ȣ:::, ɛ::`:::ٸ00``9 F5Y: 4 Y5E: 4B6} 4G:A`999`$R^Lv4999999ɛ;,7 )0.9.9 99θ9 4Šśι9L$7}99`800 0 8 00`999Lb* * * 2599 9:9C9θ99A4 */θ9θ99θ9919 *98}: *::Ƚ9:ɛ8,4/7.9θ9 4ŠՠǛι99,ɛ99`999:D:`,90`L$9}O99999`B͠9 4PHI Vι9` 4Dateiname: ` +`%H$H`55 ^Lv4 + *p:},9Wp,H::*::.:Ȍ9:9 25 * *h Y5 4ٺ)  4堛!) 4 4;}堛ꭵ9P9 99 4 Y5Ko,9B BEDD:EEHI V-L4,p,o,Xo,J q, q<}, q,X9 4L,No, s,9 O5LF5 H9HIhL4 4Sichern - #H + * *hBL4 4Freigeben - $ 4Alter, =}neuer + * * ) 4Zurueckholen - "С 4Loesche - + * *9N!BL49 !BE: 4DE::G:::1>}F:: 4 Y5H: 4B9 4I:< }99ͷ90H: H:0.H: H:H: 0H: 4Loesche --> ?}E: 4U 4 (N) +0J x4 v499 4 F5LC-LF5 v4Lb- 0ɛ11 97v. x4 0ɛy.Lv4w7 x4}.k.@}k.)k. 0VJ#k. @k. x4Bu. 4K 4Lv4D1:SDMCJ0.100 0ɛ1'9#00)" A}0 x4 0ɛNJLv40 x4 0ɛ NJLv4L/Ά. x4 v4 0ɛ15 x4)08*. 0ɛ17 x4)B}. 0Pɛ N J$ x4W30 0ɛJN x4.L/Lv4 0ɛ9)ͱ0娌. 0 x4 0ɛ JN x4. C}0ɛ14 x4)0. 0ɛ JN x4.0 v4 0ɛJ N x4Lv40 4 Y5 F5,.6h:.:D}:: 00) 0N20 4 Y5 B͠0 4 4$ 4 4 F5Lv4 x4-7,7 4 + v4L$`1Ph:E}JD2:BDOS.SYSD2:BDUP.SYS$9 4File laden - + *59N5:0 *0 0 4ҠЛF}`L4 4Startadresse (HEX): * *9ɛ* L )L`999 4Speichern Name,Start,Ende,Init,Run *9: G})ɛL$j5k5 )Hl5m58j5s2k5x2h 4Šț`Hj5 k5 l5 m59hɛ* )Hr5s5 r59hɛ )x5y5H} x59B,909A ,J 4,90F Bh5 4 29A 2j5 4 4HIHIj5k5 4 L4 B,9I} 2n5 4 4,9 2t5 4 4LF5,HI`` 3-ȹ8 )0" 3ȹ8 )0 d59թ 3 3 J}% 3 3 3 %`3ȹ8mɛ]~3@?ab]!"D L\mɛ\`"!`K} 3 3 0`3338 38`` * 3L*ȹ89ɛ3`)8 x4`8 F5Bs4 4JL} VB8 4HI VL4 F5 4DOS Diskette einlegen +0ɛ T0L!$E:99H 4h99`HHM}` 4HJJJJ 4h) ii0Lx4hh x4L4lɛ x4`DE`HI V0`8d8 i05/5 v4%5N} 4 v4 C5D L$Ҡm9D:iE` O5J BLVJBL4ʒF`bP kkkO}555676[6}66667 󀀀㉀ $"5&2$2P}23k  $irectory$n|> $ir3pezial !$isk)nhalt|($osschreiben ":um"asic-odul|)&ormatieren #$ateikQ}opieren|*:urueckholen $$ateiloeschen|+"inaer3ave %.amenaendern|,"inaer,oad &$ateisichern|-3tartab!R}dr '$ateifreigeben|.3tartup%dit J7b7z777777 8"8:8R8j888Formatiere Disk Nr.: 1 Density S/M/D/C: SFormatieS}re D1 J/V/N: N DOS schreiben LW : 1BDUP schreiben J/N : J Konfigurieren J/N : NAnz. der Laufwerke : 2 Anzahl der BT}uffer : 2 Ramdisk aktiv J/N : J Ramdisk Nummer : 8Ramd. resident J/N : JRamdiskgroesse 1-3 : 3Tastaturbuffer J/NU} : J DOS schreiben J/N : J Write-Verify J/N : NV}W}<30120 REM -------------------------30130 DIM DPEEK$(19)30140 DPEEK$(1)="hhhˠ˅ȱ˅`"30150 REM --------------------dY}-----REM -------------------------30130 DIM DPEEK$(19)30140 DPEEK$(1)="hhhˠ˅ȱ˅`"30150 REM --------------------d30150 REM -------------------------30160 DIM LOA$(33)30170 LOA$(1)="hhh hEhDhIhHB V`"30180 REM ----------h[}----------------------------------30160 DIM LOA$(33)30170 LOA$(1)="hhh hEhDhIhHB V`"30180 REM ----------h30180 REM ------------------------30190 DIM SAV$(33)30200 SAV$(1)="hhh hEhDhIhH B V`"30210 REM -----------mg}ER{ -*PLAYER-DEMO*STEUERNMITCURSOR-TASTEN(- 2.LIOFF<.OR$2000F-PDMACTL.EQ$22FZPCOLOR.(c}30000 DIM FILL$(41)30020 FILL$(1)="hhhhhhh˦ `"407RAMTOP.EQ$6AX.EQ$600Y.EQ$pO30030 DIM DPOKE$(21)30050 DPOKE$(1)="hhhhhȥ͑`"#100 STAPOSSTAPOS+1JSRCLEAR LDA#$20 STt=30060 DIM MOVE1$(62)30080 MOVE1$(1)="hhhhhhhϠˑΥ8ϰ8`"LDA#1 ^STASIZExf30090 DIM MOVE2$(112)30110 MOVE2$(1)="hhhhhhhХeυː̥eЅ̥eυ͐ΥeЅΠˑͥ8˰̥"3012|b}0 MOVE2$(81)="8ͰΥ8ϰ8`"hhhХeυː̥eЅ̥eυ͐ΥeЅΠˑͥ8˰̥"3012|0EQ$2C0dPOS.EQ$D000nSIZE.EQ$D008xGRACTL.EQ$D01DPMBASE.EQ$D407RAMTOP.EQ$6AX.EQ$600Y.EQ$(d}610YE.EQ$620-SLDA#$40STAPMBASE LDA#100 STAPOSSTAPOS+1JSRCLEAR LDA#$20 ST(e}A$26F LDA#40 STAY "JSRYPOS ,LDA#$F46STAPCOLOR @LDA#$F8JSTAPCOLOR+1 TLDA#1 ^STASIZE(f}hSTASIZE+1rLDA#42*58/42 |STA559 LDA#2STAGRACTL LDA#100 STAX-LOOPJSRGETKEY CMP(g}#'* BEQPLUS CMP#'+BEQMINUS CMP#'- BEQYMIN CMP#'= BEQYPLU JMPLOOPPLUSINCX &(h}LDAX 0STAPOS:STAPOS+1 DJMPLOOPNMINUSDECX XLDAX bSTAPOSlSTAPOS+1 vJMPLOOPYMINDECY (i}JSRYPOS JMPLOOPYPLUINCY JSRYPOS JMPLOOPCLEARLDY#0 .1LDA#0STA$4000+512,YSTA$400(j}0+640,YINY CPY#$80 BNE.1RTS YPOSLDX#0 LDYY .2LDAPLAYER,X*STA$4000+512,Y4LDAPLAYE)}ER -*PLAYER-EXP2- (.LIOFF2.OR$2000<-FDMACTL.EQ$22FPPCOLOR.EQ$2C0ZPOS.EQ$D000dSIZ,l}E.EQ$D008nGRACTL.EQ$D01DxPMBASE.EQ$D407RAMTOP.EQ$6AX.EQ$600Y.EQ$610YE.EQ$620-SLD,m}A#$40STAPMBASE LDA#100 STAPOSSTAPOS+1 LDA#1 STA752JSRCLEAR LDA#$20 STA$26F ,n}LDA#40 "STAY ,JSRYPOS 6LDA#$92@STAPCOLOR JLDA#$94TSTAPCOLOR+1 ^LDA#3 hSTASIZErSTAS,o}IZE+1|LDA#42*58/42 STA559 LDA#2STAGRACTL LDA#100 STAX-LOOPJSRGETKEY CMP#'* ,p}BEQPLUS CMP#'+BEQMINUS CMP#'- BEQYMIN CMP#'= BEQYPLU JMPLOOP&PLUSINCX 0LDAX :,q}STAPOSDSTAPOS+1 NJMPLOOPXMINUSDECX bLDAX lSTAPOSvSTAPOS+1 JMPLOOPYMINDECY JSRYP,r}OS JMPLOOPYPLUINCY JSRYPOS JMPLOOPCLEARLDY#0 .1LDA#0STA$4000+512,YSTA$4000+640,Y,s}INY CPY#$80 BNE.1 RTSYPOSLDX#0 LDYY*.2LDAPLAYER,X4STA$4000+512,Y>LDAPLAYER1,XH,t}STA$4000+640,YRINX\INY fCPX#34 pBNE.2zRTS-PLAYER.HX00.HXAAAAAAAA.HX55555555.,u}HXAAAAAAAA.HX55555555.HXAAAAAAAA.HX55555555.HXAAAAAAAA.HX55555555 .HX00-PLAYER1.,v}HX00.HX55555555.HXAAAAAAAA.HX55555555$.HXAAAAAAAA..HX555555558.HXAAAAAAAAB.HX55555555,w}L.HXAAAAAAAA V.HX00`-j-tGETKEYLDA$E425~PHALDA$E424PHARTS-AAAAAAB.HX55555555,eERԘ .LIOFF-WSYNC.EQ$D40A(VSDLST.EQ$200;DLI-VEKTOR2SDLST.EQ$230;DL-VEKTOR<NMIEN.EQ$D40EFC0y}OLOR.EQ$D018PADR.EQ$D0Z-dSTARTLDASDLST nSTAADRxLDASDLST+1STAADR+1- LDY#16;POSITION0z}DESBYTESINDL-LDA(ADR),Y ORA#$80STA(ADR),Y;BIT7INDLSETZEN- LDA#0STANMIEN;I0{}NTERRUPTSSPERREN- LDA#DLISTAVSDLST "LDA/DLI,STAVSDLST+16;DLI-ADRESSEINVEKTOR@- JLDA#$C00|}TSTANMIEN^;INTERRUPTSFREIGEBENh-rRTS |;FERTIG!- DLIPHATXAPHATYAPHA;REGISTER0}}AUFSTAPELRETTEN- LDA#$30STAWSYNC;FLACKERNVERMEIDENSTACOLOR;BELIEBIGEAENDERUNGEN...-0~}PLATAY&PLA0TAX:PLAD;REGISTERZURUECKHOLENN-XRTIb;ENDEDESDLIl-GEAENDERUNGEN...-0cER> .LIOFF-VDSLST.EQ$200(SDLSTL.EQ$2302DL.EQ$D0<COLOR.EQ$D018FWSYNC.EQ$D40APVCOUNT.E4}Q$D40BZUHR.EQ$14dCOLOR2.EQ$D01An- xSLDY#0LDASDLSTL STADLLDASDLSTL+1 STADL+1LDA(4}DL),Y ORA#$80STA(DL),Y LDA#0STA$D40E LDA#DLISTAVDSLST LDA/DLISTAVDSLST+1 LDA4}#$C0STA$D40E LDA#$E "STA$2C5,RTS6- @DLIPHAJTXATPHA^TYAhPHAr- |LDA#$50STA4}WSYNCSTACOLOR2 LDA#0STACOLOR.1LDAVCOUNT CMP#$30 BCC.1 LDA#$30STACOLOR.2LDA4}VCOUNT CMP#$50 BCC.2 LDA#$A0STACOLOR- .3PLA&TAY0PLA:TAXDPLANRTIX-.2LDA4vERl .LIOFF-COLOR.EQ$D018(VCOUNT.EQ$D40B2WSYNC.EQ$D40A<ADR.EQ$D0F-PSLDA$230 ZSTAAD8}R dLDA$231nSTAADR+1 xLDY#2LDA(ADR),Y ORA#$80STA(ADR),Y LDY#12LDA(ADR),Y ORA#$808}STA(ADR),Y LDY#$14LDA(ADR),Y ORA#$80STA(ADR),Y LDA#6 LDX/VBI LDY#VBIJSR$E45C8} LDA#$E "STA$2C5,RTS6-@VBILDA#0JSTA$D40E TLDA#DL1 ^STA$200 hLDA/DL1 rSTA$201 |LD8}A#$C0STAWSYNCSTA$D40E LDA#$90 STA$2C8JMP$E45F- DL1PHA LDA#0STAWSYNCSTAC8}OLOR LDA#DL2 STA$200 LDA/DL2 STA$201PLARTI&- 0DL2PHA :LDA#$30DSTAWSYNCNSTAC8}OLOR XLDA#DL3 bSTA$200 lLDA/DL3 vSTA$201PLARTI- DL3PHA LDA#$A0STAWSYNCSTAC8}OLOR LDA#DL1 STA$200 LDA/DL1 STA$201PLARTI- DL3PHA LDA#$A0STAWSYNCSTAC8N@RC<}PHID@EB V`%H$H`<}hhѢ 0ALAHH`HH`@@ >C A}HYPRA-SOFT-MINI-MATH <} OPERAND 1 @ 0A@ ؐLBP LBEQENDPRHJSRPUTCHAR RJMPINCP\ENDPRLDA$D@}1fPHA pLDA$D0zPHARTS-PUTCHARTAXLDA$E407PHALDA$E406PHATXARTS- @}SLDX#0.3LDA$580,XSTASAVE,XINX CPX#$80 BNE.3$S2JSRCLEAR.JSRPRINT8.HX7D9B9BB.A@}S"HYPRA-SOFT-MINI-MATH" L.HX9BV.AS" " `.HX9Bj.AS"OPERAND 1" t.HX9BEA~JSRINPUT@} LDA#$9BJSRPUTCHARLDA#BUFFERSTAINBUFFLDA/BUFFERSTAINBUFF+1 LDA#0 STACIX JSRA@}FP BCC.1JMPERROR.1LDX#V1 LDY/V1 JSRFST0R- JMPTEST(-2ZAHL2JSRPRINT <.HX9B9BF@}.AS"OPERAND 2" P.HX9BEAZJSRINPUTdLDA#BUFFERnSTAINBUFFxLDA/BUFFERSTAINBUFF+1 LDA#0 S@}TACIX JSRAFP BCC.1JMPERROR.1LDX#V2 LDY/V2JSRFST0RJSRFMOVE LDX#V1 LDY/V1@}JSRFLD0RRTS-RECHNEBCC.3"JMPERROR,.3JSRPRINT 6.HX9B@.AS"ERGEBNIS:" J.HX9BEA TJSRFA@}SC ^LDY#0h.1LDA(INBUFF),Y rCMP#$80 |BCS.2 STYXJSRPUTCHAR LDYXINY JMP.1.2EOR#@}$80JSRPUTCHAR LDA#$9BJSRPUTCHARJSRGETKEY CMP#' BEQEXIT JMPS2EXITLDX#0.4LDA@}SAVE,XSTA$580,X&INX 0CPX#$80 :BNE.4DJMP$A000N-XTESTJSRPRINT b.HX9B$l.AS"OPERATION +,@}-,*,/,L,E ?" v.HXEA LDA#25 STA$55JSRGETKEY CMP#$20 BCCTEST CMP#$5B BCSTESTJSRPU@}TCHAR CMP#'+ BEQADD CMP#'- BEQSUB CMP#'* BEQMUL CMP#'/ BEQDIV CMP#'E *BEQEPX@} 4CMP#'L >BEQLGO HJMPTESTR-\ADDJSRZAHL2 fJSRFADDpJMPRECHNEz-SUBJSRZAHL2 JSRFSUB@}JMPRECHNE-MULJSRZAHL2 JSRFMULJMPRECHNE-DIVJSRZAHL2 JSRFDIVJMPRECHNE-EPX@}LDA#$9B JSRPUTCHAR JSRTEST2  LDAA $ BEQ.1 . JSREXP8 JMPRECHNEB .1JSREXP10L JMPRECHNEV -`@} LGOLDA#$9Bj JSRPUTCHARt JSRTEST2 ~ LDAA BEQ.1 JSRLOG JMPRECHNE .1JSRLOG10 JMPRECHNE@} - ERRORJSRPRINT .HX9B9B .AS"SCHWERER FEHLER !!!" .HXEA JSRGETKEY JMPS2 - TEST2JSRPRIN@}T  .HX9B& .AS"ATUERLICH ODER EKADISCH ?" ( .HXEA2 .1JSRGETKEY < CMP#'N F BEQ.2 P CMP#'D Z BNE.1@} d LDX#0 n STXA x JMP.3 .2LDX#1 STXA .3JSRPUTCHAR LDA#$9B JSRPUTCHAR RTS - CLEARJ@}SRZFR0 JSRFMOVE LDX#V1 LDY/V1 JSRFLD0R LDX#V2  LDY/V2 JSRFLD0R RTS" -, .NO 6 .O@}R$244 @ .HX00 J .OR$9 T .HX01 ^ .OR$C h .DAS r .OR$2E0 | .DAS -SRFLD0R RTS" -, .NO 6 .O@Ynow  DEFINEINITPLAYERPMBASMPADSZCALINIDEFIDEFINDEFTRIGJOYSTRRIGWRITEMOVEWRITMBMBMBP} P}@@@P} DEMO #1 (c) 9/1988 by(##ǠΧӠΠŠ2<Norbert SchliaFRuschgP}raben 26P7500 Karslruhe 1Zd+@%@n(@x(@(@ demo(@P}(@""(@ VBLI-P/M-GRAPHIK(@(@(@!!(@ é P}(@!!(@ (@(@!!(@ 0 : JOYSTICK 0(@P}!!(@ 1 : JOYSTICK 1;A`,;@2,"]]6-C:PBrBh peppLhhHqphiP}hiq ӥrBl,,6-B `6-B66-AD$AV@@f@J6-?:<<,TAP}@^B67@,.>:,367A`,.>:,B67@,.h++6.!:,--67@<@P},.>:$@%@,--67@<@,.>:$@ %@0,6-?:<:,P}367A`,.>:,B67@,.##67@<@,.>:AU,##67@<@,.>:AU,-@P}@67@<@,.>:,--67@<@,.>:$@%@,--67@<@,.>:$@ %@0P},6-?:</ϩcc67@,.P(t0L\:AU,Z$$67@y,.8EȑE(`d6.01234567}89ABCDEFn@"@@P@(@@3>:@$,x66(@%E -PROGRAMMIERHILFE 1-}}(@(@UU(@D DEZIMAL-HEX UMWANDLUNG, ASCII-ZEICHEN UND ASSEMBLER-BEFEHLE (@} (@FU-@@F(@ DEZ HEX CHR OP-CODE J U(@%%(@3>:}@2, 6-@A''(@-+ 6(@-@c(@ -}@6-$@d%(-(@E Ap-(@/(@  A/(@}  A(@F +!@&!(@ + A5"@)"@+(@ } 5 A"+"!(@, + A,!!(@>:%@d, 6("B:,"6. ( A@}@.-@B:,!7<,4..67<,.,J T6. Y%67@:@'},L>:@,>:,6-?:C:,:@,(@}$-ڠ- 6.  67@&B:=:,,,.=:, $-ڭؠ- 6.66-P:'@},667@<@,.7%@,56-&$@567@<@,.7%@,$!--&BRK},RTI,*BRA,CPY IMM055ORA (IND.X),EOR (IND.X),STA (IND.X),CMP (IND.X): ,,,D ,,,N*TSB ZP,,STY ZP,CPY ZPX!!ORA} ZP,EOR ZP,STA ZP,CMP ZPb!!ASL ZP,LSR ZP,STX ZP,DEC ZPl ,,,vPHP,PHA,DEY,INYORA IMM,EOR IMM,,CMP IMMAS}L A,LSR A,TXA,DEX ,,,&&*TSB ABS,JMP ABS,STY ABS,CPY ABS%%ORA ABS,EOR ABS,STA ABS,CMP ABS%%ASL ABS,LSR ABS,ST}X ABS,DEC ABS ,,,BPL,BVC,BCC,BNE55ORA (IND).Y,EOR (IND).Y,STA (IND).Y,CMP (IND).Y11*ORA (IND),*EOR (IND),*}STA (IND),*CMP (IND) ,,,*TRB ZP,,STY ZP.X,))ORA ZP.X,EOR ZP.X,STA ZP.X,CMP ZP.X))ASL ZP.X,LSR ZP.X,STX ZP.}X,DEC ZP.X  ,,,CLC,CLI,TYA,CLD --ORA ABS.Y,EOR ABS.Y,STA ABS.Y,CMP ABS.Y**INA A,*PHY,TXS,*PHX4 ,,,>}*TRB ABS,,*STZ ABS,H--ORA ABS.X,EOR ABS.X,STA ABS.X,CMP ABS.XR..ASL ABS.X,LSR ABS.X,*STZ ABS.X,DEC ABS.X\ ,,,f}JSR,RTS,LDY IMM,CPX IMMp55AND (IND.X),ADC (IND.X),LDA (IND.X),SBC (IND.X)z,,LDX IMM, ,,,""BIT ZP,*STZ ZP,LD}Y ZP,CPX ZP!!AND ZP,ADC ZP,LDA ZP,SBC ZP!!ROL ZP,ROR ZP,LDX ZP,INC ZP ,,,PLP,PLA,TAY,INX%%AND IMM,ADC }IMM,LDA IMM,SBC IMMROL A,ROR A,TAX,NOP ,,,''BIT ABS,JMP (IND),LDY ABS,CPX ABS%%AND ABS,ADC ABS,LDA ABS,SBC} ABS%%ROL ABS,ROR ABS,LDX ABS,INC ABS ,,,BMI,BVS,BCS,BEQ55AND (IND).Y,ADC (IND).Y,LDA (IND).Y,SBC (IND).Y}11*AND (IND),*ADC (IND),*LDA (IND),*SBC (IND)$ ,,,.##*BIT ZP.X,*STZ ZP.X,LDY ZP.X,8))AND ZP.X,ADC ZP.X,LDA ZP.X,}SBC ZP.XB))ROL ZP.X,ROR ZP.X,LDX ZP.X,INC ZP.XL ,,,VSEC,SEI,CLV,SED`--AND ABS.Y,ADC ABS.Y,LDA ABS.Y,SBC ABS.Y}j*DEA A,*PLY,TSX,*PLXt ,,,~((*BIT ABS.X,*JMP (ABS.X),LDY ABS.X,--AND ABS.X,ADC ABS.X,LDA ABS.X,SBC ABS.X--}ROL ABS.X,ROR ABS.X,LDX ABS.X,INC ABS.X ,,, D:HILFE1.BAShhFhEDhh****))) &D &D &DCeDDC}ȢX,ROR ABS.X,LDX ABS.X,INC ABS.X ,,, D:HILFE1.BAShhFhEDhh****))) &D &D &DCeDDCERN -*ROUTINENFUEREIN-UND*AUSGABE.(*CSM2-89(P)E.REUSS2- <*CHROUT-WERTIMAKKUWIRD#F*AUF}DEMBILDSCHIRMAUSGEGEBENP-ZCHROUTTAXdLDA$E407nPHAxLDA$E406PHATXARTS- *TXTOUT-T}EXTSTRINGHINTER *DEMAUFRUFWIRDAUSGEGEBEN *ZP-REGISTER$F0+$F1WERDEN*VERAENDERT!-TXTOUTPLA STA}$F0PLA STA$F1.1INC$F0 BNE.2 INC$F1 ".2LDX#0,LDA($F0,X) 6CMP#$EA @BEQ.3JJSRCHR}OUT TJMP.1^.3JMP($F0)h-r*GETKEY-ASCII-WERTDER"|*GEDRUECKTENTASTESTEHTNACH*RUECKKEHRIMAKKU}-GETKEYLDA$E425PHALDA$E424PHARTS-*GETLINE-EINGABEEINER*ZEILE.BUFFERUNDLENGTH}*MUESSENRICHTIGGESETZT *WERDEN.-GETLINELDX#0 LDA#5STA$342,X&LDA#BUFFER0STA$344,X:}LDA/BUFFERDSTA$345,XNLDA#LENGTHXSTA$348,XbLDA/LENGTHlSTA$349,XvJMP$E456-STA$344,X:lERA .LIOFF- *SCHNELLETEXTAUSGABEAUF*(*GRAFIK0BILDSCHIRM*2*(P)E.REUSSCSM3/89*<-RETOUT}LDA#$9B*CHROUTSTYSTOY STXSTOXJSRCHOUT.1LDA$11BEQBREAK LDA$2FF BMI.1 LDYSTOY} LDXSTOXRTS;BREAKLDA#$80 STA$11"JSRRETOUT ,LDX#$FF 6STX$2FC@;>>>>JMP...HIEREIGENE} J;ERROR- T;ROUTINE^*hSTOX.HX00rSTOY.HX00|- EOUTTAXLDA$E407PHALDA$E406PHA}TXARTS-CHOUTSTA$2FB LDA$2F0 BNE.1 LDA$5D LDY#0STA($5E),Y.1JSRCUR1 LDA$2F}B &JSRCHR1 0LDA$5E:CLC DADC$55 NSTA$5E XBCC.2 bINC$5F l.2LDY#0vLDA($5E),Y STA$5D }LDX$2F0 BNE.3 EOR#$80.3STA($5E),YRTS-BELLLDA#$FD JMPEOUT-ESCAPELDA#1 STA}$2FERTS- CHR1LDX$2FE BNECHR2 CMP#$FD *BEQBELL 4CMP#$9B>BEQNEWLIN HCMP#$1B RBCCC}HR2 \CMP#$20 fBCSCHR2pTAYzLDATABHI-$1B,YPHALDATABLO-$1B,YPHARTS*CHR2LSR$2FE }STA$70ASLASLROLROL AND#3TAYLDATABL1,Y EOR$70 LDY$55$STA($5E),Y .INC}$55 8LDA$55 BCMP#$28LBCSNEWLINVRTS`*jNEWLINLDA$52 tSTA$55~CDOWNINC$54 LDA$54 CMP}#$18BCCCURPOS DEC$54 LDA#0PHAJSRCURPOSNLALDA$5E STA$66 LDA$5F STA$67 LDY}#$27PLA CLC ADC#1 CMP#$18 (BCSNL12PHA<JSRCURPOSFNL0LDA($5E),YPSTA($66),YZDEY d}BPLNL0 nBMINLAxNL1JSRCUR1 LDY$55POKCHRLDA#0.1STA($5E),YINY CPY#$28 BCC.1 CLRET}RTS-CLEFTDEC$55 LDA$55 CMP$52BCSCLRET LDA#$27 STA$55RTS-"CRIGHINC$55 ,L}DA$55 6CMP#$28@BCCCLRET JLDA$52 TSTA$55^RTSh-rCURUPLDA$54 |BNECUP1 LDA#$18 STA$54}CUP1DEC$54CUR1LDA$54CURPOSSTA$5EASLASL ADC$5EPHALSRLSRLSRLSRLS }R STA$5FPLA&ASL0ASL:ASLDCLC NADC$58 XSTA$5E bLDA$5F lADC$59 vSTA$5FRTS }-TABL1.HX40206000-TABLO.DA#ESCAPE-1(ESC).DA#CURUP-1(UP).DA#CDOWN-1(DOWN).DA#CLEFT-1(LEF }T).DA#CRIGH-1(RIGHT)TABHI.DA/ESCAPE-1(ESC).DA/CURUP-1(UP).DA/CDOWN-1(DOWN).DA/CLEFT-1(LEFT }).DA/CRIGH-1(RIGHT) -ABHI.DA/ESCAPE-1(ESC).DA/CURUP-1(UP).DA/CDOWN-1(DOWN).DA/CLEFT-1(LEFT 10 REM 20 REM ̭Û30 REM 40 CALL=ADR("ԩh eLhhHhihi }ө@l")̭Û30 REM 40 CALL=ADR("ԩh eLhhHhihi 10 REM 20 REM ŭÛ30 REM 40 CALL=ADR("hhhhhhh06 0'80ee}ee8ʩ`")Û30 REM 40 CALL=ADR("hhhhhhh06 0'80eeER_ .LIOFF"********************************"(*PROGRAMM:SPEEDYMEMHANDLER* 2*AUTOR:CARSTENSTROTMANN*}<*DATUM:16.01-*F*VERSION:1*P*FUER:*Z**"d******************************n;x;SPEEDYSPEICHERADRES}SEN;SPRAMLO=$8000SPRAMHI=$9DFFSPTRKBUF=$8C00;;SIOCONTROLBLOCK;DDEVIC=$0300DUNI}T=$301DCMND=$302DSTATS=$303DBUF=$304DTIMLO=$306DBYT=$308DAUX1=$30ADAUX2=$30B";},;ZEROPAGEIOCB6;@ICHIDZ=$20JICDNOZ=$21TICCOMZ=$22^ICSTAZ=$23hICBADZ=$24rICBPLZ=$26|}ICBBLZ=$28ICAX1Z=$2AICAX2Z=$2BICSPRZ=$2CICHIDNOZ=$2E;;FLOPPY-SIOBEFEHLE;RDSEC=$}52;SECTORREADWRTSEC=$50;SECTORWRITESPDCNF=$4B;CONFIGURATIONJMPNOK=$4C;JUMPJMPWOK=$4D;JUMP&OK}RDPERC=$4E;PERCOMREADWRTPERC=$4F;PERCOMWRITE;;SIOSTUSBYTE&;0DREAD=$40:DWRITE=$80D;}N;JUMPVECTORSX;bSIO=$E459lCIO=$E456vPHENTV=$E486;;HANDLERTABELLE;HATABS=$31A;};MOEGLICHEFEHLERMELDUNGEN;STOK=$01;OKBRKKEY=$80;BREAKKEYEOF=$88;ENDOFFILEWDD=$A0;WRONG}DISKDSKFL=$A2;DISKFULLNFND=$AA;NOTFOUNDJOPN=$A1;JUSTOPEN ;;INITVECTOR ;*RUNAD=$02E0}4INITAD=$02E2>; H;DOSINITR;\DOSINI=$0Cf;p;SPEICHERZEIGERz;MEMLO=$2E7LOMEM=$80;}-;ORG.OR$2400;.OFD:SPMEM.COM; DOSINJSR$E474JSRFHINITRTS;INITJSRRESETS}- $FHINIT .LDX#08.1BLDAHATABS,XLBEQINSTALL VCMP#'F`BEQINSTALLjINXtINX~INX CPX}#$20 BMI.1;RTS- INSTALL LDA#'FSTAHATABS,XLDA#FHTABSTAHATABS+1,XLDA/FHTAB }STAHATABS+2,XLDA#PGMEND STAMEMLOSTALOMEMLDA/PGMEND(STAMEMLO+12STALOMEM+1<RTSF- P!}RESETSZLDADOSINIdSTADOSIN+1nLDADOSINI+1xSTADOSIN+2LDA#DOSINSTADOSINILDA/DOSINSTAD"}OSINI+1RTS- SPMEMINITLDA#SPRAMLOSTAADRCNTLDA/SPRAMLOSTAADRCNT+1 LDA#1STABUFCNT#} LDA#$38STASECCNTRTS"- ,SECRD6;A=LAUFWERK@;X=ANZAHLBYTESJ;TSTADUNIT ^LDA#$31hST$}ADDEVICrLDA#RDSEC|STADCMNDLDA#DREADSTADSTATS STXDBYT LDA#0STADBYT+1; JSRSIO%};RTS- SECWRT;A=LAUFWERK;X=ANZAHLDERBYTES;STADUNIT LDA#$31&STADDEVIC0LDA#WR&}TSEC:STADCMNDDLDA#DWRITENSTADSTATS XSTXDBYT bLDA#0lSTADBYT+1v; JSRSIO;RTS- '}SETPERC;A=LAUFWERK;X+Y=BUFFERADRESSESTADUNIT LDA#$31STADDEVICLDA#WRTPERCSTADCMND(}LDA#DWRITESTADSTATS STXDBUFSTYDBUF+1 LDA#$C *STADBYT4STADBYT+1 >LDA#0HSTADBYT+1R)}; \JSRSIOf;pRTSz- GETPERC;A=LAUFWERK;X+Y=BUFFERADRESSESTADUNIT LDA#$31STADDEVIC*}LDA#RDPERCSTADCMNDLDA#DREADSTADSTATS STXDBUFSTYDBUF+1 LDA#$C  STADBYT STADBY+}T+1  LDA#0$ STADBYT+1. ; 8 JSRSIOB ;L RTSV - ` SPSLOWj ;A=LAUFWERKt ;~ STADUNIT LDA#$31 ,}STADDEVIC LDA#SPDCNF STADCMND LDA#$20;SLOW STADAUX1 ; JSRSIO ; RTS - SPRESET -};A=LAUFWERK LDX#$00  LDY#$FF - ( SPJUMP2 ;A=LAUFWERK< ;X=ADRESSELOWF ;Y=ADRESSEHIGHP STADUNIT Z.} LDA#$31d STADDEVICn LDA#JMPWOKx STADCMND STXDAUX1 STYDAUX2 ; JSRSIO ; RTS - BUF/}H ;Y=$40BUFFERLESEN ;Y=$80BUFFERSCHREIBEN ; PHA;LAUFWERKSICHERN LDASECCNT  BNE.10 LDY#DSKFL0} PLA " JMP.99, .106 LDA#BUFF @ STADBUFJ LDA/BUFFT STADBUF+1^ LDAADRCNTh STADAUX1r LDAADRCN1}T+1| STADAUX2 LDX#$80 ; TYA AND#$80 BEQ.1 ; PLA JSRSECWRT JMP.2 .1 PLA 2}JSRSECRD LDABUFCNT STABUFEOF .2 LDAADRCNT& CLC 0 ADC#$80: STAADRCNT D BCC.3N INCADRCNT+13}X .3 b LDA#1l STABUFCNTv DECSECCNT ; .99 JSRPERCREST RTS - RDBUF PHA JSRPERCCNF 4}PLA LDY#$40;LESEN JMPBUFH - WRTBUF PHA JSRPERCCNF PLA LDY#$80;SCHREIBEN * JMPBUFH5}4 - > PERCCNFH LDX#PERCBUFR LDY/PERCBUF\ JSRGETPERCf LDAPERCBUF+6 p BEQ.1z LDADUNIT LDX#PERCNRM6} LDY/PERCNRM JSRSETPERC .1 RTS - PERCREST LDXPERCBUF+6 BEQ.1 LDX#PERCBUF LDY/PERCBU7}F JSRSETPERC .1RTS- FOPEN$LDAICAX1Z;AUX1 .AND#$C 8BEQ.1BLDAWRTFLG LBEQ.2VLDY8}#JOPN `BNE.1j.2tJSRSPMEMINIT~LDAICDNOZJSRSPSLOWLDY#STOKLDAICAX1Z;AUX1STAWRTFLG 9}AND#8BNE.1;FORWRITELDAICDNOZ;DRIVE#JSRRDBUF LDA#0STAWRTFLGSTABUFCNTLDABUFEOF :}BNE.1 LDY#NFND;NOTFOUND.1RTS(- 2FCLOSE<LDY#STOKFLDAWRTFLG PBEQ.1ZDECBUFCNTdLDA;}ICDNOZnJSRWRTBUFx.1 LDA#0STAWRTFLGRTS- FGETBYTELDXBUFEOF BNE.10 LDY#EOF J<}MP.3.10LDXSECCNT BNE.1 LDY#EOF JMP.3.1LDY#STOK"INCBUFCNT ,BPL.26LDAICDNOZ;=}DRIVE#@JSRRDBUFJ.2TDECBUFEOF^LDXBUFCNThLDABUFF,Xr.3|RTS- FPUTBYTELDXSECCNT BNE>}.1LDY#DSKFL JMP.2.1LDY#STOKLDXBUFCNTSTABUFF,XINCBUFCNT BPL.2LDAICDNOZ;DRI?}VE#JSRWRTBUF;.2&RTS0- :FSPECIALDLDXICCOMZNLDAICDNOZXCPX#$91;SPRESET bBNE.1lJS@}RSPRESETvLDY#STOKRTS.1CPX#$FF;UNINSTALL BNE.2 LDX#0.11LDAHATABS,X CMP#'F BA}EQ.12INXINXINX CPX#$20 BMI.11 RTS.12 LDA#0*STAHATABS,X4STAHATABS+1,X>STAB}HATABS+2,XHLDADOSIN+1RSTADOSINI\LDADOSIN+2fSTADOSINI+1pLDAICDNOZzJSRSPRESETLDY#STOK.C}2CPX#$F0;CLRDSK BNE.3JMPSPRFRMT.3CPX#$F1;BELL BNE.4JMPSPBELL.4CPX#$F2;CLRDD}SP BNE.5JMPSPCLRDSP.5CPX#$F3;TRAANZ BNE.6$JMPSPTRAANZ..68RTSB- LSPRFRMTV;A=LAE}UFWERK`LDX#$B1;CLRDSK jLDY#$FFtJMPSPJUMP~- SPBELL;A=LAUFWERKLDX#$99;BELL1 LDY#$FFJF}MPSPJUMP- SPCLRDSP;A=LAUFWERKLDX#$9C;CLRDSP LDY#$FFJMPSPJUMP- SPTRAANZ ;A=LAUFWERKG}PHALDX#$9F;TRAANZ (LDY#$FF2JSRSPJUMP<PLAFLDX#$A8;DENDSP PLDY#$FFZJMPSPJUMPd- nFSTH}ATUSxLDY#STOKRTS- PERCBUF .BL$C,0 PERCNRM!.HX2801001200000080FF000000-ADRCNT;ADRESSZEI}IGER .HX0000-SECCNT;SECTORCOUNTER .HX38 BUFEOF .HX00 WRTFLG .HX00"-,BUFF6BUFCNTJ};BUFFERCOUNTER @.HX00J.BL$7F,$BBT- ^FHTABh.DAFOPEN-1r.DAFCLOSE-1|.DAFGETBYTE-1.DAFPUTBYTEK}-1.DAFSTATUS-1.DAFSPECIAL-1JMPSPMEMINIT .DA#0 PGMEND-.ORRUNAD .DAINIT-FPUTBYTEt(q+ t (` ;( F 0`Fb+r+` ( ( ( `***8*`1R@M}  Y`1P  Y`1O    Y`1N@    Y`N}1K  Y`1M   Y`H*hLr)** * )h (L\)h c(***i***O}* )`H )h@L")H )hL")Š* (* Ѡ* (`*Š* (`*) 0*' N(! (**)! v)***`*P}*! )*`*L#**L#**! v)***`*L@****! )`"! )`-F 0`Q}( ( ! )L*L*L*L*`L )L )L )H )hL )`(8R})S}))#**@*LN(()`,6-?:E:") Po_}sition (15,5) InputS (dev) IF dev (2)#': THEN SCopy (dev,"E:") FI Close (1) Open (1,dev,8) device=1 PrintE ("Phoe`}niX SoftCrew Haendlertabelle") PrintE ("-------------------------------------") hatab=$31A PutE () PutE () PutE () Wa}HILE hatab.id # 0 DO txt(0)=1 txt(1)=hatab.id vektor=hatab.vk Print ("Haendler ") Print (txt) Print (": Veb}ktor:") PrintHex (Vektor) PutE () tab=vektor Print ("--> Open........") PrintF ("%H%E",tab.vopen+1) Print ("--c}> Close.......") PrintF ("%H%E",tab.vclose+1) Print ("--> GetByte.....") PrintF ("%H%E",tab.vgetb+1) Print ("--> PutBd}yte.....") PrintF ("%H%E",tab.vputb+1) Print ("--> Status......") PrintF ("%H%E",tab.vstat+1) Print ("--> Special....e}.") PrintF ("%H%E",tab.vspec+1) Print ("--> Init........") PrintF ("%H%E",tab.vinit) PutE () hatab==+3 OD devicef}=0 Close (1)RETURNb.vspec+1) Print ("--> Init........") PrintF ("%H%E",tab.vinit) PutE () hatab==+3 OD device---------------------------------30190 DIM SAV$(33)30200 SAV$(1)="hhh hEhDhIhH B V`"30210 REM -----------l@`-----------`à```-----------b'BDOS SYSb-+BDUP SYS`-----------`ΠӠ`-----------b]OS41 ASMb kOS42 ASMbxOS51 ASMbOS52 ASMbOS53 ASMbOS7DEMO COMb OS7DEMO ASM`-----------`͠ˠ`-----------bPMDEMO BASb MOVE BAS`-----------`à`-----------bXDPEEK LSTbZLOAD LSTb\SAVE LSTb^FILL LSTb_DPOKE LSTb`MOVE1 LSTbaMOVE2 LST`-----------`Ԡ`-----------bqHILFE2 BASb!HILFE1 BASbIO_OS ASMbIO_NOS ASM`-----------`Š`-----------b CALL LSTbMOVE LST`-----------`٠`-----------b;SPMEM SRCbLSPMEM COM`-----------`Ү`-----------bUHAENDLERACT`-----------HAENDEDIACTh | ABSIZEZEIHEXHHOPHXZBEA(_ddAU@d@ r} @ @   ""****************************""* PROGRAMMIERHILFE 2 *""* NUR Fs}UER EPSON-DRUCKER *(""* (C) CSM 4/89 E.REUSS *2""****************************711;A,;@0,;@t},;@,8;@,;@ ,<6. Fhh67@<@w,.MhhFhEDhh****))) &Du} &D &DCeDDCȢ*(IP67@x,.>:AU,Z$$67@y,.8EȑE(`d6.01234567v}89ABCDEFn@"@@P@(@@3>:@$,x66(@%E -PROGRAMMIERHILFE 2-w}}(@(@YY(@H DEZIMAL-HEX UMWANDLUNG, ASCII-CODE, ATASCII-CODE UND TASTATUR-CODE (@x} (@FU-@@F(@ DEZ HEX CHR ATA KEY J U(@%%(@y}3>:@0, A-@A''(@-+ 6(@A(@-@c(@ z} -@6-$@d%(-(@E Ap-(@/(@  A{}/(@  A(@F ' @26-%@d' A ' @6-&@2|}' A " A(A ,' A`6-%@d' A 6 A$6-&@2@"E3 A3(}}@   J h(@(r |G(@G(@+E RETURN 0C/4C/8C INV~}ERS 27/67/A7}99(@( CAPS 3C/7C/BC HELP 11/51/91@44(@>:@',L>:@},>:,6-?:C:,:@,(@$}-ڠ- 6.  67@&B:=:,,,.=:, $-ڭؠ- 6.66-P:'@,667@}<@,.7%@,56-&$@567@<@,.7%@,$!--&A0,75, ,0BF,}7F, ,:95,55, ,D92,52, ,NBA,7A, ,XAA,6A, ,bB8,78, ,lBD,7D, ,vB9,79, ,8D,4D, },81,41, ,85,45, ,80,40, ,A5,65, ,A3,63, ,88,48, ,8A,4A, ,AF,6F, ,}A8,68, ,BE,7E, ,AD,6D, ,8B,4B, ,90,50, , AE,6E, ,96,56, , AB,6B, ,*97,}57, ,41C,60, ,>8E,46, ,H8F,62, ,R86,47, ,\87,4E, ,f21,A2, ,p5F,3F, ,z5E,15, },5A,12, ,58,3A, ,5D,2A, ,5B,38, ,73,3D, ,70,39, ,72,0D, ,07,01, ,}06,05, ,20,00, ,0E,25, ,22,23, ,26,08, ,32,0A, ,1F,2F, ,1E,28, ,$1A,}3E, ,.18,2D, ,81D,0B, ,B1B,10, ,L33,2E, ,V35,16, ,`30,2B, ,j42,17, ,t02,82, },~36,4F, ,0F,76, ,37,34, ,66,2C, , D:HILFE2.BAShhFhEDhh****))) &D &D &DC}eDDCȢ*(Iɛ8EȑE(`Edd>>****)FhEDhh****))) &D &D &DCUR1,X>STA$4000+640,YHINXRINY \CPX#$B fBNE.2pRTSz-GETKEYLDA$E425PHALDA$E424PH)}ARTS-PLAYER.DA#%00000000.DA#%00111100.DA#%01111110.DA#%11011011.DA#%11011011.DA#)}%11100111.DA#%10100101.DA#%11000011.DA#%01111110.DA#%00111100$.DA#%00000000.-8PLAYER1.DA)}#%00000000B.DA#%00000000L.DA#%00100100V.DA#%00000000`.DA#%00000000j.DA#%00011000t.DA#%00011000)}~.DA#%00000000.DA#%00000000.DA#%00000000.DA#%00000000-00000j.DA#%00011000t.DA#%00011000(Q;********************************;** **;** Phoenix SoftCrew ACTION! **;** Programme und Tips ّ}f. 8Bit **;** **;** Carsten Strotmann **;** An der Kreutzbrede 20 **;** ْ} **;** D- 4410 Warendorf 1 **;** (02581) 8920 **;** **;ٓ}********************************; Programmname:Haendler-Edit; Programmierer:Carsten Strotmann; Filename:HAENDEDI.ACT; erٔ}ste Version:10.05.90; letzte Aenderung:10.05.90; Zweck:Aendert Systemhaendler; Bemerkung:;;;INCLUDE "D:SYSTEM.ACT"MOٕ}DULETYPE htabel=[ BYTE id CARD vk]TYPE vtabel=[ CARD vopen, vclose, vgetb, ٖ} vputb, vstat, vspec BYTE jmp CARD vinit BYTE nuse]htabel POIٗ}NTER hatabelvtabel POINTER tabelBYTE ARRAY newtabel ($10)PROC Nput (BYTE chr,iocb,stat) BYTE rowcrs=$54,lmargn=$52,rma٘}rgn=$53 CARD colcrs=$55,savmsc=$58 BYTE POINTER pos pos=colcrs+rowcrs*40+savmsc IF chr>=0 AND chr<32 OR chr>127 AND cٙ}hr<160 THEN chr==+64 ELSEIF chr>31 AND chr<95 OR chr>159 AND chr<224 THEN chr==-32 FI IF chr=$DB THEN colcrs=lmargnٚ} rowcrs==+1 ELSE pos^=chr colcrs==+1 FI IF colcrs>rmargn THEN colcrs=lmargn rowcrs==+1 FI IF rowcrs=24 THEN ٛ} MoveBlock (savmsc,savmsc+40,920) rowcrs=23 FI [ $A0 ; Statuswert=OK $01 ]RETURN PROC NewPut () CARD vektorٜ} hatabel=$31A WHILE hatabel.id # 'E DO hatabel==+3 OD vektor=hatabel.vk MoveBlock (newtabel,vektor,$10) hatabelٝ}.vk=newtabel tabel=newtabel tabel.vputb=nput-1RETURN vektor=hatabel.vk MoveBlock (newtabel,vektor,$10) hatabel@/