1 REM Ins{nd av Stefan Gartz <2600>    1986-12-19 11.11.50 (KERMIT)
10 ! LIST  XBDEMO 86 12 16
20 ! 
30 EXTEND 
40 INTEGER 
50 ! 
60 ! Extended basic fr}n Comporian AB 
70 ! fr}n source files fri f|r kopiering
75 ! 
76 ! OBS DETTA [R EN DEMO, FRAM F\R EGNA TILL[MPNINGAR OCH ANALYSER
77 ! 
80 ! - PUTITEM$()
90 ! - GETITEM$()
100 ! - NOITEMS()
110 ! - READLN$()
120 ! - PFKEY
130 ! - SEARCHITEM()
140 ! - EVAL()
150 ! 
160 ; CHR$(12)
170 ; 'Demo av extended basic modell Comporian'
180 ; CUR(20,0) 'Tryck PF3 f|r n{sta test'
190 ! 
200 ! *****************************
210 ! - READLN$()
220 ! - PFKEY
230 ! *****************************
240 ! 
250 Default$='Nisse'
260 L{ngd=30
270 Ledtext$=CUR(4,0)+'Vad heter du ?:'
280 ! 
290 ! Pftang$=CHR$(Filler,Left,Right,Erase field,Rubout,dummy,dummy,Offset)
300 Pftang$=CHR$(95,8,9,24,199,0,0,8) ! F{ltstyrning
310 Pftang$=Pftang$+CHR$(192) ! PFKEY 101-120, PF1 - PF20
320 Pftang$=Pftang$+CHR$(208) ! PFKEY 121-140, SH-PF1 - SH-PF20
330 Pftang$=Pftang$+CHR$(224) ! PFKEY 141-160, CTRL-PF1 - CTRL-PF20
340 Pftang$=Pftang$+CHR$(240) ! PFKEY 161-180, SH-CTRL-PF1 - SH-CTRL-PF20
350 Pftang$=Pftang$+CHR$(13,192,193,194) ! PFKEY 0,1,2,3,4,5,6,7.. etc
360 ! 
370 Pfok$=CHR$(0,2,3,101,102,121,122,141,142,161,162) ! Godk{nda PFKEY avslutningar
380 WHILE 1
390   Svar$=READLN$(Default$,Ledtext$,L{ngd,Pfok$,Pftang$)
400   ; 
410   ; SPACE$(L{ngd) CHR$(13) Svar$
420   ; PFKEY SPACE$(10)
430   IF PFKEY=3 THEN GOTO 460 ! Quit loop
440   Default$=Svar$
450 WEND 
460 ! 
470 ! 
480 ! ********************************
490 ! - EVAL()
500 ! ********************************
510 ! 
520 Ledtext$=CUR(8,0)+'Skriv in en formel :'
530 WHILE 1
540   ON ERROR GOTO 
550   Ln$=READLN$('',Ledtext$,L{ngd,Pfok$,Pftang$)
560   IF PFKEY=3 THEN GOTO 630 ! Quit loop
570   ; 
580   ON ERROR GOTO 610
590   ; EVAL(Ln$+CHR$(13)) SPACE$(10)
600   GOTO 620
610   ; 'Felaktigt tal '
620 WEND 
630 ! 
640 ! 
650 ! *****************
660 ! - GETITEM$()
670 ! - PUTITEM$()
680 ! - SEARCHITEM()
690 ! - NOITEMS()
700 ! *******************
710 ! 
720 Items$=''
730 WHILE 1
740   Ledtext$=CUR(10,0)+'Skriv ett item :'
750   Item$=READLN$('',Ledtext$,L{ngd,Pfok$,Pftang$)
760   Ledtext$=CUR(11,0)+'Skriv ett itemnr :'
770   Itemnr$=READLN$('',Ledtext$,L{ngd,Pfok$,Pftang$)
780   Itemnr=VAL(Itemnr$)
790   Items$=PUTITEM$(Items$,Itemnr,Item$)
800   ; 
810   Items$=FNVisa$(Items$)
820   Ledtext$=CUR(14,0)+'Skriv ett item att s|ka efter :'
830   Item$=READLN$('',Ledtext$,L{ngd,Pfok$,Pftang$)
840   ; 
850   ; 'Funnet i pos ' SEARCHITEM (Items$,Item$)
860 WEND 
870 ! 
880 END 
890 ! 
900 DEF FNVisa$(In$) LOCAL Ut$=80
910   ! 
920   ! GETITEM/PUTITEM {r praktiskt f|r parameterf|verf|ring 
930   ! till och fr}n funktioner, flera parametrar dynamiskt
940   ! |verf|rt.
950   ! platsbesparande som ers{ttning f|r indexerade variabler.
960   ! 
970   ; 'Antal items=' NOITEMS(In$)
980   Z=0 : WHILE Z<NOITEMS(In$) : Z=Z+1 : ; Z '=' GETITEM$(In$,Z); : WEND 
990   Ut$=In$
1000   RETURN Ut$
1010 FNEND