Dark Bit Factory & Gravity

PROGRAMMING => Freebasic => Topic started by: DrewPee on April 21, 2009

Title: Something new . . .
Post by: DrewPee on April 21, 2009

Hello again!

Im working on this code . . .

Code: [Select]

'RCM demo by Andy and Scott

#Include "tinyptc_ext.bi"
#Include "RCM_256Col.bmp.pal.bas"
#Include "RCM_256Col.bmp.raw.bas"
#include "tsidreplay.bi"
#include "ol.bas"

Const XRES=640
Const YRES=480
Const ARES=XRES * YRES

Dim shared as double a,b,q,w

Dim Shared as integer imgx = 320
Dim Shared as integer imgy = 240
a=-(imgx*2)
b=(yres/2)-(imgy/2)

Declare Sub WritePixelFast( byval intX As Integer, byval intY As Integer, byval intC As Integer )
Declare Sub DrawImage(byval xpos as integer,byval ypos as integer)
Declare Sub LoadDataImage()
Declare Sub Clr()
Declare Sub Clr2()
Declare Sub TXT(BYVAL BX AS INTEGER , BYVAL BY AS INTEGER , BYVAL WW AS STRING)

Dim Shared Buffer(ARES) as integer
ReDim Shared img_buffer(1) as integer
Dim Shared img_r(256), img_g(256), img_b(256) as short   

Dim Shared As LARGE_INTEGER Frequency
Dim Shared As LARGE_INTEGER LiStart
Dim Shared As LARGE_INTEGER LiStop
Dim Shared As LONGLONG LlTimeDiff
Dim Shared As Double MDuration
Dim Shared as String t
Dim Shared as Integer cc,lp
Dim shared as uinteger FONT (64 * 64)

Restore fnt:FOR LP=1 TO (64*64):READ FONT(LP):NEXT

t="www.retrocomputermuseum.co.uk"
cc=(xres/2)-(len(t)/2)*8

LoadDataImage()

    ptc_allowclose(0)
    ptc_setdialog(0,"Fullscreen ONLY at the moment!",0,1)
    If( ptc_open( "WTF? DEMO pt 2 by Andy and Scott of RCM", XRES, YRES ) = 0 ) Then
    End -1
    End if

QueryPerformanceFrequency( @Frequency )

sid_sound_server_replay_init(@ol.sid(0), 5292, 0)
sid_sound_server_replay_play()

While(GETASYNCKEYSTATE(VK_ESCAPE)<> -32767 and PTC_GETLEFTBUTTON=FALSE)
    DrawImage(a,b)
    Ptc_Update @Buffer(0)
    Clr
    If a=(xres/2)-(imgx/2) then Clr2
    if a>=xres then a=-(imgx*2)
        do
        QueryPerformanceCounter( @LiStop )
        LlTimeDiff = LiStop.QuadPart - LiStart.QuadPart
        MDuration = Cast( Double, LlTimeDiff ) * 1000.0 / Cast( Double , Frequency.QuadPart )
        Loop While (  MDuration <= 1000.0/60.0 )'60fps Clamp change the 60.0 to whatever fps you need
    a=a+1
Wend

Ptc_Close()
sid_sound_server_replay_stop()

Sub LoadDataImage()
    dim i as integer
    for i = 0 to 255
         img_r( i ) = RCM_256Col.bmp.pal (i*3  )'Red color
         img_g( i ) = RCM_256Col.bmp.pal (i*3+1)'Green color
         img_b( i ) = RCM_256Col.bmp.pal (i*3+2)'Blue color
    Next
    while ((imgx mod 4) <> 0)
        imgx += 1
    wend
    ReDim img_buffer(imgx*imgy)
    for i = 0 to (imgx*imgy) - 1
         img_buffer(i) = RCM_256Col.bmp.raw (i)
    next 
End Sub

Sub DrawImage(byval xpos as integer,byval ypos as integer)
    dim x,y,pixel as integer
    for y = 0 to imgy-1
        for x = 0 to imgx-1
            pixel = img_buffer(x+(y*imgx))
            if pixel<>0 then WritePixelFast( x+xpos,y+ypos, (img_r(pixel) Shl 16) Or (img_g(pixel) Shl 8 )  Or img_b(pixel) )
        next
    next
