100 REM +++++++++++++++++++++++++++++++
110 REM ! Program ....   LOGSIM
120 REM ! Utg}va  1.1    83-11-29
130 REM ! av (c) Bertil Lindau  Nr. 812
140 REM ! Minne 32 Kbytes f|r flexskiva
150 REM ! Ins{nt av Bertil Lindau
160 REM +++++++++++++++++++++++++++++++
170 REM 
180 REM Menyprogram till logik-
190 REM paketet LOGSIM
200 REM 
210 DATA 6
220 DATA Kretsmatris
230 DATA Signalmatris
240 DATA Listningar
250 DATA Simulering
260 DATA Instruktion
270 DATA Avslutning
280 RESTORE 210
290 GOSUB 450 : REM Meny
300 IF G0%=G1% END 
310 PRINT CUR(23%,12%)"Var god v{nta!";
320 PRINT CUR(15%,0%);
330 CHAIN "DR1:"+LEFT$(F$(G0%),8%)
340 REM 
350 REM ***************** 
360 REM ==== MENYVAL ====
370 REM *****************
380 REM 
390 REM G9%     Lopvariabel
400 REM G1%     Antal menyhopp
410 REM F$(G1%) Delnamn
420 REM G0%     Hoppvariabel
430 REM A$      Inmatningsvariabel
440 REM 
450 GOSUB 770 : REM Systemrad 
460 READ G1%
470 FOR G9%=1% TO G1%
480 READ F$(G9%)
490 PRINT CUR(3%+2%*G9%,10%)G9%". "F$(G9%)
500 NEXT G9%
510 GOSUB 660 : REM Medelanderad
520 PRINT TAB(8%);
530 PRINT " V{lj rutin (1-";
540 PRINT RIGHT$(NUM$(G1%),2%)") ";
550 GET A$
560 LET G0%=ASC(A$)-48%
570 IF G0%<1% OR G0%>G1% 550
580 PRINT CUR(3%+2%*G0%,7%)"==>"
590 GOSUB 660 : REM Medelanderad
600 RETURN 
610 REM 
620 REM **********************
630 REM ==== MEDELANDERAD ====
640 REM **********************
650 REM 
660 PRINT CUR(23%,0%)TAB(39%);
670 PRINT CUR(23%,2%);
680 RETURN 
690 REM 
700 REM *******************
710 REM ==== SYSTEMRAD ====
720 REM *******************
730 REM 
740 REM X%    Tabvariabel
750 REM Q$    Systemnamn
760 REM 
770 PRINT CHR$(12%);
780 PRINT TAB(13%)"M  E  N  Y"
790 PRINT CHR$(151%)STRING$(38%,35%)
800 PRINT CUR(22%,0%)STRING$(39%,61%);
810 RETURN