1 REM  ********************************
2 REM  *                              *
3 REM  *          AUTO - SAVE         *
4 REM  *                              *
5 REM  *      1985 BY MANFRED LINS    *
6 REM  *              REITACKER 1     *
7 REM  *         6492 ZUENTERSBACH    *
8 REM  *                              *
9 REM  ********************************
10 :
11 :
12 REM  MASCHINEN-PROGRAMM NACHLADEN
13 IF R=0 THEN R=1:LOAD"SAVE-OBJ",8,1
14 :
16 PRINT CHR$(147)CHR$(18)"             AUTO - SAVE                "
19 PRINT:PRINT:PRINT
21 :
22 REM  NAME EINGEBEN
23 PRINT"  PROGRAMMNAMEN (MAX. 16 ZEICHEN) EIN-"
24 PRINT"  GEBEN :"
25 :
26 S=10:Z=6:GOSUB 62
27 IF A$="" OR LEFT$(A$,1)=" " THEN 26
28 :
29 REM  NAMEN UND LAENGE ABSPEICHERN
30 N$="S:"+LEFT$(A$,16):L=LEN(N$)
31 POKE 49365,L-2:POKE 49366,L
32 :
33 FOR I=1 TO L:POKE 49366+I,ASC(MID$(N$,I,1)):NEXT I
36 PRINT:PRINT
39 REM  INTERVALL EINGEBEN
40 PRINT"  ABSPEICHER-INTERVALL (256 BYTE = 1)"
41 PRINT"  EINGEBEN :"
43 S=13:Z=10:GOSUB 62
46 REM  INTERVALL ABSPEICHERN
47 I=VAL(A$):IF I<1 THEN I=1
48 POKE 49363,8+I:POKE 49364,I
51 REM MASCHINENPROGRAMM INITIALISIEREN
52 SYS 49152
53 :
54 REM  LADEPROGRAMM LOESCHEN
55 NEW:END
60 REM  UNTERPROGRAMM STRINGEINGABE
62 PRINT CHR$(144):OPEN 1,0
63 POKE 214,Z:POKE 211,S:SYS 58640
64 INPUT#1,A$
65 CLOSE 1:PRINT CHR$(154):RETURN