ゲームでNsfwイースターエッグ

より関連

 

このゲームをプレイするには、あなたのスキルを向上させることができます。

そして、その後の試合でnsfwのイースターエッグをルートに駆けつけ、タクシーに手を振ったので、アメリカを早く止めたということを考えていたようです。

ディフェンダーズ-ゲームなしシーズン2でミニシリーズNsfwイースターエッグ

Gcob識別部。 プログラムID。 PRTCBL *著者。 J-C-カリー *************************************************************COBOLソースファイルをコピーブックで印刷します****バージョン001--オリジナルバージョン**3/26/2009--J C CURREY* * * * 002-追加します。CPY(キャップ)の場合。, **ファイルを検索し、入力を132文字に展開します**4/09/2009--J C CURREY* * * * 003-NOLISTとリストのサポートを追加します(OPENCOBOLコンパイラでサポートされていません)****COL7-14のNOLISTはリストをオフにします****COL7-12のリストはリストをオンにしま* * * * 004--/testing-typeset-1/copybooksのサポートを追加します**コピーブックは、番号のために検索されます1インジウム**ローカル麻酔ディレクトリと非確立した場合,そうインジウム**/* * * * 005-ファイルのコピー印刷セクションで改ページ**の行の欠落の問題を修正しました。, **1285451--SANDY DOSS**06/19/2009--JEREMY MONTOYA* * * * 006--書式作成のための印刷ファイルにPCL**コードを挿入するのに使用外的なPCLコードファイル。 **1330505--ジム-カリー**12/14/2009--ピート-マクトンプソン* ************************************************************ 環境課 入出力セクション。 ファイル制御。 121409フォーマット-ファイル割り当てをWS-NAME-FORMAT-FILEに選択する121409編成は、ゲーム順にnsfwイースターエッグを行っています。 "印刷"-"ファイル割り当て"を選択します。, SELECT INPUT-FILE ASSIGN TO WS-NAME-INPUT-FILE ORGANIZATION IS LINE SEQUENTIAL FILE STATUS IS WS-INPUT-FILE-STATUS. コピー-ファイル割り当てをWS-NAME-COPY-FILE ORGANIZATION IS LINE SEQUENTIAL FILE STATUS IS WS-COPY-FILE-STATUSを選択します。 データ分割。 ファイル部。 *FDの印刷ファイル。 121409 01形式-ラインPIC X(140). 01プリントライン。 05または-ライン番号PIC Z(6). 05または-フィラー-1PIC XX.05または-テキストPIC X(132). 121409*121409FDフォーマットファイル。 121409 01形式-レコードPIC X(140). *FD入力ファイル。 01入力-レコード。 05IR-BUFFER PIC X(132)。 FDコピーファイル。 01コピーレコード. 05CR-BUFFER PIC X(132)。, **NOLIST*これは別の行です**リスト*作業-ストレージセクション。 *****************************************************定数、カウンターおよび作業領域* **************************************************** 01 WS-NAME-プログラムPIC X(12)値121409"prtcbl006". 01WS-NO-段落PIC S9(4)COMP. 01WS-I PIC S9(4)COMP. 01WS-J PIC S9(4)COMP. 01WS-K PIC S9(4)COMP. 01WS-NAME-PRINT-FILE PIC X(64)値スペース。 01WS-NAME-INPUT-FILE PIC X(64)値スペース。 01WS-INPUT-FILE-STATUS PIC XX値"00"。 050709 01WS-NAME-COPY-FILE PIC X(128)値スペース。, 050709 01WS-HOLD-NAME-COPY-FILE PIC X(128)値スペース。 121409 01WS-NAME-FORMAT-FILE PIC X(128)値スペース。 01WS-COPY-FILE-STATUS PIC XX値"00"。 01WS-LINE-PRINTER-NAME PIC X(16)値スペース。 01WS-ライン番号PIC S9(6)COMP値ゼロ. 01WS-PAGE-LINE-COUNTER PIC S9(4)COMP値999. 01WS-ページ番号PIC S9(4)COMP値ゼロ. 01WS-PRINT-コマンドPIC X(128). *01WS-エスケープ-文字PIC X値X"1B". *01WSヘッディングラインPIC X(132)。 01WS-現在の日付ピックX(21). 01WS-ED4S PIC ZZZZ-. 042209 01WS-SWITCH-PRINT PIC X値スペース., *****************************************************************手続き部門* **************************************************************** 手続き部門。 0000-メインセクション。 1000-初期化スルー1990-終了を実行します。 2000-プロセスから2990-終了を実行します。 9000終了プログラム9990終了を実行します。 走るのをやめろ *****************************************************************初期化* **************************************************************** 1000 - 初期化。 1000をWS-NO-PARAGRAPHに移動します。, ディスプレイ"I)"、WS-NAME-プログラム、"から始まる-"関数の現在の日付。 1002-GET-INPUT-FILE. "A)入力ファイル名を入力"と表示します。 WS-NAME-INPUT-FILEを受け入れます。 入力入力ファイルを開きます。 WS-INPUT-FILE-STATUSが35と等しい場合、"W)INPUT FILE NOT FOUND"は1002-GET-INPUT-FILEに移動します。 "A)プリントファイル(作業ファイル)名を入力"と表示します。 WS-NAME-PRINT-FILEを受け入れます。 "A)プリンタ名を入力"と表示します。 WS-LINE-PRINTER-NAMEを受け入れます。 出力印刷ファイルを開きます。 121409移動"laserjet_113D.txt"にWS-NAME-FORMAT-FILE。 121409入力形式ファイルを開きます。, 121409 1010-出力-PCL-コード。 121409読み取りフォーマット-ファイル最後に次のレコードは1020-フォーマット-EOFに移動します。 121409FORMAT-RECORDをFORMAT-LINEに移動します。 121409書き込みフォーマットライン. 121409 1010出力PCLコードに移動します。 121409 1020-形式-EOF. 121409フォーマットファイルを閉じます。 1990-終了. 出口だ ***************************************************************詳細セクション* ************************************************************** 2000 - プロセス。 2000をWS-NO-PARAGRAPHに移動します。 READ INPUT-FILE NEXT RECORD AT END GO TO2990-EXIT. WS-LINE-NUMBERに1を追加します。, WS-PAGE-LINE-COUNTERが112より大きい場合は、2800-見出しから2890-EXITを実行します。 WS-LINE-NUMBERをOR-LINE-NUMBERに移動します。 スペースをOR-FILLER-1に移動します。 INPUT-RECORDをOR-TEXTに移動します。 042209IR-BUFFER(7:6)が"**LIST"と等しい場合042209WS-SWITCH-PRINTに"Y"を移動します。 042209WS-SWITCH-PRINTが"N"042209と等しい場合、次の文042209ELSE WRITE PRINT-LINE042209ADD1をWS-PAGE-LINE-COUNTERに追加します。 042209IR-BUFFER(7:8)が"**NOLIST"と等しい場合042209"N"をWS-SWITCH-PRINTに移動します。 IR-BUFFER(7:1)が"*"に等しい場合は、2000-PROCESSに移動します。 1をWS-I.2010-COMPARE-LOOPに移動します。, IR-BUFFER(WS-I:2)が"*>"に等しい場合は、2090-ENDERに移動します。 IR-BUFFER(WS-I:6)が"COPY"に等しい場合は、2020-COPYに移動します。 WS-Iに1を追加します。WS-Iが73未満の場合は、2010-COMPARE-LOOPに移動します。 2000プロセスに移動します。 2020年コピー。 WS-LINE-NUMBERから1を減算します。 WS-Iに6を追加します1をWS-Jに移動します。 2022年-移動ループ。 IR-BUFFER(WS-I:1)がSPACEと等しい場合は、2030-OPEN-COPYFILEに移動します。 IR-BUFFER(WS-I:1)が"に等しい場合。"移動"。cpy"にWS-NAME-COPY-FILE(WS-J:4)2030-OPEN-COPYFILEに移動します。 IR-BUFFER(WS-I:1)をWS-NAME-COPY-FILE(WS-J:1)に移動します。, 1をWS-I、WS-Jに追加します。WS-Iが73より大きい場合、またはWS-Jが64より大きい場合は、移動"**問題があります。上記のコピー文**"TO OR-TEXT WRITE PRINT-LINE WS-PAGE-LINE-COUNTERに1を追加すると、2000プロセスに移動します。 2022-MOVE-LOOPに移動します。 2030-オープンコピーファイル。 入力コピーファイルを開きます。 WS-COPY-FILE-STATUSが"00"040909MOVE"と等しくない場合。,CPY"TO WS-NAME-COPY-FILE(WS-J:4)040909入力コピーファイル040909を開くWS-COPY-FILE-STATUSが"00"050709と等しくない場合WS-NAME-COPY-FILEをWS-HOLD-NAME-COPY-FILE050709STRING"/testing-typeset-1/copybooks/"050709WS-HOLD-NAME-COPY-FILE050709TO WS-NAME-COPY-FILE*DISPLAY"D)AT.ファイルを開く名前をコピー=\"

ルナ1は オンライン

彼女の興味: ワンナイトスタンド, ディープスロート

くそ彼女の後で
今このゲームをプレイ