bestiary code help

[anton2012]

when i try to run the code says: "BASIC compile halted:DO WHILE or DO UNTIL expected" so im kinda confused.

btw i love this languege

and if there's any more mistaces pls tell me
(here's the code)


REM KAIJU PARADISE BESTIARY



PRINT "WELCOME TO THE KAIJU PARADISE BESTIARY!"

PRINT



DO

   PRINT "SELECT A CREATURE TO VIEW ITS ENTRY:"

   PRINT "1. Kaiju"

   PRINT "2. Fed"

   PRINT "3. Figs"

   PRINT "4. Ghost Fox"

   PRINT "5. Hazzy"

   PRINT "6. Lemon Shork"

   PRINT "7. Shade"

   PRINT "8. Shork"

   PRINT "9. Slime Hound"

   PRINT "10. Slime Pup"

   PRINT "11. Toxic Rappit"

   PRINT "12. Witchbrew"

   PRINT "13. Melon Shork"

   PRINT "14. Pseudo Shork"

   PRINT "15. Sinox"

   PRINT "0. Exit"



INPUT "Enter the number of the creature: "; choice





   SELECT CASE choice

       CASE 1

           GOSUB 300

       CASE 2

           GOSUB 310

       CASE 3

           GOSUB 320

       CASE 4

           GOSUB 330

       CASE 5

           GOSUB 340

       CASE 6

           GOSUB 350

       CASE 7

           GOSUB 360

       CASE 8

           GOSUB 370

       CASE 9

           GOSUB 380

       CASE 10

           GOSUB 390

       CASE 11

           GOSUB 400

       CASE 12

           GOSUB 410

       CASE 13

           GOSUB 420

       CASE 14

           GOSUB 430

       CASE 15

           GOSUB 440

       CASE 0

           END

       CASE ELSE

           PRINT "Invalid choice. Please enter a number from the menu."

   END SELECT



LOOP

END



300 REM Entry for Kaiju

PRINT "KAIJU:"

PRINT "A giant lizard-like creature that slowly has crystals growing outside of its back."

PRINT "Kaijus tend to be passive aggressive, and are very territorial."

PRINT "They will attack when provoked, but if you keep your distance, they will leave you be... most of the time."

PRINT "Refrain from going near any of the large blue crystals inside the cave."

RETURN



310 REM Entry for Kaiju

PRINT "FED:"

PRINT "FED TEXT TEST"

RETURN



320 REM Entry for Kaiju

PRINT "FIGS:"

PRINT "FIGS TEXT TEST"

RETURN



330 REM Entry for Kaiju

PRINT "GHOST FOX:"

PRINT "GHOST FOX TEXT TEST"

RETURN



340 REM Entry for Kaiju

PRINT "HAZZY:"

PRINT "HAZZY TEXT TEST"

RETURN



350 REM Entry for Kaiju

PRINT "LEMON SHORK:"

PRINT "LEMON SHORK TEXT TEST"

RETURN



360 REM Entry for Kaiju

PRINT "SHADE:"

PRINT "SHADE TEXT TEST"

RETURN



370 REM Entry for Kaiju

PRINT "SHORK:"

PRINT "SHORK TEXT TEST"

RETURN



380 REM Entry for Kaiju

PRINT "SLIME HOUND:"

PRINT "SLIME HOUND TEXT TEST"

RETURN



390 REM Entry for Kaiju

PRINT "SLIME PUP:"

PRINT "SLIME PUP TEXT TEST"

RETURN



400 REM Entry for Kaiju

PRINT "TOXIC RABBIT:"

PRINT "TOXIC RABBIT TEXT TEST"

RETURN



410 REM Entry for Kaiju

PRINT "WITCHBREW:"

PRINT "WITCHBREW TEXT TEST"

RETURN



420 REM Entry for Kaiju

PRINT "MELON SHORK:"

PRINT "MELON SHORK TEXT TEST"

RETURN



430 REM Entry for Kaiju

PRINT "PSUEDO SHORK:"

PRINT "PSUEDO SHORK TEXT TEST"

RETURN



420 REM Entry for Kaiju

PRINT "SINOX:"

PRINT "SINOX TEXT TEST"

RETURN


edit:yes i tried DO LOOP

[tsh73]

1) please use CODE tags (button with C in a square on editor toolbar) to wrap your program.
This will preserve your indenting

2) Here you can see how to prevent forum from inserting extra blank lines in your program (read first post,
"This could be prevented by..."
...
"Or you can change it..."
)
justbasiccom.proboards.com/thread/904/removing-extra-empty-lines-program

3)

"BASIC compile halted:DO WHILE or DO UNTIL expected"

