home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / graf / vgacad7.zip / XCGAVU.BAS < prev   
BASIC Source File  |  1989-02-25  |  1KB  |  40 lines
  1. CGXNAME$ = COMMAND$:                    'get name from Command line
  2. ON ERROR GOTO NoFile
  3.  
  4. OPEN CGXNAME$ + ".CGX" FOR INPUT AS 1:  'make sure it exists
  5. CLOSE
  6.  
  7. GOSUB SetXCGA                           'trigger 160x100x16 mode
  8. DEF SEG = &HB800                        'change DSEG to screen
  9. BLOAD CGXNAME$ + ".CGX", 0              'dump picture to screen
  10. a$ = INPUT$(1)
  11. SCREEN 2: SCREEN 0: END                 'restore text mode and exit
  12.  
  13. NoFile: BEEP:
  14.         PRINT "Cannot find " + CGXNAME$
  15.         END
  16.  
  17.  
  18. SetXCGA:
  19.  
  20. 'WARNING: Changing these registers settings may cause a CRASH !
  21.  
  22. DEF SEG = 0
  23. POKE &H465, 0: OUT &H3D8, 0:
  24. POKE &H466, 0: OUT &H3D9, 0
  25. OUT &H3D4, 0: OUT &H3D5, 113
  26. OUT &H3D4, 1: OUT &H3D5, 80
  27. OUT &H3D4, 2: OUT &H3D5, 90
  28. OUT &H3D4, 3: OUT &H3D5, 10
  29. OUT &H3D4, 4: OUT &H3D5, 127
  30. OUT &H3D4, 5: OUT &H3D5, 6
  31. OUT &H3D4, 6: OUT &H3D5, 100
  32. OUT &H3D4, 7: OUT &H3D5, 112
  33. OUT &H3D4, 8: OUT &H3D5, 2
  34. OUT &H3D4, 9: OUT &H3D5, 1
  35. OUT &H3D4, 10: OUT &H3D5, 32
  36. OUT &H3D4, 11: OUT &H3D5, 0
  37. POKE &H465, 9: OUT &H3D8, 9
  38. RETURN
  39.  
  40.