10 ! GLSYSTEM 1990.04.25
20 EXTEND 
30 ! 
35 Rader=9
40 DIM Text$(Rader)
50 DIM Rad$(Rader)
60 Filnamn$='GLSYS.DAT'
70 Bytprog$='GLMENY.BAC'
80 ! 
90 Z=FNMeny
100 Z=FNH{mta
110 Z=FNInmatning
120 Z=FNSlutfr}ga
130 CHAIN 'GLMENY.BAC'
140 ! 
150 DEF FNMeny
160   PRINT CHR$(12)
170   PRINT CUR(0,0) ' SYSTEMUPPGIFTER KALORIBER[KNING '
180   PRINT CUR(1,0) STRING$(80,45)
190   PRINT CUR(20,0) STRING$(80,45)
200   PRINT CUR(21,0) 'PF5 upp            PF7 ned             <- radera tecken            CE radera rad'
210   ! 
220   FOR Antal=1 TO Rader
230     READ Text$
240     PRINT CUR(2+Antal,14) Text$+STRING$(20-LEN(Text$),46)
250   NEXT Antal 
260   ! 
270   DATA 'Mycket aktiv','Ganska aktiv','Normalr|rlig','Pension{r','Fettinneh}ll'
280   DATA 'Normalmotion 1/2 tim','H}rd motion  1/2 tim','[mnesoms{ttning'
290   DATA 'Skrivarekod'
310   RETURN 0
320 FNEND 
330 ! 
340 DEF FNSlutfr}ga
350   PRINT CUR(21,0) SPACE$(80)
360   PRINT CUR(21,0) 'Skall eventuella {ndringar sparas (J/N) :'; : INPUT ''Svar$
370   IF Svar$='J' OR Svar$='j' Z=FNSpara
380   RETURN 0
390 FNEND 
400 ! 
410 DEF FNSpara
420   PREPARE Filnamn$ AS FILE 1
430   FOR Antal=1 TO Rader
440     PRINT #1,Text$(Antal)
450   NEXT Antal 
455   CLOSE 1
460   RETURN 0
470 FNEND 
480 ! 
490 DEF FNH{mta
500   ON ERROR GOTO 580 ! K|r rutinen spara fil om man inte hittar filen
510   OPEN Filnamn$ AS FILE 1
520   FOR Antal=1 TO Rader
530     INPUT #1Text$(Antal)
540     PRINT CUR(Antal+2,35);Text$(Antal)
550   NEXT Antal 
555   CLOSE 1
560   RETURN 0
570   ! 
580   Z=FNSpara
590   RETURN 0
600 FNEND 
610 ! 
620 DEF FNInmatning
630   FOR Antal=1 TO Rader
640     WHILE Flagga<>1
650       ! 
660       IF ASCII(Tecken$)=198 AND Antal>Rader THEN RETURN 0
670       PRINT CUR(Antal+2,35+LEN(Text$(Antal)));
680       GET Tecken$
690       IF ASCII(Tecken$)=13 Z=FNNed
700       IF ASCII(Tecken$)=13 AND Antal>Rader THEN RETURN 0
710       IF ASCII(Tecken$)=8 AND LEN(Text$(Antal))>0 Z=FNSudda
720       IF ASCII(Tecken$)=24 Z=FNSuddaallt
730       IF ASCII(Tecken$)=196 Z=FNUpp
740       IF ASCII(Tecken$)=198 Z=FNNed
750       IF ASCII(Tecken$)=192 Z=FNSluta
770       IF ASCII(Tecken$)<127 AND ASCII(Tecken$)>=32 Z=FN\katext
780       ! 
790     WEND 
800   NEXT Antal 
810   RETURN 0
820 FNEND 
830 ! 
840 DEF FN\katext
850   Text$(Antal)=Text$(Antal)+Tecken$
860   PRINT CUR(Antal+2,35);Text$(Antal)
870   Pos=LEN(Text$(Antal))
880   RETURN 0
890 FNEND 
900 ! 
910 DEF FNSudda
920   Text$(Antal)=LEFT$(Text$(Antal),LEN(Text$(Antal))-1)
930   PRINT CUR(Antal+2,35);Text$(Antal)+SPACE$(1)
940   RETURN 0
950 FNEND 
960 ! 
970 DEF FNSuddaallt
980   PRINT CUR(Antal+2,35);SPACE$(LEN(Text$(Antal)))
990   Text$(Antal)=''
1000   RETURN 0
1010 FNEND 
1020 ! 
1030 DEF FNUpp
1040   Antal=Antal-1
1050   IF Antal<=1 Antal=1
1060   RETURN 0
1070 FNEND 
1080 ! 
1090 DEF FNNed
1100   Antal=Antal+1
1110   RETURN 0
1120 FNEND 
1130 ! 
1140 DEF FNSluta
1150   CHAIN 'GLMENY.BAC'
1160   RETURN 0
1170 FNEND