DO LOOP needs some condition after LOOP
Either "continue while condition is true"

or "continue until condition is false"

From the help file:
'execute the code inside this loop at least once
 do
   'code in here
 loop while booleanExpr

You can also use the UNTIL keyword to reverse the logic of the expression:

 'execute the code inside this loop at least once
 do
   'code in here
 loop until booleanExpr

If you want "never ending loop", like in here, use
LOOP WHILE 1

(BTW BASIC said me you have 2 labels 420. Probably one of them supposed to be 440)

[anton2012]

thanks a lot!this comunity is awsome

[anton2012]

so somehow this code works,but i want it to loop after you see the info but i dont really understand the LOOP function so if someone can explain how to LOOP the code or point to the resources that would be awsome!

REM KAIJU PARADISE BESTIARY

DO
   PRINT "WELCOME TO THE KAIJU PARADISE BESTIARY!"
   PRINT

   PRINT "SELECT A CREATURE TO VIEW ITS ENTRY:"
   PRINT "1. Kaiju"
   PRINT "2. Fed"
   PRINT "3. Figs"
   PRINT "4. Ghost Fox"
   PRINT "5. Hazzy"
   PRINT "6. Lemon Shork"
   PRINT "7. Shade"
   PRINT "8. Shork"
   PRINT "9. Slime Hound"
   PRINT "10. Slime Pup"
   PRINT "11. Toxic Rappit"
   PRINT "12. Witchbrew"
   PRINT "13. Melon Shork"
   PRINT "14. Pseudo Shork"
   PRINT "15. Sinox"
   PRINT "0. Exit"

   INPUT "Enter the number of the creature: " ;choice

   SELECT CASE choice
       CASE 1
           GOSUB 300
       CASE 2
           GOSUB 310
       CASE 3
           GOSUB 320
       CASE 4
           GOSUB 330
       CASE 5
           GOSUB 340
       CASE 6
           GOSUB 350
       CASE 7
           GOSUB 360
       CASE 8
           GOSUB 370
       CASE 9
           GOSUB 380
       CASE 10
           GOSUB 390
       CASE 11
           GOSUB 400
       CASE 12
           GOSUB 410
       CASE 13
           GOSUB 420
       CASE 14
           GOSUB 430
       CASE 15
           GOSUB 440
       CASE 0
           END
       CASE ELSE
           PRINT "Invalid choice. Please enter a number from the menu."
   END SELECT
DO WHILE

END

300 REM Entry for Kaiju
PRINT "KAIJU:"
PRINT "A giant lizard-like creature that slowly has crystals growing outside of its back."
PRINT "Kaijus tend to be passive aggressive, and are very territorial."
PRINT "They will attack when provoked, but if you keep your distance, they will leave you be... most of the time."
PRINT "Refrain from going near any of the large blue crystals inside the cave."
RETURN

310 REM Entry for Kaiju

PRINT "FED:"

PRINT "FED TEXT TEST"

RETURN



320 REM Entry for Kaiju

PRINT "FIGS:"

PRINT "FIGS TEXT TEST"

RETURN



330 REM Entry for Kaiju

PRINT "GHOST FOX:"

PRINT "GHOST FOX TEXT TEST"

RETURN



340 REM Entry for Kaiju

PRINT "HAZZY:"

PRINT "HAZZY TEXT TEST"

RETURN



350 REM Entry for Kaiju

PRINT "LEMON SHORK:"

PRINT "LEMON SHORK TEXT TEST"

RETURN



360 REM Entry for Kaiju

PRINT "SHADE:"

PRINT "SHADE TEXT TEST"

RETURN



370 REM Entry for Kaiju

PRINT "SHORK:"

PRINT "SHORK TEXT TEST"

RETURN



380 REM Entry for Kaiju

PRINT "SLIME HOUND:"

PRINT "SLIME HOUND TEXT TEST"

RETURN



390 REM Entry for Kaiju

PRINT "SLIME PUP:"

PRINT "SLIME PUP TEXT TEST"

RETURN



400 REM Entry for Kaiju

PRINT "TOXIC RABBIT:"

PRINT "TOXIC RABBIT TEXT TEST"

RETURN



410 REM Entry for Kaiju

PRINT "WITCHBREW:"

PRINT "WITCHBREW TEXT TEST"

RETURN



420 REM Entry for Kaiju

PRINT "MELON SHORK:"

PRINT "MELON SHORK TEXT TEST"

RETURN



430 REM Entry for Kaiju

PRINT "PSUEDO SHORK:"

PRINT "PSUEDO SHORK TEXT TEST"

RETURN



440 REM Entry for Kaiju

PRINT "SINOX:"

