Punctuation Issue

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|431\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Punctuation Issue
Fri, 13 Dec 2024, 14:41
dna	Syntax Error I have not use BB in a while and so I am rusty at this however, this code gives me an odd error when I un comment the While Wend statement to use the BB=BB+1 variable. Yes I do remove the extra wend but the problem is that the program will not stop to print the F1 and the total of BB at the PRINT F1: PRINT BB:Waitkey:End. The program throws the Graphics window up for a moment and then immediately closes. Blitz is not installed, it's running in a folder, if that makes a difference. Is there some limit on the length of a text file that causes this? The text file in question is 4.41MB in length. I don't know how to upload that as well. Graphics 1500,800,16,2:SeedRnd MilliSecs():Color 180,180,0:Dim S$(16100),FND$(16100),C$(16000,2), CT$(16010),NI(16000),PC(20):Global P$ Dim B$(100),CURINLINE(100),MAX(100):Global LR_MOVE,CUR_FLAG,XC,YC,LI::Print PRM$="Searched for: ":XC=GraphicsWidth():YC=GraphicsHeight():F1=OpenFile("M:KJV.TXT"):BB=1:LP=1:R=Rand(1,16000) While Not Eof(F1) S$(BB)=ReadLine(F1): BB=BB+1 Wend ;Print S$(BB) Wend Print F1:Print BB:WaitKey:End ;While Not Eof(F1) ; S$(BB)=ReadLine(F1):BB=BB+1;:Text 0,0,BB:Flip:Cls ; If KeyDown(1) Then Exit ;Wend --v -=-=- DNA
Fri, 13 Dec 2024, 16:08
Jayenkai	Chop it up into 1-command-per-line, and that should help you to track down the bug a bit better. Though Blitz is happy to do multi-command "horizontal scroll" lines, it does make things harder to debug, because you might have any number of issues on the same line. If I were a betting man, it'd likely be the fact that you've used the Wend command without a breaking colon.. That is, it's reading the line"BB=BB+1 Wend" When it should be reading "BB=BB+1" and then "Wend" If you read it aloud or in your head, you'll be reading "one wend", when you want to be reading it as "one.. .. wend" -=-=- ''Load, Next List!''
Sat, 14 Dec 2024, 13:37
dna	Graphics 1500,800,16,2:SeedRnd MilliSecs():Color 180,180,0:Dim S$(16100),FND$(16100),C$(16000,2), CT$(16010),NI(16000),PC(20):Global P$ Dim B$(100),CURINLINE(100),MAX(100):Global LR_MOVE,CUR_FLAG,XC,YC,LI::Print PRM$="Searched for: ":XC=GraphicsWidth():YC=GraphicsHeight():F1=OpenFile("M:KJV.TXT"):BB=1:LP=1:R=Rand(1,16000) While Not Eof(F1) S$(BB)=ReadLine(F1): BB=BB+1 Wend ;Print S$(BB) Wend Print F1:Print BB WaitKey End --v Still get the same response -=-=- DNA
Sat, 14 Dec 2024, 13:44
dna	There has to be something I'm doing incorrectly It worked fine then the next day it stopped. Same code -=-=- DNA
Sat, 14 Dec 2024, 13:50
dna	Graphics 1500,800,16,2:SeedRnd MilliSecs():Color 180,180,0:Dim S$(16100),FND$(16100),C$(16000,2), CT$(16010),NI(16000),PC(20):Global P$ Dim B$(100),CURINLINE(100),MAX(100):Global LR_MOVE,CUR_FLAG,XC,YC,LI::Print PRM$="Searched for: ":XC=GraphicsWidth():YC=GraphicsHeight():F1=OpenFile("M:KJV.TXT"):BB=1:LP=1:R=Rand(1,16000) While Not Eof(F1) S$(BB)=ReadLine(F1): ;BB=BB+1 Wend ;Print S$(BB) Wend Print F1:Print BB WaitKey End --v This works. Is there something reserved in Blitz for the variable BB? -=-=- DNA
Sat, 14 Dec 2024, 14:02
dna	I think it has something to do with Blitz itself. The software use the INCLUDE directive to load external code and somewhere inside Blitz the software is trying to interpret that as a reference to external source code to load. It might be a bug. *** No, it still does not run right. I'll download another copy of Blitz and overwrite the application. -=-=- DNA
Sat, 14 Dec 2024, 15:18
Dan	Graphics 800,600,16,2:SeedRnd MilliSecs():Color 180,180,0:Dim S$(16100),FND$(16100),C$(16000,2), CT$(16010),NI(16000),PC(20):Global P$ Dim B$(100),CURINLINE(100),MAX(100):Global LR_MOVE,CUR_FLAG,XC,YC,LI::Print PRM$="Searched for: ":XC=GraphicsWidth():YC=GraphicsHeight():F1=OpenFile("R:KJV.TXT"):BB=1:LP=1:R=Rand(1,16000) While Not Eof(F1) S$(BB)=ReadLine(F1) Print S$(BB) BB=BB+1 ;Print F1:Print BB Delay 65 Wend WaitKey() --v This runs fine ? At least on my PC, with a bit smaller Text file (7kb ish) well it does not print out the F1 nor Print BB because the line is commented out ...
Sat, 14 Dec 2024, 15:28
Dan	Interresting ... this code works ... For x=1 To 10 Print x Next WaitKey() --v It is amazing ... i have removed every : from your code and the code still works ... Graphics 800,800,16,2 SeedRnd MilliSecs() Color 180,180,0 Dim S$(16100),FND$(16100),C$(16000,2), CT$(16010),NI(16000),PC(20) Global P$ Dim B$(100),CURINLINE(100),MAX(100) Global LR_MOVE,CUR_FLAG,XC,YC,LI Print PRM$="Searched for: " XC=GraphicsWidth() YC=GraphicsHeight() F1=OpenFile("R:KJV.TXT") BB=1 LP=1 R=Rand(1,16000) While Not Eof(F1) S$(BB)=ReadLine(F1) Print S$(BB) BB=BB+1 Wend Print F1 Print BB WaitKey() --v (now as one liner ... )
Sat, 14 Dec 2024, 15:38
Jayenkai	That's cool! I knew Blitz wasn't too stringent on punctuation, but.. Crikey, that much!?! Not sure I can get that to work in JSE -=-=- ''Load, Next List!''
Sun, 15 Dec 2024, 17:33
dna	@DAN What version if Blitz are you using and are you running it under windows 10? My version started asking for Directplay after I downloaded a fresh version from this site but the software will not download Directplay. -=-=- DNA
Mon, 16 Dec 2024, 12:09
dna	After viewing the archives I'm going to try Alien Death-match to fix the incompatibility. If it can. -=-=- DNA
Mon, 16 Dec 2024, 13:12
Dan	I'm running the version 1.108 under window 10 pro The directplay is an legacy feature of windows 10. It can be enabled and windows will install it for you. See this thread on syntaxbomb
Mon, 16 Dec 2024, 13:24
dna	That's what I'm running BB in windows 10.
Mon, 16 Dec 2024, 14:41
Jayenkai	You know earlier when you suggested that it might be that "BB" might be a reserved variable. .. Did you TRY not using BB as a variable? -=-=- ''Load, Next List!''
Mon, 16 Dec 2024, 14:57
dna	Yes I did. In four spots within the code. *** I re-downloaded BB3d and windows 10 now tells me that there's something viral within the archive. A false positive at least. Might also help if I installed the software proper instead of using it from the zip archive. -=-=- DNA
Tue, 17 Dec 2024, 18:47
dna	@Dan Graphics 800,600,16,2:SeedRnd MilliSecs():Color 180,180,0:Dim S$(16100),FND$(16100),C$(16000,2), CT$(16010),NI(16000),PC(20):Global P$ Dim B$(100),CURINLINE(100),MAX(100):Global LR_MOVE,CUR_FLAG,XC,YC,LI::Print PRM$="Searched for: ":XC=GraphicsWidth():YC=GraphicsHeight():F1=OpenFile("R:KJV.TXT"):BB=1:LP=1:R=Rand(1,16000) While Not Eof(F1) S$(BB)=ReadLine(F1) Print S$(BB) BB=BB+1 ;Print F1:Print BB Delay 65 Wend WaitKey() --v When you wrote with a much smaller text file, i'm thinking that is the problem. I corrected the DirectPlay issue but now it's gone back to not stopping even with the waitkey in the line Is there a limit to the size of the text file? My original is 4.41 MB -=-=- DNA

Syntax Error