Infinity-Profan

//
// InfinityProfan Program
// NOTIZ-1 v0.0.1
// created 2015-12-15
// micha12334
//idle-fingers
//
//Creation of/ one notice incl. Abspeicherung (TEST)
display display.rotation 0// is for smartphone rather...
var a
var b
var c = "
"
var time
var time1
var time2
var notice
var notice1
var notice2
cls rgb 0 0 200 128
time1 = fread("lasttime1.txt")
time2 = fread("lasttime2.txt")
notice1 =fread("notiz1.txt")
time = time1+"  circa "+time2
//if notice1 = " "
//    notice1 = "keine notice present!"
//endif
msg msg.box,zero,"         PROGRAMM-ENDE","ENDE",zero,end
msg msg.box,zero,"                   NOTIZ",["LÖSCHEN","NEIN"],zero,electoral
msg msg.box,"    latest notice on the "+time,"      Test-Program      'input of Notizen'                            ","WEITER",notice1

proc electoral btn

    if st(btn) == 0

        msg msg.box, zero,"     input  the  notice  hier","OK",["   ",131072+1],Text// 131072 for Mehrzeileneingabe

    endif

    if st(btn) == 1

        fdel ("notiz1.txt")
        msg msg.box, "      Neueingabe  hier","   notice  gelöscht","OK",["    ",131072+1],Text1

    endif

endproc

proc Text btn input

    var notice = input
    notice2 =notice1+" "+notice+" "
    //if notice2=" "
    //  notice2="        no Notizen1 vorhanden"           ---------------Why functions not???
    //endif
    print "
    "
    print c+notice2, rgb (255,255,255) rgb (255,0,0)
    fwrite ("notiz1.txt",notice2)

endproc

proc Text1 btn input

    var notice = input
    notice2 = notice
    //if notiz=" "
    //  notice2="        no Notizen2 vorhanden"             ---------------Why functions not???
    //endif
    print "
    "
    print c+notice2, rgb (255,255,255) rgb (255,0,0)
    fwrite ("notiz1.txt",notice2)

endproc

fwrite ("lasttime1.txt",time(7))
fwrite ("lasttime2.txt",time(0))
//msg msg.box,zero,zero,"ENDE",zero,end

proc end btn character

    var b = character

    if b <> "°"

        sleep 5000
        end

    endif

endproc

//proc event id data
//  if id == event.touchdown
//    msg msg.toast,"SCHLUSS UND AUS"
//  sleep 1000
//end
// endif
//endproc

quelltext

msg msg.box,zero," PROGRAMM-ENDE","ENDE",zero,end
msg msg.box,zero," NOTIZ",["LÖSCHEN","NEIN"],zero,electoral
msg msg.box," latest notice on the "+time," Test-Program 'input of Notizen' ","WEITER",notice1

10+20// gives 30
10$20// gives 1020
10+"km"// gives 10km
10$"km"// gives 10km
10+y// moreover unclear (? Type of variables)
10+long(y)// gives a number, ev. only 10
10+float(y)// gives a number, ev. only 10
10$y// gives a String (here benefit)