PRINT "SINOX TEXT TEST"

RETURN


[tsh73]

I think if you change
DO WHILE
to
LOOP WHILE 1
it will just work

[anton2012]

ok thx!!!!!

[anton2012]

wait why does it say "DO and LOOP cannot both have boolean expresion"?

[tsh73]

You can check for condition either BEFORE loop
so if condition fails, you skip loop altogether
that is
DO WHILE condition
..
LOOP

another variant is
DO UNTIL condition
..
LOOP

Or AFTER loop
so you first always have one pass, THEN check

DO
..
LOOP WHILE condition

another variant is
DO
..
LOOP UNTIL condition

But you cannot check conditions in BOTH places.
'this will NOT work!
DO WHILE condition
..
LOOP WHILE condition

This gives exactly error you've got

[anton2012]

thanks for the help!!!!!

[anton2012]

how to export a .BAS(or .BAK) file into a real program thats playable without the freeware?

edit:or any justBASIC file for that matter i just want to share my code and make into a game!

[xxgeek]

When using the Just Basic IDE you'll find a icon that looks like a question mark up in the top menu. That will lead you to the help files.

This is taken from the help file under "Using the Runtime Engine"



Using the Runtime Engine

The JBRUN2.EXE runtime engine will allow you to create standalone programs from your Just BASIC *.TKN files. This means that your programs can be run on computers that do not have the Just BASIC language installed.

The runtime engine will automatically run a *.TKN file of the same filename as the runtime engine. If you make a copy of JBRUN2.EXE named MYPROG.EXE, then you must name your *.TKN file as MYPROG.TKN.

Using JBRUN2.EXE

First make a *.TKN file from your *.BAS file (see Creating a Tokenized File).

Preparing for distribution

You can share or sell programs that you write in Just BASIC. No fee or royalty payment is necessary. The only requirements are:

a) That you limit the files that you distribute to the list below. These files can be found in the directory in which you have installed Just BASIC. If you cannot see all of these files in "My Computer" or "Windows Explorer", it is likely that your folder options are configured to hide system files. Go to the TOOLS menu of Explorer and choose FOLDER OPTIONS. Click the VIEW tab and look for the option to "Show all files" in the "Hidden Files" section. Be sure that this option is checked. Here is a list of the files:

jbrun2.exe
vbas31w.sll
vgui31w.sll
voflr31w.sll
vthk31w.dll
vtk1631w.dll
vtk3231w.dll
vvm31w.dll
vvmt31w.dll

b) You must rename a copy of JBRUN2.EXE to your liking. This is recommended. Try to create a unique name so that it will be unlikely for any File Manager associations to conflict. If you rename JBRUN2.EXE to MYPROG.EXE, then renaming your *.TKN file to MYPROG.TKN will cause it to be automatically run when the runtime engine starts.

c) You can also replace the icon for JBRUN2.EXE with one of your own design. Use the icon editor from the Setup menu in the Just BASIC editor. This step is optional. Icons for use with the Just BASIC runtime engine can contain only 16 colors.

Important: Make sure that when your program is finished running that it terminates properly with an END statement. Otherwise your program's windows may all be closed, giving the illusion that it has stopped running.

Your Distribution Packet

Your program's TKN file, plus jbrun2.exe (rename to match your TKN file), and all of the other files in the list above must be included in your distribution. You must also include any other files used by your program, such as data files, text files and bitmaps. If all of these files are distributed together, then someone who does not have the Just BASIC language installed on his computer can run your program by clicking on its icon, or by double clicking on the EXE name in the list in "My Computer" or "Windows Explorer."

The JBASIC2.INI File

Just BASIC stores default information in a very small text file named JBASIC2.INI. This file is also read by the runtime engine (JBRUN2.EXE) if it is present. One of the things that JBASIC2.INI manages is the default font used for the the Just BASIC development environment and for the runtime engine. If you want your distributed application to use the same font that is set for the Just BASIC development environment, then include the JBASIC2.INI file with your application. If you want text printed to the printer to use the same printer font that is in use by the Just BASIC development environment, then include the JBASIC2.INI file with the distribution.

Installing a Just BASIC Program

You can distribute your programs on a set of disks or on a CDROM and ask the user to copy them to his hard drive. You can also place all of the files into a zip archive. This makes the distribution smaller and insures that all needed program files stay together. The user then simply unzips the files into the folder of his choice. There are freeware and commercial installation programs that can be used to install programs created with Just BASIC. Search the internet and software download sites to find these programs.

[anton2012]

thanks!!!

[anton2012]

is there a WAIT camnand?like i want to first print a word and then wait like 5 seconds and then orint another word?