Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : PERSINV1.ZIP
Filename : INV_RINS.PRG
* Notes....: Print ITEMS for Insurance List
*
SET CONFIRM ON
@ 20,0 CLEAR
@ 24,25 SAY "Printing Insurance List"
SET DEVICE TO PRINT
SET PRINT ON
SET CONSOLE OFF
SELECT INVENTORY
GOTO TOP
Page=0
Totcos = 0
Totval = 0
Totrep = 0
L_r=76
? CHR(27)+CHR(48)
DO WHILE .NOT. EOF()
Rec = RECNO()
IF L_r>75
L_r=4
@ 1,1 SAY "Date "
@ 1,6 SAY DATE()
@ 1,24 SAY "Personal Inventory Insurance List"
@ 1,24 SAY "Personal Inventory Insurance List"
Page = PAGE + 1
@ 1,70 SAY "Page: "
@ 1,70 SAY PAGE
ENDIF && L_r>75
Loc = Location
Cat = TYPE
SELECT CATEGORY
GOTO TOP
SEEK Cat
Catdesc = Descriptin
SELECT LOCATION
GOTO TOP
SEEK Loc
Locdesc = Descriptin
SELECT INVENTORY
GOTO Rec
@ L_r,00 SAY "Item....:"
@ L_r,10 SAY LEFT(Descriptin,52)
@ L_r,10 SAY LEFT(Descriptin,52)
@ L_r,64 SAY "Cost...:"
@ L_r,71 SAY Cost_amt PICTURE "999999.99"
L_r=L_r+1
@ L_r,00 SAY "Location:"
@ L_r,10 SAY Locdesc
@ L_r,64 SAY "Replace:"
@ L_r,71 SAY Replaceamt PICTURE "999999.99"
L_r=L_r+1
@ L_r,00 SAY "Category:"
@ L_r,10 SAY Catdesc
@ L_r,64 SAY "Value..:"
@ L_r,71 SAY Currentval PICTURE "999999.99"
IF LEN(TRIM(Comment1)) > 1
L_r=L_r+1
@ L_r,00 SAY "Comments:"
@ L_r,10 SAY Comment1
IF LEN(TRIM(Comment2)) > 1
L_r=L_r+1
@ L_r,10 SAY Comment2
ENDIF && LEN(TRIM(Comment2)) > 1
IF LEN(TRIM(Comment3)) > 1
L_r=L_r+1
@ L_r,10 SAY Comment3
ENDIF && LEN(TRIM(Comment3)) > 1
ENDIF && LEN(TRIM(Comment1)) > 1
L_r=L_r+1
@ L_r,00 SAY "Date Aquired:"
@ L_r,15 SAY Date_enter
@ L_r,27 SAY "Serial Number:"
@ L_r,42 SAY Serial_num
Totcos = Cost_amt + Totcos
Totval = Currentval + Totval
Totrep = Replaceamt + Totrep
L_r=L_r+2
SKIP + 1
IF EOF()
EXIT
ENDI && EOF()
ENDD && WHILE .NOT. EOF()
@ L_r+1,35 SAY "Total Cost............:"
@ L_r+1,61 SAY Totcos PICTURE "999999.99"
L_r=L_r+1
@ L_r+1,35 SAY "Total Replacement Cost:"
@ L_r+1,61 SAY Totrep PICTURE "999999.99"
L_r=L_r+1
@ L_r+1,35 SAY "Total Current Value...:"
@ L_r+1,61 SAY Totval PICTURE "999999.99"
EJECT
SET CONSOLE ON
SET PRINT OFF
SET DEVICE TO SCREEN
RETURN
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/