home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / ICTARI07.ARJ / ictari.07 / GFA / OVERSCAN.GFA / TOP.GFA (.txt) < prev    next >
GFA-BASIC Atari  |  1997-09-18  |  2KB  |  116 lines
  1. '
  2. '  After  > If bottom border BLACK: DECREASE 82 (on indicated d| loop) by, say 5
  3. ' running > If bottom border is (vertically) FLASHING: INCREASE 82 by, say 5
  4. '
  5. SETCOLOR 15,&H0
  6. mouse(0)
  7. msg(1)
  8. REPEAT
  9. UNTIL INKEY$=" "
  10. msg(2)
  11. '
  12. REPEAT
  13.   SPOKE &HFF820A,254
  14.   VSYNC
  15.   SPOKE &HFF820A,252
  16.   FOR d|=1 TO 82                     !   Processor free here;
  17.     SETCOLOR 0,&H777                 ! but timing is **crucial**
  18.   NEXT d|
  19. UNTIL INKEY$=" "
  20. SPOKE &HFF820A,254
  21. '
  22. msg(3)
  23. REPEAT
  24. UNTIL INKEY$=" "
  25. mouse(1)
  26. PRINT CHR$(7);
  27. EDIT
  28. '
  29. '
  30. '
  31. '
  32. PROCEDURE mouse(run|)
  33.   LOCAL gretr$
  34.   IF run|=1
  35.     gretr$=CHR$(8)
  36.   ELSE
  37.     HIDEM
  38.     gretr$=CHR$(18)
  39.   ENDIF
  40.   ~XBIOS(25,0,L:VARPTR(gretr$))
  41. RETURN
  42. '
  43. '
  44. '
  45. '
  46. PROCEDURE msg(run|)
  47.   LOCAL line|,text$,max|
  48.   PRINT "E"
  49.   IF XBIOS(4)=0
  50.     max|=20
  51.   ELSE
  52.     max|=40
  53.   ENDIF
  54.   SELECT run|
  55.   CASE 1
  56.     RESTORE text1
  57.   CASE 2
  58.     RESTORE text2
  59.   CASE 3
  60.     RESTORE text3
  61.   ENDSELECT
  62.   PRINT AT(1,1);
  63.   FOR line|=1 TO 12
  64.     READ text$
  65.     PRINT
  66.     PRINT SPACE$(max|-LEN(text$)/2);text$
  67.   NEXT line|
  68.   IF XBIOS(4)=0
  69.     BOX 0,0,319,199
  70.   ELSE
  71.     BOX 0,0,639,199
  72.   ENDIF
  73. RETURN
  74. '
  75. text1:
  76. DATA "Professor"
  77. DATA "of VIRTUAL INFINITY"
  78. DATA "presents a first for GFA ..."
  79. DATA "*Pure*, GFA, Overscan !!"
  80. DATA "------"
  81. DATA "The screen works perfectly on my cold-"
  82. DATA "started 1040 STe & TV.  I sincerely"
  83. DATA "hope it works on your machine."
  84. DATA "------"
  85. DATA "Press <space> once to see it,"
  86. DATA "and <space> a second time to"
  87. DATA "return to standard 50Hz."
  88. '
  89. text2:
  90. DATA "You`re not dreaming,"
  91. DATA "Professor of VIRTUAL INFINITY"
  92. DATA "waves goodbye to the top border"
  93. DATA "with *pure* GFA Overscan !!"
  94. DATA "------"
  95. DATA "The simple VBL routine to shift a"
  96. DATA "standard 200 line screen, naturally"
  97. DATA "leaves plenty of processor free."
  98. DATA "------"
  99. DATA "Will somebody please explain to"
  100. DATA "me the theory of bottom overscan,"
  101. DATA "so I can write a GFA version !!"
  102. '
  103. text3:
  104. DATA "Returning to normality,"
  105. DATA "Don`t forget to give credit to me,"
  106. DATA "Professor of VIRTUAL INFINITY"
  107. DATA "if you wish to use this routine."
  108. DATA "------"
  109. DATA "Will somebody please explain to"
  110. DATA "me the theory of bottom overscan,"
  111. DATA "so I can write a GFA version !!"
  112. DATA "------"
  113. DATA "Thanks for your time,"
  114. DATA "Press <space> to quit."
  115. DATA ""
  116.