Msg: 6493 *Conference*

05-03-96 20:21:33

From: RON WIESEN

To : GARY WEBER

Subj: REPLY TO MSG #6488 (8201 INFO AS WELL...)

From what you and I have collectively Gary, the following BASIC program detects
models.  The commented lines can be filled in when Model 200 and Kyotronic-85
fingerprints are known.

1 M$="unknown"

2 IFPEEK(72)THENELSEIFPEEK(31009)THENIFPEEK(31009)=1THENM$="IBM
PC"ELSEM$="Tandy 102"ELSEM$="Tandy 100"

3 'IFPEEK()THENELSEM$="Kyotronic 85"

4 IFPEEK(84)THENELSEIFPEEK(31676)THENM$="NEC 8201"ELSEM$="NEC8300"

5 'IFPEEK()THENELSEM$="Tandy 200"

9 PRINT"Model is "M$