Gosub Return "Missing Sub Definition"

[JB]

Hello,
I was writing some code and after 1 hour, I decided to look at GCStudio manual for reference about the
Gosub / Return command and from the manual example page : 192 I've got an error as "Missing Sub Definition".
Maybe the compiler or something else is not up to date.

#option explicit
 #chip 16F628A, 4 'Change this to suit your circuit
  #define SOUNDOUT PORTA.4
  #define LIGHT PORTB.0
  Dir LIGHT Out
  Do
  'Flash Light
  PulseOut LIGHT, 1 s
  Wait 1 s
  'Beep
  Gosub PlayBeep
  Loop
  PlayBeep:
  Tone 200, 10
  Tone 100, 10
  Return

[Anobium]

Good spot.

I will have just sorted this out in the compiler. The compiler was looking for a SUB definition. As I tighten up the syntax these issues can arise.

Download this fix. You will have to accept the warning from your Browser, and, you may have to UNBLOCK in the properties of the downloaded file. Then, replace your existing EXE.

http://gcbasic.sourceforge.net/newfiles/gcbasic.exe?latest=1

[JB]

Can't get the download, does'nt respond on Chrome.

don't rush, I'll get on the next GCStudio update.

Thanks Evan.

[Anobium]

Try changing the http to https

[JB]

Was able download and copy to "C:\GCstudio\gcbasic\gcbasic.exe"

tried the same code but's not working.

[Anobium]

You will have to copy the new exe over gcbasic.exe and gcbasic64.exe. If you do not and you Starr or restart GCSTUDIO will restore the old version.

[JB]

It compiled but I eard 2 beep while compiling is this normal.

[Anobium]

My error... I uploaded the wrong exe...

https://gcbasic.sourceforge.net/newfiles/gcbasic.exe?latest=1 and https://gcbasic.sourceforge.net/newfiles/gcbasic64.exe?latest=1

If you are running on 32 bit.. copy the new gcbasic.exe to gcbasic32.exe

Then, try again.

[JB]

can't download the 64,

An error has been encountered in accessing this page.

1. Server: gcbasic.sourceforge.io
2. URL path: /newfiles/gcbasic.exe64
3. Error notes: NONE
4. Error type: 404
5. Request method: GET
6. Request query string: latest=1
7. Time: 2024-04-26 10:12:44 UTC (1714126364)

[Anobium]

A typo - try the link again.

[JB]

link worked ,
still error:

[Anobium]

Attach the code please. I would be guessing without it.

[JB]

; gosub 
#option explicit
#chip tiny10, 1

 ; ----- Include library
    #include <SoftSerial.h>

    ; ----- Config Serial UART for sending:
    #define SER1_BAUD 4800     ; baudrate must be defined
    #define SER1_TXPORT PORTB  ; I/O port (without .bit) must be defined
    #define SER1_TXPIN 0       ; portbit  must be defined
    #define SER1_INVERT On

Dim Count as byte
Dim Count1 as byte

pause 1000
;BackLight On/Off
  ser1send 255  ;BackLight On
  pause 1
  ser1send 8    ;8=On, 0=Off
  pause 1

DO
; Count Char
for count = 128 to 167
    Count1 = count - 80
    gosub main
next

for count = 192 to 231
    Count1 = count - 104
    gosub main
next

pause 1000
; Clear LCD
  ser1send 254
  pause 1
  ser1send 1
  pause 1
  pause 1000
loop

Main:
    ser1send 254
    pause 1
    Ser1Send count
    pause 1
    Ser1Send Count1
    pause 1
return

[Anobium]

I have resolved. I have change the testing.

https://gcbasic.sourceforge.net/newfiles/gcbasic.exe?latest=1 and https://gcbasic.sourceforge.net/newfiles/gcbasic64.exe?latest=1

GCBASIC (2024.4.26 (Windows 64 bit) : Build 1386)

Test, try again.

[JB]

Ecxellent it's working !

[Anobium]

Excellent. Another improvement.

[JB]

Many thanks Evan.