Category : Files from Magazines
Archive : DBMS9003.ZIP
Filename : RETTIG5.MAR
Output of file : RETTIG5.MAR contained in archive : DBMS9003.ZIP
* 5 lines of straightforward FoxPro code.
USE Names INDEX Company
DEFINE WINDOW foo FROM 14,0 TO 24,79
ON KEY LABEL Enter DEACTIVATE WINDOW foo
BROWSE FIELDS Company KEY "Fox" NOEDIT WINDOW foo
choice = RECNO()
* 20 lines of Clipper code requiring 2 time
* consuming loops and 2 memory limited arrays.
USE Names INDEX Company
SEEK "Fox"
first_rec = RECNO()
num_recs = zero
DO WHILE "Fox" = Company .AND. ! EOF()
num_recs = num_recs+1
SKIP
ENDDO
DECLARE array_key[num_recs], array_rec[num_recs]
GO first_rec
FOR i = 1 TO num_recs
array_key[i] = Company
array_rec[i] = RECNO()
SKIP
NEXT
scr_window = SAVESCREEN(14, 0, 24, 79)
@ 14, 0 TO 24, 79 && draw box
menu_choice = ACHOICE( 15, 1, 23, 78, array_key )
RESTSCREEN(14, 0, 24, 79, scr_window)
choice = array_rec[menu_choice]
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/