home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_94-04_1994_-_de_Side_B.d64
/
zeitungen
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
14KB
|
467 lines
10 rem infoarchivierer
20 rem by rolling byte 2/94
30 poke53280,0:poke53281,0:print"[151][147]":poke650,128:goto300
40 bu$="":z=1
45 printp$+bu$+"[164] "
50 geta$:ifa$=""then50
60 ifa$=""ora$="[147]"ora$=""ora$="[157]"ora$=""ora$="[145]"then50
70 ifa$=chr$(13)thenreturn
80 ifa$=chr$(20)andz=0then50
90 ifa$=chr$(20)then130
110 ifz=vthen50
120 bu$=bu$+a$:z=z+1:goto140
130 bu$=left$(bu$,z-1):z=z-1
140 printp$+bu$+"[164] ":goto50
150 x$="[176]":fori=1toxl:x$=x$+"[195]":next:x$=x$+"[174]"
160 printp$+x$
170 x$="[194]":fori=1toxl:x$=x$+" ":next:x$=x$+"[194]"
180 fori=1toyl:printpx$+x$:next
190 x$="[173]":fori=1toxl:x$=x$+"[195]":next:x$=x$+"[189]"
200 printpx$+x$
210 return
300 dimtk$(120),he$(120),na$(120),nb$(120),nc$(120),od$(120),ze$(120),da$(120)
310 ds=0:
320 dimbu$(150)
330 p$="[151]":px$="":xl=37:yl=22:gosub150
340 print"[150]infoarchivierer
350 [153]"printr o l l i n g b y t e 2/94poke"
360 [153]"-lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen<"
370 p$[178]"poke":px$[178]"":xl[178]15:yl[178]7:[141]150
380 [153]p$[170]"defneues blatt list"
390 [153]"bearbeiten"
400 [153]"suchen"
410 [153]"drucken"
420 [153]"loaden"
430 [153]"saven"
440 [153]"directory"
450 p$[178]"poke":px$[178]"":xl[178]15:yl[178]10
460 [141]150
470 p$[178]"":[153]"list"[170]p$[170]"die menupunkte"
480 [153]p$[170]"mit den cursor-"
490 [153]p$[170]"tasten (up/dwn)"
500 [153]p$[170]"auswaehlen !!"
510 [153]p$[170]"fuer naehere er"
520 [153]p$[170]"laeuterung -"
530 [153]p$[170]" defmagic disk"
540 [153]"cont(c) cp verlag":z[178]1
550 [161]a$:[139]a$[178]""[167]550
560 [139]a$[178]""[167]z[178]z[170]1:[137]600
570 [139]a$[178]"on"[167]z[178]z[171]1:[137]600
580 [139]a$[178][199](13)[167]770
590 [137] 550
600 [139]z[179]1[167]z[178]1:[137]550
610 [139]z[177]7[167]z[178]7:[137]550
620 [153]"listneues blatt "
630 [153]"bearbeiten "
640 [153]"suchen "
650 [153]"drucken "
660 [153]"loaden "
670 [153]"saven "
680 [153]"directory "
690 [153]"def":[145]z[137]700,710,720,730,740,750,760,770
700 [153]"neues blatt ":[137] 550
710 [153]"bearbeiten ":[137] 550
720 [153]"suchen ":[137]550
730 [153]"drucken ":[137]550
740 [153]"loaden ":[137]550
750 [153]"saven ":[137]550
760 [153]"directory ":[137]550
770 [145]z[137]775,1400,2320,3920,4230,4000,4450
775 [153]"load"
776 p$[178]"poke":px$[178]"":xl[178]37:yl[178]21:[141]150
780 [153]"defneues blatt anlegen"
790 [153]"poke-lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen<list"
800 [153]"themenkreis :"tk$(ds)""
810 [153]"thema :"he$(ds)""
820 [153]"naeheres :"na$(ds)
822 [153]""nb$(ds)
824 [153]""nc$(ds)""
830 [153]"ordner :"od$(ds)""
840 [153]"zeitung :"ze$(ds)""
850 [153]"datum :"da$(ds)""
860 [153]"poke-lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen<list"
870 [153]"defeingabe poke"
880 [153]"seite drucken"
890 [153]"ende"
900 [153]"pokeonononon="
910 [129]i[178]1[164]3:[153]"peek":[130]
920 [153]">"
930 [153]"onononblattzahl:"ds:z[178]1
940 [161]a$:[139]a$[178]""[167]940
950 [139]a$[178]""[167]z[178]z[170]1:[137]990
960 [139]a$[178]"on"[167]z[178]z[171]1:[137]990
970 [139]a$[178][199](13)[167]1080
980 [137] 940
990 [139]z[179]1[167]z[178]1:[137]940
1000 [139]z[177]3[167]z[178]3:[137]940
1010 [153]"pokeeingabe "
1020 [153]"seite drucken"
1030 [153]"ende "
1040 [153]"def":[145]z[137]1050,1060,1070
1050 [153]"eingabe ":[137]940
1060 [153]"seite drucken":[137]940
1070 [153]"ende ":[137]940
1080 [145]z[137]1090,1260,330
1090 [153]"":[129]i[178]1[164]14:[153]" ":[130]
1095 ds[178]ds[170]1:p$[178]"":v[178]15:[141]40
1100 tk$(ds)[178]bu$:[153]p$[170]bu$[170]" "
1110 p$[178]"":v[178]15:[141]40
1120 he$(ds)[178]bu$:[153]p$[170]bu$[170]" "
1130 p$[178]"":v[178]15:[141]40
1140 na$(ds)[178]bu$:[153]p$[170]bu$[170]" "
1145 [139]na$(ds)[178]""[167]na$(ds)[178]" "
1150 p$[178]"":v[178]15:[141]40
1160 nb$(ds)[178]bu$:[153]p$[170]bu$[170]" "
1170 p$[178]"":v[178]15:[141]40
1175 [139]nb$(ds)[178]""[167]nb$(ds)[178]" "
1180 nc$(ds)[178]bu$:[153]p$[170]bu$[170]" "
1190 p$[178]"":v[178]7:[141]40
1195 [139]nc$(ds)[178]""[167]nc$(ds)[178]" "
1200 od$(ds)[178]bu$:[153]p$[170]bu$[170]" "
1210 p$[178]"":v[178]12:[141]40
1220 ze$(ds)[178]bu$:[153]p$[170]bu$[170]" "
1230 p$[178]"":v[178]11:[141]40
1240 da$(ds)[178]bu$:[153]p$[170]bu$[170]" "
1250 [137] 776
1260 ix[178]ds:[141]1300
1270 [137] 775
1300 [159]4,4:[152]4:[152]4,"---------------------------------------":[152]4
1310 [152]4,"themenkreis :"[170]tk$(ix):[152]4
1320 [152]4,"thema :"[170]he$(ix):[152]4
1330 [152]4,"naeheres :"[170]na$(ix)
1340 [152]4," "[170]nb$(ix)
1350 [152]4," "[170]nc$(ix):[152]4
1360 [152]4,"ordner :"[170]od$(ix):[152]4
1370 [152]4,"zeitung :"[170]ze$(ix):[152]4
1380 [152]4,"datum :"[170]da$(ix):[152]4
1390 [152]4,"---------------------------------------":[152]4:[160]4:[142]
1400 [139]ds[178]0[167]330
1405 [153]"load":p$[178]"poke":px$[178]"":xl[178]37:yl[178]21:[141]150
1410 [153]"defblatt bearbeiten"
1420 [153]"poke-lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen<list"
1430 [153]"themenkreis :"tk$(1)""
1440 [153]"thema :"he$(1)""
1450 [153]"naeheres :"na$(1)
1460 [153]""nb$(1)
1470 [153]""nc$(1)""
1480 [153]"ordner :"od$(1)""
1490 [153]"zeitung :"ze$(1)""
1500 [153]"datum :"da$(1)""
1510 [153]"poke-lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen<list"
1530 [153]"defbearbeiten poke"
1540 [153]"seite drucken"
1550 [153]"ende"
1560 [153]"pokeonononon="
1570 [129]i[178]1[164]3:[153]"peek":[130]
1580 [153]">"
1590 [153]"ononon+wait/-wait blaettern":z[178]1:ix[178]1
1600 [161]a$:[139]a$[178]""[167]1600
1610 [139]a$[178]"+"[167]ix[178]ix[170]1:[137]1670
1620 [139]a$[178]"-"[167]ix[178]ix[171]1:[137]1670
1630 [139]a$[178]""[167]z[178]z[170]1:[137]1790
1640 [139]a$[178]"on"[167]z[178]z[171]1:[137]1790
1650 [139]a$[178][199](13)[167]1860
1660 [137] 1600
1670 [139]ix[179]1[167]ix[178]1:[137]1600
1680 [139]ix[177]ds[167]ix[178]ds:[137]1600
1690 [153]"":[129]i[178]1[164]14:[153]" ":[130]
1695 [153]"list"
1700 [153]"themenkreis :"tk$(ix)""
1710 [153]"thema :"he$(ix)""
1720 [153]"naeheres :"na$(ix)
1730 [153]""nb$(ix)
1740 [153]""nc$(ix)""
1750 [153]"ordner :"od$(ix)""
1760 [153]"zeitung :"ze$(ix)""
1770 [153]"datum :"da$(ix)""
1780 [137]1600
1790 [139]z[179]1[167]z[178]1:[137]1600
1792 [139]z[177]3[167]z[178]3:[137]1600
1795 [153]"pokebearbeiten "
1800 [153]"seite drucken"
1810 [153]"ende "
1820 [153]"def":[145]z[137]1830,1840,1850
1830 [153]"bearbeiten ":[137]1600
1840 [153]"seite drucken":[137]1600
1850 [153]"ende ":[137]1600
1860 [145]z[137]1870,2300,330
1870 [153]"defthemenkreis":z[178]1
1880 [161]a$:[139]a$[178]""[167]1880
1890 [139]a$[178]""[167]z[178]z[170]1:[137]1930
1900 [139]a$[178]"on"[167]z[178]z[171]1:[137]1930
1910 [139]a$[178][199](13)[167]2130
1920 [137] 1880
1930 [139]z[179]1[167]z[178]1:[137]1880
1940 [139]z[177]8[167][137]1400
1950 [153]"list"
1960 [153]"themenkreis"
1970 [153]"thema"
1980 [153]"naeheres"
1990 [153]" "
2000 [153]" "
2010 [153]"ordner"
2020 [153]"zeitung"
2030 [153]"datum"
2040 [153]"def":[145]z[137]2050,2060,2070,2080,2090,2100,2110,2120
2050 [153]"themenkreis":[137]1880
2060 [153]"thema":[137]1880
2070 [153]"naeheres":[137]1880
2080 [153]"*":[137]1880
2090 [153]"*":[137]1880
2100 [153]"ordner":[137]1880
2110 [153]"zeitung":[137]1880
2120 [153]"datum":[137]1880
2130 [145]z[137]2140,2160,2180,2200,2220,2240,2260,2280
2140 bu$[178]tk$(ix):p$[178]"":v[178]15:a[178]z:z[178][195](bu$):[141]45
2150 tk$(ix)[178]bu$:[153]p$[170]bu$[170]" ":z[178]a:[137]1880
2160 bu$[178]he$(ix):p$[178]"":v[178]15:a[178]z:z[178][195](bu$):[141]45
2170 he$(ix)[178]bu$:[153]p$[170]bu$[170]" ":z[178]a:[137]1880
2180 bu$[178]na$(ix):p$[178]"":v[178]15:a[178]z:z[178][195](bu$):[141]45
2190 na$(ix)[178]bu$:[153]p$[170]bu$[170]" ":z[178]a:[137]1880
2200 bu$[178]nb$(ix):p$[178]"":v[178]15:a[178]z:z[178][195](bu$):[141]45
2210 nb$(ix)[178]bu$:[153]p$[170]bu$[170]" ":z[178]a:[137]1880
2220 bu$[178]nc$(ix):p$[178]"":v[178]15:a[178]z:z[178][195](bu$):[141]45
2230 nc$(ix)[178]bu$:[153]p$[170]bu$[170]" ":z[178]a:[137]1880
2240 bu$[178]od$(ix):p$[178]"":v[178]7:a[178]z:z[178][195](bu$):[141]45
2250 od$(ix)[178]bu$:[153]p$[170]bu$[170]" ":z[178]a:[137]1880
2260 bu$[178]ze$(ix):p$[178]"":v[178]12:a[178]z:z[178][195](bu$)
2265 [141] 45
2270 ze$(ix)[178]bu$:[153]p$[170]bu$[170]" ":z[178]a:[137]1880
2280 bu$[178]da$(ix):p$[178]"":v[178]10:a[178]z:z[178][195](bu$)
2285 [141] 45
2290 da$(ix)[178]bu$:[153]p$[170]bu$[170]" ":z[178]a:[137]1880
2300 [141] 1300
2310 [137]1400
2320 [129]i[178]1[164]8:bu$(i)[178]"":[130]:bu$[178]""
2325 [153]"load":p$[178]"poke":px$[178]"":xl[178]37:yl[178]21:[141]150
2330 [153]"def suchen "
2340 [153]"poke-lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen<list"
2350 [153]"themenkreis :"bu$(1)""
2360 [153]"thema :"bu$(2)""
2370 [153]"naeheres :"bu$(3)""
2380 [153]""bu$(4)
2390 [153]""bu$(5)
2400 [153]"ordner :"bu$(6)""
2410 [153]"zeitung :"bu$(7)""
2420 [153]"datum :"bu$(8)""
2430 [153]"poke-lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen<list"
2440 [153]"defsuchen poke"
2450 [153]"seite drucken"
2460 [153]"ende"
2470 [153]"pokeonononon="
2480 [129]i[178]1[164]3:[153]"peek":[130]
2490 [153]">":z[178]1
2500 [161]a$:[139]a$[178]""[167]2500
2510 [139]a$[178]""[167]z[178]z[170]1:[137]2550
2520 [139]a$[178]"on"[167]z[178]z[171]1:[137]2550
2530 [139]a$[178][199](13)[167]2640
2540 [137] 2500
2550 [139]z[179]1[167]z[178]1:[137]2500
2560 [139]z[177]3[167]z[178]3:[137]2500
2570 [153]"pokesuchen "
2580 [153]"seite drucken"
2590 [153]"ende "
2600 [153]"def":[145]z[137]2610,2620,2630
2610 [153]"suchen ":[137]2500
2620 [153]"seite drucken":[137]2500
2630 [153]"ende ":[137]2500
2640 [145]z[137]2650,3900,330
2650 p$[178]"list":px$[178]"":xl[178]16:yl[178]4:[141]150
2660 [153]"def":[153]"eingabe "
2670 [153]"listsuchen ..."
2680 [153]"seite ausdrucken"
2690 [153]"ende":z[178]1
2700 [161]a$:[139]a$[178]""[167]2700
2710 [139]a$[178]""[167]z[178]z[170]1:[137]2750
2720 [139]a$[178]"on"[167]z[178]z[171]1:[137]2750
2730 [139]a$[178][199](13)[167]2860
2740 [137] 2700
2750 [139]z[179]1[167]z[178]1:[137]2700
2760 [139]z[177]4[167]z[178]4:[137]2700
2770 [153]"list":[153]"eingabe "
2780 [153]"suchen ... "
2790 [153]"seite ausdrucken"
2800 [153]"ende "
2810 [153]"def":[145]z[137]2820,2830,2840,2850
2820 [153]"eingabe ":[137]2700
2830 [153]"suchen ... ":[137]2700
2840 [153]"seite ausdrucken":[137]2700
2850 [153]"ende ":[137]2700
2860 [145]z[137] 2870,3080,3880,2325
2870 [153]"list"
2872 [153]"eingabe ":
2876 p$[178]"":v[178]15:a[178]z:z[178][195](bu$):[141]45
2880 bu$(1)[178]bu$:[153]p$[170]bu$[170]" ":z[178]a:bu$[178]""
2890 p$[178]"":v[178]15:a[178]z:z[178][195](bu$):[141]45
2900 bu$(2)[178]bu$:[153]p$[170]bu$[170]" ":z[178]a:bu$[178]""
2910 p$[178]"":v[178]15:a[178]z:z[178][195](bu$):[141]45
2920 bu$(3)[178]bu$:[153]p$[170]bu$[170]" ":z[178]a:bu$[178]""
2930 p$[178]"":v[178]15:a[178]z:z[178][195](bu$):[141]45
2940 bu$(4)[178]bu$:[153]p$[170]bu$[170]" ":z[178]a:bu$[178]""
2950 p$[178]"":v[178]15:a[178]z:z[178][195](bu$):[141]45
2960 bu$(5)[178]bu$:[153]p$[170]bu$[170]" ":z[178]a:bu$[178]""
2970 p$[178]"":v[178]7:a[178]z:z[178][195](bu$):[141]45
2980 bu$(6)[178]bu$:[153]p$[170]bu$[170]" ":z[178]a:bu$[178]""
2990 p$[178]"":v[178]12:a[178]z:z[178][195](bu$)
3000 [141] 45
3010 bu$(7)[178]bu$:[153]p$[170]bu$[170]" ":z[178]a:bu$[178]""
3020 p$[178]"":v[178]10:a[178]z:z[178][195](bu$)
3030 [141] 45
3040 bu$(8)[178]bu$:[153]p$[170]bu$[170]" ":z[178]a:bu$[178]""
3050 [153]"def"
3060 [153]"eingabe ":
3070 [137] 2700
3080 [139]ds[178]0[167][151]53280,1:[151]53280,0:[137]2700
3090 x[178]1
3100 [129]i[178]x[164]ds
3110 [139]bu$(1)[178]""[167]3130
3120 [139]bu$(1)[178]tk$(i)[167]x[178]i[170]1:[137]3340
3130 [139]bu$(2)[178]""[167]3150
3140 [139]bu$(2)[178]he$(i)[167]x[178]i[170]1:[137]3370
3150 [139]bu$(3)[178]""[167]3170
3160 [139]bu$(3)[178]na$(i)[167]x[178]i[170]1:[137]3400
3170 [139]bu$(4)[178]""[167]3190
3180 [139]bu$(4)[178]nb$(i)[167]x[178]i[170]1:[137]3430
3190 [139]bu$(5)[178]""[167]3210
3200 [139]bu$(5)[178]nc$(i)[167]x[178]i[170]1:[137]3460
3210 [139]bu$(6)[178]""[167]3230
3220 [139]bu$(6)[178]od$(i)[167]x[178]i[170]1:[137]3490
3230 [139]bu$(7)[178]""[167]3250
3240 [139]bu$(7)[178]ze$(i)[167]x[178]i[170]1:[137]3520
3250 [139]bu$(8)[178]""[167]3270
3260 [139]bu$(8)[178]da$(i)[167]x[178]i[170]1:[137]3570
3270 [130]
3280 p$[178]"poke":px$[178]"":xl[178]10:yl[178]2:
3290 [141]150
3300 [153]p$[170]"nichts zu"
3310 [153]px$[170]"finden !!"
3320 [161]a$:[139]a$[178]""[167]3320
3330 [137]2650
3340 [139]bu$(2)[178]""[167]3370
3350 [139]bu$(2)[178]he$(i)[167]3370
3360 [137] 3560
3370 [139]bu$(3)[178]""[167]3400
3380 [139]bu$(3)[178]na$(i)[167]3400
3390 [137] 2700
3400 [139]bu$(4)[178]""[167]3430
3410 [139]bu$(4)[178]nb$(i)[167]3430
3420 [137] 3560
3430 [139]bu$(5)[178]""[167]3460
3440 [139]bu$(5)[178]nc$(i)[167]3460
3450 [137] 3560
3460 [139]bu$(6)[178]""[167]3490
3470 [139]bu$(6)[178]od$(i)[167]3490
3480 [137] 3560
3490 [139]bu$(7)[178]""[167]3520
3500 [139]bu$(7)[178]ze$(i)[167]3520
3510 [137] 3560
3520 [139]bu$(8)[178]""[167]3550
3530 [139]bu$(8)[178]da$(i)[167]3550
3540 [137] 3560
3550 [137] 3570
3560 [137] 3100
3570 bu$(1)[178]tk$(i):bu$(2)[178]he$(i):bu$(3)[178]na$(i):bu$(4)[178]nb$(i):bu$(5)[178]nc$(i)
3580 bu$(6)[178]od$(i):bu$(7)[178]ze$(i):bu$(8)[178]da$(i):
3590 [153]"list":[129]i[178]1[164]13:[153]" ":[130]
3600 [153]""
3610 [153]""bu$(1)""
3620 [153]""bu$(2)""
3630 [153]""bu$(3)
3640 [153]""bu$(4)
3650 [153]""bu$(5)""
3660 [153]""bu$(6)""
3670 [153]""bu$(7)""
3680 [153]""bu$(8)""
3690 p$[178]"":px$[178]"":xl[178]15:yl[178]2:[141]150
3700 [153]""[170]p$[170]"weiter suchen ?"
3710 [153]px$[170]" (j/n)"
3720 [161]a$:[139]a$[178]""[167]3720
3730 [139]a$[178]"j"[167]3100
3740 [139]a$[178]"n"[167]2650
3750 [137] 3720
3780 [159]4,4:[152]4:[152]4,"---------------------------------------":[152]4
3790 [152]4,"themenkreis :"[170]bu$(1):[152]4
3800 [152]4,"thema :"[170]bu$(2):[152]4
3810 [152]4,"naeheres :"[170]bu$(3)
3820 [152]4," "[170]bu$(4)
3830 [152]4," "[170]bu$(5):[152]4
3840 [152]4,"ordner :"[170]bu$(6):[152]4
3850 [152]4,"zeitung :"[170]bu$(7):[152]4
3860 [152]4,"datum :"[170]bu$(8):[152]4
3870 [152]4,"---------------------------------------":[152]4:[160]4:[142]
3880 [141]3780
3890 [137]2700
3900 [141]3780
3910 [137]2500
3920 p$[178]"list":px$[178]"":xl[178]15:yl[178]5:[141]150
3930 [153]p$[170]"ich drucke ...":[153]px$[170]"abbruch - spacewait"
3940 [129]i[178]1[164]ds
3950 [161]a$:[139]a$[178]" "[167]330
3960 ix[178]i:[141]1300
3970 [130]
3980 [137] 330
4000 p$[178]"list":px$[178]"":xl[178]17:yl[178]10:[141]150
4010 [153]p$[170]"absaven der"
4020 [153]px$[170]"datei !list"
4030 [153]px$[170]"-lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen<"
4040 [153]px$[170]"bitte geben sie"
4050 [153]px$[170]"den dateinamen "
4060 [153]px$[170]"ein !"
4070 [153]px$[170]"to"
4080 [153]px$[170]"returnwait - ende !"
4090 p$[178]"":v[178]16:[141]40
4100 [139]bu$[178]""[167]330
4110 [159]15,8,15,"s:"[170]bu$:[160]15
4120 [159]2,8,2,bu$[170]",s,w":[152]2,ds
4130 [129]i[178]1[164]ds
4140 [152]2,tk$(i)[170][199](13)
4150 [152]2,he$(i)[170][199](13)
4160 [152]2,na$(i)[170][199](13)
4170 [152]2,nb$(i)[170][199](13)
4180 [152]2,nc$(i)[170][199](13)
4190 [152]2,od$(i)[170][199](13)
4200 [152]2,ze$(i)[170][199](13)
4210 [152]2,da$(i)[170][199](13)
4220 [130]:[160]2:[137]330
4230 p$[178]"list":px$[178]"":xl[178]17:yl[178]10:[141]150
4240 [153]p$[170]"loaden der"
4250 [153]px$[170]"datei !list"
4260 [153]px$[170]"-lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen<"
4270 [153]px$[170]"bitte geben sie"
4280 [153]px$[170]"den dateinamen "
4290 [153]px$[170]"ein !"
4300 [153]px$[170]"to"
4310 [153]px$[170]"returnwait - ende !"
4320 p$[178]"":v[178]16:[141]40
4330 [139]bu$[178]""[167]330
4335 [137]4550
4340 [159]2,8,2,bu$[170]",s,r":[132]2,ds
4350 [129]i[178]1[164]ds
4360 [132]2,tk$(i)
4370 [132]2,he$(i)
4380 [132]2,na$(i)
4390 [132]2,nb$(i)
4400 [132]2,nc$(i)
4410 [132]2,od$(i)
4420 [132]2,ze$(i)
4430 [132]2,da$(i)
4440 [130]:[160]2:[137]330
4450 [153]"load"
4460 [159]1,8,0,"$":[151]781,1:[158]65478:[161]a$,a$:e$[178][199](0)
4470 [161]a$,a$,h$,l$:[139]st[167][158]65484:[160]1:[137]4520
4480 [153][198](h$[170]e$)[170]256[172][198](l$[170]e$);
4490 [161]a$,b$:[139]a$[167][153]a$b$;:[137]4490
4500 [153]a$:[137]4470
4510 [160]1
4520 [153]"def taste druecken !"
4530 [161]a$:[139]a$[178]""[167]4530
4540 [137] 330
4550 [159]2,8,2,bu$[170]",s,r":[160]2
4560 [159]15,8,15:[132]15,nr,ft$,tr,sk:[160]15
4570 [139]nr[179][177]0[167]4590
4580 [137] 4340
4590 p$[178]"poke":px$[178]"":xl[178]15:yl[178]1:[141]150
4600 [153]p$[170]"fehleingabe !"
4610 [161]a$:[139]a$[178]""[167]4610
4620 [137]4230