1 REM Ins{nd av John Amsberg <5786> 1985-10-03 09.26.21 100 ! +--------------------------------+ 110 ! ! CALC1.800 - HJ[LPFIL - ! 120 ! ! AV B SANDGREN (2776) ! 130 ! ! SAMH\RANDE PROGRAMFILER ! 140 ! ! CALCMENY.800, CALC1.800 ! 150 ! ! CALC2.TXT, CALC3.800 ! 160 ! ! MODIFIERAT MED KOMPIL SAMT ! 170 ! ! BEARBETAT F\R ABC800/806 SAMT ! 180 ! ! BASIC-II-KORTET 1985-10-01 ! 190 ! ! AV (5786) JOHN AMSBERG ! 200 ! +--------------------------------+ 210 ! WIDTH 80 F\R ABC-806 och BASIC-II-KORTET 220 DIM Z$=119 230 ON ERROR GOTO 410 240 ; CHR$(12) 250 ; CUR(0,0) STRING$(75,127) 260 ; CUR(1,6) 'CALC2.TXT - HJ[LPTEXT TILL CALC - KALKYL-PROGRAM F\R ABC800 -' 270 FOR I=1 TO 2 280 ; CUR(I,0) STRING$(1,127) 290 NEXT I 300 FOR J=1 TO 2 310 ; CUR(J,74) STRING$(1,127) 320 NEXT J 330 ; CUR(2,6) 'MATA NYA RADER MED MELLANSLAG - STOPPA MED S ELLER s.' 340 ; CUR(3,0) STRING$(75,127) 350 OPEN 'CALC2.TXT' AS FILE 1 360 INPUT LINE #1,Z$ 370 ; #0,LEFT$(Z$,LEN(Z$)-2) 380 GET X$ 390 IF X$='S' OR X$='s' GOTO 410 400 GOTO 360 410 CLOSE 0 420 CLOSE 1 430 ON ERROR GOTO 440 ; CUR(22,0) SPACE$(79); 450 ; CUR(22,0) CHR$(7);'=> 1.MENY 2.L[SA OM '; 460 GET X$ 470 IF X$='2' THEN GOTO 220 ELSE IF X$<>'1' THEN GOTO 450 480 ; CHR$(12) 490 ; CUR(22,0) '== LADDAR CALCMENY.800 =='; 500 CHAIN "CALCMENY.bas"