PGM START
LAD GR1, DATA
LD GR2, =10
CALL SUM
ST GR0, RESULT
RET
DATA DC 1,9,3,7,5,10,2,8,4,6
RESULT DS 1
END
SUM START
PUSH 0, GR1
PUSH 0, GR7
LD GR0, =0
LD GR7, =0
MAIN CPA GR7, GR2
JZE QUIT
ADDA GR0, 0, GR1
LAD GR1, 1, GR1
LAD GR7, 1, GR7
JUMP MAIN
QUIT POP GR7
POP GR1
RET
END
REP3 START
LAD GR0,1
LAD GR1,1
@ GR2,LEN
LOOP SUBA GR2,=1
A FIN
ST B
SLL C
SLA GR1,1
JUMP LOOP
FIN RET
ANS D 5
LEN E 5
END
このプログラムを実行すると、ANS番地からの5語に、以下のようなビットパターンが格納される。
dim undodata(10) as string
private sub Text1_Change()
for n=8 to 0 step -1 '9←8,8←7,7←6,…,1←0
undodata(n+1) = undodata(n)
next n
undodata(0) = text1.text
End Sub
private sub Command1_button()
text1.text = undodata(1)
for n=0 to 8 '0←1,1←2,2←3,…,8←9
undodata(n)=undodata(n+1)
next n
end sub
private sub Command1_click()
open "textfile.txt" for input as #1 'ファイルを開く
do
if eof(1) then exit do
input #1, d$ '1行読み込み(d$=文字型)
text1.text = text1.text + d$ + vbCrLf 'データ連結
loop
close #1 'ファイルを閉じる
end sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Text1.Text = "X=" & X & " Y=" & Y '座標表示
If X < 40 And Y < 32 Then
a = Int(X / 8) + Int(Y / 16) * 5 '選択数字計算
Text2.Text = Str(a) '選択数字表示
End If
End Sub