ASC(GET)-BASIC-0

00000000: 01 1C 3C 1C 01 00 8F 22  41 53 43 28 47 45 54 29  |..<...."ASC(GET)|
00000010: 2D 42 41 53 49 43 2D 30  3A B0 20 D7 41 4C 54 45  |-BASIC-0:. .ALTE|
00000020: 52 20 CE 4F 48 53 45 3A  44 4F 2D 30 39 2E 30 38  |R .OHSE:DO-09.08|
00000030: 2E 39 30 3A C3 3D 31 32  38 C4 20 22 00 74 1C 02  |.90:.=128. ".t..|
00000040: 00 89 20 35 3A 8F 3A 12  41 53 43 28 47 45 54 29  |.. 5:.:.ASC(GET)|
00000050: 2D 52 4F 55 54 49 4E 45  2C 20 20 42 4C 49 4E 4B  |-ROUTINE,  BLINK|
00000060: 44 2E 43 55 52 53 4F 52  20 55 4E 44 20 41 55 53  |D.CURSOR UND AUS|
00000070: 57 41 48 4C 00 A1 1C 03  00 E0 31 2C 53 50 2C 5A  |WAHL......1,SP,Z|
00000080: 45 2C 4B 24 3A FE 02 20  30 3A 9E 20 28 41 47 29  |E,K$:.. 0:. (AG)|
00000090: 20 3A FE 09 58 3A 8E 3A  8F 3A 52 4F 55 54 49 4E  | :..X:.:.:ROUTIN|
000000A0: 45 00 CD 1C 04 00 3A 3A  3A 3A 3A 3A 99 4B 24 3B  |E.....::::::.K$;|
000000B0: 3A FE 02 20 30 3A 9E 20  28 41 47 29 20 3A FE 09  |:.. 0:. (AG) :..|
000000C0: 58 3A 8E 3A 8F 3A 41 4C  54 45 52 4E 2E 00 F3 1C  |X:.:.:ALTERN....|
000000D0: 05 00 9C 3A FE 25 3A 97  20 30 2C 31 31 31 3A 97  |...:.%:. 0,111:.|
000000E0: 20 31 2C 35 31 3A 99 20  C7 28 31 34 29 3B C7 28  | 1,51:. .(14);.(|
000000F0: 31 31 29 00 2A 1D 06 00  43 24 B2 C7 28 33 34 29  |11).*...C$..(34)|
00000100: 3A 48 4F 24 B2 C7 28 31  39 29 3A 53 43 24 B2 C7  |:HO$..(19):SC$..|
00000110: 28 31 34 37 29 3A 43 4C  24 B2 C7 28 31 35 37 29  |(147):CL$..(157)|
00000120: 3A 52 56 24 B2 C7 28 31  38 29 00 62 1D 07 00 45  |:RV$..(18).b...E|
00000130: 53 24 B2 C7 28 32 37 29  3A 45 44 24 B2 45 53 24  |S$..(27):ED$.ES$|
00000140: AA C7 28 36 38 29 3A 45  54 24 B2 45 53 24 AA C7  |..(68):ET$.ES$..|
00000150: 28 38 34 29 3A 45 43 24  B2 45 53 24 AA C7 28 36  |(84):EC$.ES$..(6|
00000160: 34 29 00 6B 1D 08 00 89  20 31 30 00 86 1D 09 00  |4).k.... 10.....|
00000170: 81 20 51 B2 30 20 A4 20  37 32 3A 99 22 A6 22 3B  |. Q.0 . 72:.".";|
00000180: 3A 82 3A 99 3A 8E 00 B7  1D 0A 00 FE 11 22 41 53  |:.:.:........"AS|
00000190: 43 28 47 45 54 29 20 C2  49 4C 44 2B 4D 50 22 3A  |C(GET) .ILD+MP":|
000001A0: FE 02 20 30 3A 9E D1 28  22 37 46 35 37 22 29 3A  |.. 0:..("7F57"):|
000001B0: 8F 3A 20 42 49 4C 44 00  D8 1D 14 00 E0 31 2C 30  |.: BILD......1,0|
000001C0: 2C 33 2C 22 22 3A 8D 20  39 3A E0 31 2C 30 2C 31  |,3,"":. 9:.1,0,1|
000001D0: 34 2C 22 22 3A 8D 20 39  00 17 1E 1E 00 41 47 B2  |4,"":. 9.....AG.|
000001E0: 33 32 36 36 37 3A 41 47  24 B2 22 37 46 39 42 22  |32667:AG$."7F9B"|
000001F0: 3A 5A 45 B2 32 3A 53 50  B2 35 39 3A 4B 24 B2 22  |:ZE.2:SP.59:K$."|
00000200: 3C 4A 2F 4E 3E 22 3A 8D  20 33 3A 8B 20 58 B2 37  |<J/N>":. 3:. X.7|
00000210: 34 20 A7 20 31 33 30 00  42 1E 28 00 E0 31 2C 33  |4 . 130.B.(..1,3|
00000220: 36 2C 32 2C 22 D7 4F 48  49 4E 20 53 4F 4C 4C 20  |6,2,".OHIN SOLL |
00000230: 45 53 2C 20 20 48 45 58  41 44 45 5A 49 4D 41 4C  |ES,  HEXADEZIMAL|
00000240: 20 22 00 71 1E 32 00 E0  31 2C 36 35 2C 32 2C 22  | ".q.2..1,65,2,"|
00000250: 3F 22 AA 43 4C 24 AA 43  4C 24 3A 85 41 47 24 3A  |?".CL$.CL$:.AG$:|
00000260: 8B 20 C6 28 41 47 24 29  B3 B1 33 36 20 A7 20 31  |. .(AG$)..36 . 1|
00000270: 30 00 9F 1E 3C 00 41 47  B2 D1 28 CA 28 41 47 24  |0...<.AG..(.(AG$|
00000280: 2C 32 29 29 3A 8F 3A 53  50 45 49 43 48 45 52 2D  |,2)):.:SPEICHER-|
00000290: 41 44 52 45 53 53 45 20  46 55 45 52 20 4D 50 00  |ADRESSE FUER MP.|
000002A0: CE 1E 46 00 8B 20 41 47  B3 33 32 37 32 20 A7 20  |..F.. AG.3272 . |
000002B0: 31 30 3A 3A 8F 3A 42 45  52 45 49 43 48 45 20 41  |10::.:BEREICHE A|
000002C0: 55 53 53 43 48 4C 49 45  53 53 45 4E 20 2A 00 FB  |USSCHLIESSEN *..|
000002D0: 1E 50 00 8B 20 41 47 B1  33 39 39 35 20 A7 20 8B  |.P.. AG.3995 . .|
000002E0: 20 41 47 B3 34 38 36 34  20 A7 20 31 30 3A 8F 3A  | AG.4864 . 10:.:|
000002F0: 24 30 46 39 45 2D 24 31  32 46 46 00 2B 1F 5A 00  |$0F9E-$12FF.+.Z.|
00000300: 41 B2 32 35 36 AC C2 28  34 36 29 AA C2 28 34 35  |A.256..(46)..(45|
00000310: 29 AB 31 30 33 3A 45 B2  32 35 36 AC C2 28 34 36  |).103:E.256..(46|
00000320: 32 35 29 AA C2 28 34 36  32 34 29 00 51 1F 64 00  |25)..(4624).Q.d.|
00000330: 8B 20 41 47 B3 45 20 A7  20 8B 20 41 47 B1 41 20  |. AG.E . . AG.A |
00000340: A7 20 31 30 3A 8F 3A 42  41 53 49 43 2D 50 52 47  |. 10:.:BASIC-PRG|
00000350: 2E 00 7E 1F 6E 00 8B 20  41 47 B3 41 20 A7 20 8B  |..~.n.. AG.A . .|
00000360: 20 41 47 B1 34 38 36 33  20 A7 20 31 33 30 3A 8F  | AG.4863 . 130:.|
00000370: 3A 24 31 33 30 30 2D 28  24 32 44 2D 32 29 00 9B  |:$1300-($2D-2)..|
00000380: 1F 78 00 8B 20 41 47 B1  33 32 36 36 37 20 A7 20  |.x.. AG.32667 . |
00000390: 31 30 3A 8F 3A 20 24 37  46 39 42 00 D4 1F 82 00  |10:.: $7F9B.....|
000003A0: 48 B2 B5 28 41 47 AD 32  35 36 29 3A 4C B2 AB 32  |H..(AG.256):L..2|
000003B0: 35 36 AC 48 AA 41 47 3A  FE 02 20 30 3A 9E D1 28  |56.H.AG:.. 0:..(|
000003C0: 22 37 46 37 45 22 29 2C  4C 2C 48 3A FE 09 41 2C  |"7F7E"),L,H:..A,|
000003D0: 58 2C 47 45 00 F4 1F 8C  00 E0 31 2C 35 34 2C 34  |X,GE......1,54,4|
000003E0: 2C C4 28 41 47 29 3A E0  31 2C 35 34 2C 35 2C C4  |,.(AG):.1,54,5,.|
000003F0: 28 41 47 29 00 15 20 96  00 8F 3A 12 4E 55 52 20  |(AG).. ...:.NUR |
00000400: 5A 55 52 20 44 45 4D 4F  4E 53 54 52 41 54 49 4F  |ZUR DEMONSTRATIO|
00000410: 4E 20 2A 2A 2A 00 4A 20  A0 00 99 48 4F 24 45 44  |N ***.J ...HO$ED|
00000420: 24 45 44 24 45 44 24 45  44 24 3A 99 3A 99 45 44  |$ED$ED$ED$:.:.ED|
00000430: 24 3A 99 45 44 24 45 54  24 53 43 24 3A 8F 3A 42  |$:.ED$ET$SC$:.:B|
00000440: 49 4C 44 57 45 43 48 53  45 4C 00 78 20 AA 00 99  |ILDWECHSEL.x ...|
00000450: 53 43 24 22 2D C2 45 49  53 50 49 45 4C 45 20 2D  |SC$"-.EISPIELE -|
00000460: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 22 3A 99 45 54  |-----------":.ET|
00000470: 24 3B 3A 89 20 31 39 30  00 9A 20 B4 00 5A 45 B2  |$;:. 190.. ..ZE.|
00000480: 58 3A 53 50 B2 53 50 28  58 29 3A 4B 24 B2 4B 24  |X:SP.SP(X):K$.K$|
00000490: 28 58 29 AA 22 22 3A 89  20 33 00 C6 20 BE 00 54  |(X)."":. 3.. ..T|
000004A0: 24 28 30 29 B2 22 20 30  3A 20 CD 45 4E 55 2D DA  |$(0)." 0: .ENU-.|
000004B0: 49 46 46 45 52 20 22 3A  3A 4B 24 28 30 29 B2 22  |IFFER "::K$(0)."|
000004C0: 3C 31 2D 36 3E 22 00 F2  20 C8 00 54 24 28 31 29  |<1-6>".. ..T$(1)|
000004D0: B2 22 20 31 3A 20 52 49  43 48 54 49 47 20 22 3A  |." 1: RICHTIG ":|
000004E0: 3A 3A 3A 3A 3A 4B 24 28  31 29 B2 22 3C 4A 2F 4E  |:::::K$(1)."<J/N|
000004F0: 3E 22 00 1E 21 D2 00 54  24 28 32 29 B2 22 20 32  |>"..!..T$(2)." 2|
00000500: 3A 20 D7 45 4C 43 48 45  20 C4 41 54 45 49 20 22  |: .ELCHE .ATEI "|
00000510: 3A 4B 24 28 32 29 B2 22  3C C1 2D C4 3E 22 00 4A  |:K$(2)."<.-.>".J|
00000520: 21 DC 00 54 24 28 33 29  B2 22 20 33 3A 20 22 3A  |!..T$(3)." 3: ":|
00000530: 3A 3A 3A 3A 3A 3A 3A 3A  3A 3A 3A 3A 3A 4B 24 28  |:::::::::::::K$(|
00000540: 33 29 B2 22 3C 35 2F 39  3E 22 00 74 21 E6 00 54  |3)."<5/9>".t!..T|
00000550: 24 28 34 29 B2 22 20 34  3A 20 D4 41 53 54 45 20  |$(4)." 4: .ASTE |
00000560: 22 3A 3A 3A 3A 3A 3A 3A  3A 4B 24 28 34 29 B2 22  |"::::::::K$(4)."|
00000570: 3C CC 3E 22 00 9E 21 F0  00 54 24 28 35 29 B2 22  |<.>"..!..T$(5)."|
00000580: 20 35 3A 20 D3 D0 C1 C3  C5 20 22 3A 3A 3A 3A 3A  | 5: ..... ":::::|
00000590: 3A 3A 3A 4B 24 28 35 29  B2 22 3C 20 3E 22 00 C8  |:::K$(5)."< >"..|
000005A0: 21 FA 00 54 24 28 36 29  B2 22 20 36 3A 20 C5 CE  |!..T$(6)." 6: ..|
000005B0: C4 C5 20 22 3A 3A 3A 3A  3A 3A 3A 3A 3A 4B 24 28  |.. ":::::::::K$(|
000005C0: 36 29 B2 22 3C C5 3E 22  00 F2 21 04 01 51 B2 30  |6)."<.>"..!..Q.0|
000005D0: 3A 53 50 28 51 29 B2 C3  28 54 24 28 51 29 29 3A  |:SP(Q)..(T$(Q)):|
000005E0: 97 32 34 31 2C 31 34 33  AA 36 34 3A 99 54 24 28  |.241,143.64:.T$(|
000005F0: 51 29 00 25 22 0E 01 81  20 51 B2 31 20 A4 20 36  |Q).%"... Q.1 . 6|
00000600: 3A 53 50 28 51 29 B2 C3  28 54 24 28 51 29 29 3A  |:SP(Q)..(T$(Q)):|
00000610: 97 32 34 31 2C 31 33 31  AA 32 AC 51 3A 99 54 24  |.241,131.2.Q:.T$|
00000620: 28 51 29 3A 82 00 4F 22  18 01 58 B2 30 3A 8D 20  |(Q):..O"..X.0:. |
00000630: 31 38 30 3A 58 B2 58 AB  34 38 3A 8D 20 31 38 30  |180:X.X.48:. 180|
00000640: 3A 8B 20 58 B3 B1 31 39  37 20 A7 20 32 38 30 00  |:. X..197 . 280.|
00000650: 74 22 22 01 99 48 4F 24  48 4F 24 3A 99 3A 99 45  |t""..HO$HO$:.:.E|
00000660: 54 24 53 43 24 3B 3A 97  20 32 34 31 2C 31 34 31  |T$SC$;:. 241,141|
00000670: 3A 8D 20 39 00 93 22 2C  01 8F 3A 12 52 4F 55 54  |:. 9..",..:.ROUT|
00000680: 49 4E 45 20 41 42 53 50  45 49 43 48 45 52 4E 20  |INE ABSPEICHERN |
00000690: 2A 2A 2A 00 AC 22 36 01  50 24 B2 22 41 53 43 28  |***.."6.P$."ASC(|
000006A0: 47 45 54 29 20 2F 20 22  AA 41 47 24 00 E9 22 40  |GET) / ".AG$.."@|
000006B0: 01 E0 31 2C 30 2C 31 2C  22 D7 4F 4C 4C 45 4E 20  |..1,0,1,".OLLEN |
000006C0: D3 49 45 20 22 AA 43 24  AA 50 24 AA 43 24 AA 22  |.IE ".C$.P$.C$."|
000006D0: 20 41 55 46 20 C4 49 53  4B 45 54 54 45 20 53 50  | AUF .ISKETTE SP|
000006E0: 45 49 43 48 45 52 4E 20  22 00 0B 23 4A 01 4B 24  |EICHERN "..#J.K$|
000006F0: B2 22 3C 4A 2F 4E 3E 22  3A 8D 20 34 3A 99 3A 8B  |."<J/N>":. 4:.:.|
00000700: 20 58 B2 37 38 20 A7 20  33 39 30 00 19 23 54 01  | X.78 . 390..#T.|
00000710: 46 B2 30 3A D7 20 33 36  30 00 39 23 5E 01 FE 10  |F.0:. 360.9#^...|
00000720: 20 28 50 24 29 2C 42 30  2C 50 28 41 47 29 20 A4  | (P$),B0,P(AG) .|
00000730: 20 50 28 41 47 AA 47 45  29 00 4E 23 68 01 9F 20  | P(AG.GE).N#h.. |
00000740: 31 2C 38 2C 31 35 3A 84  31 2C 46 2C 46 24 00 7D  |1,8,15:.1,F,F$.}|
00000750: 23 72 01 A0 20 31 3A D7  3A 8B 20 46 20 A7 20 99  |#r.. 1:.:. F . .|
00000760: 22 C6 4C 4F 50 50 59 2D  C6 45 48 4C 45 52 3A 22  |".LOPPY-.EHLER:"|
00000770: 3B 46 22 2C 22 46 24 3A  89 20 34 30 30 00 9A 23  |;F","F$:. 400..#|
00000780: 7C 01 99 3A 99 A3 32 31  29 22 49 53 54 20 47 45  ||..:..21)"IST GE|
00000790: 53 50 45 49 43 48 45 52  54 22 00 AD 23 86 01 FE  |SPEICHERT"..#...|
000007A0: 0B 20 32 3A 8D 20 39 3A  89 20 34 33 30 00 BE 23  |. 2:. 9:. 430..#|
000007B0: 90 01 8B 20 46 B2 36 33  20 A7 20 33 39 30 00 F2  |... F.63 . 390..|
000007C0: 23 9A 01 99 22 C9 53 54  20 C6 4C 4F 50 50 59 2D  |#...".ST .LOPPY-|
000007D0: C6 45 48 4C 45 52 20 42  45 48 4F 42 45 4E 20 22  |.EHLER BEHOBEN "|
000007E0: 3B 3A 4B 24 B2 22 3C 4A  2F 4E 3E 22 3A 8D 20 34  |;:K$."<J/N>":. 4|
000007F0: 3A 99 00 0B 24 A4 01 8B  20 58 B2 37 34 20 A7 20  |:...$... X.74 . |
00000800: 32 39 30 3A D5 20 89 20  33 39 30 00 45 24 AE 01  |290:. . 390.E$..|
00000810: 8F 3A 12 44 41 54 41 2D  5A 45 49 4C 45 4E 20 4F  |.:.DATA-ZEILEN O|
00000820: 44 45 52 20 53 50 45 49  43 48 45 52 2D 4D 45 4D  |DER SPEICHER-MEM|
00000830: 4F 52 59 20 49 4D 20 42  41 53 49 43 2D 50 52 4F  |ORY IM BASIC-PRO|
00000840: 47 52 41 4D 4D 00 60 24  B8 01 99 48 4F 24 48 4F  |GRAMM.`$...HO$HO|
00000850: 24 3A E0 31 2C 30 2C 33  2C 45 54 24 AA 45 43 24  |$:.1,0,3,ET$.EC$|
00000860: 00 A4 24 C2 01 99 22 C4  41 54 41 2D DA 45 49 4C  |..$...".ATA-.EIL|
00000870: 45 4E 20 45 52 5A 45 55  47 45 4E 20 4F 44 45 52  |EN ERZEUGEN ODER|
00000880: 20 D3 50 45 49 43 48 45  52 2D CD 45 4D 4F 52 59  | .PEICHER-.EMORY|
00000890: 20 4C 45 53 45 4E 20 22  3B 3A 4B 24 B2 22 3C 44  | LESEN ";:K$."<D|
000008A0: 2F 4D 3E 22 00 BB 24 CC  01 8D 20 34 3A 99 3A 8B  |/M>"..$... 4:.:.|
000008B0: 20 58 B2 36 38 20 A7 20  36 30 30 00 CF 24 D6 01  | X.68 . 600..$..|
000008C0: 8F 3A 12 4D 45 4D 4F 52  59 20 4C 45 53 45 4E 00  |.:.MEMORY LESEN.|
000008D0: FB 24 E0 01 4D 24 B2 22  4D 20 22 AA D2 28 41 47  |.$..M$."M "..(AG|
000008E0: 29 AA 22 20 22 AA D2 28  41 47 AA 47 45 29 3A 59  |)." "..(AG.GE):Y|
000008F0: 24 B2 22 20 20 20 20 20  20 20 22 00 33 25 EA 01  |$."       ".3%..|
00000900: E0 31 2C 30 2C 32 2C 22  4D 4F CE 22 3A E0 31 2C  |.1,0,2,"MO.":.1,|
00000910: 30 2C 37 2C 4D 24 3A E0  31 2C 30 2C 31 35 2C 22  |0,7,M$:.1,0,15,"|
00000920: 58 22 3A E0 31 2C 30 2C  31 37 2C 22 47 CF 20 35  |X":.1,0,17,"G. 5|
00000930: 31 30 22 00 5E 25 F4 01  97 20 32 30 38 2C 35 3A  |10".^%... 208,5:|
00000940: 81 20 51 B2 30 20 A4 20  34 3A 97 20 38 34 32 AA  |. Q.0 . 4:. 842.|
00000950: 51 2C 31 33 3A 82 3A 99  48 4F 24 3B 3A 80 00 6E  |Q,13:.:.HO$;:..n|
00000960: 25 FE 01 E0 31 2C 30 2C  31 2C 59 24 3A 99 00 8F  |%...1,0,1,Y$:...|
00000970: 25 08 02 99 45 44 24 45  44 24 45 44 24 45 44 24  |%...ED$ED$ED$ED$|
00000980: 45 44 24 3A E0 31 2C 30  2C 31 30 2C 45 43 24 00  |ED$:.1,0,10,EC$.|
00000990: BF 25 12 02 99 3A 99 22  CD 45 52 4B 45 4E 20 D3  |.%...:.".ERKEN .|
000009A0: 49 45 20 53 49 43 48 3A  20 20 44 45 5A 22 3B 41  |IE SICH:  DEZ";A|
000009B0: 47 22 20 3D 20 24 22 3B  D2 28 41 47 29 3A 80 00  |G" = $";.(AG):..|
000009C0: DA 25 58 02 8F 3A 12 44  41 54 41 2D 5A 45 49 4C  |.%X..:.DATA-ZEIL|
000009D0: 45 4E 20 46 55 45 52 20  4D 50 00 F4 25 76 02 99  |EN FUER MP..%v..|
000009E0: 3A 5A B2 38 39 30 3A 50  B2 41 47 AB 31 3A 51 B2  |:Z.890:P.AG.1:Q.|
000009F0: 50 AA 47 45 00 12 26 80  02 8B 20 51 AB 50 B1 31  |P.GE..&... Q.P.1|
00000A00: 36 20 A7 20 41 B2 30 3A  D5 20 41 B2 31 36 AA 50  |6 . A.0:. A.16.P|
00000A10: AB 51 00 33 26 8A 02 5A  B2 5A AA 31 30 3A 99 20  |.Q.3&..Z.Z.10:. |
00000A20: 5A 3B 22 44 41 54 41 20  22 3B 3A EB 20 FC 20 41  |Z;"DATA ";:. . A|
00000A30: B2 31 36 00 56 26 94 02  50 B2 50 AA 31 3A 41 B2  |.16.V&..P.P.1:A.|
00000A40: 41 AA 31 3A 99 20 CA 28  D2 28 C2 28 50 29 29 2C  |A.1:. .(.(.(P)),|
00000A50: 33 29 22 2C 22 3B 00 64  26 9E 02 EC 3A 99 43 4C  |3)",";.d&...:.CL|
00000A60: 24 22 20 22 00 78 26 A8  02 8B 20 50 B3 51 20 A7  |$" ".x&... P.Q .|
00000A70: 20 36 34 30 3A D5 20 80  00 00 00                 | 640:. ....     |

..<...."ASC(GET)-BASIC-0:. WALTER NOHSE:
DO-09.08.90:C=128D ".T.... 5:.:.ASC(GET)
-ROUTINE,  BLINKD.CURSOR UND AUSWAHL....
..1,SP,ZE,K$:.. 0:. (AG) :..X:.:.:ROUTIN
E.M...::::::.K$;:.. 0:. (AG) :..X:.:.:AL
TERN.......:.%:. 0,111:. 1,51:. G(14);G(
11).*...C$.G(34):HO$.G(19):SC$.G(147):CL
$.G(157):RV$.G(18).B...ES$.G(27):ED$.ES$
.G(68):ET$.ES$.G(84):EC$.ES$.G(64).K....
 10...... Q.0 . 72:.".";:.:.:........"AS
C(GET) BILD+MP":.. 0:.Q("7F57"):.: BILD.
X....1,0,3,"":. 9:.1,0,14,"":. 9.....AG.
32667:AG$."7F9B":ZE.2:SP.59:K$."<J/N>":.
 3:. X.74 . 130.B.(..1,36,2,"WOHIN SOLL 
ES,  HEXADEZIMAL ".Q.2..1,65,2,"?".CL$.C
L$:.AG$:. F(AG$)..36 . 10...<.AG.Q(J(AG$
,2)):.:SPEICHER-ADRESSE FUER MP.N.F.. AG
.3272 . 10::.:BEREICHE AUSSCHLIESSEN *..
.P.. AG.3995 . . AG.4864 . 10:.:$0F9E-$1
2FF.+.Z.A.256.B(46).B(45).103:E.256.B(46
25).B(4624).Q.D.. AG.E . . AG.A . 10:.:B
ASIC-PRG..~.N.. AG.A . . AG.4863 . 130:.
:$1300-($2D-2)...X.. AG.32667 . 10:.: $7
F9B.T...H..(AG.256):L..256.H.AG:.. 0:.Q(
"7F7E"),L,H:..A,X,GE......1,54,4,D(AG):.
1,54,5,D(AG).. ...:.NUR ZUR DEMONSTRATIO
N ***.J  ..HO$ED$ED$ED$ED$:.:.ED$:.ED$ET
$SC$:.:BILDWECHSEL.X ...SC$"-BEISPIELE -
-----------":.ET$;:. 190.. ..ZE.X:SP.SP(
X):K$.K$(X)."":. 3.F ..T$(0)." 0: MENU-Z
IFFER "::K$(0)."<1-6>".. H.T$(1)." 1: RI
CHTIG "::::::K$(1)."<J/N>"..!R.T$(2)." 2
: WELCHE DATEI ":K$(2)."<A-D>".J!..T$(3)
." 3: "::::::::::::::K$(3)."<5/9>".T!..T
$(4)." 4: TASTE "::::::::K$(4)."<L>"..!.
.T$(5)." 5: SPACE "::::::::K$(5)."< >".H
!..T$(6)." 6: ENDE ":::::::::K$(6)."<E>"
..!..Q.0:SP(Q).C(T$(Q)):.241,143.64:.T$(
Q).%"... Q.1 . 6:SP(Q).C(T$(Q)):.241,131
.2.Q:.T$(Q):..O"..X.0:. 180:X.X.48:. 180
:. X..197 . 280.T""..HO$HO$:.:.ET$SC$;:.
 241,141:. 9..",..:.ROUTINE ABSPEICHERN 
***.."6.P$."ASC(GET) / ".AG$.."@..1,0,1,
"WOLLEN SIE ".C$.P$.C$." AUF DISKETTE SP
EICHERN "..#J.K$."<J/N>":. 4:.:. X.78 . 
390..#T.F.0:W 360.9#^... (P$),B0,P(AG) .
 P(AG.GE).N#H.. 1,8,15:.1,F,F$.}#R.  1:W
:. F . ."FLOPPY-FEHLER:";F","F$:. 400..#
|..:..21)"IST GESPEICHERT"..#.... 2:. 9:
. 430..#... F.63 . 390..#..."IST FLOPPY-
FEHLER BEHOBEN ";:K$."<J/N>":. 4:...$...
 X.74 . 290:U . 390.E$...:.DATA-ZEILEN O
DER SPEICHER-MEMORY IM BASIC-PROGRAMM.`$
...HO$HO$:.1,0,3,ET$.EC$..$B.."DATA-ZEIL
EN ERZEUGEN ODER SPEICHER-MEMORY LESEN "
;:K$."<D/M>"..$L.. 4:.:. X.68 . 600.O$V.
.:.MEMORY LESEN..$..M$."M ".R(AG)." ".R(
AG.GE):Y$."       ".3%...1,0,2,"MON":.1,
0,7,M$:.1,0,15,"X":.1,0,17,"GO 510".^%..
. 208,5:. Q.0 . 4:. 842.Q,13:.:.HO$;:..N
%...1,0,1,Y$:...%...ED$ED$ED$ED$ED$:.1,0
,10,EC$..%...:."MERKEN SIE SICH:  DEZ";A
G" = $";R(AG):..Z%X..:.DATA-ZEILEN FUER 
MP..%V..:Z.890:P.AG.1:Q.P.GE..&... Q.P.1
6 . A.0:U A.16.P.Q.3&..Z.Z.10:. Z;"DATA 
";:. . A.16.V&..P.P.1:A.A.1:. J(R(B(P)),
3)",";.D&...:.CL$" ".X&... P.Q . 640:U .
...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL