home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8507a.d64
/
layout
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
19KB
|
648 lines
1 REM ** CASSETTEN-LAYOUT VON **
2 REM ** KARL-HEINZ WOELLECKE **
3 REM ** PETERSTR.15 **
4 REM ** 3380 GOSLAR **
5 REM ** TEL:(05321)21246 **
6 REM ** NUR MIT INPUT-ROUTINE VON **
7 REM ** THOMAS GRAF BENUTZEN !! **
8 REM ** SIEHE AUCH 64'ER 6/85 **
9 REM ** SEITE 148 **
10 PRINTCHR$(147):PRINTCHR$(14):GOTO10000
11 REM **LEERFELDER BESETZEN**
12 FORI=6TO19
13 IFA$(I)=" "THENA$(I)="."
14 NEXT:RETURN
15 FORJ=1TO13
16 IFB$(J)=" "THENB$(J)="."
17 NEXT:RETURN
18 FORK=1TO3
19 IFE$(K)=" "THENE$(K)="."
20 NEXT:RETURN
21 FORK=5TO7
22 IFE$(K)=" "THENE$(K)="."
23 NEXT:RETURN
24 FORL=1TO14
25 IFF$(L)=" "THENF$(L)="."
26 NEXT:RETURN
27 FORM=1TO13
28 IFH$(M)=" "THENH$(M)="."
29 NEXT:RETURN
39 REM **** FLOPPY EINGESCHALTET ***
40 POKEQ,9:POKER,0:SYSS:PRINT"[196]ISKETTENSTATION EINGESCHALTET J/N "
42 GETX$:IFX$=""THEN42
44 IFX$="J"THEN48
46 IFX$="N"THEN10010
47 GOTO42
48 POKEQ,9:POKER,0:SYSS:PRINT"[196]ISKETTE EINGELEGT J/N "
50 GETX$:IFX$=""THEN50
52 IFX$="J"THEN56
54 IFX$="N"THEN10010
55 GOTO50
56 POKEQ,9:POKER,0:SYSS:PRINT" "
58 RETURN
59 REM *** DATENEINGABE ******
60 PRINT"[147]";:POKEE,2:POKEF,2:PRINT"[158][199]EBEN [211]IE NUN DEN [195]ASSETTENTITEL EIN"
61 PRINT"39 [218]EICHEN SIND VERFUEGBAR"
62 INPUT>39,0,9,A$(5):GOTO72
63 POKEQ,13:POKER,0:SYSS:PRINT" "
64 POKEQ,6:POKER,0:SYSS:PRINT"[153] [193]ENDERN DES [195]ASSETTENTITELS [146]"
66 POKEQ,9:POKER,0:SYSS:PRINTA$(5)
68 INPUT>39,0,9,A$(5)
72 PRINT""C$
75 GETX$:IFX$=""THEN75
76 IFX$="J"THEN79
77 IFX$="N"THEN63
78 GOTO75
79 PRINT"[147]";:POKEE,3:POKEF,3:POKEG,1:PRINT"[193]USGEWAEHLTE [203]RITERIEN :";
80 PRINT" W/Z/M [146]"
81 PRINT"[194]ANDSORTE: ";A$(1)
82 PRINT"[194]ANDMECHANIK: ";A$(2)
84 PRINT"[193]UFNAHMEART: ";A$(3)
85 PRINT"[210]AUSCHUNTERDR.: ";A$(4)
86 PRINT"[195]ASSETTENTITEL: ":PRINT"[151]"A$(5)
87 PRINT""C$
88 GETX$:IFX$=""THEN88
89 IFX$="J"THEN100
90 IFX$="N"ORX$="M"THENRETURN
91 IFX$="W"THEN150
92 IFX$="Z"THENPRINT" M [146] ODER W [146] DRUECKEN ![146]":FORT=1TO1000:NEXT:GOTO79
98 GOTO88
100 PRINT"[147]";:POKEE,6:POKEF,6
101 PRINT"[154]14 [218]EILEN MIT JE 39 [218]EICHEN VERFUEGBAR"
102 FORI=6TO19
104 I$="[159][211]EITE 1 [197]INGABE [146]"
106 G$="[158][197]INGABE FUER [218]EILE : "
108 POKEQ,2:POKER,9:SYSS:PRINTI$
110 POKEQ,4:POKER,9:SYSS:PRINTG$;:PRINTI-5
112 PRINT:PRINT
116 INPUT>39,0,I,A$(I):NEXT
122 PRINT:PRINTC$
124 GETX$:IFX$=""THEN124
126 IFX$="J"THENGOSUB12:GOTO200
128 IFX$="N"THEN150
130 GOTO124
150 PRINT"[147]";:POKEE,6:POKEF,6:POKEG,1
151 GOSUB12:PRINT"[211]EITE 1 [203]ONTROLLE W/Z/M [146]"
152 PRINT:PRINT"[154] [193]ENDERN 1 - 5 [146]"
153 FORI=6TO10:PRINTA$(I):NEXT
154 PRINT;:PRINT"[154] [193]ENDERN 6 - 10 [146]"
155 FORI=11TO15:PRINTA$(I):NEXT
156 PRINT"[154] [193]ENDERN 11 - 14 [146]"
157 FORI=16TO19:PRINTA$(I):NEXT
158 PRINT"[159] [193] E N D E R N J/N ? [146]"
159 GETX$:IFX$=""THEN159
160 IFX$="J"THEN168
161 IFX$="N"THEN200
162 IFX$="W"THEN250
163 IFX$="Z"THEN79
164 IFX$="M"THENRETURN
167 GOTO159
168 POKEQ,20:POKER,0:SYSS:PRINT"[206]UMMER DIE GEAENDERT WIRD :"
170 INPUT>2,30,20,X$:IFVAL(X$)<1ORVAL(X$)>14THEN190
172 Y=VAL(X$)+5
174 POKEQ,22:POKER,0:SYSS:PRINTA$(Y)
178 INPUT>39,0,22,A$(Y):GOTO150
190 PRINT:PRINT:PRINT" [198]ALSCHE [197]INGABE [198]ALSCHE [197]INGABE [146]"
192 FORT=1TO1000:NEXT:GOTO150
200 POKEE,6:POKEF,6:PRINT"[147]";
201 PRINT"[154]13 [218]EILEN MIT JE 39 [218]EICHEN VERFUEGBAR"
202 FORI=1TO13
204 L$="[159][211]EITE 2 [197]INGABE [146]"
206 M$="[158][197]INGABE FUER [218]EILE : "
208 POKEQ,2:POKER,9:SYSS:PRINTL$
210 POKEQ,4:POKER,9:SYSS:PRINTM$;:PRINTI
212 PRINT:PRINT
216 INPUT>39,0,I+5,B$(I):NEXT
222 PRINT:PRINTC$
224 GETX$:IFX$=""THEN224
226 IFX$="J"THENGOSUB15:GOTO300
228 IFX$="N"THEN250
230 GOTO224
250 PRINT"[147]";:POKEE,6:POKEF,6:POKEG,1
251 GOSUB15:PRINT"[211]EITE 2 [203]ONTROLLE W/Z/M [146]"
252 PRINT:PRINT"[154] [193]ENDERN 1 - 5 [146]"
253 FORI=1TO5:PRINTB$(I):NEXT
254 PRINT;:PRINT"[154] [193]ENDERN 6 - 10 [146]"
255 FORI=6TO10:PRINTB$(I):NEXT
256 PRINT"[154] [193]ENDERN 11 - 13 [146]"
257 FORI=11TO13:PRINTB$(I):NEXT
258 PRINT"[159] [193] E N D E R N J/N ? [146]"
259 GETX$:IFX$=""THEN259
260 IFX$="J"THEN268
261 IFX$="N"THEN300
262 IFX$="W"THEN350
263 IFX$="Z"THEN150
264 IFX$="M"THENRETURN
267 GOTO259
268 POKEQ,19:POKER,0:SYSS:PRINT"[206]UMMER DIE GEAENDERT WIRD :"
270 INPUT>2,30,19,X$:IFVAL(X$)<1ORVAL(X$)>13THEN290
272 Y=VAL(X$)
274 POKEQ,22:POKER,0:SYSS:PRINTB$(Y)
278 INPUT>39,0,22,B$(Y):GOTO250
290 PRINT:PRINT:PRINT" [198]ALSCHE [197]INGABE [198]ALSCHE [197]INGABE [146]"
292 FORT=1TO1000:NEXT:GOTO250
300 POKEE,4:POKEF,4:PRINT"[147]";
301 PRINT"[150]3 [218]EILEN MIT JE 35 [218]EICHEN VERFUEGBAR"
302 PRINT"1 [212]ITELZEILE MIT 29 [218]EICHEN VERFUEGBAR"
303 FORI=1TO3
304 L$="[158][195]ASSETTENSEITE 1 [197]INGABE [146]"
306 M$="[197]INGABE FUER [218]EILE : "
308 POKEQ,3:POKER,9:SYSS:PRINTL$
310 POKEQ,4:POKER,9:SYSS:PRINTM$;:PRINTI
312 PRINT:PRINT
316 INPUT>35,0,I+5,E$(I):NEXT
318 PRINT:PRINT:PRINT" [158] [212]ITELZEILE EINGEBEN ! [146]"
320 INPUT>29,0,12,E$(4)
322 PRINT:PRINTC$
324 GETX$:IFX$=""THEN324
326 IFX$="J"THENGOSUB18:GOTO400
328 IFX$="N"THEN350
330 GOTO324
350 PRINT"[147]";:POKEE,14:POKEF,14:POKEG,1
351 GOSUB18:PRINT"[195]ASSETTENSEITE 1 [203]ONTROLLE W/Z/M [146]"
352 PRINT:PRINT" [193]ENDERN 1 - 3 [146]"
353 PRINT:FORI=1TO3:PRINTE$(I):NEXT
354 PRINT:PRINT"[158] [212]ITELZEILE ( 4 ) [146]":PRINT
356 PRINTE$(4)
358 PRINT"[153] [193] E N D E R N J/N ? [146]"
359 GETX$:IFX$=""THEN359
360 IFX$="J"THEN368
361 IFX$="N"THEN400
362 IFX$="W"THEN414
363 IFX$="Z"THEN250
364 IFX$="M"THENRETURN
367 GOTO359
368 POKEQ,12:POKER,0:SYSS:PRINT"[206]UMMER DIE GEAENDERT WIRD :"
370 INPUT>1,30,12,X$:IFVAL(X$)<1ORVAL(X$)>4THEN390
372 Y=VAL(X$):IFVAL(X$)=4THEN380
374 POKEQ,15:POKER,0:SYSS:PRINTE$(Y)
378 INPUT>35,0,15,E$(Y):GOTO350
380 POKEQ,15:POKER,0:SYSS:PRINTE$(4)
382 INPUT>29,0,15,E$(4):GOTO350
390 PRINT:PRINT:PRINT:PRINT" [198]ALSCHE [197]INGABE [198]ALSCHE [197]INGABE [146]"
392 FORT=1TO1000:NEXT:GOTO350
400 POKEE,9:POKEF,9:PRINT"[147]";
401 PRINT"[158]3 [218]EILEN MIT JE 35 [218]EICHEN VERFUEGBAR"
402 FORI=5TO7
403 L$="[195]ASSETTENSEITE 2 [197]INGABE [146]"
404 M$="[197]INGABE FUER [218]EILE : "
405 POKEQ,2:POKER,9:SYSS:PRINTL$
406 POKEQ,3:POKER,9:SYSS:PRINTM$;:PRINTI-4
407 PRINT:PRINT
408 INPUT>35,0,I,E$(I):NEXT
409 PRINT:PRINTC$
410 GETX$:IFX$=""THEN410
411 IFX$="J"THENGOSUB21:GOTO8000
412 IFX$="N"THEN414
413 GOTO410
414 PRINT"[147]";:POKEE,14:POKEF,14:POKEG,1
415 GOSUB21:PRINT"[195]ASSETTENSEITE 2 [203]ONTROLLE W/Z/M [146]"
416 PRINT:PRINT" [193]ENDERN 1 - 3 [146]"
417 FORI=5TO7:PRINTE$(I):NEXT
418 PRINT:PRINT"[158] [212]ITELZEILE [146]":PRINT
420 PRINTE$(4)
422 PRINT"[153] [193] E N D E R N J/N ? [146]"
424 GETX$:IFX$=""THEN424
426 IFX$="J"THEN438
428 IFX$="N"THEN8000
430 IFX$="W"THEN8113
432 IFX$="Z"THEN350
434 IFX$="M"THENRETURN
436 GOTO424
438 POKEQ,12:POKER,0:SYSS:PRINT"[206]UMMER DIE GEAENDERT WIRD :"
440 INPUT>1,30,12,X$:IFVAL(X$)<1ORVAL(X$)>3THEN448
442 Y=VAL(X$)+4
444 POKEQ,15:POKER,0:SYSS:PRINTE$(Y)
446 INPUT>35,0,15,E$(Y):GOTO414
448 PRINT:PRINT:PRINT:PRINT" [198]ALSCHE [197]INGABE [198]ALSCHE [197]INGABE [146]"
450 FORT=1TO1000:NEXT:GOTO414
459 REM **** DATENKONTROLLE ****
460 POKEE,1:POKEF,1:POKEG,5:PRINT"[147]"
462 PRINT"-7- [196]ATEN KONTROLLIEREN [146]"
464 PRINT"[197]INGELADENE [196]ATEN KOENNEN"
466 PRINT"GESICHTET WERDEN."
471 PRINT"1 = [211]EITE 1"
472 PRINT"2 = [211]EITE 2"
473 PRINT"3 = [195]ASSETTENSEITE 1"
474 PRINT"4 = [195]ASSETTENSEITE 2"
475 PRINT"5 = [193]RCHIVDATEN [212]ITEL"
476 PRINT"6 = [193]RCHIVDATEN [211]EITE 1"
477 PRINT"7 = [193]RCHIVDATEN [211]EITE 2"
478 PRINT"8 = [215]EITERBLAETTERN
479 [153]"9 = (null)ENUE
481 PRINT" [194]ITTE AUSWAEHLEN --> [146]"
482 GETX$:IFVAL(X$)<1ORVAL(X$)>9THEN482
486 ONVAL(X$)GOTO150,250,350,414,8113,8214,8314,79,10010
499 REM ** DRUCKAUSGABE VORBEREITEN**
500 FORI=1TO19
502 IFA$(I)=". "ORA$(I)="."THENA$(I)=""
504 NEXTI
510 FORJ=1TO13
512 IFB$(J)=". "ORB$(J)="."THENB$(J)=""
514 NEXTJ
520 FORK=1TO9
522 IFE$(K)="."THENE$(K)=""
524 NEXTK
530 FORL=1TO14
532 IFF$(L)=". "ORF$(L)="."THENF$(L)=""
534 NEXTL
540 FORM=1TO13
542 IFH$(M)=". "ORH$(M)="."THENH$(M)=""
544 NEXTM
590 RETURN
599 REM ** LEERVARIABLEN BESETZEN **
600 FORI=1TO19
605 IFA$(I)=""THENA$(I)="."
610 NEXT
615 FORJ=1TO13
620 IFB$(J)=""THENB$(J)="."
625 NEXT
630 FORK=1TO9
635 IFE$(K)=""THENE$(K)="."
640 NEXT
645 FORL=1TO14
650 IFF$(L)=""THENF$(L)="."
655 NEXT
660 FORM=1TO13
665 IFH$(M)=""THENH$(M)="."
670 NEXT
690 RETURN
839 REM *** UP DRUCKAUSGABE ARCHIVDATEN ***
840 PRINT"[147]";:POKEE,4:POKEF,4:POKEG,1
845 PRINT"-9- [193]RCHIVDATEN EINGEBEN/AUSDRUCKEN [146]":GOSUB500
850 POKEQ,10:POKER,5:SYSS:PRINT"[196]RUCKER EINGESCHALTET J/N "
860 GETX$:IFX$=""THEN860
865 IFX$="J"THEN880
870 IFX$="N"THEN8000
875 GOTO860
880 POKEQ,10:POKER,5:SYSS:PRINT" [208]APIER EINGELEGT J/N "
885 GETX$:IFX$=""THEN885
888 IFX$="J"THEN892
890 IFX$="N"THEN8000
891 GOTO885
892 POKEQ,10:POKER,5:SYSS:PRINT" [196]ANN DRUCKE ICH JETZT ! ":GOTO8900
939 REM **** UP DRUCKAUSGABE LAYOUT ***
940 PRINT"[147]";:POKEE,3:POKEF,3:POKEG,1
945 PRINT"-8- [204]AYOUT AUSDRUCKEN [146]":GOSUB500
950 POKEQ,10:POKER,5:SYSS:PRINT"[196]RUCKER EINGESCHALTET J/N "
960 GETX$:IFX$=""THEN960
965 IFX$="J"THEN980
970 IFX$="N"THENRETURN
975 GOTO960
980 POKEQ,10:POKER,5:SYSS:PRINT" [208]APIER EINGELEGT J/N "
985 GETX$:IFX$=""THEN985
988 IFX$="J"THEN992
990 IFX$="N"THENRETURN
991 GOTO985
992 POKEQ,10:POKER,5:SYSS:PRINT" [196]ANN DRUCKE ICH JETZT ! "
1000 OPEN1,4,7
1005 PRINT#1,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1010 PRINT#1,"[165] "CHR$(16)"42[167]"
1015 PRINT#1,"[165] "A$(1)CHR$(16)"12"A$(2)CHR$(16)"42[170]"
1020 PRINT#1,"[165] "A$(3)CHR$(16)"12"A$(4)CHR$(16)"42[167]"
1025 PRINT#1,"[165] "A$(5)CHR$(16)"42[167]"
1030 PRINT#1,"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
1035 PRINT#1,"[165] "A$(3)CHR$(16)"32"A$(4)CHR$(16)"42[167]"
1040 PRINT#1,"[165] "A$(5)CHR$(16)"42[167]"
1045 PRINT#1,"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
1050 PRINT#1,"[165] "O$CHR$(16)"42[167]"
1055 FORI=6TO19:PRINT#1,"[165] "A$(I)CHR$(16)"42[167]":NEXT
1060 PRINT#1,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1065 PRINT#1,"[165] "P$CHR$(16)"42[167]"
1070 FORI=1TO13:PRINT#1,"[165] "B$(I)CHR$(16)"42[167]":NEXT
1075 PRINT#1,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1080 FORI=1TO3:PRINT#1,"[165]"E$(I)CHR$(16)"36[167]":NEXT
1085 PRINT#1," [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] [167]"
1090 PRINT#1," 1"CHR$(16)"34"A$(1)"[167]"
1095 PRINT#1," "A$(2)
1100 PRINT#1," [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] [167]"
1105 PRINT#1,"[165] "E$(4)CHR$(16)"36[167]"
1115 PRINT#1,"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
1120 FORI=5TO7:PRINT#1,"[165]"E$(I)CHR$(16)"36[167]":NEXT
1125 PRINT#1," [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] [167]"
1130 PRINT#1," "CHR$(16)"34"A$(1)"[167]"
1135 PRINT#1," 2 "A$(2)
1140 PRINT#1," [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] [167]"
1143 PRINT#1
1145 PRINT#1,"[165] "E$(4)CHR$(16)"36[167]"
1150 PRINT#1,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1420 CLOSE1
1422 POKEQ,10:POKER,5:SYSS:PRINT" [193]LLE [196]ATEN GEDRUCKT ! "
1424 GOSUB600:FORT=1TO3000:NEXT:RETURN
2499 REM **** ARBEITSHINWEISE ****
2500 POKEE,1:POKEF,1:POKEG,14
2505 PRINT"[147]";:PRINT"-1- [193]RBEITSHINWEISE [146]"
2510 PRINT" [195] A S S E T T E N L A Y O U T "
2520 PRINT" [146]";:PRINT
2530 RETURN
3000 GOSUB2500
3002 PRINT"[201]M [208]ROGRAMMPUNKT -2- KOENNEN [211]IE [201]HR"
3004 PRINT" [197]INSPIELVERFAHREN FESTLEGEN."
3006 PRINT"Z.[194].:"
3008 PRINT" [194]ANDSORTE":PRINT" [194]ANDMECHANIK"
3010 PRINT" [193]UFNAHMEART"
3012 PRINT" [210]AUSCHUNTERDRUECKUNGSSYSTEM"
3014 PRINT""D$:POKE198,0:WAIT198,1
3016 GOSUB2500
3020 PRINT"[159] [201]M [208]ROGRAMMPUNKT -3- KOENNEN [211]IE AUF"
3022 PRINT" EIN FESTGELEGTES [197]INSPIELVERFAHREN"
3024 PRINT" ZURUECKGREIFEN."
3026 PRINT" Z.[194].:"
3028 PRINT" [194]ANDSORTE: [198]E [146]"
3030 PRINT" [194]ANDMECHANIK: [211][205] [146]"
3032 PRINT" [193]UFNAHMEART: STEREO [146]"
3034 PRINT" [210]AUSCHUNTERDRUECKUNGSSYSTEM: [200][201][199][200]()[195][207][205] [146]"
3038 PRINT" [196]IE [211]TANDARDVARIABLEN[146] KOENNEN [211]IE IN"
3040 PRINT" DER [218]EILE 5010 [201]HREN EIGENEN"
3042 PRINT" [194]EDUERFNISSEN ANPASSEN."
3044 PRINT""D$:POKE198,0:WAIT198,1
3046 GOSUB2500
3048 PRINT"[150][208]ROGRAMMPUNKT -4- DIENT DER [196]ATEN="
3050 PRINT"EINGABE."
3052 PRINT"[201]HRE [197]INGABEN KOENNEN [211]IE MIT DEN"
3054 PRINT"[203]ONTROLLSEITEN JEDERZEIT UEBERPRUEFEN"
3056 PRINT"UND GEGEBENENFALLS AENDERN."
3064 PRINT:PRINT:PRINT"[155][208]ROGRAMMPUNKT -5- SICHERT [201]HRE [196]ATEN."
3082 PRINT:PRINT:PRINT"[211]ICHERHEITSABFRAGEN VERHINDERN DAS"
3084 PRINT"[213]EBERSCHREIBEN[146] VON BEREITS "
3086 PRINT"AUF [196]ISKETTE VORHANDENEN [196]ATEIEN."
3088 PRINT:PRINTD$
3090 POKE198,0:WAIT198,1
3092 GOSUB2500
3094 PRINT"[158][208]ROGRAMMPUNKT -6- LADET [201]HRE [196]ATEN."
3096 PRINT:PRINT
3106 PRINT"[196]AS [208]ROGRAMM SPRINGT BEIM [214]ERSUCH"
3108 PRINT"NICHT VORHANDENE [196]ATEIEN VON [196]ISKETTE"
3110 PRINT"ZU LESEN NACH DER [198]EHLERMELDUNG IN DAS"
3112 PRINT"[205]ENUE ZURUECK.":PRINT:PRINT
3120 PRINT"[150][205]IT [208]ROGRAMMPUNKT -7- KOENNEN [211]IE [201]HRE"
3122 PRINT"EINGELESENEN [196]ATEN UEBERPRUEFEN UND"
3124 PRINT"EVENTUELL VOR [196]RUCKAUSGABE AENDERN.":PRINT
3126 PRINT""D$
3128 POKE198,0:WAIT198,1
3130 GOSUB2500
3132 PRINT"[205]IT [208]ROGRAMMPUNKT -8- RUFEN [211]IE DIE"
3134 PRINT"[196]RUCKAUSGABE[146] DES [204]AYOUTS AUF."
3152 PRINT"[205]IT [208]ROGRAMMPUNKT -9- KOENNEN [211]IE DIE"
3154 PRINT"[193]RCHIVDATEN DER VERWENDETEN [205]USIK="
3156 PRINT"STUECKE EINGEBEN UND AUSDRUCKEN LASSEN."
3172 PRINT"[205]IT [208]ROGRAMMPUNKT -0- ENDET DAS [208]ROGRAMM";
3174 PRINT"UND SETZT DIE [200]INTERGRUND- UND [210]AHMEN="
3176 PRINT"FARBE SOWIE DIE [211]CHREIBFARBE IN DEN"
3178 PRINT"[197]INSCHALTZUSTAND ZURUECK."
3180 PRINT"**** [206]OCH EINMAL J/N ****"
3182 GETX$:IFX$=""THEN3182
3184 IFX$="J"THEN3000
3186 IFX$="N"THENRETURN
3188 GOTO3182
3999 REM **** EINSPIELVARIANTEN AUSWAEHLEN ****
4000 PRINT"[147]";:POKEE,9:POKEF,9:POKEG,1
4002 PRINT"-2- [194]ETRIEBSVARIABLEN SETZEN [146]";
4005 PRINT" [194] A N D S O R T E [146]"
4010 PRINT"-1- [198]ERRO ([198]E)"
4020 PRINT"-2- [195]HROMDIOXID ([195]R)"
4030 PRINT"-3- [198]ERROCHROM ([198][195])"
4040 PRINT"-4- [205]ETAL ([205]E)"
4045 GETX$:IFX$=""THEN4045
4050 IFX$="1"THENA$(1)="[198]E":GOTO4100
4060 IFX$="2"THENA$(1)="[195]R":GOTO4100
4070 IFX$="3"THENA$(1)="[198][195]":GOTO4100
4075 IFX$="4"THENA$(1)="[205]E":GOTO4100
4080 IFX$<"1"ORX$>"4"THEN4045
4100 PRINT" [194] A N D M E C H A N I K [146]"
4110 PRINT"-1- [211]ICHERHEITSMECHANIK"
4120 PRINT"-2- [203]EINE [211]ICHERHEITSMECHANIK"
4130 GETY$:IFY$=""THEN4130
4140 IFY$="1"THENA$(2)="[211][205]":GOTO4200
4150 IFY$="2"THENA$(2)=".":GOTO4200
4160 IFY$<"1"ORY$>"2"THEN4130
4200 PRINT" [193] U F N A H M E A R T [146]"
4210 PRINT"-1- STEREO"
4220 PRINT"-2- MONO"
4225 PRINT"-3- MONO/STEREO"
4230 GETZ$:IFZ$=""THEN4230
4240 IFZ$="1"THENA$(3)="STEREO":GOTO4300
4250 IFZ$="2"THENA$(3)="MONO":GOTO4300
4255 IFZ$="3"THENA$(3)="MONO/STEREO":GOTO4300
4260 IFZ$<"1"ORZ$>"3"THEN4230
4300 PRINT" [210] A U S C H M I N D E R U N G [146]"
4310 PRINT"-1- [200][201][199][200]()[195][207][205]"
4320 PRINT"-2- [196][207][204][194][217]"
4325 PRINT"-3- [203]EINE [210]AUSCHMINDERUNG"
4330 GETV$:IFV$=""THEN4330
4340 IFV$="1"THENA$(4)="[200][201][199][200]()[195][207][205]":GOTO4400
4350 IFV$="2"THENA$(4)="[196][207][204][194][217]":GOTO4400
4355 IFV$="3"THENA$(4)=".":GOTO4400
4360 IFV$<"1"ORV$>"3"THEN4330
4400 PRINT"[147]-2- [194]ETRIEBSVARIABLEN SETZEN [146]";
4402 PRINT" [199]ESETZTE [194]ETRIEBSVARIABLEN :"
4410 PRINT" [194] A N D S O R T E [146]"
4415 PRINTA$(1)""
4420 PRINT" [194] A N D M E C H A N I K [146]"
4425 PRINTA$(2)""
4430 PRINT" [193] U F N A H M E A R T [146]"
4435 PRINTA$(3)""
4440 PRINT" [210] A U S C H M I N D E R U N G [146]"
4445 PRINTA$(4)""
4450 PRINTC$
4460 GETU$:IFU$=""THEN4460
4470 IFU$="J"THENRETURN
4480 IFU$="N"THEN4000
4490 GOTO4460
4999 REM **** GESETZTE EINSPIELVARIANTEN AUFRUFEN ****
5000 PRINT"[147]";:POKEE,12:POKEF,12
5002 PRINT"-3- [211]TANDARDVARIABLEN [146]";
5005 PRINT" [211] T A N D A R D V A R I A B L E [146]"
5010 A$(1)="[198]E":A$(2)="[211][205]":A$(3)="STEREO":A$(4)="[200][201][199][200]()[195][207][205]"
5030 PRINT"[194]ANDSORTE :";A$(1)
5040 PRINT"[194]ANDMECHANIK :";A$(2)
5050 PRINT"[193]UFNAHMEART :";A$(3)
5060 PRINT"[210]AUSCHMINDERUNG :";A$(4)
5080 PRINT""D$
5090 GETT$:IFT$<>""THEN5090
5095 POKE198,0:WAIT198,1
5100 RETURN
5999 REM **** DATEN SICHERN MIT DISKETTE ****
6000 PRINT"[147]";:POKEE,7:POKEF,7:POKEG,5
6010 PRINT"-5- [196]ATEN SICHERN [146]"
6020 PRINT" J [146] = [215]EITER"
6025 PRINT" N [146] = [205]ENUE"
6040 GOSUB40
6045 PRINT"[213]NTER WELCHEM [206]AMEM SOLLEN DIE"
6050 PRINT"[196]ATEN ABGESPEICHERT WERDEN ?":PRINT
6055 INPUTDN$
6060 CLOSE1:OPEN1,8,2,DN$+",S,W"
6070 CLOSE15:OPEN15,8,15:INPUT#15,A,B$,C,D
6075 IFA<>63THENCLOSE15:GOTO6160
6080 IFA=63THENPRINT" "B$" [146]":CLOSE15
6085 POKEQ,17:POKER,22:SYSS:PRINT"[197]RSETZEN J/N "
6090 GETX$:IFX$=""THEN6090
6095 IFX$="J"THENPOKEQ,17:POKER,22:SYSS:PRINT"[215]IRD ERSETZT ![158]":GOTO6160
6100 IFX$="N"THENPRINT"[206]EUER [206]AME ? DANN Y SONST * [146]"
6105 IFX$="*"THENRETURN
6106 IFX$="Y"THEN6108
6107 GOTO6090
6108 PRINT"[206]EUER [206]AME:":INPUTDN$:GOTO6160
6160 CLOSE1:OPEN1,8,2,"@:"+DN$+",S,W"
6161 FORI=1TO19:PRINT#1,A$(I):NEXT
6162 FORJ=1TO13:PRINT#1,B$(J):NEXT
6163 FORK=1TO9:PRINT#1,E$(K):NEXT
6164 FORL=1TO14:PRINT#1,F$(L):NEXT
6165 FORM=1TO13:PRINT#1,H$(M):NEXT
6166 CLOSE1:CLOSE15
6167 POKEQ,23:POKER,0:SYSS:PRINT"[196]IE [196]ATEN SIND GESICHERT"
6168 FORT=1TO2500:NEXT
6169 RETURN
6999 REM *** DATEN LADEN VON DISKETTE **
7000 PRINT"[147]";:POKEE,13:POKEF,13:POKEG,1
7010 PRINT"[152]-6- [196]ATEN LADEN [146]"
7015 PRINT" J [146] = [215]EITER"
7020 PRINT" N [146] = [205]ENUE"
7035 GOSUB40
7040 PRINT"[152][199]EBEN [211]IE DEN [196]ATEINAMEN EIN":PRINT
7050 INPUTDN$
7055 CLOSE15:OPEN15,8,15
7060 CLOSE1:OPEN1,8,2,DN$+",S,R"
7062 INPUT#15,A:IFA=0THEN7070
7063 POKEQ,15:POKER,0:SYSS:PRINT"[144] "DN$" [146] NICHT VORHANDEN !"
7064 CLOSE1:CLOSE15:FORT=1TO2500:NEXT:RETURN
7070 FORI=1TO19:INPUT#1,A$(I):NEXT
7071 FORJ=1TO13:INPUT#1,B$(J):NEXT
7072 FORK=1TO9:INPUT#1,E$(K):NEXT
7073 FORL=1TO14:INPUT#1,F$(L):NEXT
7074 FORM=1TO13:INPUT#1,H$(M):NEXT
7076 CLOSE15
7078 CLOSE1:CLOSE15
7080 POKEQ,20:POKER,0:SYSS:PRINT"[196]IE [196]ATEN SIND GELADEN"
7082 FORT=1TO1500:NEXT:RETURN
7999 REM *** ARCHIVDATENEINGABE ***
8000 PRINT"[147]";:POKEE,1:POKEF,1:POKEG,0
8010 PRINT" [193]RCHIVDATEN EINGEBEN/AUSDRUCKEN [146]"
8020 PRINT"-1- [197]INSPIELDATEN EINGEBEN"
8025 PRINT"-2- [197]INSPIELDATEN AUSDRUCKEN"
8027 PRINT"-3- [205]ENUE"
8030 PRINT"[194]ITTE AUSWAEHLEN"
8035 GETX$:IFVAL(X$)<1ORVAL(X$)>3THEN8035
8040 ONVAL(X$)GOTO8100,840,10010
8050 GOTO8035
8100 PRINT"[147]";:POKEE,2:POKEF,2:POKEG,1
8102 PRINT" [197]INSPIELDATEN EINGEBEN [146]"
8110 PRINT" [197]INSPIELDATUM [146]":INPUT>10,0,5,E$(8)
8111 PRINT:PRINT:PRINT:PRINT" [198]UER WEN [146]":INPUT>30,0,10,E$(9)
8113 POKEE,5:POKEF,5:POKEG,1
8114 PRINT"[147][197]INSPIELDATEN [203]ONTROLLE W/Z/M [146]"
8116 PRINT"[153] [197]INSPIELDATUM [146]":PRINTE$(8)
8117 PRINT"[153] [198]UER WEN [146]":PRINTE$(9)
8118 PRINT"[153] [195]ASSETTENTITEL: [146]":PRINTA$(5)
8120 PRINT""C$
8125 GETX$:IFX$=""THEN8125
8127 IFX$="M"THENRETURN
8130 IFX$="J"THEN8200
8132 IFX$="Z"THEN414
8135 IFX$="N"THEN8100
8137 IFX$="W"THEN8214
8140 GOTO8125
8200 POKEE,6:POKEF,6:POKEG,1
8202 PRINT"[147] [197]INSPIELDATEN EINGEBEN [211]EITE 1 [146]"
8204 PRINT"[202]ETZT DIE [193]RCHIVDATEN EINGEBEN !":PRINT" [212] I T E L [146]"
8206 PRINT" [193]RCHIVNUMMER [146]"
8208 FORI=6TO19:POKEQ,10:POKER,0:SYSS:PRINTA$(I)
8210 INPUT>8,0,14,F$(I-5):POKEQ,14:POKER,0:SYSS:PRINT" "
8212 POKEQ,10:POKER,0:SYSS:PRINT" ":NEXT
8214 PRINT"[147]";:GOSUB24:POKEE,2:POKEF,2:POKEG,1
8216 PRINT"[193]RCHIVDATEN [211]EITE 1 [203]ONTROLLE W/Z/M [146]":PRINT:PRINT
8218 FORI=6TO19::PRINTLEFT$(A$(I),25);:PRINTTAB(27)I-5;:PRINTTAB(31)F$(I-5):NEXT
8220 PRINT""C$
8222 GETX$:IFX$=""THEN8222
8224 IFX$="J"THEN8300
8228 IFX$="N"THEN8240
8230 IFX$="Z"THEN8113
8232 IFX$="W"THEN8314
8234 IFX$="M"THENRETURN
8236 GOTO8222
8240 POKEQ,20:POKER,0:SYSS:PRINT"[206]UMMER DIE GEAENDERT WIRD :"
8242 INPUT>2,30,20,X$:IFVAL(X$)<1ORVAL(X$)>14THEN8250
8244 Y=VAL(X$)
8246 POKEQ,22:POKER,0:SYSS:PRINTF$(Y)
8248 INPUT>8,0,22,F$(Y):GOTO8214
8250 PRINT:PRINT:PRINT" [198]ALSCHE [197]INGABE [198]ALSCHE [197]INGABE [146]"
8252 FORT=1TO1000:NEXT:GOTO8214
8300 POKEE,6:POKEF,6:POKEG,1
8302 PRINT"[147] [197]INSPIELDATEN EINGEBEN [211]EITE 2 [146]"
8304 PRINT"[202]ETZT DIE [193]RCHIVDATEN EINGEBEN !":PRINT" [212] I T E L [146]"
8306 PRINT" [193]RCHIVNUMMER [146]"
8308 FORI=1TO13:POKEQ,10:POKER,0:SYSS:PRINTB$(I)
8310 INPUT>8,0,14,H$(I):POKEQ,14:POKER,0:SYSS:PRINT" "
8312 POKEQ,10:POKER,0:SYSS:PRINT" ":NEXT
8314 PRINT"[147]";:GOSUB27:POKEE,2:POKEF,2:POKEG,1
8316 PRINT"[193]RCHIVDATEN [211]EITE 2 [203]ONTROLLE W/Z/M [146]":PRINT:PRINT
8318 FORI=1TO13::PRINTLEFT$(B$(I),25);:PRINTTAB(27)I;:PRINTTAB(31)H$(I):NEXT
8320 PRINT""C$
8322 GETX$:IFX$=""THEN8322
8324 IFX$="J"THENRETURN
8328 IFX$="N"THEN8340
8330 IFX$="Z"THEN8214
8332 IFX$="W"THEN8487
8334 IFX$="M"THENRETURN
8336 GOTO8322
8340 POKEQ,19:POKER,0:SYSS:PRINT"[206]UMMER DIE GEAENDERT WIRD :"
8342 INPUT>2,30,19,X$:IFVAL(X$)<1ORVAL(X$)>13THEN8350
8344 Y=VAL(X$)
8346 POKEQ,22:POKER,0:SYSS:PRINTH$(Y)
8348 INPUT>8,0,22,H$(Y):GOTO8314
8350 PRINT:PRINT:PRINT" [198]ALSCHE [197]INGABE [198]ALSCHE [197]INGABE [146]"
8352 FORT=1TO1000:NEXT:GOTO8314
8487 IFX$="W"THENPRINT" J [146] ODER M [146] DRUECKEN !":FORT=1TO1000:NEXT:GOTO8314
8898 REM *** DRUCKAUSGABE ARCHIVDATEN ***
8900 OPEN1,4,7
8903 FORI=0TO79:PRINT#1,"-";:NEXT
8905 PRINT#1,"[195] A S S E T T E N L A Y O U T [195] A S S E T T E N";
8910 PRINT#1," L A Y O U T"
8913 FORI=0TO79:PRINT#1,"-";:NEXT:PRINT#1:PRINT#1
8915 PRINT#1:PRINT#1,"[197] I N S P I E L D A T U M : ";E$(8)
8920 PRINT#1,"[198] U E R W E N : ";E$(9)
8922 PRINT#1:FORI=0TO79:PRINT#1,"-";:NEXT
8925 PRINT#1,"[195] A S S E T T E N T I T E L : ";A$(5)
8927 FORI=0TO79:PRINT#1,"-";:NEXT
8930 PRINT#1:PRINT#1
8935 PRINT#1,"[194]ANDSORTE"CHR$(16)"15[194]ANDMECHANIK"CHR$(16)"35[193]UFNAHMEART";
8940 PRINT#1,CHR$(16)"52[210]AUSCHUNTERDRUECKUNGSSYSTEM"
8945 PRINT#1,A$(1)CHR$(16)"15"A$(2)CHR$(16)"35"A$(3)CHR$(16)"52"A$(4)
8950 PRINT#1:PRINT#1:PRINT#1:PRINT#1
8951 PRINT#1,O$SPC(16)O$:PRINT#1:PRINT#1
8952 FORI=6TO19:PRINT#1,A$(I)CHR$(16)"47 "F$(I-5):NEXT
8966 PRINT#1:PRINT#1:PRINT#1
8970 PRINT#1,P$SPC(16)P$:PRINT#1:PRINT#1
8971 FORI=1TO13:PRINT#1,B$(I)CHR$(16)"47 "H$(I):NEXT
8994 PRINT#1:CLOSE1
8995 POKEQ,10:POKER,5:SYSS:PRINT" [193]LLE [196]ATEN GEDRUCKT ! "
8996 GOSUB600:FORT=1TO3000:NEXT:GOTO10010
8999 REM *** PROGRAMMENDE ***
9000 POKEE,14:POKEF,6:POKEG,14:PRINT"[147]";:PRINTCHR$(142):END
9999 REM **** MENUE ****
10000 DIMA$(19),B$(13),F$(14),H$(13)
10001 FORI=1TO4:A$(I)=".":NEXT
10003 FORK=8TO9:E$(K)=".":NEXT
10006 Q=214:R=211:S=58640:E=53280:F=53281:G=646
10007 D$="**** [212]ASTE DRUECKEN ****"
10008 C$=" [193]LLES RICHTIG J/N ? [146]"
10009 O$="***** [211]EITE 1 *****":P$="***** [211]EITE 2 *****"
10010 PRINT"[147]";:POKEE,0:POKEF,0
10015 PRINT" [195] A S S E T T E N - [204] A Y O U T "
10020 PRINT"-1- [193]RBEITSHINWEISE"
10022 PRINT"-2- [194]ETRIEBSVARIABLEN SETZEN "
10025 PRINT"-3- [211]TANDARDVARIABLEN"
10030 PRINT"-4- [196]ATENEINGABE"
10035 PRINT"-5- [196]ATEN SICHERN"
10040 PRINT"-6- [196]ATEN LADEN"
10045 PRINT"-7- [196]ATEN KONTROLLIEREN"
10047 PRINT"-8- [204]AYOUT AUSDRUCKEN"
10050 PRINT"-9- [193]RCHIVDATEN EINGEBEN/AUSDRUCKEN"
10052 PRINT"-0- [208]ROGRAMMENDE"
10055 PRINT"[193]USWAHL -->"
10060 GETX$:IFX$<"0"ORX$>"9"THEN10060
10062 IFX$<>"0"THEN10065
10063 GOTO9000
10065 ONVAL(X$)GOSUB3000,4000,5000,60,6000,7000,460,940,8000
10110 GOTO10010