' ********************************************** ' * Mike from M.H.R. presents you: * ' ********************************************** ' * The simplest way of horizontal text- * ' * scrolling in GfA-Basic (without assembler) * ' ********************************************** ' ' IF XBIOS(4)<>0 ! This demo only low resolution EDIT ENDIF HIDEM OUT 4,&H12 ! Switch mouse off SPOKE &HFF820A,2 ! It is better to use 50 Hz ' ' zeilen=9 ! If you compile the routine, use 17 speed=-2 ' ' PRINT "Hi !!! This is a demonstration of a litt"; PRINT "le text-scroll. The whole routine was pr"; PRINT "ogrammed in GfA-Basic V2 by Mike from M."; PRINT "H.R. You only can start this demo in"; PRINT " low res. If you have problems, quest"; PRINT "ions, etc. then you can contact us at th"; PRINT "e following address: M.H.R., Postfach 64"; PRINT "9, A-4021 Linz, AUSTRIA. We are also int"; PRINT "erested in swapping PD-Software. Bye!!!"; ' Print " Now, if you are able to read this, you "; ! This text only if you ' Print "can be sure, that this demo is compiled."; ! compile the routine ' Print " Because there is enough space now, let "; ' Print "me say hello to Stefan Posthuma, Udo fro"; ' Print "m Tex and all my other friends out there"; ' Print " in Europa. Puh, it is absolutely bori"; ' Print "ng, to fill this space with silly text. "; ' Print "But now I say good bye..TSCHUESS...Mike "; ' ' GET 0,0,319,7,line_1$ GET 0,8,319,15,line_2$ GET 0,16,319,23,line_3$ GET 0,24,319,31,line_4$ GET 0,32,319,39,line_5$ GET 0,40,319,47,line_6$ GET 0,48,319,55,line_7$ GET 0,56,319,63,line_8$ GET 0,64,319,71,line_9$ ' Get 0,72,319,79,Line_10$ ! Only if you compile the routine ' Get 0,80,319,87,Line_11$ ' Get 0,88,319,95,Line_12$ ' Get 0,96,319,103,Line_13$ ' Get 0,104,319,111,Line_14$ ' Get 0,112,319,119,Line_15$ ' Get 0,120,319,127,Line_16$ ' Get 0,128,319,135,Line_17$ ' ' FOR i%=320 TO -(320*zeilen) STEP speed PUT i%,190,line_1$ PUT i%+320,190,line_2$ PUT i%+640,190,line_3$ PUT i%+960,190,line_4$ PUT i%+1280,190,line_5$ PUT i%+1600,190,line_6$ PUT i%+1920,190,line_7$ PUT i%+2240,190,line_8$ PUT i%+2560,190,line_9$ ' Put I%+2880,190,Line_10$ ! Only if you compile the routine ' Put I%+3200,190,Line_11$ ' Put I%+3520,190,Line_12$ ' Put I%+3840,190,Line_13$ ' Put I%+4160,190,Line_14$ ' Put I%+4480,190,Line_15$ ' Put I%+4800,190,Line_16$ ' Put I%+5120,190,Line_17$ EXIT IF INKEY$<>"" VSYNC NEXT i% ' ' OUT 4,&H8 ! Switch mouse on EDIT