home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 06 / tricks / speedy.bas < prev    next >
Encoding:
BASIC Source File  |  1991-03-20  |  1.2 KB  |  29 lines
  1. '* ------------------------------------------------------- *
  2. '*                      SPEEDY.BAS                         *
  3. '*         (c) 1991 Heinrich Heintzmann & TOOLBOX          *
  4. '*  Modifizieren der Refresh-Rate über den Timer-Baustein  *
  5. '* ------------------------------------------------------- *
  6. DEFINT A-Z
  7. Text1$ = "VARIOSPEED - (c) 1991 H. Heintzmann & toolbox"
  8. Text2$ = "Syntax:   VARIO [x]      x = Zahl von 6 bis n"
  9. Text3$ = "          6=langsam    50=normal    n=schnell"
  10.  
  11. Faktor = INT(VAL(COMMAND$))           'Befehlszeile auslesen
  12. IF Faktor = 0 THEN PRINT Text1$, Text2$, Text3$: END
  13. IF Faktor < 6 THEN END    'damit's keinen Systemabsturz gibt
  14. Faktor = INT(Faktor / 2.941176)            'Faktor umrechnen
  15.                          'teile Timer mit, daß Daten kommen:
  16. OUT &H43, &H74
  17. '   7 6 5 4 3 2 1 0
  18. '   1 1 1 0 1 0 0 0
  19.     │ │ │ │ │ │ │ └─────────Binär-Modus anwählen
  20.     │ │ │ │ └─┴─┴───────────Modus 4 ausgewählt
  21.     │ │ └─┴─────────────────nur MSB lesen/laden
  22.     └─┴─────────────────────nicht verwendet
  23.  
  24.                                'DRAM-Refresh-Rate schreiben:
  25. OUT &H41, Faktor MOD 512       'niederwertiges Byte
  26. OUT &H41, INT(Faktor / 512)    'höherwertiges Byte
  27. PRINT "Gaspedal aktiviert"
  28. END
  29.