End Sub

Sub WritePixelFast( byval intX As Integer, byval intY As Integer, byval intC As Integer )
    If ( intX>0 And intX<XRES-1 ) And ( intY>0 And intY<YRES-1 ) Then
        Buffer( intX + (intY * XRES) ) = intC
    End If   
End Sub

Sub Clr
for q=0 to xres*yres-1
w=int(rnd(1)*63)
buffer(q)=rgb(w,w,w)
next q
End Sub

Sub Clr2
for q=0 to xres*yres-1
buffer(q)=rgb(0,0,0)
next q
DrawImage(a,b)
txt(cc,400,t)
Ptc_Update @Buffer(0)
sleep 6000
End Sub

sub TXT(BYVAL BX AS INTEGER , BYVAL BY AS INTEGER , BYVAL WW AS STRING)
WW = UCASE (WW)
dim blx,bly as Uinteger
DIM as INTEGER STRX,STRY,TLP,CH
    dim bm,mm
    FOR TLP = 0 TO LEN(WW)
    CH = ASC(MID(WW,TLP,1))-31
    IF CH<0 OR CH>64 THEN CH=0
    bm=(ch*64)-64
    STRY=BY
    FOR BLY=0 TO 7   
    STRX=BX + ((TLP-1) * 9)
    FOR BLX=1 TO 8
    MM= FONT((((BLY)*8)+(BLX))+BM)                       
    IF (STRX>0) AND (STRX<XRES)  THEN             
    IF MM >0 THEN buffer(((STRY)*XRES)+STRX)=rgb(50,50,255)
    end if
    STRX=STRX+1               
    NEXT
    STRY=STRY+1
    NEXT
    NEXT
END SUB

