home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib39b.dsk / IDENTIFIER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  24 lines
  1. 10  REM  *************************
  2. 20  REM  * IDENTIFIER            *
  3. 30  REM  * BY JIM FERR           *
  4. 40  REM  * COPYRIGHT(C) 1990     *
  5. 50  REM  * MINDCRAFT PUBL. CORP. *
  6. 60  REM  * CONCORD, MA 01742     *
  7. 70  REM  *************************
  8. 80  HOME :D$ =  CHR$(4):L1$ = "IDENTIFIER BY JIM FERR":L2$ = "COPYRIGHT(C) 1990 MINDCRAFT PUBL. CORP."
  9. 90  PRINT L1$: PRINT L2$
  10. 100  REM  GET DESCRIPTIONS INTO ARRAY
  11. 110  DIM ID$(15)
  12. 120  FOR X = 0 TO 15: READ ID$(X): PRINT ID$(X): NEXT X
  13. 130  PRINT D$"BRUN IDENTIFIER.BIN,A768"
  14. 140  REM  GET RESULT FROM IDENTIFIER
  15. 150 ID =  PEEK(937)
  16. 160  PRINT : PRINT "ID=";ID;". IDENTIFIED AS:": PRINT : PRINT ID$(ID);"."
  17. 170  END 
  18. 180  DATA  UNKNOWN OR NON-APPLE,APPLE II,APPLE II PLUS,APPLE III
  19. 190  DATA  ORIGINAL APPLE IIE,ENHANCED APPLE IIE,ORIGINAL APPLE IIC
  20. 200  DATA  APPLE IIC W/ 3.5 ROM,APPLE IIC W/ MEM. EXP.
  21. 210  DATA  APPLE IIC W/ REV. MEM. EXP.,APPLE IIC PLUS
  22. 220  DATA  APPLE IIGS W/ ROM 00,APPLE IIGS W/ ROM 01
  23. 230  DATA  APPLE IIGS W/ ROM 03,NEWER APPLE IIGS
  24. 240  DATA  NEWER THAN APPLE IIGS