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]