home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8506b.d64
/
editor
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
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