0u0,31,0,39:6,2:%:u1,8,9,39ADu"* * **** * ***"_Nu"* * * * * *" {Xu"**** *** * ***"bu"* * * * *"lu"* * **** *** *"vu0,31,0,39u(8,5);"Men}auswahl:"u(12,5);"Struktogramm (FOR, NEXT)"u(16,5);"Variablensuche"<u(20,5);"PEEKs & POKEs"Xu(24,5);"Programmende"zuZN3:(27,25);"` MLsoft '91"u 21,2;(4ZN,1);"==>"uZI$: ZI$"" 30150u(4ZN,1);" "u ZI$(10) ZN6 ZNZN1: 30140u ZI$(11) ZN3 ZNZN1: 301400u ZI$(13) 30140Bu: 3,31,0,39fv ZN2 32010,33010,34010,30220y v0,31,0,39::v--- Zeilenende --- vZM0:ZIZI2:ZA$""*vZC;ZA$:4v--- Zeilennummer --->vZM1:ZC(ZI):ZA$"":ZIZI2:Hv--- Neue Zeile ---&RvZIZI4:ZC(ZI1)6\v(2,27);ZCFfvZC$(ZC):Ypv--- Komma ---zzvZIZI1:ZA(ZI):ZA030360v ZA32 30330v ZA44 ZB$ZB$",":vZIZI1:v--- Variablensuche ---vZIZI1:ZA(ZI):ZB$""v ZA0 ZIZI1:v ZA32303800v ZA65 ZA90 BvZB$ZB$(ZA)WvZIZI1:ZA(ZI)sv ZA40 ZB$ZB$"(":v ZA36 ZB$ZB$"$":30430v ZA64 ZA91 30420w ZA47 ZA58 30420wZIZI1:w--- Zahlensuche ---$wZB$"" .wZIZI1:ZA(ZI)( 8w ZA0 ZIZI1:: Bw ZA3230510Y Lw ZA48 ZA57 ZIZI1:r VwZB$ZB$(ZA):30510 `w--- Variable, Zahl holen --- jwZB$"" twZIZI1:ZA(ZI) ~w ZA0 30650 wZA3230580 w ZA40 ZA41 30640 w ZA47 ZA58 30640' w ZA65 ZA9030650@ wZB$ZB$(ZA):30580N wZIZI1:c w--- Strings ---x wZIZI1:ZA(ZI) w ZA0 ZIZI1: w ZA34 30670 w w--- DATA --- xZIZI1:ZA(ZI) x ZA0 ZA58 30720 xZIZI1: x--- REM --- (xZIZI1:ZA(ZI)3 2x ZA0 30760A FOR " Zx30380: ZA$ZA$ZC$ZB$: dx--- NEXT --- nxZA$ZA$" >NEXT " xx30380: ZB$"" xZC$ZB$:30330:ZA$ZA$ZB$ x ZB$ZC$ x30840 x--- GOTO ---, x30500: ZC$ZB$: 30330E xZA$ZA$" GOTO "ZB$W x ZB$ZC$ s x30500: ZC$ZB$: 30330 xZA$ZA$ZB$: 30910 x--- GOSUB --- x30500: ZC$ZB$: 30330 xZA$ZA$" GOSUB "ZB$: 30910 x--- THEN --- y30500: ZB$"" # yZA$ZA$" THEN "ZB$: 5 y--- ELSE ---N "y30500: ZB$"" k ,yZA$ZA$" ELSE "ZB$: } 6y--- POKE --- @yZC$" POKE " Jy30570:30330:ZA$ZA$ZC$ZB$ Ty30570:ZA$ZA$ZB$: ^y--- DOKE --- hyZC$" DOKE ": 31050ry--- CALL ---|yZA$ZA$" CALL"1yZIZI1: ZA(ZI)Dy ZA32 31110ey ZA174 ZA$ZA$"*":31150}yZA$ZA$" ":ZIZI1y30570:ZA$ZA$ZB$: y--- CLEAR ---yZA$ZA$" CLEAR ":30570y ZB$"" yZC$ZB$:30330:ZA$ZA$ZB$ y ZB$ZC$ $y30570: ZA$ZA$ZB$: 5y--- USR ---DyZC$" USR"`z30570: ZA$ZA$ZC$ZB$fzxz--- PEEK ---&zZC$" PEEK": 312400z--- DEEK ---:zZC$" DEEK": 31240Dz--- VPEEK ---NzZC$" VPEEK": 31240Xz--- VPOKE ---bzZC$" VPOKE ":31050$}------------I }(1,10);"> Struktogramm <":ZM0d} ZI(863)2 (983)} ZM0 30270: Neue Zeile(} ZC29999 2} ZZ(ZI): ZM1<} ZZ0 30240: ZeilenendeF} ZZ129 30800: FOR P} ZZ130 30830: NEXT+Z} ZZ136 30890: GOTOJd} ZZ140 30950: GOSUBhn} ZZ169 30980: THENx} ZZ212 31010: ELSE}:耜------------5000:ZA$(100),ZP(100)(1,10);"> Variablensuche <";ZI0 100:ZP(ZI)ZI:(2,8);"Ich suche in Zeile:"8 ZI(863)1 (983)O$ (ZI)0 30290f. ZC29999 33310t8 ZZ(ZI)B ZZ34 30670: StringL ZZ131 30720: DATAV ZZ142 30760: REM` ZZ156 30760: REMj--- Variablensuche ---!t ZZ32 : 33310A~ ZZ65 ZZ90 :33310P ZB$(ZZ)f--- gefunden ---} ZIZI1: ZZ(ZI) ZZ40 ZB$ZB$"(": 33240 ZZ36 ZB$ZB$"$":33180 (ZZ64ZZ91)(ZZ47ZZ58) ZB$ZB$(ZZ): 33180 ā ZIZI1: ZB$"" : 333107΁--- Einordnen ---S؁ ZB$ZB$":": ZL(ZB$)s ZJ0 ZB1: ZA$ZA$(ZJ) (ZA$,ZL)ZB$ : ZA$(ZB)ZB$ZC$: ZBZB1: 33290 (ZA$,(ZC$))ZC$ (ZA$(ZJ))248 ZA$(ZJ)ZA$ZC$ZJZB:  ZB$"": --- Sortieren ---/ ZB2 33390T((2,12);"sortiere ! "f2 ZX0 ZB2{< ZYZX1 ZB1FZ1$(ZA$(ZP(ZX)),(":",ZA$(ZP(ZX)))1)PZ2$(ZA$(ZP(ZY)),(":",ZA$(ZP(ZY)))1)ZZ1$Z2$ ZPZP(ZX):ZP(ZX)ZP(ZY):ZP(ZY)ZP d:n(2,8);25)2x--- Anzeige ---O ZI0 ZB:ZA$(ZP(ZI))["";ZI$c:uЄ------------ڄ(1,10);"> PEEKs & POKEs <":ZM0䄁 ZI(863)2 (983) ZM0 30270: Neue Zeile ZC29999  ZZ (ZI): ZM1% ZZ0 30240: ZeilenendeE ZZ34 30670: Stringc ZZ131 30720: DATA* ZZ142 30760: REM4 ZZ149 31040: POKE> ZZ150 31080: DOKEH ZZ156 30720: REMR ZZ157 31100: CALL\ ZZ161 31170: CLEAR3f ZZ185 31230: USRQp ZZ197 31270: PEEKpz ZZ198 31290: DEEK  ZZ231 31310: VPEEK ZZ232 31330: VPOKE ZZ197 31270: PEEKpz ZZ198 31290: DEEK  ZZ231