Which language is this Urgent help required
-
' MAIN() ' ' Entry point. No more PPd. & Add. (^800 = 5) ' '^:MAIN MAIN: '^PR^! Retract form in printer. PRINT CMD("PR"); '^PL66^! Set line count to 66 for this form. PRINT CMD("PL66"); '^PN^! Normal print mode on. PRINT CMD("PN") '^:GET.TERMS GET.TERMS: '^?"BOL ENTER TERMS (1 - 4): 1. PREPAID 2. COLLECT 3. 3RD PARTY 4. COD"1"1""%d"800 'A%=VAL(INPUTBOX$("BOL ENTER TERMS (1 - 4): 1. PREPAID 2. COLLECT 3. 3RD PARTY 4.COD",1,"1")) A%=3 '^OC(^800 < 1)(^GT GET.TERMS) '^OC(^800 > 4)(^GT GET.TERMS) IF (A%<1) OR (A%>4) THEN GOTO GET.TERMS '^H ' ' Goto line 2 '^G2 PRINT CMD("G4"); ' ' DATE, ORIGIN, DESTINATION ' PRINT CMD("C50");CMD("D");STRING$(4," "); K$ ; STRING$(6," "); STRJUST$(FLD(14,0),3,"L"," ") 'GOTO ENDING ' ' Skip a line ' PRINT 'PRINT ' ' Shippers acct Number PRINT STRING$(20," "); L$ ' ' PRINT PRINT ' PRINT STRING$(2," "); CMD("YL");CMD("7");CMD("YB") PRINT STRING$(2," "); CMD("YL");CMD("8");CMD("YB") PRINT STRING$(2," "); CMD("YL");CMD("9");CMD("YB"); STRING$(32," "); CMD("PB"); "HAWB#: ";STRJUST$(FLD(10,0),18, "L", " ");CMD("Pb") PRINT STRING$(2," "); " " ' PRINT STRING$(2," "); " ";STRING$(20," "); M$ PRINT STRING$(2," ");STRIP$(FLD(40,0),"C", " ") ' ' 'Skip 4 lines ' PRINT PRINT PRINT PRINT ' PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("2"),"C"," ");CMD("YB") PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("3"),"C"," ");CMD("YB") PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("4"),"C"," ");CMD("YB") PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("14"),"C"," ");CMD("YB") 'PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("5"),"C"," ");", ";STRIP$(CMD("6"),"C"," ");" ";STRIP$(CMD("7"),"C"," ");CMD("YB") PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("5"),"C"," ");CMD("YB") 'PRINT PRINT STRING$(2," ");CMD("YL");STRJUST$(FLD(10,2),18,"L"," ");CMD("YB"); STRING$(2," "); STRIP$(FLD(8,2),"C"," ") 'PRINT STRING$(2," "); ' PO (13chars) / BOL # PRINT STRING$(2," ");STRJUST$(FLD(40,0),20,"L"," "); STRING$(1," "); STRJUST$(FLD(9,0), 16, "L"," "); 'PRINT STRING$(2," ");STRJUST$(FLD(9,0),13,"L"," "); STRING$(1," "); STRJUST$(FLD(2,0), 16, "L"," ") '
-
' MAIN() ' ' Entry point. No more PPd. & Add. (^800 = 5) ' '^:MAIN MAIN: '^PR^! Retract form in printer. PRINT CMD("PR"); '^PL66^! Set line count to 66 for this form. PRINT CMD("PL66"); '^PN^! Normal print mode on. PRINT CMD("PN") '^:GET.TERMS GET.TERMS: '^?"BOL ENTER TERMS (1 - 4): 1. PREPAID 2. COLLECT 3. 3RD PARTY 4. COD"1"1""%d"800 'A%=VAL(INPUTBOX$("BOL ENTER TERMS (1 - 4): 1. PREPAID 2. COLLECT 3. 3RD PARTY 4.COD",1,"1")) A%=3 '^OC(^800 < 1)(^GT GET.TERMS) '^OC(^800 > 4)(^GT GET.TERMS) IF (A%<1) OR (A%>4) THEN GOTO GET.TERMS '^H ' ' Goto line 2 '^G2 PRINT CMD("G4"); ' ' DATE, ORIGIN, DESTINATION ' PRINT CMD("C50");CMD("D");STRING$(4," "); K$ ; STRING$(6," "); STRJUST$(FLD(14,0),3,"L"," ") 'GOTO ENDING ' ' Skip a line ' PRINT 'PRINT ' ' Shippers acct Number PRINT STRING$(20," "); L$ ' ' PRINT PRINT ' PRINT STRING$(2," "); CMD("YL");CMD("7");CMD("YB") PRINT STRING$(2," "); CMD("YL");CMD("8");CMD("YB") PRINT STRING$(2," "); CMD("YL");CMD("9");CMD("YB"); STRING$(32," "); CMD("PB"); "HAWB#: ";STRJUST$(FLD(10,0),18, "L", " ");CMD("Pb") PRINT STRING$(2," "); " " ' PRINT STRING$(2," "); " ";STRING$(20," "); M$ PRINT STRING$(2," ");STRIP$(FLD(40,0),"C", " ") ' ' 'Skip 4 lines ' PRINT PRINT PRINT PRINT ' PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("2"),"C"," ");CMD("YB") PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("3"),"C"," ");CMD("YB") PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("4"),"C"," ");CMD("YB") PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("14"),"C"," ");CMD("YB") 'PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("5"),"C"," ");", ";STRIP$(CMD("6"),"C"," ");" ";STRIP$(CMD("7"),"C"," ");CMD("YB") PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("5"),"C"," ");CMD("YB") 'PRINT PRINT STRING$(2," ");CMD("YL");STRJUST$(FLD(10,2),18,"L"," ");CMD("YB"); STRING$(2," "); STRIP$(FLD(8,2),"C"," ") 'PRINT STRING$(2," "); ' PO (13chars) / BOL # PRINT STRING$(2," ");STRJUST$(FLD(40,0),20,"L"," "); STRING$(1," "); STRJUST$(FLD(9,0), 16, "L"," "); 'PRINT STRING$(2," ");STRJUST$(FLD(9,0),13,"L"," "); STRING$(1," "); STRJUST$(FLD(2,0), 16, "L"," ") '
Have you posted this in every forum?
No trees were harmed in the sending of this message; however, a significant number of electrons were slightly inconvenienced. This message is made of fully recyclable Zeros and Ones
-
' MAIN() ' ' Entry point. No more PPd. & Add. (^800 = 5) ' '^:MAIN MAIN: '^PR^! Retract form in printer. PRINT CMD("PR"); '^PL66^! Set line count to 66 for this form. PRINT CMD("PL66"); '^PN^! Normal print mode on. PRINT CMD("PN") '^:GET.TERMS GET.TERMS: '^?"BOL ENTER TERMS (1 - 4): 1. PREPAID 2. COLLECT 3. 3RD PARTY 4. COD"1"1""%d"800 'A%=VAL(INPUTBOX$("BOL ENTER TERMS (1 - 4): 1. PREPAID 2. COLLECT 3. 3RD PARTY 4.COD",1,"1")) A%=3 '^OC(^800 < 1)(^GT GET.TERMS) '^OC(^800 > 4)(^GT GET.TERMS) IF (A%<1) OR (A%>4) THEN GOTO GET.TERMS '^H ' ' Goto line 2 '^G2 PRINT CMD("G4"); ' ' DATE, ORIGIN, DESTINATION ' PRINT CMD("C50");CMD("D");STRING$(4," "); K$ ; STRING$(6," "); STRJUST$(FLD(14,0),3,"L"," ") 'GOTO ENDING ' ' Skip a line ' PRINT 'PRINT ' ' Shippers acct Number PRINT STRING$(20," "); L$ ' ' PRINT PRINT ' PRINT STRING$(2," "); CMD("YL");CMD("7");CMD("YB") PRINT STRING$(2," "); CMD("YL");CMD("8");CMD("YB") PRINT STRING$(2," "); CMD("YL");CMD("9");CMD("YB"); STRING$(32," "); CMD("PB"); "HAWB#: ";STRJUST$(FLD(10,0),18, "L", " ");CMD("Pb") PRINT STRING$(2," "); " " ' PRINT STRING$(2," "); " ";STRING$(20," "); M$ PRINT STRING$(2," ");STRIP$(FLD(40,0),"C", " ") ' ' 'Skip 4 lines ' PRINT PRINT PRINT PRINT ' PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("2"),"C"," ");CMD("YB") PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("3"),"C"," ");CMD("YB") PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("4"),"C"," ");CMD("YB") PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("14"),"C"," ");CMD("YB") 'PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("5"),"C"," ");", ";STRIP$(CMD("6"),"C"," ");" ";STRIP$(CMD("7"),"C"," ");CMD("YB") PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("5"),"C"," ");CMD("YB") 'PRINT PRINT STRING$(2," ");CMD("YL");STRJUST$(FLD(10,2),18,"L"," ");CMD("YB"); STRING$(2," "); STRIP$(FLD(8,2),"C"," ") 'PRINT STRING$(2," "); ' PO (13chars) / BOL # PRINT STRING$(2," ");STRJUST$(FLD(40,0),20,"L"," "); STRING$(1," "); STRJUST$(FLD(9,0), 16, "L"," "); 'PRINT STRING$(2," ");STRJUST$(FLD(9,0),13,"L"," "); STRING$(1," "); STRJUST$(FLD(2,0), 16, "L"," ") '
English
Let there arise out of you a band of people inviting to all that is good, enjoining what is right, and forbidding what is wrong: They are the ones to attain felicity. Āli-'Imrān (The Family of Imran), 104.
-
' MAIN() ' ' Entry point. No more PPd. & Add. (^800 = 5) ' '^:MAIN MAIN: '^PR^! Retract form in printer. PRINT CMD("PR"); '^PL66^! Set line count to 66 for this form. PRINT CMD("PL66"); '^PN^! Normal print mode on. PRINT CMD("PN") '^:GET.TERMS GET.TERMS: '^?"BOL ENTER TERMS (1 - 4): 1. PREPAID 2. COLLECT 3. 3RD PARTY 4. COD"1"1""%d"800 'A%=VAL(INPUTBOX$("BOL ENTER TERMS (1 - 4): 1. PREPAID 2. COLLECT 3. 3RD PARTY 4.COD",1,"1")) A%=3 '^OC(^800 < 1)(^GT GET.TERMS) '^OC(^800 > 4)(^GT GET.TERMS) IF (A%<1) OR (A%>4) THEN GOTO GET.TERMS '^H ' ' Goto line 2 '^G2 PRINT CMD("G4"); ' ' DATE, ORIGIN, DESTINATION ' PRINT CMD("C50");CMD("D");STRING$(4," "); K$ ; STRING$(6," "); STRJUST$(FLD(14,0),3,"L"," ") 'GOTO ENDING ' ' Skip a line ' PRINT 'PRINT ' ' Shippers acct Number PRINT STRING$(20," "); L$ ' ' PRINT PRINT ' PRINT STRING$(2," "); CMD("YL");CMD("7");CMD("YB") PRINT STRING$(2," "); CMD("YL");CMD("8");CMD("YB") PRINT STRING$(2," "); CMD("YL");CMD("9");CMD("YB"); STRING$(32," "); CMD("PB"); "HAWB#: ";STRJUST$(FLD(10,0),18, "L", " ");CMD("Pb") PRINT STRING$(2," "); " " ' PRINT STRING$(2," "); " ";STRING$(20," "); M$ PRINT STRING$(2," ");STRIP$(FLD(40,0),"C", " ") ' ' 'Skip 4 lines ' PRINT PRINT PRINT PRINT ' PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("2"),"C"," ");CMD("YB") PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("3"),"C"," ");CMD("YB") PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("4"),"C"," ");CMD("YB") PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("14"),"C"," ");CMD("YB") 'PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("5"),"C"," ");", ";STRIP$(CMD("6"),"C"," ");" ";STRIP$(CMD("7"),"C"," ");CMD("YB") PRINT STRING$(2," ");CMD("YL");STRIP$(CMD("5"),"C"," ");CMD("YB") 'PRINT PRINT STRING$(2," ");CMD("YL");STRJUST$(FLD(10,2),18,"L"," ");CMD("YB"); STRING$(2," "); STRIP$(FLD(8,2),"C"," ") 'PRINT STRING$(2," "); ' PO (13chars) / BOL # PRINT STRING$(2," ");STRJUST$(FLD(40,0),20,"L"," "); STRING$(1," "); STRJUST$(FLD(9,0), 16, "L"," "); 'PRINT STRING$(2," ");STRJUST$(FLD(9,0),13,"L"," "); STRING$(1," "); STRJUST$(FLD(2,0), 16, "L"," ") '
-
looks like a basic dialect from out of the legendary Bill Gates times. :confused:
Press F1 for help or google it. Greetings from Germany
That would be a true horror! :wtf:
-
That would be a true horror! :wtf:
So he found the right forum. :-O To be honest: tons of old code are running: in banks :(( , factories, (nuclear) plants or goverments agencies. They have often a problems finding the code and a maintainer, like COBOL.
Press F1 for help or google it. Greetings from Germany
