[[85499]]

下面是一段 BANCStar 語(yǔ)言的程序代碼：

2999,,,  
8600,,,1  
3000,829,6,30089  
10829,2446,22245,22012  
11585,15855,22002,22002  
11586,15865,22002,22002  
11587,15875,22002,22002  
11588,15885,22002,22002  
11596,15965,22002,22002  
11597,15975,22002,22002  
11598,15985,22002,22002  
11599,15995,22002,22002  
11600,16005,22002,22002  
11601,16015,22002,22002  
11602,16025,22002,22002  
11603,16035,22002,22002  
11604,16045,22002,22002  
11605,16055,22002,22002  
11606,16065,22002,22002  
11607,16075,22002,22002  
11608,16085,22002,22002  
11609,16095,22002,22002  
11610,16105,22002,22002  
11611,16115,22002,22002  
11612,16125,22002,22002  
11613,16135,22002,22002  
11614,16145,22002,22002  
11615,16155,22002,22002  
11616,16165,22002,22002  
11617,16175,22002,22002  
11618,16185,22002,22002  
11619,16195,22002,22002  
11620,16205,22002,22002  
11621,16215,22002,22002  
11622,16225,22002,22002  
11623,16235,22002,22002  
11624,16245,22002,22002  
11625,16255,22002,22002  
11626,16265,22002,22002  
11627,16275,22002,22002  
11628,16285,22002,22002  
11629,16295,22002,22002  
11630,16305,22002,22002  
11631,16315,22002,22002  
11632,16325,22002,22002  
11638,16385,22002,22002  
11639,16395,22002,22002  
11677,22002,22002,22002  
11678,22002,22002,22002  
11679,22002,22002,22002  
11680,22002,22002,22002  
11691,22002,22002,22002  
11693,22002,22002,22002  
11707,22002,22002,22002  
11749,22002,22002,22002  
3001,351,2,  
10190,3512,22002,22002  
10191,3522,22002,22002  
10192,3522,22002,22002  
10193,3522,22002,22002  
3000,192,1,  
10193,1902,1912,1922  
10863,3552,22002,22002  
10864,3562,22002,22002  
10865,3572,22002,22002  
10866,3582,22002,22002  
10867,3592,22002,22002  
10505,3662,22002,22002  
10414,3912,22002,22002  
10415,3922,22002,22002  
10416,3932,22002,22002  
10563,4072,22002,22002  
10562,4082,22002,22002  
10566,4102,22002,22002,  
3001,,,  
31597,10001,716,108  
31598,10001,785,108  
31599,10001,717,108  
31600,10001,710,107  
31601,10001,786,108  
31602,10001,715,108  
31603,10001,787,108  
31604,10001,714,108  
31605,10001,713,108  
31606,10001,712,108  
31607,10001,711,108  
31608,10001,765,108  
31609,10001,766,108  
31617,10001,767,108  
31618,10001,768,108  
31619,10001,769,108  
31620,10001,770,108  
31621,10001,771,108  
31622,10001,772,108  
31623,10001,776,108  
31624,10001,777,108  
31625,10001,778,108  
31626,10001,779,108  
31627,10001,780,108  
31628,10001,781,108  
31629,10001,782,108  
31630,10001,797,108  
31631,10001,763,108  
31632,10001,764,108  
8500,,2,  
1254,2301,1,-2301 

想象一下，上班***天就被交給了這樣一些程序代碼。1990年2月，我就是這樣的。一個(gè)7人組成的團(tuán)隊(duì)維護(hù)著一批打印到紙上能有幾百頁(yè)的這樣的代碼，都是已經(jīng)發(fā)布到生產(chǎn)環(huán)境的。并不是我們發(fā)明了它們，只是我們不得不要用它們。作為奇聞?shì)W事，我在這里展示一張這些代碼殘存的文檔的圖片，這個(gè)文檔格式是使用我開(kāi)發(fā)的一個(gè)工具生成的，它僅可能的模仿了早期我們那些程序員在紙上那筆來(lái)研究這些文檔的樣子。

關(guān)于這段代碼

紙上的這些代碼是C16LNAPP.SCN里的一段，只是打印出來(lái)的***頁(yè)，它是1990年代美國(guó)一家大商業(yè)銀行——位于華盛頓的***洲際銀行(First Interstate Bank)在生產(chǎn)環(huán)境里使用的一段代碼。如今它已經(jīng)沒(méi)有用處理，我征得了當(dāng)時(shí)參與人的同意，出于樂(lè)趣，公布在這里。

再來(lái)一段

下面的這段代碼也是來(lái)自生產(chǎn)系統(tǒng)環(huán)境。我并不太擔(dān)心在這里公布這么多具有版權(quán)問(wèn)題的代碼信息，因?yàn)檫@世界上大概只有10個(gè)人能看懂它們。

