10: REM >A5000led @ CHARLES 22/2/2001
 20: REM KONTROLE OPLICHTEN FLOPPY-LED A5000
 30: ON ERROR:PRINT" errornum ";ERR;" in regel:";ERL:END
 40: MODE 3:VDU22,4
 70: *FX 16,1
 80: *FX 17,1
 90: DIM LED%(32,3)
100: VDU7:PRINT'''"Druk op SPACEBAR"
110: PRINT"  en zet vervolgens A5000 AAN."
111: REPEAT UNTIL GET=32
120::
130: LEDoff%=1000:LEDon%=10000:KORT%=50:TIME=0
140: FOR I%=1 TO 32:PRINT"flash:";I%
150: T%=TIME:PROCled_off
151: LED%(I%,0)=TIME-T%:LED%(I%,1)=V%
160: T%=TIME:PROCled_on
161: LED%(I%,2)=TIME-T%:LED%(I%,3)=V%
170: NEXT I%
180: T%=TIME
190: *FX 17,0
200: PROCspace:CLS:PROCshow
210: REPEAT
220: *FX 21,0
230: CLS:INPUT'"Wilt u de resultaten nog 'n keer zien? {y/n }",Y$
240: IF Y$="Y" OR Y$="y" THEN PROCshow ELSE END
250: UNTIL FALSE
260: END
270::
280: DEFPROCled_on:V%=ADVAL(1)
281: PRINTTAB(10);"led on :adval= ";V%
290: REPEAT:UNTIL ADVAL(1)<LEDoff%:ENDPROC
300::
310: DEFPROCled_off:V%=ADVAL(1)
311: PRINTTAB(10);"led off:adval= ";V%
320: REPEAT:UNTIL ADVAL(1)>LEDon%:ENDPROC
330::
340: DEFPROCshow
350: VDU 22,3
360: PRINTTAB(17);"LED OFF";TAB(50);"LED ON"
370: PRINTTAB(12);"time   (adval)";TAB(45);"time   (adval)"
380: FOR I%=1 TO 12:PRINTTAB(0);"flash:";I%;
390: PRINTTAB(12);LED%(I%,0);TAB(20);LED%(I%,1);
400: PRINTTAB(45);LED%(I%,2);TAB(55);LED%(I%,3)
410: NEXT I%
420: PROCspace:CLS
430: PRINTTAB(17);"LED OFF";TAB(50);"LED ON"
440: PRINTTAB(12);"time   (adval)";TAB(45);"time   (adval)"
450: FOR I%=13 TO 32:PRINTTAB(0);"flash:";I%;
460: PRINTTAB(12);LED%(I%,0);TAB(20);LED%(I%,1);
470: PRINTTAB(45);LED%(I%,2);TAB(55);LED%(I%,3)
480: NEXT I%
510: PROCspace:CLS
520: FOR I%=1 TO 32
530: IF LED%(I%,2)>KORT% THEN PRINT"long flash found:";I%
540: NEXT I%
550: PROCspace:CLS
560: PRINT'"flashes 1 t/m 12 altijd kort"
570: PRINT"led flash 13:reserved"
580: PRINT"led flash 14:long RAM test failed"
590: PRINT"led flash 15:RAM control line failure"
600: PRINT"led flash 16:CMOS unreadable"
610: PRINT"led flash 17:VIDCsound (Sirq) timing failure"
620: PRINT"led flash 18:VIDCvideo (Virq) timing failure"
630: PRINT"led flash 19:reserved"
640: PRINT"led flash 20:reserved"
650: PRINT"led flash 21:reserved"
660: PRINT"led flash 22:reserved"
670: PRINT"led flash 23:ROM failed checksum test"
680: PRINT"led flash 24:CMOS RAM checksum error"
690: PRINT"led flash 25:VRAM present"
700: PRINT"led flash 26:Integrated I/O controller fitted"
710: PRINT"led flash 27:Long memory test disabled (via 'N bit in
    CMOS)"
720: PRINT"led flash 28:ARM3 fitted (or ARM ID detected for 
    RiscPC)"
730: PRINT"led flash 29:Long memory test performed"
740: PRINT"led flash 30:Self test due to test link"
750: PRINT"led flash 31:Self test due to interface hardware"
760: PRINT"led flash 32:Self test due to power on"
770: PROCspace:CLS
780: ENDPROC
790::
800: DEFPROCspace
810: PRINT"Press SPACEBAR to continue"
811: REPEAT UNTIL GET=32
820: ENDPROC
830: REM EINDE LISTING