10 REM ++++++++++++++++++++++++++++++++
11 REM ! Program ....   REMHODE
12 REM ! Utg}va  3.02   1982-02-07
13 REM ! av (c) Gunnar Tidner
14 REM ! {ndrat av Jan Kristensen
15 REM ! Minne 16 Kbytes
16 REM ! Ins{nt av Jan Kristensen
17 REM ++++++++++++++++++++++++++++++++
18 REM 
19 REM Screened by +TCP+
20 REM 
21 REM Et fors|k p} } lage en standard
22 REM for RUBRIKBLOKK til ABC-klubbens
23 REM program
24 REM -------------
25 REM En utfil :  "HEADER.BAS" lages
26 REM som siden med MERGE sammenf|yes
27 REM med hovedprogrammet innen slut-
28 REM iltig programlagring skjer.
29 REM -----------------------------
30 REM I denne versjon kan kassett
31 REM brukes.
32 REM --------------------------------
33 REM 
34 DIM M$(50%)=40%
35 ; CHR$(12%)TAB(14%)'PROGRAMM-HODE'
36 ; TAB(14%)'=============' : ; 
37 ; "Programmnavn+.+filtyp:"; : INPUTLINE P$ : ; : P$=LEFT$(P$,LEN(P$)-2%)
38 IF LEN(P$)>12 ; 'max 12 tegn' : GOTO 37
39 IF LEN(P$)<1% 81
40 P$=P$+SPACE$(15%-LEN(P$))+'!'
41 ; "Dato:"; : INPUTLINE D$ : ; : D$=LEFT$(D$,LEN(D$)-2%)
42 ; "Versjon:"; : INPUTLINE V$ : ; : V$=LEFT$(V$,LEN(V$)-2%)
43 ; "Opphavsmann:"; : INPUTLINE U$ : ; : U$=LEFT$(U$,LEN(U$)-2%)
44 ; "Copyright om annen en" : ; "opphavsmannen:"; : INPUTLINE C$ : ; : C$=LEFT$(C$,LEN(C$)-2%)
45 ; "Endret av  :"; : INPUTLINE P1$ : ; : P1$=LEFT$(P1$,LEN(P1$)-2%)
46 ; "Krav p} utrustning"
47 ; "Flexskive:"; : GET F$ : IF INSTR(1%,"jJnN",F$)=0 THEN 47
48 IF (ASC(F$) AND 223%)=74 THEN F$=" for flexskive" ELSE F$=""
49 ; "Minnesbehov i Kbytes:"; : INPUT B5$
50 ; "Innsendt av:"; : INPUTLINE I$ : ; : I$=LEFT$(I$,LEN(I$)-2%)
51 ; "ekstra kommentar rad"10+I%' hvis ikke RETURN'; : INPUTLINE M$(I%) : ; : M$(I%)=LEFT$(M$(I%),LEN(M$(I%))-2%)
52 IF LEN(M$(I%)) ; RIGHT$(NUM$(10%+I%),2);" REM ";M$(I%) : GET G9$ : IF G9$='*' 53 ELSE I%=I%+1% : GOTO 51
53 ; 'SETT KASSETT I REC, OG TRYKK RETURN'; : GET G9$
54 ; CHR$(12%)CUR(12%,0%)'HODE LAGRES NU P] KASSETT'
55 ; : ; : ; 'VENT ET \YEBLIKK' : ; : ; : ; 
56 PREPARE "HEADER.BAS" ASFILE 1 : L%=1
57 ; #L%,"1 REM +++++++++++++++++++++++++++++++++"
58 ; #L%,"2 REM ! Program ....   ";P$
59 D$=" Utgave  "+V$+SPACE$(7-LEN(V$))+D$
60 D$=D$+SPACE$(31%-LEN(D$))+'!'
61 ; #L%,"3 REM !";D$
62 IF LEN(C$)=0% U$="(c) "+U$
63 U$=U$+SPACE$(27%-LEN(U$))+'!'
64 ; #L%,"4 REM ! av ";U$
65 IF LEN(P1$) 67
66 GOTO 69
67 P1$=P1$+SPACE$(20%-LEN(P1$))+'!'
68 ; #L%,"5 REM ! endret av "P1$ : GOTO 69
69 IF LEN(C$) 71
70 GOTO 73
71 C$=C$+SPACE$(20%-LEN(C$))+'!'
72 ; #L%,"6 REM ! Copyright "C$
73 B9$='Minne '+B5$+' Kbytes'+F$
74 B9$=B9$+SPACE$(30%-LEN(B9$))+'!'
75 ; #L%,"7 REM ! "B9$
76 IF LEN(I$) 78
77 GOTO 80
78 I$=I$+SPACE$(18%-LEN(I$))+'!'
79 ; #L%,"8 REM ! Innsendt av "I$
80 ; #L%,"9 REM +++++++++++++++++++++++++++++++++"
81 FOR J%=0% TO I% : ; #L%RIGHT$(NUM$(10%+J%),2%);" REM "M$(J%) : NEXT J%
82 CLOSE 1