Verfasst: 13.02.2006 15:15
Wie wärs denn damit?
Code: Alles auswählen
B.s=#PB_Compiler_File
OpenFile(0,B)
A.s=Space(999)
FileSeek(0,206)
ReadData(0,@A,485)
WriteString(FileSeek(0,0),ReplaceString(A,";",""))
RunProgram("PBCompiler",GetFilePart(B),GetPathPart(b))
;Dim A(InitSprite())
;
;OpenScreen(800,600,8,"")
;
;While GetKeyState_(27)>>1=0
; StartDrawing(ScreenOutput())
; i=4800
; While i
; j=i*2
; x=j+1
; DrawText(i%80*10,i/8,Chr(A(j)),A(x)<<8,0)
; a=Random(255)
; If b<j
; A(b)=a%222+33
; b+1
; ElseIf i>79
; If a&4
; A(x)=A(j-79)
; EndIf
; Else
; A(x)=a
; EndIf
; i-1
; Wend
; StopDrawing()
; FlipBuffers()
;Wend
;End