home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 04 / tricks / emul_vga.bas < prev    next >
Encoding:
BASIC Source File  |  1990-01-16  |  828 b   |  18 lines
  1. '* ---------------------------------------------------- *
  2. '*                  EMUL_VGA.BAS                        *
  3. '*      (c) 1990  U.Schmitz, W.Rinke & TOOLBOX          *
  4. '* ---------------------------------------------------- *
  5. CLS : DIM A(13)
  6. DEF SEG = &H40 : EMUL% = PEEK(&H49)
  7. IF EMUL% = 7 THEN DEF SEG = &HB000 ELSE DEF SEG = &HB800
  8. FOR I = 1 TO 13 : READ A(I) : NEXT I
  9. FOR I = 0 TO 26 STEP 2 : POKE I + 1028, A(I / 2) : NEXT I
  10. FOR I = 1 TO 27 STEP 2 : POKE I + 1028, &H95 : NEXT I
  11. VGAMODE = &HCB                    '* VGA-Emulation setzen
  12. DEF SEG = 0 : INT80 = &H1A0
  13. POKE &H1A0, VGAMODE : CALL INT80
  14. DATA &H41, &H50, &H52, &H49, &H4C, &H2C, &H20, &H41
  15. DATA &H50, &H52, &H49, &H4C, &H21
  16. '* ---------------------------------------------------- *
  17. '*             Ende von EMUL_VGA.BAS                    *
  18.