8607,,,1  
11547,15475,22002,22002  
1316,1629,1,1649   
3001,1316,3,30078  
11528,22052,22002,22002  
9301,0,1528,1528  
31568,10001,800,107  
8560,,,1568  
8550,210,,  
3001,,,  
3100,1316,3,30089  
11547,15475,22002,22002  
3001,1316,3,30089  
3001,1317,3,10000  
8400,,,  
8550,700,801,  
3001,,,  
9301,0,522,522  
3000,1284,3,10001  
8500,,3,  
8500,,5,  
1547,,1,-2301 

像這樣打印出來(lái)的代碼文件我估計(jì)有1350多張，大部分每張上都有幾百行，有些甚至上千行。***洲際銀行的銀行分部用這些程序來(lái)處理業(yè)務(wù)。

BANCStar語(yǔ)言里一些有趣的特征：

• BANCStar程序里僅有的合法字符就是數(shù)字0-9，逗號(hào)，減號(hào)，和回車(chē)符。不允許有空行。文件中的任何地方如果有一個(gè)“.”出現(xiàn)，編譯器就會(huì)崩潰。
• 注釋是絕對(duì)不允許的。
• 有控制結(jié)構(gòu)，包括3000 (“if”), 3001 (“end if”)和
  3101 (“else if”)，還有8500 (“GOTO”) 和 8550 (“組合GOTO”).
• 有一個(gè)硬性規(guī)定，在整個(gè)系統(tǒng)中變量+常量不能超過(guò)2000個(gè)。任何需要顯示到屏幕上或打印到表單里的東西都要被定義成常量，因此，它們都要占用有限的資源空間。結(jié)果，大多數(shù)的計(jì)算的完成都由使用數(shù)十個(gè)“臨時(shí)寄存”變量，而這變量會(huì)被系統(tǒng)不斷的重復(fù)利用。系統(tǒng)中所有的東西都是全局的。開(kāi)發(fā)新模塊的程序員的***要做的是在系統(tǒng)中找一些這些臨時(shí)寄存的數(shù)字，“借”過(guò)來(lái)使用，完成自己的計(jì)算，并且要在這些寄存器真正的主人發(fā)現(xiàn)他們存放的數(shù)字不見(jiàn)了之前，把最初的值恢復(fù)回去。
• 代碼里的標(biāo)簽(Label)使用的都是絕對(duì)行址，于是，一旦有新代碼插入，所以插入行之后的代碼涉及到GOTO操作的都要重新定位和鏈接。

我能記得的一些細(xì)節(jié)

BANCStar 代碼實(shí)際上是用一個(gè)“屏面生成程序(screen generator)”生成的，這個(gè)工具最初大概是用來(lái)可視化編程的。但5.1c版的這個(gè)生成器功能太有限，一些有經(jīng)驗(yàn)的程序員很快就開(kāi)始研究它的工作原理，并且開(kāi)始直接修改它生成的中間代碼，這些中間代碼就是生產(chǎn)環(huán)境實(shí)際運(yùn)行的代碼。

我在1990年代初來(lái)到西雅圖，加入了這個(gè)由7個(gè)程序員組成的開(kāi)發(fā)小組，這個(gè)小組的日常工作就是用BancSTAR機(jī)器語(yǔ)言直接編寫(xiě)代碼，完全放棄了那個(gè)代碼生成器。當(dāng)他們***次向我展示這種語(yǔ)言時(shí)，我認(rèn)為他們?cè)诟议_(kāi)玩笑。但幾個(gè)星期后，我也開(kāi)始學(xué)會(huì)閱讀和編寫(xiě)這種代碼了——借助于每個(gè)BancSTAR語(yǔ)言程序員最喜愛(ài)的工具：一個(gè)點(diǎn)陣打印機(jī)，一大把各種顏色的用于高亮某段代碼的彩筆，以及一種紙帶，上面打印滿了各種系統(tǒng)提示表格，類似速查手冊(cè)。在每次系統(tǒng)有任何修改變動(dòng)后，我們都認(rèn)真的、小心翼翼的修改相關(guān)數(shù)據(jù)、文檔。(關(guān)于重復(fù)使用的臨時(shí)寄存器，我可不是在開(kāi)玩笑；如果你需要用到一個(gè)常量整數(shù)1000，你就需要到程序去尋找，看看其他人是否在其它地方使用了相同的值，你要把你的程序鏈接到這個(gè)地方，并期望在你使用它的過(guò)程中不被其他人修改。)

我們開(kāi)發(fā)了一些內(nèi)部工具來(lái)幫助我們用BancSTAR語(yǔ)言編寫(xiě)大型應(yīng)用，還曾經(jīng)將這些應(yīng)用向這種語(yǔ)言的所有者Broadway & Seymour公司展示，但我想他們絕對(duì)不會(huì)相信我們是直接用他們底層的、沒(méi)有文檔說(shuō)明的機(jī)器代碼編寫(xiě)的。

英文原文：The Worst Programming Environment in the World?

譯文鏈接：http://www.aqee.net/bancstar/