New SICK project

[mnrvovrfc]

@eoredson I was able to obtain a 32-bit EXE file of this project. But it's my fault, I really can't use it because it's limited in many ways. I need at least two-letter variable names! :/
Otherwise this is very impressive. Someone else posted a topic about others of your early efforts such as "hex" editors for M$QB.

[eoredson]

Sure -  here is a link to my Hex Editor for Win10 and one for VBdos v1.00 Pro

This project is the Hex Editor written in QB64.

It should work in QB64 v3.14.1 and v4.2.0

Erik.

Hexed9r5.zip is Qb64 (32-bit)
Hexxit86.zip is VBdos (16-bit)

[eoredson]

Ok, I have downloaded and installed QB64 PE and copied my SICK project and although it required MEM.H and SICK64.ICO the
Sic64.bas program started and ran quite well without any errors except for 11 compiler warnings that can be ignored..

Erik.

btw: you can turn off warnings in options (alt-o) and check ignore warnings..

note: it seems the warnings you are getting are "unused variables" and are not errors.

[eoredson]

@eoredson I was able to obtain a 32-bit EXE file of this project. But it's my fault, I really can't use it because it's limited in many ways. I need at least two-letter variable names! :/
Otherwise this is very impressive. Someone else posted a topic about others of your early efforts such as "hex" editors for M$QB.

@mnrvovrfc

Sorry for the delay..

I have recently patch in multichar variables such as:

  A0 - A9 through Z0 - Z9, and
  A0(n) through A9(n) to Z0(n) and Z9(n), and
  A0$ to A9$ through Z0$ to Z9$..

Hope this helps.

btw: your PM is being blocked.

[hsiangch_ong]

thank you cthulhu.

i'm afraid to tell you.  that other personality of this forum is dead.  but the same user now uses this account.

i have been taking notice of this project.  even though i haven't posted to that effect.  many things have changed in two years.  or maybe longer.  so i have to find more time.  to program in any language or system.

your text editor is something i should use more often.  i have been trying to understand vim.  "gvim" in particular.  (the same program but with gtk+3 menus and file requesters.)  but it's just too weird.  imagine needing to insert a line.  but you need it right where the cursor was on the screen.  but the program doesn't understand that.  instead insists allowing text typed at the bottom of the screen?

that makes your text editor such a great accomplishment.  have to disregard it's a bit heavy.  compared to joe, nano and a few others.  oh yeah and vim.

i had been using mocha.  the tandy/radio shack trs-80 color computer emulator done.  which requires "jre".  it's awesome.  but frustrating with having to load and save programs.  also would like to practice "modern" actions.  such as cut/copy/paste like in any desktop gui.  the sick64 is a step above that.  offers a challenge to go back to the 1980's.  way back then.  programming with such tiny amounts of memory.

[eoredson]

You didn't really answer my post when you asked for:

I need at least two-letter variable names!

which I patched in for you..

Erik.

[hsiangch_ong]

it might be a problem at my end.  i might have to go into windows.  for the first time in months.

i am using debian 12.11 or so "bookworm."  with mate desktop.  unpacked qb64pe 3.11 for 64-bit windows.  used it with wine.  to create the "sic64.exe".

to compile successfully.  i was forced to comment out "$midisoundfont" line.  which allows the user to load any soundfont.  this is because i'm not using current qb64pe version/release.

btw "$midisoundfont" does not accept a string variable.  only a constant.  expects something in double-quotation marks.  that's why it errors.  maybe that's why it was deprecated.  if you insist making this available.  you might have to advise people to compile "sic64" with qb64pe 4.0 and later.  or you could allow choosing.  from a couple of soundfonts.

i unpacked the "source" directory.  the interpreter becomes annoying.  because i have to do [[chdir "source"]].  before loading a "sic" script.  otherwise it comes back with "no new program."  to resolve it easiest.  put the "sic" scripts in the same directory as "sic64.exe".

[hsiangch_ong]

your "renumber" program doesn't work.  gives me a zero-length output text file.  i tried it compiling with qb64pe.  on windows version and on linux version.  i think it should ask for the name of the new file.

i have composed this program.  i had tripped upon a few limitations.  remembered i cannot use colons.  also tried to use two-letter variable name. must be letter then numeral.  don't get angry.  i first wrote this program.  made sure it worked in qb64pe.  then added the line numbers.  didn't notice "rx" and "ry" needed to be changed into "r1" and "r2".  changed "_delay" into "pause" and much more...

there was supposed to be more to this program.  but i wanted to come up with something quickly.

Code: (Select All)

5 cls
7 randomize val(right$(time$, 2))
10 r1 = 40
15 r2 = 23
20 x1 = int(rnd * 20 + 5)
30 x2 = int(rnd * 20 + 55)
40 for i = x1 to x2
50    locate 12, i
60    print "@";
70 next
80 x1 = int(rnd * 10 + 5)
90 if rnd < .5 then
93 x1 = x1 + 65
96 endif
100 y1 = int(rnd * 6 + 4)
110 y2 = int(rnd * 8 + 7)
120 w$ = string$(80, 61)
130 locate 6, 1
140 print w$;
150 locate 24, 1
160 print w$;
170 for i = 7 to 23
180    locate i, 1
190    print "|";
200    locate i, 80
210    print "|";
220 next
230 locate 6, 30
240 print "|"; space$(18); "|";
250 locate r2, r1
260 print "R";
270 pause 1.5
280 do until r2 <= y2
290    locate r2, r1
300    print "R";
310    r2 = r2 - 1
320    if screen(r2, r1) = 64 then
330        locate r2, r1
340        print "*";
350        locate 1, 1
360        print "Oh no!  Robot fell into the moat."
370        end
380    endif
390    pause 0.25
400 loop
410 pause 0.25
420 do
430    locate r2, r1
440    print "R";
450    if x1 < 40 then
460        r1 = r1 - 1
470        if r1 < x1 then
480            r1 = x1
490            exit do
500        endif
510    else
520        r1 = r1 + 1
530        if r1 > x1 then
540            r1 = x1
550            exit do
560        endif
570    endif
580    pause 0.25
590 loop
600 pause 0.25
610 do until r2 <= y1
620    locate r2, r1
630    print "R";
640    r2 = r2 - 1
650    if screen(r2, r1) = 61 then
660        locate r2, r1
670        print "X";
680        locate 1, 1
690        print "Robot crashed into the wall!"
700        end
710    endif
720    pause 0.25
730 loop
740 pause 0.25
750 do until r1 = 40
760    locate r2, r1
770    print "R";
780    if x1 < 40 then
790        r1 = r1 + 1
800    else
810        r1 = r1 - 1
820    endif
830    pause 0.25
840 loop
850 pause 0.25
860 do until r2 < 1
870    locate r2, r1
880    print "R";
890    r2 = r2 - 1
900    pause 0.25
910 loop
920 pause 0.25
925 locate 1, 1
930 print "Robot made it through the room! Congratulations!"

[eoredson]

Ok, that informs me the variable mod works for the moment.

Sorry it doesn't add AA to AZ through ZA to ZZ but that is beyond the arrays I am using.

Thank you for using my software 

Erik.

btw: could not find any error in renumber though!? You may have a bad or missing Sic16.inc file...
I highly suggest to download and install QB64PE v4.2.0