1 REM BERECHNUNGEN 2 REM AN LINSEN 3 REM 10 INPUT "GEGENSTANDSWEITE";G 20 IF G<>0 GOTO 50 30 A$="0" 31 BS$=A$:SB$=A$:BZ$=A$:ZB$=A$ 32 VZ$="1":VS$="1" 40 GOTO 140 50 IF G<>1 GOTO 70 60 BS$="OFL":SB$=BS$:VS$=BS$:GOTO100 70 BS=1/(1-1/G):BS$=STR$(BS) 80 SB=-BS:SB$=STR$(SB) 90 VS=SB/G:VS$=STR$(VS) 100 IF G<>-1GOTO110 103 BZ$="OFL":ZB$=BZ$:VZ$=BZ$:GOTO140 110 ZB=1/(1+1/G):ZB$=STR$(ZB) 120 BZ=-ZB:BZ$=STR$(BZ) 130 VZ=ZB/G:VZ$=STR$(VZ) 140 PRINTTAB(2);"G";TAB(8);"B";TAB(17);"V":PRINT:PRINT 150 PRINT"HOHLSPIEGEL:" 160 PRINT 170 PRINTG;TAB(7);BS$;TAB(16);VS$:PRINT:PRINT 180 PRINT"WOELBSPIEGEL" 190 PRINT 200 PRINTG;TAB(7);BZ$;TAB(16);VZ$:PRINT:PRINT 210 PRINT"SAMMELLINSE:" 220 PRINT 230 PRINTG;TAB(7);SB$;TAB(16);VS$:PRINT:PRINT 240 PRINT"STREULINSE:" 250 PRINT 260 PRINTG;TAB(7);ZB$;TAB(16);VZ$:PRINT:PRINT 270 GOTO 10 OK