
B–61803E–1/10
A. MACRO PROGRAM EXAMPLE
APPENDIX
193
00010 O0010 ; Key test
00020 G202 P3 ; Screen clear
00030 G243 X0 Y2 A1 B0 (KEYTEST -- HIT ANY KEY --) ; Title display
00040 #143=100 ;
00050 M98 P0011 ;
00060 N001 #8502=2 Input an address and numeral
00070 #142=#8501 ; SAVE a key input variable
00080 IF [#142 EQ 0] GOTO 99 ;
00090 #101=#142 ;
00100 #102=#8503 ;
00110 #103=#8504 ; Key input data read
00120 G243 X0 Y4 A1 B0 (CONTROL ) F8.3 Z0 D#101 ;
00130 G243 X0 Y5 A1 B0 (ADDRESS ) F8.3 Z0 D#103 ;
00140 G243 X0 Y6 A1 B0 (DATA ) F8.3 Z0 D#102 ;
00150 N099 IF [#142 NE 16] GOTO 97 ; Shift to the menu after a push
00160 N098 #8500=1 ; on the END key.
00170 M99 ;
00180 N098 M99 P1 ;
00190 ;
00200 ;
00210 ;
00220 ;
00230 ;
00010 O0011 ;
00020 #100=0 ; Clear the counter
00030 WHILE [#100 LT 5] DO 1 ;
00040 G243 X[#100*8+1] Y16 A1 B0 P[#143+#100] ;
00050 #100=#100+1 ; Counter +1
00060 END 1 ;
00070 M99 ;
00080 ;
00090 ;
00100 ;
00110 ;
00120 ;
Soft key display: #143 is displayed at the
head of character sequence No.
Key input presence or absence judgement,
loop for which key input is none.
Key input
data display
Top sequence No. of
character for soft key
Counter