So-net無料ブログ作成

ウォーキング 2015年30日目 旅の目的 [ウォーキング]


No.3485(So-net 01+02=1197 + Web Diary 2288) 2014年Blog




 IDEA いであ Feb 19,2015 - 5:58  4.29km


 旅行のプランを練るのはプログラミングに似ていると思う。

***********************
* CM110.PRG *
*受注票入力・営業員コード*
***********************
set color to G
@ 3, 6 say "外交受注票 入力・・・・・・・・・・・[11]"
set color to

select 1
use TRAN
copy structure to &TEMP.TRAN_A
use &TEMP.TRAN_A alias TRAN

select 2
use TRAN index TR_CS_CD alias TRAN_O

select 3
use TRAN_BP

select 4
use EIGYO index EI_EI_CD

select 5
use CUS index CS_CS_CD

select 6
use ITEM index IT_IT_CD

select 7
use NIPO index NP_NP_DT

store " " to CS_CODE
store " " to CS_SIME
store " " to CS_NO
store " " to IT_CODE
store 0 to CM110CT
store " " to CM110PLUS
store 0 to NP_BPKYA
store " " to NP_BP

do CM110_DS

do while .T.

  store YY to CM110YY
  store MM to CM110MM
  store DD to CM110DD
  @ 5,46 say WEEK

  @ 7, 4
  set color to G
  @ 7, 4 say "入力日付 [ ]戻る"
  set color to
  @ 7,14 say "ESC"

  ?? chr(BELL)
  if TYPE="CLEAR"
    clear typeahead
  endif
  @ 5,33 get CM110YY picture "99"
  @ 5,37 get CM110MM picture "99"
  @ 5,41 get CM110DD picture "99"
  read
  clear gets

  if readkey()=0.or.readkey()=12
    close databases
    return
  endif

  if val(CM110MM) <=0 .or. val(CM110MM) >=13 .or. ;
   val(CM110DD) <=0 .or. val(CM110DD) >=32
    ?? chr(7)
    loop
  endif

  store CM110YY+CM110MM+CM110DD to TR_DATE
  store left(cdow(ctod(str(val(CM110YY)+1988,4)+"/"+CM110MM+"/"+CM110DD)),2) to WEEK2
  @ 5,46 say WEEK2

  do while .T.

    store 0 to NP_KYAKU
    select EIGYO

    @ 7, 4
    set color to G
    @ 7, 4 say "[ ]日付 [ ]終了"
    set color to
    @ 7, 5 say "ESC"
    @ 7,16 say "."

    do while .T.

      *******LP100(営業員コード)**********

      ?? chr(BELL)
      if TYPE="CLEAR"
        clear typeahead
      endif
      store " " to EI_CODE
      @ 3,67 get EI_CODE picture "!"
      read
      clear gets

      if EI_CODE="."
        close databases
        return to master
      endif

      if val(EI_CODE)<>0
        ?? chr(7)
        loop
      endif

      if readkey()=0.or.readkey()=12.or.EI_CODE="\"
        @ 3,68 say " "
        exit
      endif

      goto top
      seek EI_CODE
      if eof()
        ?? chr(7)
        if HELP="HELP"
          ?? chr(BELL)
          ?? chr(BELL)
          locate for left(EIGYO_CODE,1)=EI_CODE.or.val(EIGYO_CODE)=0

          store 0 to CP_CT
          do while CP_CT<13.and..not.eof()

            store CP_CT+1 to CP_CT
            @ 8+CP_CT,62 say EIGYO_CODE+" "+EIGYO_NAME
            continu

          enddo
        endif
        loop
      endif

      exit

    enddo &&(******LP110********)

    if readkey()=0.or.readkey()=12
      exit
    endif

    store EIGYO_NAME to EI_NAME
    store EIGYO_BUTU to EI_BUTU
    @ 5,67 say EI_NAME
    @ 9,62 clear to 21,77

    do CM110_1

  enddo

  if readkey()=0.or.readkey()=12
    loop
  endif

enddo

 
 PC9801とdBASEコンパイラ(So-net)

 目的を達成するために工程=日程をどう組み立てるか。

 しかしプログラミングでは目的が明確であるのに対して
 旅行は目的が不明瞭なために、プランを練るのも往生する。

 アフガン旅行では「東から西に移動する」
 これが僕のテーマだった。

 しかし今回の台湾旅行は何か?
 まだ明確ではない。
 だから目的地も滞在時間もはっきりしてこない。

9時20分に出たTrauck。12時半に休憩。1時出発。 夜8時半頃、仮眠のため停車。 朝4時半出発。 朝6時、CAGHCARAN到着。 相変わらずの土ぼこりと、振動、それに寒さであった。 風景がCAGHCARANに近づくにつれ、中央高原の砂ばくといった感じで、キャラバンがラクダをひき連れ、テントを張ってるのをよく見かけた。 我らのTruckはソ連の人間らしいのを一人乗せていて、多少特しゅであって、夜になるとdriverとその人間とベッドを持ち出して寝るなど、普通のトラックとは違っていた。 CAGHCARANは正に中央高原の町。今までの町とは違い広い大地の上に、広々と町を構えていた。 8:00、HERAT行きの車は割りとあるようだ。今日、1時に出るとチャイハナのおっさんが言っている。 しかし、あくまでAFGHAN。 どこまで信用出来るか分からない。相手に聞けば「あー今日あるヨ」と答えるがのがこの国だ。 8:30、僕の計算はあたった。車はソ連製のいいものであるが、さすが350km、2日掛かる道のり、400Af.と言ってきた。300と言うと言葉が分からないので、よく理解出来ないが350という事らしい。 計算その2 700Af.  CAGHCARAN→HERAT 350Af. 350Af.  食費二日間  50Af. 300Af. + 時計 800Af. + $3(240Af.) 1340Af.この金でなんとかKABULに帰れるだろうが、時計がなくなるのが何とも痛い。 時計を売らないとして、540Af.。これでKABULに帰るのもシャクだし。 多少、運が残ってるのかもしれない。もう出発。 CAGHCARAN、9時20分出発。10時、草原の最終の村にとまる。 4台十組の運送会社の車である。途中からAFGHANの先生が乗ってきた。 人のいいヤツで、350と思っていたのを、2人で乗って200+200にすれば良いと言ってきた。 非常にラッキーだ。もし本当ならば。 11時頃から山にかかり、12時すぎに峠を過ぎる。大きな峠で、AFGHANの中央高原が一望出来る。 12時半休憩。 CAGHCARANからここずっと、中央高原なのである。遠くに山が低く見え、草原が広々と広がる。途中点々とマオ・テントが見え、遊牧民が秋の盛りを働いている。夕暮れが近づくにつれ、太陽が西に傾き目の前に迫ってくる。まぶしい、厳しい山の上の太陽に向かって走る。自分が地球上の点になり、動いているのが分かるのである。

いであ IDEAさん(@idea522)が投稿した写真 -


 僕はどこへ行くのだ?!
nice!(1)  コメント(0)  トラックバック(0) 
共通テーマ:日記・雑感

nice! 1

コメント 0

コメントを書く

お名前:
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

トラックバック 0

この広告は前回の更新から一定期間経過したブログに表示されています。更新すると自動で解除されます。

×

この広告は1年以上新しい記事の更新がないブログに表示されております。