home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 12
/
Commodore_Disc_12_19xx_-_de.d64
/
dateigenerator
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
8KB
|
274 lines
0 dim fr$(100,2),an$(100,5),ra(100)
1 goto500
2 :
3 ************************************
4 * dateigenerator *
5 * written 1987 by *
6 * --- dieter borchert ----- *
7 ************************************
8 :
9 :
10 rem get-routine
20 print"bitte geben sie "gg$" ein:
25 bl$[178]"stopandcmd":[153][199](8);
40 [153]bl$;
50 [161]x$:[139]x$[178]""[167]dx[178]0:[137]50
51 [139]x$[178]"cmd"[167]x$[178][199](20)
52 [139][195](te$)[177]la[167][141]100:[137]120
53 [139]x$[178]""[167]x$[178][199](32)
54 [139]x$[178]"on"[176]x$[178]""[167]50
55 [139]x$[178][199](20)[175][195](te$)[177]0[167]te$[178][200](te$,[195](te$)[171]1):[153]x$;:[137]40
56 [139]x$[178][199](20)[167]50
57 [139]x$[178][199](147)[175][195](te$)[179]1[167]50
58 [139]x$[178][199](147)[167][153][199](32);:fx[178][195](te$):[129]i1[178]fx[164]0[169][171]1:[153][199](20);:[130]:[141]90:[137]40
60 [139]x$[178][199](19)[176]x$[178][199](34)[176]x$[178][199](44)[176]x$[178][199](3)[176]x$[178][199](148)[167]50
61 [139]x$[178]"input"[167]sz[178]1:en$[178]"":te$[178]"":[142]
64 [139]x$[178][199](13)[167]80
70 [153]x$;:te$[178]te$[170]x$:[137]40
80 en$[178]te$:te$[178]"":[153][199](32):[142]
90 te$[178]"":[142]
100 [139]x$[178][199](13)[176]x$[178][199](147)[176]x$[178][199](20)[167]dx[178]1
105 [142]
120 [139]dx[179][177]0[167]55
130 [137]50
400 [143] directory
401 [153]"load":[159]1,8,0,"$":[151]781,1:[158]65478:[161]a$,a$:e$[178][199](0)
402 [161]a$,a$,a1$,a2$:[139]st[167][158]65484:[160]1:[137]407
403 [153][198](a1$[170]e$)[170]256[172][198](a2$[170]e$);
404 [161]a$,b$:[139]a$[167][153]a$b$;:[137]404
405 [153]a$:[137]402
407 [153]" (taste)
408 geta$:ifa$=""then408
409 return
500 printchr$(142);chr$(8)
501 poke788,52:poke808,225
502 x=211:y=214:cs=58732:ifpeek(51356)=169then504
503 sys(57812)"qm garbage mc",8,1:poke780,0:sys65493
504 sys51356:fa$(1)="frage aendern":fa$(2)="eine antwort aendern"
505 fa$(3)="alle antworten aendern":fa$(4)="die richtige antwort aendern"
1000 poke53280,6:poke53281,6:poke646,1
1001 print"[147]----------------------------------------";
1002 print" quiz - datei - generator"
1010 print" (c) 1987 by commodore disc"
1020 print"----------------------------------------";
1030 print"aktuelle datei: ";da$;tab(35);en
1040 print" 1) datei laden / speichern
1060 [153]" 2) diskettenbefehl / datei aendern"
1070 [153]" 3) neue datei eingeben
1080 print" 4) datei ansehen / ergaenzen
1090 [153]" 5) eintraege loeschen / schluss
1100 print"----------------------------------------";
1110 print" die garbage collection-routine von "
1111 print" j.varnholdt wurde im 64'er sonderheft"
1112 print" 7/86 peeks und pokes veroeffentlicht";
1140 geta$:ifa$=""then1140
1145 ifa$<"0"ora$>"9"then1140
1150 onval(a$)gosub2000,2500,3000,4000,5000
1160 goto1000
2000 rem daten laden / speichern
2001 print"[147] (l)aden oder (s)peichern "
2002 geta$:ifa$=""then2002
2003 ifa$="[133]"thenreturn
2004 ifa$<>"l"anda$<>"s"then2002
2010 print"[147]dateinamen eingeben: ";
2011 la=15:gosub25
2012 ifen$=""andda$<>""then2020
2014 da$=en$:ifright$(da$,4)<>".dat"then2010
2020 ifa$="l"then2300
2050 open2,8,2,"@0:"+da$+",s,w"
2051 open15,8,15:input#15,a,a$:ifa$<>"ok"thenclose2:close15:return
2060 print#2,en
2070 fori=1toen
2075 forj=1to2
2080 print#2,fr$(i,j)","chr$(13);
2085 nextj
2090 nexti
2100 fori=1toen
2110 forj=1to5
2120 print#2,an$(i,j);","chr$(13);
2130 nextj
2140 nexti
2150 fori=1toen
2160 print#2,ra(i);","chr$(13);
2170 nexti
2180 close2:close15
2190 return
2300 open2,8,2,da$+",s,r"
2301 open15,8,15:input#15,a,a$:ifa$<>"ok"thenclose2:close15:return
2310 input#2,en
2320 fori=1toen
2325 forj=1to2
2330 input#2,fr$(i,j)
2335 nextj
2340 nexti
2350 fori=1toen
2360 forj=1to5
2370 input#2,an$(i,j)
2380 nextj
2390 nexti
2400 fori=1toen
2410 input#2,ra(i)
2420 nexti
2430 close2:close15
2440 return
2500 rem directory / aendern
2510 print"[147](d)iskettenbefehl oder":print"(a)endern der datei"
2520 geta$:ifa$=""then2520
2521 ifa$="[133]"thenreturn
2530 ifa$<>"d"anda$<>"a"then2520
2540 ifa$="d"then6000
2550 e1=1
2560 print"[147]----------------------------------------";fr$(e1,1)
2570 printfr$(e1,2)
2580 print"----------------------------------------"
2590 print"frage nummer ";e1:print
2600 ford=1to5
2610 printd"[157]) ";an$(e1,d)
2620 nextd
2625 print"die richtige antwort ist antwort ";ra(e1)
2626 ifsz=1then2650
2630 print"wollen sie (a)lles oder nur
2640 [153]" (e)ine eingabe aendern ?"
2650 [161]a$:[139]a$[178]""[167]2650
2655 [139]a$[178]"input"[167][142]
2660 [139]a$[178]""[167]e1[178]e1[170]1:[139]e1[177]en[167]e1[178]en:[137]2650
2661 [139]a$[178]">"[167]e1[178]e1[170]5:[139]e1[177]en[167]e1[178]e1[171]5:[137]2670
2662 [139]a$[178]"<"[167]e1[178]e1[171]5:[139]e1[179]1[167]e1[178]e1[170]5:[137]2670
2665 [139]a$[178]"cmd"[167]e1[178]e1[171]1:[139]e1[179]1[167]e1[178]1:[137]2650
2670 [139]a$[178]""[176]a$[178]"cmd"[176]a$[178]"<"[176]a$[178]">"[167]2560
2680 [139]sz[178]1[167]2650
2690 [139]a$[178]"a"[167]2720
2700 [139]a$[178]"e"[167]2800
2710 [137]2650
2720 df[178]1:d1[178]en:en[178]e1:[141]3020:en[178]d1
2730 [142]
2800 d1[178]en:en[178]e1:x1[178]1:[151]x,8:[151]y,20:[158]cs:[153]">"
2805 [129]i[178]1[164]4:[151]x,10:[151]y,19[170]i:[158]cs:[153]fa$(i):[130]
2810 [161]a$:[139]a$[178]""[167]2810
2820 [139]a$[178]"on"[175]x1[178]1[167]2810
2830 [139]a$[178]""[175]x1[178]4[167]2810
2835 [139]a$[178]"on"[167]x1[178]x1[171]1:[141]2890:[137]2810
2840 [139]a$[178]""[167]x1[178]x1[170]1:[141]2880:[137]2810
2850 [139]a$[178]"input"[167][142]
2860 [139]a$[178][199](13)[167]2900
2870 [151]x,8:[151]y,18[170]x1:[158]cs:[153]" ":[151]x,8:[151]y,19[170]x1:[158]cs:[153]">":[142]
2880 [151]x,8:[151]y,18[170]x1:[158]cs:[153]" ":[151]x,8:[151]y,19[170]x1:[158]cs:[153]">":[142]
2890 [151]x,8:[151]y,20[170]x1:[158]cs:[153]" ":[151]x,8:[151]y,19[170]x1:[158]cs:[153]">":[142]
2900 [145]x1[137]2920,2940,2960,2980
2920 [129]i[178]0[164]8:[151]781,i:[158]59903:[130]:gg$[178]"frage "[170][196](en)
2921 [151]x,0:[151]y,5:[158]cs:[153]"----------------------------------------";
2922 [151]x,0:[151]y,0:[158]cs:[153]"----------------------------------------";
2923 [151]x,0:[151]y,7:[158]cs:[153]"bitte geben sie frage ";en;" ein";
2924 la[178]78:[141]25:fr$(e1,1)[178]en$
2925 [139]sz[178]1[167]sz[178]0:en[178]d1:[142]
2926 la[178]78:[151]x,0:[151]y,3:[158]cs:[141]25:fr$(e1,2)[178]en$
2927 [139]sz[178]1[167]sz[178]0:en[178]d1:[142]
2928 en[178]d1:[142]
2940 e3[178]6:[139]fr$(e1,2)[178]""[167]e3[178]e3[171]2
2941 [129]i[178]0[164]e3:[151]781,i:[158]59903:[130]
2942 [153]"zu veraendernde antwort: ";
2943 [161]a$:[139]a$[178]""[167]2943
2944 [139]a$[178][199](13)[175]e2[177]0[167]2947
2945 [139]a$[179]"1"[176]a$[177]"5"[167]2943
2946 [153]a$;"cmd";:e2[178][197](a$):[137]2943
2947 [129]i[178]8[164]17:[151]781,i:[158]59903:[130]
2948 [151]x,0:[151]y,10:[158]cs:[153]"----------------------------------------"
2949 [151]x,0:[151]y,13:[158]cs:[153]"----------------------------------------"
2950 [151]x,0:[151]y,15:[158]cs:[153]"antwort ";e2
2951 [151]x,0:[151]y,11:[158]cs:la[178]78:[141]25:an$(e1,e2)[178]en$
2952 en[178]d1:[142]
2960 [129]i[178]7[164]16:[151]781,i:[158]59903:[130]
2961 [129]d[178]1[164]5
2962 [151]x,0:[151]y,10:[158]cs:[153]"----------------------------------------"
2963 [151]x,0:[151]y,13:[158]cs:[153]"----------------------------------------"
2964 [151]x,0:[151]y,15:[158]cs:[153]"antwort ";d
2965 [151]x,0:[151]y,11:[158]cs:la[178]78:[141]25:an$(e1,d)[178]en$
2966 [129]i[178]11[164]12:[151]781,i:[158]59903:[130]
2967 [130]d
2968 en[178]d1:[142]
2980 [129]i[178]20[164]24:[151]781,i:[158]59903:[130]
2981 [151]x,0:[151]y,20:[158]cs:[153]"nummer der richtigen antwort ? ";
2982 [161]a$:[139]a$[178]""[167]2982
2983 [139]a$[178][199](13)[175]ra(en)[177]0[175]ra(en)[179]6[167]2986
2984 [139]a$[179]"1"[176]a$[177]"5"[167]2982
2985 ra(en)[178][197](a$):[153]ra(en);"cmdcmdcmd";:[137]2982
2986 en[178]d1:[142]
3000 [143] neue datei eingeben
3001 [153]"loadwenn sie eine neue datei eingeben,
3002 print"dann werden alle daten geloescht."
3003 print"wollen sie immer noch (j/n) ?"
3004 geta$:ifa$=""then3004
3005 ifa$="n"thenreturn
3006 ifa$="j"then3008
3007 goto3004
3008 print"[147]wollen sie die daten vorher noch"
3009 print"abspeichern (j/n) ?"
3010 geta$:ifa$=""then3010
3011 ifa$="n"then3019
3012 ifa$="j"thena$="s":gosub2010:goto3019
3013 goto3010
3019 la=200:en=1
3020 print"[147]":gg$="frage "+str$(en)
3030 pokex,0:pokey,5:syscs:print"----------------------------------------";
3031 pokex,0:pokey,0:syscs:print"----------------------------------------";
3035 pokex,0:pokey,7:syscs:print"bitte geben sie frage ";en;" ein";
3040 la=78:gosub25:fr$(en,1)=en$
3045 ifsz=1thensz=0:en=en-1:return
3050 la=78:pokex,0:pokey,3:syscs:gosub25:fr$(en,2)=en$
3055 ifsz=1thensz=0:en=en-1:return
3060 ford=1to5
3070 pokex,0:pokey,10:syscs:print"----------------------------------------"
3075 pokex,0:pokey,13:syscs:print"----------------------------------------"
3080 pokex,0:pokey,15:syscs:print"antwort ";d
3090 pokex,0:pokey,11:syscs:la=78:gosub25:an$(en,d)=en$
3100 fori=11to12:poke781,i:sys59903:next
3110 nextd
3115 pokex,0:pokey,20:syscs:print"nummer der richtigen antwort ? ";
3116 geta$:ifa$=""then3116
3117 ifa$=chr$(13)andra(en)>0andra(en)<6then3120
3118 ifa$<"1"ora$>"5"then3116
3119 ra(en)=val(a$):printra(en);"[157][157][157]";:goto3116
3120 print" (taste)
3121 [161]a$:[139]a$[178]""[167]3121
3122 [139]a$[178]"input"[167][142]
3123 [139]df[178]1[167]df[178]0:[142]
3125 en[178]en[170]1:[137]3020
4000 [143] datei ansehen / ergaenzen
4010 [153]"load(a)nsehen oder (e)rgaenzen "
4020 [161]a$:[139]a$[178]""[167]4020
4021 [139]a$[178]"input"[167][142]
4022 [139]a$[178]"a"[167]4030
4023 [139]a$[178]"e"[167]4060
4024 [137]4020
4030 sz[178]1:[141]2550:sz[178]0:[142]
4060 en[178]en[170]1:[137]3020
5000 [143]
5001 [153]"load(e)intraege loeschen / (s)chluss"
5008 [161]a$:[139]a$[178]""[167]5008
5010 [139]a$[178]"e"[175]en[179]1[167][142]
5011 [139]a$[178]"input"[167][142]
5012 [139]a$[179][177]"e"[175]a$[179][177]"s"[167]5010
5013 [139]a$[178]"s"[167][137]7000
5014 [151]x,2:[151]y,3:[158]cs:[153]"die letzten "
5015 [153]" eintraege werden geloescht."
5016 [151]x,14:[151]y,3:[158]cs:la[178]1:[141]25:an[178][197](en$)
5017 [129]i[178]en[171]an[170]1[164]en:fr$(i,1)[178]"":fr$(i,2)[178]"":[129]j[178]1[164]5:an$(i,j)[178]"":[130]j
5018 ra(i)[178]0:[130]i:en[178]en[171]an
5019 [153]"ok. (return)"
5020 [161]a$:[139]a$[179][177][199](13)[167]5020
5021 [142]
6000 [143] diskettenbefehl
6010 [153]"load(d)irectory":[153]"(s)cratch":[153]"(v)alidate":[153]"(q)uit"
6020 [161]a$:[139]a$[178]""[167]6020
6021 [139]a$[178]"d"[167][141]400:[137]6010
6022 [139]a$[178]"s"[167][153]"name des files: ";:la[178]15:[141]25:sc$[178]"s"[170][199](58)[170]en$:[137]6026
6023 [139]a$[178]"q"[167][142]
6024 [139]a$[178]"v"[167][159]2,8,15:[152]2,"v":[160]2:[137]6010
6025 [137]6010
6026 [159]2,8,15:[152]2,sc$:[160]2:[137]6010
7000 [153]"load"
7010 [151]53280,2:[151]53281,2:[151]646,2
7020 [151]1,55:[153]"load"[170][199](34)[170]"qm zeichensatz"[170][199](34)[170]",8"
7030 [153]"run"
7040 [151]631,19:[151]632,13:[151]633,13:[151]198,3:[162]