home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 68
/
64er_Magazin_Sonderheft_68_19xx_Markt__Technik_de_Side_B.d64
/
editor
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
5KB
|
304 lines
10 print"[147]";:t=ti+180
11 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
12 [153]"(NULL) lexikon-editor hh,30.5.84 (NULL)
18 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
19 [139]ti[179]t[167]19
20 :
22 :
24 [143]" hauptprogramm
26 rem" [192][192][192][192][192][192][192][192][192][192][192][192][192]
28 :
30 [141]900:[143]" vorbereitungen
32 :
34 gosub600:rem" menue
36 :
38 m[178]0
40 [139]f$[178]"input"[167] [141]3006:[137]34
42 [139]f$[178]"dim"[167] [141]0300:[137]34
44 [139]f$[178]"read"[167][156]:[141]0500:[137]34
46 [139]f$[178]"let"[167][153]"load"
47 :
48 [153] " (NULL)icher (j/n) ?"
50 [146]203,64:[151]198,0:[146]203,63
52 [161]f$:[139]f$[179][177]"j"[167]34
53 :
54 [153][199](9);
60 [153]" (NULL)aetsel-(NULL)rogramm (j/n) ?"
62 [146]203,64:[151]198,0:[146]203,63
63 :
64 [161]f$:[139]f$[178]"n"[167]90
66 [139]f$[179][177]"j"[167]62
68 [153]"loadload"[170][199](34);
70 [153]"raetsel";[199](34);",8"
72 [153]"":[153]"run"
74 [151]198,3:[151]631,19
76 [151]632,13:[151]633,13
77 [137]97
88 :
90 [151]792,71:[143]" restore und
92 poke788,49:rem" stop reparieren
94 :
97 [128]
98 :
99 :
300 [143]" datei aendern
302 rem" [192][192][192][192][192][192][192][192][192][192][192][192][192]
304 :
306 [141]700:[143]" str$atei einlesen
307 :
308 ef=0:print"[147]"
309 print" [205]it [210][197][212][213][210][206][146] auswaehlen"
310 print" [205]it [204][197][197][210][212][193][211][212][197][146] weiter"
311 print" [205]it q[146] abbrechen"
312 gosub2000:rem" [196]atei auflisten
313 :
314 [153]" ascertig ?wait (j/n)"
316 [146]203,64:[151]198,0:[146]203,63
318 [161]f$:[139]f$[178]"n"[167]308
320 [139]f$[179][177]"j"[167]316
322 :
323 [139]ef[178]0[167]397
324 [141]800:[143]" str$atei aufzeichnen
395 :
397 return
398 :
399 :
500 rem" datei eingeben
502 [143]" tantantantantantantantantantantantantantan
503 :
504 print"[147]";:gosub900
505 :
506 t$="[215]ortschatz-[206]ame:"
507 l=14:m=1:f$="":gosub1000
508 af$="[219]"+chr$(20)+f$
510 :
519 print
520 t$="[198]olge-[215]ortschatz (q=keinen):"
521 l=14:m=1:f$="":gosub1000
522 nf$="[219]"+chr$(20)+f$
524 :
525 print"[147]":nr=0:ef=0
527 :
528 rem" woerter eingeben
529 [141]650
530 :
532 [139]f$[178]"q"[167]nr[178]nr[171]1:[137]539
534 [139]nr[179]254[167]nr[178]nr[170]1
536 [139][194](210)[178]7[167][153]"load"
537 [137]529
538 :
539 [139]ef[178]0[167]597
540 [143]" datei auf diskette ablegen
541 fg=nr:gosub800
592 :
597 return
598 :
599 :
600 rem" menue
602 [143]" tantantantantan
604 :
606 print"[147]";:f$=""
608 print" [198]1[146] [196]irectory
610 [153]" asc3wait str$atei aendern
612 print" [198]5[146] [196]atei anlegen
614 [153]" asc7wait atnbbrechen
616 :
618 wait203,63:getf$
620 iff$<chr$(133)orf$>chr$(136)then618
621 print"[147]"
622 :
647 return
648 :
649 :
650 rem" kreuzwoerter eingeben
651 [143]" tantantantantantantantantantantantantantantantantantantantantan
652 :
653 n$=str$(nr):n$=right$(n$,len(n$)-1)
654 t$=""+n$+". [203]reuzwort[146] (q=ende)"
655 l=20:m=0:f$=kw$(nr):gosub1000
656 iff$="q"then697
657 iflen(f$)<2thenprint"[145][145][145]";:goto655
658 kw$(nr)=f$:print
659 :
664 t$="[198]ragestellung[146]"
666 l=35:m=1:f$=fw$(nr):gosub1000
681 fw$(nr)=f$:print
682 :
683 ef=1
686 :
697 return
698 :
699 :
700 rem" datei einlesen
702 [143]" tantantantantantantantantantantantantantan
703 :
705 print"[147]"
706 t$="[215]ortschatz[146] ($=directory)"
708 l=14:m=1:f$="":gosub1000
709 iff$="$"thenm=1:gosub3000
710 iff$=""then705
712 :
713 af$="[219]"+chr$(20)+f$
714 open1,8,2,"0:"+af$+",s,r"
716 :
718 input#1,fg:rem" feldgroesse
719 :
720 [143]" woerter/fragen einlesen
721 forn=0tofg
722 :input#1,kw$(n),fw$(n)
724 next
726 :
728 input#1,nf$:rem" folge-wortschatz
730 :
732 [160]1
796 :
797 [142]
798 :
799 :
800 [143]" datei aufzeichnen
802 rem" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
803 :
805 [153]"load"
807 :
812 [159]15,8,15,"i":[160]15
813 :
814 [159]1,8,2,"@0:"[170]af$[170]",s,w"
816 :
818 [152]1,fg :[143]" feldgroesse
819 :
820 forn=0tofg
822 :print#1,kw$(n):print#1,fw$(n)
824 next
826 :
828 print#1,nf$:rem" naechster file
830 :
832 [160]1
896 :
897 [142]
898 :
899 :
900 [143]" vorbereitungen
902 rem" [192][192][192][192][192][192][192][192][192][192][192][192][192][192]
904 :
906 [151]53280,6:[143]" rahmen blau
908 poke53281,14:rem" grund hellblau
909 [153][199](14);[199](8);[199](144)
910 :
912 [151]792,193:[143]" restore und
913 poke788,52:rem" stop verriegeln
914 :
915 [134]kw$(254):[143]" kreuzwoerter
916 dimfw$(254):rem" fragen dazu
986 :
987 [142]
988 :
989 :
990 :
1000 [143]" inputform routine
1001 rem" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
1002 :
1003 x$[178][199](13):y$[178][199](20)
1004 z$[178][199](34):[151]198,0
1005 :
1006 [153]" ";t$:[153]"on ? ";f$;" ";
1007 x[178]1:[139]f$[179][177]""[167]x[178][195](f$)[170]1
1008 :
1009 f$[178]"":[129]n[178]x[164]l[170]1
1010 :[153]"cmd";f$;"to";
1011 :[146]198,1:[161]f$:[151]198,0
1012 :[139]f$[178]x$[167]1025
1013 :[139]f$[178]y$[175]n[177]1[167]n[178]n[171]1:[137]1010
1014 :[139]n[177]l[167]1011
1015 :[139]m[178]0[167]1021
1016 :[139]f$[178]","[176]f$[178]z$[167]1011
1017 :[139]f$[177][178]" "[175]f$[179][178]"9"[167]1022
1018 :[139]f$[177][178]"atn"[175]f$[179][178]"(NULL)"[167]1022
1021 :[139]f$[179]"a"[176]f$[177]"z"[167]1011
1022 [130]
1023 :
1025 [153][199](20);:[151]211,1
1026 [151]631,13:[151]198,1:[133]f$
1030 [139]f$[178]x$[167][153]"on";:[137]1009
1036 :
1097 [142]
1098 :
1099 :
2000 [143]" datei auflisten
2002 rem" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
2004 :
2010 [129]nr[178]0[164]fg
2012 :[153]" ->";kw$(nr);"wait"
2014 :[153]" ";fw$(nr)
2016 :[129]w[178]0[164]60:[130]
2017 :[146]198,1:[161]f$:[153]"onon "
2018 :[139]f$[178]"q"[167]2029
2019 :[139]f$[179][177][199](13)[167]2024
2021 :[153]"load":[141]650
2022 :[153]"load":[146]203,64
2024 :[139][194](210)[178]7[167][153]"load"
2026 [130]
2028 :
2029 t$[178]"ascolge-(NULL)ortschatz"
2030 [153]" ";t$;":":[153]" ->";nf$
2032 [146]203,64:[151]198,0:[146]203,63
2034 :
2036 [161]f$:[139]f$[179][177][199](13)[167]2097
2037 f$[178][201](nf$,[195](nf$)[171]2)
2038 t$[178]t$[170]" (q=keinen):"
2039 [153]"load":[141]1000:ef[178]1
2040 nf$[178]"(NULL)"[170][199](20)[170]f$
2096 :
2097 [142]
2098 :
2099 :
3000 [143]" directory listen
3002 rem" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
3003 :
3004 [153]"load"
3005 [153]" (NULL)it (NULL)val(NULL)(NULL)(NULL)(NULL)wait auswaehlen"
3006 [153]" (NULL)it (NULL)valval(NULL)(NULL)atn(NULL)(NULL)valwait weiter"
3007 [153]
3008 :
3009 [159]15,8,15,"io":[159]2,8,2,"#"
3010 :
3012 t[178]18:s[178]1:f$[178]""
3014 :
3016 [129]w[178]0[164]99
3018 :
3020 :[152]15,"b-r";2;0;t;s
3022 :[152]15,"b-p";2;0
3024 :
3026 :[161]#2,x$:t[178][198](x$[170][199](0))
3028 :[161]#2,x$:s[178][198](x$[170][199](0))
3030 :
3032 :[129]x[178]0[164]7
3034 : [152]15,"b-p";2;x[172]32[170]5
3036 : [161]#2,x$
3038 : [139]x$[179][177]"(NULL)"[167][130]x:[137]3060
3040 : [161]#2,x$
3042 : [129]y[178]1[164]14
3044 : [161]#2,x$:f$[178]f$[170]x$
3046 : [139]x$[178][199](160)[167]y[178]15
3048 : [130]y
3050 : [153]" -> ";f$;"wait"
3051 : [139]m[178]0[167]3056
3053 : [146]203,64:[146]203,63:[161]x$
3054 : [139]x$[178][199](13)[167]3064
3055 : [153]"on "
3056 : f$[178]""
3057 :[130]x
3058 :
3060 :[139]t[178]0[167]w[178]99
3061 [130]w
3062 :
3064 [160]2:[160]15
3065 [139]m[178]0[167][146]203,63
3066 :
3068 [142]
3070 :
3071 :
3072 :
9000 [143]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
9002 rem"[221] ende lexikon-editor [221]
9004 [143]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp