10 REM === MESH SMS AUTOMATION POC v0.2 (SEMI-AUTO) ===
20 PRINT ">>> SMS Node Kaynnistyy..."
30 FS READ "config.json" INTO CONF_STR
40 JSON PARSE CONF_STR INTO CONF
50 PRINT ">>> Asiakas: " + CONF["company_name"]

100 REM === PAA-LOOPPI ===
105 GUI CLEAR
110 PRINT " "
120 PRINT ">>> Odotetaan tehtavia rajapinnasta..."
130 HTTP GET CONF["poll_url"] INTO JOB
140 IF JOB["id"] == null THEN SLEEP 2 : GOTO 100

150 PRINT " "
160 PRINT ">>> [!] UUSI TEHTAVA SAATU [!]"
170 PRINT ">>> Vastaanottaja: " + JOB["phone"]
180 PRINT ">>> Viesti: " + JOB["message"]
190 PRINT ">>> Odotetaan kayttajan hyvaksyntaa (PAUSE)..."

200 REM Luodaan dynaamiset Android-painikkeet
210 GUI BUTTON "[ LCHETC SMS ]" INTO BTN_SEND
220 GUI BUTTON "[ HYLKCC ]" INTO BTN_REJECT

230 REM Odotetaan napin painallusta
240 GUI POLL INTO PRESSED
250 IF PRESSED == "" THEN SLEEP 0.5 : GOTO 240
260 IF PRESSED == BTN_REJECT THEN GOTO 320

270 REM LC$hetys sallittu
280 GUI CLEAR
290 PRINT ">>> Lupa annettu! Lahetetaan SMS..."
300 SMS SEND JOB["message"] TO JOB["phone"] INTO SMS_STATUS
310 PRINT ">>> Lahetystila: " + SMS_STATUS
315 GOTO 340

320 REM LC$hetys peruttu
330 GUI CLEAR
335 PRINT ">>> Tehtava hylatty kayttajan toimesta!"
336 LET SMS_STATUS = "REJECTED"

340 REM Kuittaus rajapintaan
350 JSON INIT DICT ACK
360 JSON SET "id" IN ACK TO JOB["id"]
370 JSON SET "status" IN ACK TO SMS_STATUS
380 HTTP POST CONF["ack_url"] BODY ACK INTO DUMMY
390 PRINT ">>> Kuittaus (ACK) lahetetty."
400 SLEEP 2
410 GOTO 100