1 REM +++++++++++++++++++++++++++++++++ 2 REM ! Program .... KALENDER 3 REM ! Utg}va ?? 19??-??-?? 4 REM ! av (c) Lars-Owe Gradin 6 REM ! F|r printer MX-80 F/T 7 REM ! Minne 16 Kbytes 8 REM ! Ins{nt av 463 9 REM +++++++++++++++++++++++++++++++++ 10 REM Kalender f|r }ren 1600-2300 11 REM F|r printer MX-80 F/T 75 ; CHR$(12) 80 OPEN "PR:" ASFILE 1 85 ; TAB(15)"KALENDER" 90 ; : ; : ; 95 ; "VILKET ]R MELLAN 1600 OCH 2300 VILL DU HA EN KALENDER F\R (t.ex.1981)"; 100 ONERRORGOTO 95 105 INPUT X$ : X=VAL(X$) 110 IF X<1600 OR X>2300 GOTO 95 115 C=6 120 FOR I=1600 TO X 125 IF I=X THEN 155 130 IF I/4<>INT(I/4) THEN 150 135 IF (I-1700)*(I-1800)*(I-1900)*(I-2100)*(I-2200)*(I-2300)=0 THEN 150 140 C=C+2 145 GOTO 155 150 C=C+1 155 IF C<7 THEN 165 160 C=C-7 165 NEXT I 170 ; #1 175 FOR M=1 TO 12 185 READ M$ 190 ; #1TAB(0)CHR$(14);M$;""X : ; CHR$(20) 200 READ D 205 IF X/4<>INT(X/4) THEN 220 210 IF M$<>"FEBRUARI" THEN 220 215 LET D=D+1 220 REM 225 ; #1"=========================================" 230 ; #1"*S\N M]N TIS ONS TOR FRE L\R*" 235 ; #1"*DAG DAG DAG DAG DAG DAG DAG*" 240 ; #1"=========================================" 245 FOR E=1 TO D 250 ; #1TAB(6*C);E; 255 LET C=C+1 260 IF C<7 THEN 275 265 ; #1 270 C=0 275 NEXT E 280 ; #1 285 ; #1"=========================================" 290 FOR P=1 TO 3 295 ; #1 300 NEXT P 305 NEXT M 310 DATA "JANUARI",31,"FEBRUARI",28,"MARS",31,"APRIL",30,"MAJ",31,"JUNI",30,"JULI",31,"AUGUSTI",31,"SEPTEMBER",30 315 DATA "OKTOBER",31,"NOVEMBER",30,"DECEMBER",31 330 CLOSE 1 335 END