Jump to content

SteveB

Members
  • Posts

    548
  • Joined

  • Last visited

Everything posted by SteveB

  1. Wouldn't it be nice to have modern, structured Extended Basic on your TI? No need for GOTO's anymore? Using a Windows PC Editor and save your work directly to a FIAD Disk, ready to use from an emulator? Well, here it is. I am happy to present you TiCodEd. It offers: Modern Basic without line numbers Translation to Standard Extended Basic Saving of files in tokenized format in FIAD Simply one EXE file, no run-time or installation required You can have much more comfort in editing your source, enjoy a good readable format with indentions and without line numbers, but structured elements like REPEAT-UNTIL and WHILE-ENDWHILE, in addition to labels. With one click this can not only be converted to Standard Extended Basic, but also written to TIFILES in tokinized format to be directly used by an emulator like Classic99 using OLD DSKx.yourfile. Your program is working perfect? TiCodEd can also write the program in MERGE format for direct use in ISABELLA to be compiled. TiCodEd is available with Lazarus Source for Windows 64 and 32 bit here.
  2. Hi senior_falcon, thank you for your support! I do a lot of experiments right now to regain my XB skills. In both cases I need to convert the code from a inline-function RND to a separate subroutine call. I will play around with your IRND and my SUB RAND and see what suits best. In the eighties I only had the console, XB and a tape recorder, so this whole CALL LOAD, CALL LINK etc is still a little a little confusing to me... and it seems so natural for everybody else.
  3. Hi senior_falcon, your Isabella made me say "this is too fast" for the first time about a XB program I wrote. In fact I resumed writing an old game I abandoned in 1984 because it was too slow to be fun. After some crude hacks it compiled and started working with intergers within 2 hours. But some 36 years ago I had the brilliant idea of not storing level data and save the memory, but recreating it every time by using the RANDOMIZE X function, feeding the level-number as the seed to the randomizer. As stated in the manual, Isabella ignores the RANDOMIZE statement, with and without an argument. It might be strange at first, but I use RANDOMIZE and RND to do the exact opposite of random numer generation, I generate repeatable numbers. This code produces identical output on XB for the same seed, but (pseudo-) random numbers when compiled: 10 INPUT "SEED:":S 20 RANDOMIZE S 30 PRINT INT(RND*100) 40 GOTO 10 With the help of an old IEEE article "RANDOM NUMBER GENERATOR FOR 16-BIT MACHINES" by John J. Komo and William J. Reid (1989) I developed the following subroutine: 1000 SUB RAND(SEED,OG,ERG) 1010 XDQ=INT(SEED/144) 1020 XMQ=SEED-(XDQ*144) 1030 SEED2=(227*XMQ)-(61*XDQ) 1040 IF SEED2>0 THEN SEED=SEED2 ELSE SEED=SEED2+32749 1050 ERG=INT(SEED/(32749/OG)) 1060 SUBEND The Seed will be updated with every call and starts to repeat after some 30.000 calls. The ERG will be 0<= ERG < OG, i.e. SEED=13 :: CALL RAND(SEED,100,X) will set X to a number between 0 and 99 and advances the seed. Consecutive calls will bring the same sequence each time it is executed. Will there be an Isabella 7 with RANDOMIZE SEED function or should I rewrite my code to use my own RAND function? Thank you and I LOVE working on my old projects again with ISABELLA. My wife starts getting jealous... Steve
×
×
  • Create New...