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$