V-FORTH - Forth-83 for the VIC

[srowe]

It's probably UNIX line endings, I convert the files automatically when building the disk image. Try this file.

[funkheld]

thank you for your effort.

it's not working.
exactly the mistake as with the lineto.

one please, do case and lineto times on a vforth.d64?

Thank you.
greeting

[srowe]

I'm on vacation now and don't have access to my computer. You should be able to paste each line into a new file.

[funkheld]

Hi good afternoon.
all the best on vacation.

I re-typed all the lines in my case.
the same mistake comes here too.

Thank you.
greeting

[srowe]

Here is a new build with a case module complete with example file.

[srowe]

Not worked on this for a while but here's the latest build which includes support of loading MINIGRAFIK images.

[pixel]

Too sad that the Git repo has gone. Moved some place else?

[srowe]

Too sad that the Git repo has gone. Moved some place else?

Shouldn't have, but I re-installed the server so I could have broke something. Let me check.

Are you browsing it from https://eden.mose.org.uk/gitweb/?p=vforth.git;a=summary or cloning it?

Edit: if you were cloning it with a remote containing /var/www/html/vforth.git I've added a symlink which should have fixed it

[pixel]

Shouldn't have, but I re-installed the server so I could have broke something. Let me check.

It resurfaced. Thanks! Am cloning it.

EDIT: Now some "d64-format" is missing. can it be replaced with VICE's c1541 image tool?

[armypavarmy]

Hello everyone
This listing I took from the C64 version
It doesn't work with the Vicforth because the RND command is not recognized.
How to add it to Vfort V4.7??
Thanks for help.

[srowe]

There's no RND word defined in any FORTH standard as far I know. I've used a linear-feedback shift register (LFSR) as a random number generator in some of my examples.

Assuming that your code expects limit RND to return a random integer between 0 and limit-1 the following should work

Code: Select all

variable rndseed
44257 rndseed !

: rnd
    rndseed  @  dup  7  rshift  xor  dup  9  lshift  xor
    dup  13  rshift  xor  dup  rndseed  !  1-  swap  mod  ;

[armypavarmy]

Thanks for help.
I need instructions to use the Autosave.fs
to save the written file.
Greetings

[srowe]

I've just tried to walk through an example of using AUTOSAVE and it isn't working. I'll need some time to look into why.

[armypavarmy]

Thanks for the help. I await news
Greetings. Armando

[srowe]

I've released 4.9 which has a fixed AUTOSAVE.FS

You can use it as follows:

Given a program like this

Code: Select all

: EXAMPLE
CR ." HELLO" CR ;

include the autosave module and save the dictionary

Code: Select all

INCLUDE AUTOSAVE.FS
' EXAMPLE AUTOSAVE MY-EXAMPLE

Reset then load and run your program with

Code: Select all

DLOAD MY-EXAMPLE