お題：Sharp MyWizard.comでプログラム(2)

SHARPのPDAということで理由も無く購入

購入価格：$99.8（使用時間：使用継続中　累積　約３ヶ月）

1ヶ月間ほったらかしだったので


　プログラムを作ろう作ろうと思って実は何にもしていなかったりする。
と反省しつつ今回はショートプログラムをOZ-770に導入する話。
BASICはポケコンと互換があるので、軽くワンキープログラムなんか
を作ってみよう。


普通の何の変哲もない
　いたってどこにでもありそうなプログラムを作ってみました。
下記がそのリスト。きちんとプログラム理論とか勉強していれば、もっときれいな
プログラムも書けると思うんですが、小生は不勉強家なのであしからず
コンパイルしたものはここから拾ってクレイ。NEW1

10 CLS 
15 DEGREE
16 y=10
17 RANDOMIZE
18 YY=RND 50
19 LINE (237,YY)-(239,YY+5),BF:line (0,60)-(240,60)
20 FOR x=0 TO 240 step .5
25 A$=INKEY$
30 IF A$="A" THEN y=y-.5 else y=y+.5
60 PSET (X,Y)
70 IF y=0 or y=60 then 130
120 NEXT x
125 IF Y>YY-1 and Y<yy+6 then LOCATE 100,3:PRINT "CLEAR":GOTO 140
130 LOCATE 100,3:PRINT "GAME OVER"
140 FOR I=0 to 5000:NEXT I
145 B$=INKEY$
150 IF B$="" THEN 145

自由落下している自機をターゲットまで
　運んでしまおうという画期的などこにでもある１キーゲームです。
プログラム自体はポケコンに持っていっても動くでしょ
今回の反省点としては、文字変数の小文字と大文字の区別があるのを
すっかり忘れていて、キー入力の判別がしばらくできなかったこと・・・
ん〜おまぬけ。