100 DIM A%(20%),B$=253%,Q0$=253%
110 REM SNABBUPPDATERING AV LEKTIONSREGISTER
120 ; CHR$(12%)'UPPL[GGNING AV LEKTIONSAVSNITT'
130 ; '******************************'
140 ; 'START LEKTION  '; : INPUT L$
150 IF L$="" THEN CHAIN "START"
160 L%=VAL(L$)
170 IF L%>0% AND L%<91% L9%=L%-(L%/6%)*6% ELSE 120
180 ; 'TAKT (30 30G ETC) '; : INPUT T$
190 ; '+ AVSLUTNING  J/N  '; : INPUT A$
200 IF INSTR(1,T$,'G') OR INSTR(1,T$,'g') T$=LEFT$(T$,LEN(T$)-1%) : T%=VAL(T$) : G%=255% : GOTO 220
210 T%=VAL(T$) : G%=0%
220 IF A$='j' A$='J'
230 IF A$='n' A$='N'
240 IF T%>255% OR T%<1% THEN 120
250 GOSUB 530
260 ; "   OK J/N"; : GET C$ : ; 
270 IF C$="N" OR C$="n" THEN 120 ELSE 280
280 ; CUR(2,0);
290 FOR J%=1% TO 20% : A%(J%)=0% : NEXT J%
300 FOR I%=1% TO 20%
310 ; 'AVSNITT 'I%;' '; : INPUT C$
320 IF C$<>"" THEN 350
330 IF A$="J" THEN A%(I%)=9999% ELSE A%(I%)=0%
340 GOTO 370
350 A%(I%)=VAL(C$)
360 NEXT I%
370 GOSUB 530
380 FOR I%=1% TO 20% : C$=NUM$(A%(I%)) : ; "AVSNITT ";I%;TAB(20-LEN(C$));A%(I%) : NEXT I%
390 ; "OK J/N" : GET C$ : IF C$="N" OR C$="n" THEN 250
400 REM 
410 REM 
420 B$=CHR$(T%)+CHR$(G%)
430 FOR I%=1% TO 20% : B$=B$+CHR$(A%(I%),SWAP%(A%(I%))) : NEXT I%
440 OPEN 'DR1:DD1.DAT' ASFILE 1%
450 Z%=CALL(28666%,1%)+CALL(28668%,550%+(L%-1%)/6%)
460 B$=MID$(Q0$,1%,(L9%-1%)*42%)+B$+MID$(Q0$,L9%*42%+1%,252%-L9%*42%)+RIGHT$(Q0$,253%)
470 Z%=CALL(28666%,1%) : Q0$=B$ : Z%=CALL(28670%,550%+(L%-1%)/6%)
480 CLOSE 1%
490 L%=L%+1% : IF L%<91% 250 ELSE 120
500 REM 
510 REM 
520 END 
530 ; CHR$(12)'LEKTION NR'L%' TAKT 'T%;
540 IF G%=255% ; ' GRUNDTAKT';
550 IF A$='J' ; ' +AVSL' ELSE ; 
560 ; '****************************************'CUR(2%,0%);
570 RETURN