fnt:
' Space
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
' !
data 0,0,0,0,0,0,0,0
data 0,0,1,0,0,0,0,0
data 0,0,1,0,0,0,0,0
data 0,0,1,0,0,0,0,0
data 0,0,1,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,1,0,0,0,0,0
data 0,0,0,0,0,0,0,0
' "
data 0,0,0,0,0,0,0,0
data 0,1,0,1,0,0,0,0
data 0,1,0,1,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
' #
data 0,0,0,0,0,0,0,0
data 0,1,0,0,1,0,0,0
data 1,1,1,1,1,1,0,0
data 0,1,0,0,1,0,0,0
data 1,1,1,1,1,1,0,0
data 0,1,0,0,1,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
' £
data 0,0,0,0,0,0,0,0
data 0,0,0,1,1,1,0,0
data 0,0,1,0,0,0,1,0
data 0,1,1,1,1,0,0,0
data 0,0,1,0,0,0,0,0
data 0,0,1,0,0,0,0,0
data 0,1,1,1,1,1,1,0
data 0,0,0,0,0,0,0,0
' %
data 0,0,0,0,0,0,0,0
data 0,1,1,0,0,0,1,0
data 0,1,1,0,0,1,0,0
data 0,0,0,0,1,0,0,0
data 0,0,0,1,0,0,0,0
data 0,0,1,0,0,1,1,0
data 0,1,0,0,0,1,1,0
data 0,0,0,0,0,0,0,0
' &
data 0,0,0,0,0,0,0,0
data 0,0,0,1,0,0,0,0
data 0,0,1,0,1,0,0,0
data 0,0,0,1,0,0,0,0
data 0,0,1,0,1,0,1,0
data 0,1,0,0,0,1,0,0
data 0,0,1,1,1,0,1,0
data 0,0,0,0,0,0,0,0
' '
data 0,0,0,0,0,0,0,0
data 0,0,1,0,0,0,0,0
data 0,1,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
' (
data 0,0,0,0,0,0,0,0
data 0,0,0,1,0,0,0,0
data 0,0,1,0,0,0,0,0
data 0,0,1,0,0,0,0,0
data 0,0,1,0,0,0,0,0
data 0,0,1,0,0,0,0,0
data 0,0,0,1,0,0,0,0
data 0,0,0,0,0,0,0,0
' )
data 0,0,0,0,0,0,0,0
data 0,0,0,0,1,0,0,0
data 0,0,0,0,0,1,0,0
data 0,0,0,0,0,1,0,0
data 0,0,0,0,0,1,0,0
data 0,0,0,0,0,1,0,0
data 0,0,0,0,1,0,0,0
data 0,0,0,0,0,0,0,0
' *
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,1,0,1,0,0,0
data 0,0,0,1,0,0,0,0
data 0,1,1,1,1,1,0,0
data 0,0,0,1,0,0,0,0
data 0,0,1,0,1,0,0,0
data 0,0,0,0,0,0,0,0
' +
data 0,0,0,0,0,0,0,0
data 0,0,0,1,0,0,0,0
data 0,0,0,1,0,0,0,0
data 0,1,1,1,1,1,0,0
data 0,0,0,1,0,0,0,0
data 0,0,0,1,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
' '
data 0,0,0,0,0,0,0,0
data 0,0,1,0,0,0,0,0
data 0,1,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
' -
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,1,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
' .
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,1,1,0,0,0,0,0
data 0,1,1,0,0,0,0,0
data 0,0,0,0,0,0,0,0
' /
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,1,0,0
data 0,0,0,0,1,0,0,0
data 0,0,0,1,0,0,0,0
data 0,0,1,0,0,0,0,0
data 0,1,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
' 0
data 0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,0,0
data 0,1,0,0,0,1,1,0
data 0,1,0,0,1,0,1,0
data 0,1,0,1,0,0,1,0
data 0,1,1,0,0,0,1,0
data 0,0,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0
' 1
data 0,0,0,0,0,0,0,0
data 0,0,1,1,0,0,0,0
data 0,1,0,1,0,0,0,0
data 0,0,0,1,0,0,0,0
data 0,0,0,1,0,0,0,0
data 0,0,0,1,0,0,0,0
data 0,1,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0
' 2
data 0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,0,0
data 0,1,0,0,0,0,1,0
data 0,0,0,0,0,0,1,0
data 0,0,1,1,1,1,0,0
data 0,1,0,0,0,0,0,0
data 0,1,1,1,1,1,1,0
data 0,0,0,0,0,0,0,0
' 3
data 0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,0,0
data 0,1,0,0,0,0,1,0
data 0,0,0,0,1,1,0,0
data 0,0,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,0,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0
' 4
data 0,0,0,0,0,0,0,0
data 0,0,0,0,1,0,0,0
data 0,0,0,1,1,0,0,0
data 0,0,1,0,1,0,0,0
data 0,1,0,0,1,0,0,0
data 1,1,1,1,1,1,1,0
data 0,0,0,0,1,0,0,0
data 0,0,0,0,0,0,0,0
' 5
data 0,0,0,0,0,0,0,0
data 0,1,1,1,1,1,1,0
data 0,1,0,0,0,0,0,0
data 0,1,1,1,1,1,0,0
data 0,0,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,0,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0
' 6
data 0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,0,0
data 0,1,0,0,0,0,0,0
data 0,1,1,1,1,1,0,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,0,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0
' 7
data 0,0,0,0,0,0,0,0
data 1,1,1,1,1,1,1,0
data 0,0,0,0,0,0,1,0
data 0,0,0,0,0,1,0,0
data 0,0,0,0,1,0,0,0
data 0,0,0,1,0,0,0,0
data 0,0,0,1,0,0,0,0
data 0,0,0,0,0,0,0,0
' 8
data 0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,0,0
data 0,1,0,0,0,0,1,0
data 0,0,1,1,1,1,0,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,0,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0
' 9
data 0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,0,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,0,1,1,1,1,1,0
data 0,0,0,0,0,0,1,0
data 0,0,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0
' :
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,1,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,1,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
' ;
data 0,0,0,0,0,0,0,0
data 0,0,0,1,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,1,0,0,0,0
data 0,0,0,1,0,0,0,0
data 0,0,1,0,0,0,0,0
data 0,0,0,0,0,0,0,0
' <
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,1,0,0,0,0
data 0,0,1,0,0,0,0,0
data 0,1,0,0,0,0,0,0
data 0,0,1,0,0,0,0,0
data 0,0,0,1,0,0,0,0
data 0,0,0,0,0,0,0,0
' =
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,1,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0
data 0,1,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
' >
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,1,0,0,0
data 0,0,0,0,0,1,0,0
data 0,0,0,0,0,0,1,0
data 0,0,0,0,0,1,0,0
data 0,0,0,0,1,0,0,0
data 0,0,0,0,0,0,0,0
' ?
data 0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,0,0
data 0,1,0,0,0,0,1,0
data 0,0,0,0,0,1,0,0
data 0,0,0,0,1,0,0,0
data 0,0,0,0,0,0,0,0
data 0,0,0,0,1,0,0,0
data 0,0,0,0,0,0,0,0
' @
data 0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,0,0
data 0,1,0,0,1,0,1,0
data 0,1,0,1,0,1,1,0
data 0,1,0,1,1,1,1,0
data 0,1,0,0,0,0,0,0
data 0,0,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0
' A
data 0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,0,0
data 0,1,0,0,0,0,1,0
data 0,1,1,1,1,1,1,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,0,0,0,0,0,0,0
' B
data 0,0,0,0,0,0,0,0
data 0,1,1,1,1,1,0,0
data 0,1,0,0,0,0,1,0
data 0,1,1,1,1,1,0,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,1,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0
' C
data 0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,0,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,0,0
data 0,1,0,0,0,0,0,0
data 0,1,0,0,0,0,1,0
data 0,0,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0
' D
data 0,0,0,0,0,0,0,0
data 0,1,1,1,1,0,0,0
data 0,1,0,0,0,1,0,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,1,0,0
data 0,1,1,1,1,0,0,0
data 0,0,0,0,0,0,0,0
' E
data 0,0,0,0,0,0,0,0
data 0,1,1,1,1,1,1,0
data 0,1,0,0,0,0,0,0
data 0,1,1,1,1,1,0,0
data 0,1,0,0,0,0,0,0
data 0,1,0,0,0,0,0,0
data 0,1,1,1,1,1,1,0
data 0,0,0,0,0,0,0,0
' F
data 0,0,0,0,0,0,0,0
data 0,1,1,1,1,1,1,0
data 0,1,0,0,0,0,0,0
data 0,1,1,1,1,1,0,0
data 0,1,0,0,0,0,0,0
data 0,1,0,0,0,0,0,0
data 0,1,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
' G
data 0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,0,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,0,0
data 0,1,0,0,1,1,1,0
data 0,1,0,0,0,0,1,0
data 0,0,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0
' H
data 0,0,0,0,0,0,0,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,1,1,1,1,1,1,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,0,0,0,0,0,0,0
' I
data 0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,1,0
data 0,0,0,0,1,0,0,0
data 0,0,0,0,1,0,0,0
data 0,0,0,0,1,0,0,0
data 0,0,0,0,1,0,0,0
data 0,0,1,1,1,1,1,0
data 0,0,0,0,0,0,0,0
' J
data 0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,1,0
data 0,0,0,0,0,0,1,0
data 0,0,0,0,0,0,1,0
data 0,0,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,0,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0
' K
data 0,0,0,0,0,0,0,0
data 0,1,0,0,0,1,0,0
data 0,1,0,0,1,0,0,0
data 0,1,1,1,0,0,0,0
data 0,1,0,0,1,0,0,0
data 0,1,0,0,0,1,0,0
data 0,1,0,0,0,0,1,0
data 0,0,0,0,0,0,0,0
' L
data 0,0,0,0,0,0,0,0
data 0,1,0,0,0,0,0,0
data 0,1,0,0,0,0,0,0
data 0,1,0,0,0,0,0,0
data 0,1,0,0,0,0,0,0
data 0,1,0,0,0,0,0,0
data 0,1,1,1,1,1,1,0
data 0,0,0,0,0,0,0,0
' M
data 0,0,0,0,0,0,0,0
data 0,1,0,0,0,0,1,0
data 0,1,1,0,0,1,1,0
data 0,1,0,1,1,0,1,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,0,0,0,0,0,0,0
' N
data 0,0,0,0,0,0,0,0
data 0,1,0,0,0,0,1,0
data 0,1,1,0,0,0,1,0
data 0,1,0,1,0,0,1,0
data 0,1,0,0,1,0,1,0
data 0,1,0,0,0,1,1,0
data 0,1,0,0,0,0,1,0
data 0,0,0,0,0,0,0,0
' O
data 0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,0,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,0,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0
' P
data 0,0,0,0,0,0,0,0
data 0,1,1,1,1,1,0,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,1,1,1,1,1,0,0
data 0,1,0,0,0,0,0,0
data 0,1,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0
' Q
data 0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,0,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,1,0,1,0,0,1,0
data 0,1,0,0,1,0,1,0
data 0,0,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0
' R
data 0,0,0,0,0,0,0,0
data 0,1,1,1,1,1,0,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,1,1,1,1,1,0,0
data 0,1,0,0,0,1,0,0
data 0,1,0,0,0,0,1,0
data 0,0,0,0,0,0,0,0
' S
data 0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,0,0
data 0,1,0,0,0,0,0,0
data 0,0,1,1,1,1,0,0
data 0,0,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,0,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0
' T
data 0,0,0,0,0,0,0,0
data 0,1,1,1,1,1,1,1
data 0,0,0,0,1,0,0,0
data 0,0,0,0,1,0,0,0
data 0,0,0,0,1,0,0,0
data 0,0,0,0,1,0,0,0
data 0,0,0,0,1,0,0,0
data 0,0,0,0,0,0,0,0
' U
data 0,0,0,0,0,0,0,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,0,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0
' V
data 0,0,0,0,0,0,0,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,0,1,0,0,1,0,0
data 0,0,0,1,1,0,0,0
data 0,0,0,0,0,0,0,0
' W
data 0,0,0,0,0,0,0,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,1,0,0,0,0,1,0
data 0,1,0,1,1,0,1,0
data 0,0,1,0,0,1,0,0
data 0,0,0,0,0,0,0,0
' X
data 0,0,0,0,0,0,0,0
data 0,1,0,0,0,0,1,0
data 0,0,1,0,0,1,0,0
data 0,0,0,1,1,0,0,0
data 0,0,0,1,1,0,0,0
data 0,0,1,0,0,1,0,0
data 0,1,0,0,0,0,1,0
data 0,0,0,0,0,0,0,0
' Y
data 0,0,0,0,0,0,0,0
data 0,1,0,0,0,0,0,1
data 0,0,1,0,0,0,1,0
data 0,0,0,1,0,1,0,0
data 0,0,0,0,1,0,0,0
data 0,0,0,0,1,0,0,0
data 0,0,0,0,1,0,0,0
data 0,0,0,0,0,0,0,0
' Z
data 0,0,0,0,0,0,0,0
data 0,1,1,1,1,1,1,0
data 0,0,0,0,0,1,0,0
data 0,0,0,0,1,0,0,0
data 0,0,0,1,0,0,0,0
data 0,0,1,0,0,0,0,0
data 0,1,1,1,1,1,1,0
data 0,0,0,0,0,0,0,0

