Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : LADDER.ZIP
Filename : LADDER.DBF

 
Output of file : LADDER.DBF contained in archive : LADDER.ZIP
Y
.FUNCTIONCBIcCODECjBI
RETURN_VARCtBI
ORDERC~BI
CONDITIONCˆBI2REPEATCºBI2COMMENTCìBI
ladder('SCREEN') DEMO 1 Recursion is allowed clear(0,0,24,79) SCREEN 2 Clear the screen pat(0,0,"LADDER can to do several things WITHOUT compiling!") SCREEN 3 Talk to 'em pat(row()+1,0,"Everything you're about to see was done by functions in the LADDER.DBF file") SCREEN 4 uh-huh pat(row()+1,0,'Press a key') SCREEN 5 Tell 'em to wack it inkey(0) SCREEN 6.T. Wait for a key pat(6,0,'First_name ') SCREEN 7.T. Print first name pat(row(),col(),'last_name') SCREEN 8.T. Print last name pat(row()+1,0,SUBSTR('There is a file called ladder.lst',1,31)) SCREEN 9FILE('LADDER.LST') Print if ladder.lst exists pat(row()+1,0,'1234 Some Street') SCREEN 10 Print street address pat(row()+1,0,"This won't be printed") SCREEN 11.F. How to NOT do something pat(row()+1,0,'City, ') SCREEN 12 Print City pat(row(),col(),'ST ') SCREEN 13 Print State/Province pat(row(),col(),'78746 ') SCREEN 14 Print Zipcode pat(row(),col(),'USA') SCREEN 15DATE() > CTOD('01/01/89') If clock is set pat(row()+2,0,"What you're looking at was done with a DBF file") SCREEN 16 pat(row()+1,0,'and can be changed by editing that DBF') SCREEN 17 pat(row()+1,0,'') SCREEN 18 pat(row()+1,0,'In reality this is little more than') SCREEN 19 pat(row()+1,0,'an interpreter, but you can run ANY function loaded!') SCREEN 20 pat(row()+1,0,'') SCREEN 21 pat(row()+1,0,'Press a key (ESC Quits)') SCREEN 22 inkey(0) SCREEN 23 abort() SCREEN 24LASTKEY() = 27 How to branch (like a tree) clear(0,0) SCREEN 25 msg('Ok now for NEXT LADDER sequence') SCREEN 26 msg('Is your printer ready?') SCREEN PUBVAR 27 abort() SCREEN 28LASTKEY() <> 121 again, blanching (arf arf) ladder('SCREEN1') SCREEN 29 clear() SCREEN 30 device(1) SCREEN1 31 Set printing to printer setprc(0,0) SCREEN1 32 Reset prow and pcol pat(prow()+1,0,'First_name ') SCREEN1 33.T. Print first name pat(prow(),pcol(),'last_name') SCREEN1 34.T. Print last name pat(prow()+1,0,SUBSTR('Company Name',1,31)) SCREEN1 35FILE('LADDER.LST') Print company if ladder.lst pat(prow()+1,0,'1234 Some Street') SCREEN1 36 Print address 1 pat(prow()+1,0,'') SCREEN1 37.F. Print address 2 pat(prow()+1,0,'City, ') SCREEN1 38 Print city pat(prow(),pcol(),'ST ') SCREEN1 39 Print State/Province pat(prow(),pcol(),'78746 ') SCREEN1 40 Print Zipcode pat(prow(),pcol(),'USA') SCREEN1 41 Print Country advpnt(4) SCREEN1 50 Advance the printer a bit device() SCREEN1 60 msg('Press Any Key to Continue') SCREEN1 5000 msg("Use your interpreter and do some experimenting!") SCREEN1 60000 clear() SCREEN1 1000000000 

  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : LADDER.ZIP
Filename : LADDER.DBF

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. 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/