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