10 REM MENY           84 03 12 SW
100 ; CHR$(12%)' MENY '
110 ONERRORGOTO 200
120 FOR I%=1% TO 10%
130 READ A$(I%),A$
140 ; CUR(2%*I%+1%,10%)I%'  'A$
150 NEXT I%
190 REM ------------------------------
200 ; CUR(2%*I%+2%,0%)'Vad vill du g|ra ( 1 -'I%-1%'):'; : INPUT W$
210 ONERRORGOTO 200 : W%=VAL(W$)
220 IF W%<1% OR W%>I%-1% THEN ; CHR$(7%) : GOTO 200
290 IF A$(W%)='SLUT' THEN ; CHR$(12%)'SLUT F\R DENNA G]NG' : CHAIN ''
300 ; : ; 'Vi h{mtar 'A$(W%) : CHAIN A$(W%)
890 DATA LIB,'Se BIBLIOTEKET'
900 DATA SKRIV,'SKRIVA text'
910 DATA L[S,'L[SA textfiler'
920 DATA R[KNA,'\va huvudr{kning'
940 DATA SLUT,SLUTA