Click here to Skip to main content
15,885,366 members

The Weird and The Wonderful

   

The Weird and The Wonderful forum is a place to post Coding Horrors, Worst Practices, and the occasional flash of brilliance.

We all come across code that simply boggles the mind. Lazy kludges, embarrassing mistakes, horrid workarounds and developers just not quite getting it. And then somedays we come across - or write - the truly sublime.

Post your Best, your worst, and your most interesting. But please - no programming questions . This forum is purely for amusement and discussions on code snippets. All actual programming questions will be removed.

 
GeneralOne of my own :) Pin
_Maxxx_12-May-09 20:21
professional_Maxxx_12-May-09 20:21 
GeneralRe: One of my own :) Pin
Lutosław12-May-09 21:39
Lutosław12-May-09 21:39 
GeneralHigh end SQL Pin
Bernard Laplace12-May-09 5:15
Bernard Laplace12-May-09 5:15 
GeneralRe: High end SQL Pin
_Damian S_12-May-09 19:36
professional_Damian S_12-May-09 19:36 
GeneralRe: High end SQL Pin
Nagy Vilmos13-May-09 3:15
professionalNagy Vilmos13-May-09 3:15 
General[Message Deleted] Pin
StarBP6-May-09 15:49
StarBP6-May-09 15:49 
GeneralRe: Needless Polygon Rendering PinPopular
Tristan Rhodes6-May-09 23:03
Tristan Rhodes6-May-09 23:03 
QuestionWhich language is this Urgent help required Pin
Sanjaykalsi5-May-09 22:53
Sanjaykalsi5-May-09 22:53 
' 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"," ")
'
AnswerRe: Which language is this Urgent help required Pin
OriginalGriff5-May-09 23:05
mveOriginalGriff5-May-09 23:05 
AnswerRe: Which language is this Urgent help required Pin
Dino Mulahusic5-May-09 23:16
professionalDino Mulahusic5-May-09 23:16 
AnswerRe: Which language is this Urgent help required Pin
KarstenK6-May-09 3:45
mveKarstenK6-May-09 3:45 
GeneralMessage Removed Pin
6-May-09 8:21
MadProgrammer766-May-09 8:21 
GeneralRe: Which language is this Urgent help required Pin
KarstenK6-May-09 20:21
mveKarstenK6-May-09 20:21 
GeneralVisual Studio autogenerated code PinPopular
adgonz29-Apr-09 1:40
adgonz29-Apr-09 1:40 
GeneralRe: Visual Studio autogenerated code Pin
Tony Pottier29-Apr-09 5:03
Tony Pottier29-Apr-09 5:03 
GeneralRe: Visual Studio autogenerated code Pin
Stephen Hewitt29-Apr-09 5:12
Stephen Hewitt29-Apr-09 5:12 
GeneralRe: Visual Studio autogenerated code Pin
Tony Pottier29-Apr-09 5:36
Tony Pottier29-Apr-09 5:36 
GeneralRe: Visual Studio autogenerated code Pin
Vasudevan Deepak Kumar7-May-09 21:26
Vasudevan Deepak Kumar7-May-09 21:26 
GeneralRe: Visual Studio autogenerated code Pin
adgonz29-Apr-09 5:18
adgonz29-Apr-09 5:18 
GeneralRe: Visual Studio autogenerated code Pin
KarstenK4-May-09 23:14
mveKarstenK4-May-09 23:14 
JokeRe: Visual Studio autogenerated code Pin
VentsyV6-May-09 6:30
VentsyV6-May-09 6:30 
GeneralRe: Visual Studio autogenerated code Pin
KarstenK6-May-09 20:23
mveKarstenK6-May-09 20:23 
JokeRe: Visual Studio autogenerated code Pin
Vasudevan Deepak Kumar7-May-09 21:27
Vasudevan Deepak Kumar7-May-09 21:27 
GeneralRe: Visual Studio autogenerated code Pin
KarstenK7-May-09 21:59
mveKarstenK7-May-09 21:59 
GeneralRe: Visual Studio autogenerated code Pin
sucram18-May-09 0:02
sucram18-May-09 0:02 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.