home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 08 / heimwerk / adapdemo.bas next >
Encoding:
BASIC Source File  |  1989-05-31  |  5.5 KB  |  176 lines
  1. '* ------------------------------------------------------- *
  2. '*                  ADAPDEMO.BAS                           *
  3. '* ------------------------------------------------------- *
  4. DEFINT a-z
  5. DIM x(19)
  6. $INCLUDE "ADAPTER.INC"
  7.  
  8. '* ------------------------------------------------------- *
  9. SUB Ueberschrift
  10.   LOCATE 2,1
  11.   PRINT SPACE$(1) + CHR$(201) + STRING$(76,205) + _
  12.                     CHR$(187) + SPACE$(1)
  13.   LOCATE 3,1
  14.   PRINT SPACE$(1) + CHR$(186) + SPACE$(76) + _
  15.                     CHR$(186) + SPACE$(1)
  16.   LOCATE 4,1
  17.   PRINT SPACE$(1) + CHR$(200) + STRING$(76,205) + _
  18.                     CHR$(188) + SPACE$(1)
  19.   titel$ = "Grafikadapter-ERMITTLUNGSPROGRAMM v 1.3" + _
  20.            "  (c) 1989  Jörg Braun & TOOLBOX"
  21.   LOCATE 3,((80 - (LEN(titel$))) \ 2) + 1
  22.   PRINT titel$
  23. END SUB
  24. '* ------------------------------------------------------- *
  25. SUB GrafikAdapter
  26.   CALL Adapter(karte$, text, graphik, xmax, ymax)
  27.   CALL Bildschirm(monitor$)
  28.   ON ERROR GOTO 0
  29.   SCREEN 0,0,0 : CLS
  30.   IF karte$ <> "N/A" AND karte$ <> "MDA" THEN COLOR 0,7
  31.   CALL Ueberschrift
  32.   IF karte$ <> "N/A" AND karte$ <> "MDA" THEN COLOR 7,0
  33.   x$ = CHR$(186)
  34.   a = 24 : e = 56
  35.   LOCATE 10, a : PRINT CHR$(201)+STRING$(31,205)+CHR$(187)
  36.   LOCATE 11, a : PRINT x$"   Vorhandener Grafikadapter:"
  37.   LOCATE 11, e : PRINT x$
  38.   LOCATE 12, a : PRINT x$
  39.   LOCATE 12,36
  40.   SELECT CASE karte$
  41.     CASE "MCG" : PRINT "MCGA-Karte";
  42.     CASE "HGA" : PRINT "Hercules";
  43.     CASE "JNR" : PRINT "PC Junior";
  44.     CASE "OLI" : PRINT "Olivetti";
  45.     CASE "N/A"
  46.                  LOCATE 12,30
  47.                  PRINT "unbekannt! Wert:"; FN RegWert
  48.     CASE ELSE  : PRINT karte$"-Karte";
  49.   END SELECT
  50.   LOCATE 12, e : PRINT x$
  51.   LOCATE 13, a : PRINT CHR$(199)+STRING$(31,196)+CHR$(182)
  52.   LOCATE 14, a : PRINT x$
  53.   LOCATE 14,33 : PRINT "Monitortyp: "; monitor$
  54.   LOCATE 14, e : PRINT x$
  55.   LOCATE 15, a : PRINT CHR$(199)+STRING$(31,196)+CHR$(182)
  56.   LOCATE 16, a : PRINT x$" Textspeicher   :";
  57.   IF KARTE$ = "N/A" THEN
  58.     PRINT "   N/A"
  59.   ELSE
  60.     PRINT " ab HEX  "+ HEX$(text)
  61.   END IF
  62.   LOCATE 16, e : PRINT x$
  63.   LOCATE 17, a : PRINT x$;" Graphikspeicher: ";
  64.   IF karte$ = "N/A" OR karte$ = "MDA" THEN
  65.     PRINT "  N/A"
  66.   ELSE
  67.     PRINT "ab HEX  " + HEX$(graphik)
  68.   END IF
  69.   LOCATE 17, e : PRINT x$
  70.   LOCATE 18, a : PRINT x$" Maximal X-Achse:   ";
  71.   IF karte$ = "N/A" OR karte$ = "MDA" THEN
  72.     PRINT "N/A"
  73.   ELSE
  74.     PRINT xmax+1; "Pixel"
  75.   END IF
  76.   LOCATE 18, e : PRINT x$
  77.   LOCATE 19, a : PRINT x$" Maximal Y-Achse:   ";
  78.   IF karte$ = "N/A" OR karte$ = "MDA" THEN
  79.     PRINT "N/A"
  80.   ELSE
  81.     PRINT ymax+1 "Pixel"
  82.   END IF
  83.   LOCATE 19, e : PRINT x$
  84.   LOCATE 20, a : PRINT CHR$(200)+STRING$(31,205)+CHR$(188)
  85. END SUB
  86. '* ------------------------------------------------------- *
  87. SUB PrintGraph
  88.   CALL Bildschirm(monitor$)
  89.   CALL Adapter(karte$, text, graphik, xmax, ymax)
  90.   CALL Datum(datum$)
  91.   LPRINT : LPRINT "Grafikadapter-ERMITTLUNGSPROGRAMM v 1.3"
  92.   LPRINT "   (c) 1989  Jörg Braun & TOOLBOX"
  93.   LPRINT "      Heute ist der "; datum$
  94.   LPRINT STRING$(40,"-")
  95.   LPRINT "Vorhandener Grafikadapter: ";
  96.   SELECT CASE karte$
  97.     CASE "MCG" : LPRINT "MCGA-Karte"
  98.     CASE "HGA" : LPRINT "Hercules"
  99.     CASE "JNR" : LPRINT "PC Junior"
  100.     CASE "OLI" : LPRINT "Olivetti"
  101.     CASE "N/A"
  102.            LPRINT "nicht bekannt. Registerwert: "; FNREGWert
  103.     CASE ELSE  : LPRINT karte$;"-Karte"
  104.   END SELECT
  105.   LPRINT STRING$(40,"-")
  106.   LPRINT "Ermittelter Bildschirmtyp: "; monitor$; "-Monitor"
  107.   LPRINT STRING$(40,"-")
  108.   LPRINT "Daten der Grafikkarte:"
  109.   LPRINT "    Textspeicher   : ab HEX  " + HEX$(text)
  110.   IF karte$ <> "N/A" AND karte$ <> "MDA" THEN
  111.     LPRINT "    Graphikspeicher: ab HEX  " + HEX$(graphik)
  112.     LPRINT "    Maximal X-Achse:   "; xmax+1; "Punkte"
  113.     LPRINT "    Maximal Y-Achse:   "; ymax+1; "Punkte"
  114.   END IF
  115. END SUB
  116. '* ------------------------------------------------------- *
  117. SUB Datum(datum$)
  118. LOCAL tag$, monat$, jahr$
  119.           ' Umformen des Systemdatums in das deutsche Format
  120.           ' und Entfernen führender Nullen.
  121.   jahr$  = RIGHT$(DATE$,4)
  122.   monat$ = LEFT$(DATE$,2)
  123.   IF LEFT$(monat$,1) = "0" THEN monat$ = RIGHT$(monat$,1)
  124.   tag$ = MID$(DATE$,4,2)
  125.   IF LEFT$(tag$,1) = "0" THEN tag$ = RIGHT$(tag$,1)
  126.   datum$ = tag$ + "." + monat$ + "." + jahr$
  127. END SUB
  128. '* ------------------------------------------------------- *
  129. SUB Info
  130.   PRINT : COLOR 15 : PRINT
  131.   PRINT "* ADAPTER V.1.3 * (c) 1989 J. Braun und Toolbox "
  132.   COLOR 7
  133.   PRINT "Programm zur Ermittlung des Grafikadapters";_
  134.         " und der maximal möglichen Grafik-
  135.   PRINT "auflösung des Bildschirms."
  136.   PRINT "Mit der Option /D oder /P erfolgt parallel";_
  137.         " ein Ausdruck auf dem Drucker."
  138.   PRINT
  139. END SUB
  140. '* ------------------------------------------------------- *
  141. DEF FN PrintFlag
  142. SHARED pr$
  143.   IF INSTR(1,pr$,"P") > 0 OR INSTR(1, pr$, "D") > 0 _
  144.     THEN FN PrintFlag = -1
  145. END DEF
  146. '* ------------------------------------------------------- *
  147. DEF FN Infoflag
  148. SHARED pr$
  149.   IF INSTR(1,pr$,"?") > 0 THEN FN Infoflag = -1
  150. END DEF
  151.  
  152. '* -------------------  Hauptprogramm  ------------------- *
  153.  
  154. pr$ = UCASE$(COMMAND$)
  155. ON ERROR GOTO Ende
  156. IF FNPrintFlag THEN CALL PrintGraph
  157. IF FN Infoflag THEN
  158.   CALL INFO
  159.   WHILE INKEY$ = "" : WEND
  160. ELSE
  161.   CALL Datum(datum$)
  162.   CALL GrafikAdapter
  163.   LOCATE 5,1 : PRINT " "; datum$
  164.   WHILE a$ = ""
  165.     a$ = INKEY$
  166.     LOCATE 5,72 : PRINT TIME$
  167.   WEND
  168.   LOCATE 23,1,0
  169. END IF
  170.  
  171. Ende:
  172. END
  173. '* ------------------------------------------------------- *
  174. '*              Ende von  ADAPTER.BAS                      *
  175.  
  176.