When i run this code, the text routine puts a garbled block before the text starts . . . any ideas anybody?
If you need anything more please do ask . . .
Thanks!
DrewPee

Title: Re: Something new . . .
Post by: Shockwave on April 21, 2009

Hi Andy,

when you have a program that uses several files you should really include them all so that we can debug it, or at least remove the protions of the program that uses the included files before you post it.

It's difficult to work out the solution, otherwise but I am going to hazard a guess, even though your program won't run without the needed files...

Look for this line;

Code: [Select]

    FOR TLP = 0 TO LEN(WW)

and change it to

Code: [Select]

    FOR TLP = 1 TO LEN(WW)

Because I suspect that is where the problem is. If this doesn't fix it you need to include an archive with all the needed stuff :)

Title: Re: Something new . . .
Post by: Clyde on April 22, 2009

yeah that does fix it.

A recommendation before you venture any further and this will help you work and understand things better; as you've got an assortment of different peoples code and naming conventions ( nothing wrong in that for learning ) Tidy up the code you currently have, also name the variable to things you will signify the meaning of them better by. I'll post up an example of what I mean, if you want it. As changing the for loop to a 1 does correct it.

Title: Re: Something new . . .
Post by: DrewPee on April 22, 2009

@Shockwave . . . sorry mate - just didnt think! - you were right though - fixed it by changing it from 0 to 1. Thank you for that.

@Clyde . . . I do understand how most of this code works tbh - just lazy I guess! :( But do post an example please! Anything to help me! :)