10 REM NC100 state reporter (1.0.0)
20 DIM MC% 16
30 PROCasm
40 CALL MC%
50 VA%=?value
60 CLS:PRINT "NC100 State ("+STR$(VA%)+")":PRINT
70 PRINT "AA batteries ";
80 IF (VA% AND &08)=0 PRINT "good" ELSE PRINT "weak"
90 PRINT "Li battery ";
100 IF (VA% AND &04)=0 PRINT "good" ELSE PRINT "weak"
110 IF (VA% AND &20)=0 PRINT "AC power on" ELSE PRINT "AC power off"
120 PRINT "Memory card ";
130 IF (VA% AND &80)=0 PRINT "present "; ELSE PRINT "not present ":GOTO 160
140 IF (VA% AND &40)>0 PRINT "(write protected, "; ELSE PRINT "(writeable, ";
150 IF (VA% AND &10)>0 PRINT "battery good)" ELSE PRINT "battery weak)"
160 PRINT:PRINT "PRESS ANY KEY TO EXIT";:G%=GET
170 CLS:END
180 DEF PROCasm
190 FOR PA%=0 TO 2 STEP 2
200   P%=MC%
210   [
220   OPT PA%
230   :
240   PUSH AF
250   IN A,(&A0)
260   LD (value),A
270   POP AF
280   RET
290   .value DEFB 0
300   ]
310   :
320 NEXT
330 ENDPROC