1 REM +++++++++++++++++++++++++++++++++ 2 REM ! Program .... PIREG 3 REM ! Utg}va 1.0 1981-11-01 4 REM ! av (c) Bert-Gunnar Johansson 7 REM ! Minne 16 Kbytes 8 REM ! Ins{nt av 1489 9 REM +++++++++++++++++++++++++++++++++ 10 REM PI-REGULATOR 11 REM 110 ; INP(7%); : REM RESET I/O-KORT 120 ; CHR$(12%); 130 REM 140 REM * RITAR REGULATOR * 150 REM 160 RESTORE 170 FOR I%=0% TO 23% 180 READ A$ 190 ; CUR(I%,3%)CHR$(151%)A$; 200 NEXT I% 210 DATA "7#########k" 220 DATA "5 j#####5 j" 230 DATA "5 j 5 j" 240 DATA "5 j 5 j" 250 DATA "5 j 5 j" 260 DATA "5Bj p 5[j" 270 DATA "5\j 5Rj" 280 DATA "5Rj 5 j" 290 DATA "5Vj 5Vj" 300 DATA "5[j 5[j" 310 DATA "5Rj # 5Rj" 320 DATA "5Dj 5Dj" 330 DATA "5Ej 5Ej" 340 DATA "5 j 5 j" 350 DATA "5 j , 5 j" 360 DATA "5 j 5 j" 370 DATA "5 j 5 j" 380 DATA "5 j 5 j" 390 DATA "5 jppppp5 j" 400 DATA "5 j" 410 DATA "5 / / j" 420 DATA "5 j" 430 DATA "5REGULATORj" 440 DATA "upppppppppz" 450 FOR I%=0% TO 23% 460 ; CUR(I%,16%);CHR$(135%); 470 NEXT I% 480 ; CUR(0%,18%);STRING$(20%,42%) 490 ; CUR(1%,18%);"* REGLERING MED EN *" 500 ; CUR(2%,18%);"* PI-REGULATOR *" 510 ; CUR(3%,18%);STRING$(20%,42%) 520 ; CUR(6%,18%);"B\RV[RDE =" 530 ; CUR(8%,18%);"[R V[RDE =" 540 ; CUR(10%,18%);"F\RST[RKNING =" 550 ; CUR(12%,18%);"]TERF\RING =" 560 ; CUR(14%,18%);"D\DZON =" 570 REM 580 REM * HUVUDPROGRAM * 590 REM 600 FOR M%=0% TO M1% 610 GOSUB 960 : REM L[SER A/D-OMVANDLARE 620 REM 630 REM * P-FUNKTION * 640 REM 650 IF ABS(E-E1)>C%(4%) THEN GOTO 670 660 NEXT M% 670 REM 680 REM * REGULATOR * 690 REM 700 M1%=500%-C%(3%)*50% 710 IF ABS(B%(0%)-B%(1%))