Output of file : SAMPENT.QNE contained in archive :
PRO4A.ZIP @ Customer#: Invoice #: Date: / / Recv'd By: P.O. #: Terms: Ship Via: (1=COD 2=CASH/CK, 3=NET, 4=NET 15 ) (TAB=UPS, 1-UPS-B, 2=UPS-R) (5=NET 30, 6=NET 60) (3=MAIL) CUSTOMER FILE KEY BILL TO SHIP TO NAME COMPANY STREET CITY STATE ZIP STATE ZIP F1 - CHANGE CUSTOMER FILE KEY END - RECORD DATA F2 - FIRST CUSTOMER F3 - NEXT CUSTOMER ESC - RETURN TO MAIN MENU F4 - PREVIOUS CUSTOMER COMPANY 75 1 2 C NNNN ÿÿCUSTNO 10 313D R0YNNNCUSTNOP ÿÿINVNO 8 336D R0NNNN ÿÿMONTH 2 351 R0NNNN ÿÿDAY 2 354D=R NNNN ÿÿYEAR 2 357 L NNNN ÿÿRECEIVED 5 413X L YNNN ÿÿPO 10 434X L YNNN ÿÿTERMS 12 5 9 L YNNNTERMSP ÿÿSHIPVIA 8 557 L YNNNSHIPVIAP ÿÿFILEKEY 20 928 L NNNN ÿÿHON 41312 L NNNN ÿÿFIRST 11317 L NNNN ÿÿLAST 231319 L NNNN ÿÿHON2 41347 L NNNN ÿÿFIR 11352 L NNNN ÿÿLAST1 231354 L NNNN ÿÿNAME 301412 L YNNNNAMEP ÿÿNAME1 301447 L NNNN ÿÿSTREET1 301512 L NNNN ÿÿSTREET2 301547 L NNNN ÿÿCITY1 301612 L NNNN ÿÿCITY2 301647 L NNNN ÿÿSTATE1 21712A L NNNN ÿÿZIP1 51720D L NNNN ÿÿSTATE2 21747 L NNNN ÿÿZIP2 51754D L NNNN ÿÿ 10 PROC LOAD VRBL CURRKEY,N,1 SET #B9 * Open the install file if not open. Check for open with FILETYPE FILETYPE 100:OPN GOTO PSN :OPN ERROR "CONTROL FILE NOT AVAILABLE - RETURNING TO MENU" CHAIN "SAMPMENU.QNE" :PSN POSN 100 TO 0 READ 100 NOADV: NO_FILE CALC INVNO = &INVOICE[100] + 1 CALL OPEN * #B2 set indicates that this is review order BEGIN IF #B1 SET ADD 1 ,INVNO ELSE IF #B2 SET MOVE #S8[1,30] TO NAME MOVE #S8[31,8] TO INVNO 20 MOVE #S8[39,10] TO CUSTNO CALL CUSTNOP ENDBEGIN * Display the date GETDATE #S9 MOVE #S9[1,2] TO MONTH MOVE #S9[4,2] TO DAY MOVE #S9[9,2] TO YEAR * Set the file key CALL TITLE CALL SETKEY RESET #B1 END :NO_FILE ERROR "REQUIRED DATABASE NOT AVAILABLE. RETURNING TO SYSTEM" SYSTEM PROC SETKEY 30 MOVE 1 TO CURRKEY KEY 1 USING CURRKEY MOVE "CUSTOMER NUMBER" TO FILEKEY RETURN PROC TITLE CONCAT &COMPANY[100] TRIMMED + " - FIRST INVOICE ENTRY SCREEN" INTO COM PANY RETURN PROC OPEN * Open the files required. Check to see if already open with FILETYPE * Note the use of #N9 as the loop index. #N0 to #N3 are given values * by FILETYPE FOR #N9 = 1 TO 3 FILETYPE #N9:OPNF GOTO EN :OPNF TSEAR FILES AT #N9, #S0, #S1 40 CONCAT &DATADRIVE[100] TRIMMED + #S0 INTO #S0 CONCAT &DATADRIVE[100] TRIMMED + #S1 INTO #S1 OPEN #S0 USING #S1,#N9 UNLOCKED :ERR_FILE :EN ENDFOR #N9 MOVE 1 TO CURRKEY RETURN :ERR_FILE CONCAT "CANNOT OPEN FILE " + #S0 INTO #S8 ERROR #S8 CHAIN "SAMPMENU.QNE" * Table of file names TABLE FILES 1, "SAMPCUST.DAT", "SAMPCUST.FID" 2, "SAMPROD.DAT", "SAMPROD.FID" 3, "SAMPTRAN.DAT", "SAMPTRAN.FID" END 50 PROC KEY0 * Return to main menu RESET #B1 SET #B9 CHAIN "SAMPMENU.QNE" PROC KEY1 * Change CUSTOMER FILE KEY. Allows searching file by either key ADD 1 TO CURRKEY IF CURRKEY GT 2 THEN MOVE 1 TO CURRKEY BEGIN IF CURRKEY EQ 2 UNLOCK NAME LOCK CUSTNO ENDBEGIN BEGIN IF CURRKEY EQ 1 LOCK NAME UNLOCK CUSTNO 60 ENDBEGIN KEY 1 USING CURRKEY TSEAR KEYTABLE AT CURRKEY,FILEKEY END TABLE KEYTABLE 1, "CUSTOMER NUMBER" 2, "COMPANY NAME" END PROC KEY2 * First record of file POSN 1 TO "" RELATIVE CALL LOCK_READ END PROC LOCK_READ RLOCK 1:REC_LOCK 70 READ 1: END_FILE COPY 1 TO * CALL NAME_READ RETURN :REC_LOCK ERROR "RECORD IN USE" RETURN :END_FILE ERROR "END OF FILE - PRESS ESC TO CONTINUE" END PROC KEY3 * Next record of file CALL LOCK_READ END PROC KEY4 * Previous record of file BACKSPACE 1: END_FILE 80 BACKSPACE 1: END_FILE CALL LOCK_READ END PROC KEY5 END PROC KEY11 PRINTSCN END proc key8 debug end PROC CUSTNOP RJUST CUSTNO POSN 1 TO CUSTNO 90 READ 1:NO_CUST COPY 1 TO * CALL NAME_READ IF #B2 SET RETURN :NO_CUST END PROC YEARP END PROC TERMSP MOVE TERMS TO #S0 TRIMMED TSEAR TERMSTBL AT #S0, TERMS:GOOD_TERMS :GOOD_TERMS END TABLE TERMSTBL "1", "COD" "2", "CASH/CK" "3", "NET" '4', 'NET 30' 100 '5', 'NET 30' '6', 'NET 60' END PROC SHIPVIAP MOVE SHIPVIA TO #S0 TRIMMED IF #S0 EQ "" THEN MOVE "UPS" TO SHIPVIA TSEAR SHIPTABLE AT #S0,SHIPVIA :GOOD_SHIP :GOOD_SHIP END TABLE SHIPTABLE '1', 'UPS-BLUE' '2', 'UPS-RED' '3', 'MAIL' END PROC NAMEP * Position to nearest company name if the key is company and 110 * the field is tabbed. BEGIN IF #K LE 1 AND CURRKEY EQ 2 POSN 1 TO NAME RELATIVE RLOCK 1: REC_LOCK READ 1:NAME_ERR COPY 1 TO * ENDBEGIN END :NAME_ERR ERROR "CANNOT FIND THIS COMPANY" END PROC ENTER * Update the invoice number in the install file POSN 100 TO 0 READ 100 NOADV 120 IF #B2 RESET CALC &INVOICE[100] = &INVOICE[100] + 1 WRITE 100 NOADV * Write the invoice header record and chain to next screen RCLEAR 3 MOVE &INVOICE[100] TO INVNO RJUST INVNO COPY * TO 3 MOVE " " TO &ITEM[3] WRITE 3 NOADV CONCAT NAME + INVNO + CUSTNO INTO #S8 CHAIN "SAMPENT1.QNE" END PROC NAME_READ * Moves the Bill To Name to the Ship to Name MOVE HON TO HON2 MOVE FIRST TO FIR 130 MOVE LAST TO LAST1 MOVE NAME TO NAME1 RETURN END PROC BREAK DEBUG END
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/