0 REM  *******************************
1 REM  **                           **
2 REM  **    AUTO-START-GENERATOR   **
3 REM  **                           **
4 REM  **         WRITTEN BY        **
5 REM  **       STEFAN KOTTHAUS     **
6 REM  **          10/1987          **
7 REM  **                           **
8 REM  *******************************
9 :
10 A1=-1:A2=-1
20 PRINT CHR$(14)"[147][194]ITTE GEBEN [211]IE";
30 PRINT " DEN [198]ILENAMEN DES"
40 PRINT "  [193]UTOSTART-[208]ROGRAMMS EIN ";
50 INPUT FI$
60 IF FI$="" THEN PRINT"[198]ILENAME FEHLT !!":END
70 FI$=LEFT$(FI$,10)+"[160][172]8[172]1[186]"
80 :
90 PRINT "UND NUN DEN [198]ILENAMEN DES ERSTEN ZU"
100 PRINT "  LADENDEN [208]ROGRAMMS ";
110 INPUT F1$
120 IF F1$="" THEN PRINT"[198]ILENAME FEHLT !!":END
130 :
140 INPUT "[197]INSPRUNGADRESSE ";A1
150 :
160 PRINT "JETZT DEN [198]ILENAMEN DES ZWEITEN"
170 PRINT "  [208]ROGRAMMS ";
180 INPUT F2$
190 IF LEN(F2$)=0 AND A1=-1 THEN PRINT"[198]ILENAME FEHLT !!":END
200 :
210 IF LEN(F2$)=0 THEN 250
220 INPUT "[197]INSPRUNGADRESSE ([194][193][211][201][195])   43121[157][157][157][157][157][157][157]";A2
230 IF LEN(F2$)>0 AND A2=-1 THEN PRINT"[193]DRESSE FEHLT !!":END
240 :
250 OPEN 1,8, 2,FI$+",P,W"
260 OPEN 2,8,15
270 :
280 INPUT#2,FE,FE$
290 IF FE=63 THEN PRINT" [193]UTOSTART-[198]ILE EXISTIERT BEREITS !":GOTO 680
300 IF FE>0 THEN PRINT FE,FE$:GOTO 680
310 :
320 REM *** ALTE FILES VORHANDEN ? ***
330 PRINT#2,"R:"+F1$+"="+F1$
340 INPUT#2,FE,FE$
350 IF FE<>63THEN PRINT FE,FE$:GOTO 680
360 :
370 IF F2$="" THEN 430
380 PRINT#2,"R:"+F2$+"="+F2$
390 INPUT#2,FE,FE$
400 IF FE<>63THEN PRINT FE,FE$:GOTO 680
410 :
420 REM   *** DATEN EINLESEN ***
430 PR=0:T=0:RESTORE
440 READ A:IF A >=0 THEN POKE 828+T,A:T=T+1:PR=PR+A:GOTO 440
450 IF PR <> 7983 THEN PRINT"FALSCHE [208]RUEFSUMME !!!":GOTO 680
460 :
470 IF A1=-1 THEN 510
480 HI=INT(A1/256):LO=A1-256*HI
490 POKE 893,LO:POKE 894,HI
500 :
510 IF A2=-1 THEN POKE 892,44:A2=A1
520 :
530 HI=INT(A2/256):LO=A2-256*HI
540 POKE 930,LO:POKE 931,HI
550 :
560 POKE 901,72+LEN(F1$)
570 POKE 860,LEN(F1$):POKE 861,LEN(F2$)
580 :
590 FOR A=1 TO LEN(F1$)
600 POKE 931+A,ASC(MID$(F1$,A,1)):NEXT
610 :
620 IF LEN(F2$)=0 THEN 650
630 FOR B=1 TO LEN(F2$)
640 POKE 930+A+B,ASC(MID$(F2$,B,1)):NEXT
650 PRINT#1,CHR$(224);CHR$(1);
660 FOR D=828 TO 931+A+B
670 PRINT#1,CHR$(PEEK(D));:NEXT
680 CLOSE1:CLOSE 2:END
690 :
700 DATA 2,2,2,2,2,2,2,2
710 DATA 2,2,2,2,2,2,2,2
720 DATA 2,2,2,2,2,2,2,2,2,2
730 DATA 2,2,2,2,174,167,0,0,96
740 DATA 169,00,32,144,255,169,1
750 DATA 162,8,160,1,32,186,255
760 DATA 173,0,2,162,72,160,2,32
770 DATA 189,255,169,0,32,213,255
780 DATA 32,2,2,173,1,2,240,12,162
790 DATA 80,160,2,32,189,255,169,0
800 DATA 32,213,255,32,51,165,165
810 DATA 23,134,45,133,46,32,96,166
820 DATA 162,253,154,169,0,76
830 DATA 113,168,-1