A Program For Test Your Buttons (Tech Demo) (Secret Undertale xd)

#+BEGIN_SRC smilebasic _%=!.+!.+!.+(!.<<!.+!.+!.+!.+!.+!.)__%[email protected]_ @_____:___$=_$_%=(!.+!.+!.<<!.+!.)+(!.<<!.+!.+!.+!.+!.+!.)__%[email protected]_ @______:___$=___$+_$_%=!.+!.+!.+(!.<<!.+!.+!.+!.)+(!.<<!.+!.+!.+!.+!.+!.)__%[email protected]_ @_______:___$=___$+_$_%=(!.<<!.)+(!.<<!.+!.+!.+!.+!.+!.)__%[email protected]_ @_________:____$=_$_%=!.+(!.<<!.+!.)+(!.<<!.+!.+!.+!.)+(!.<<!.+!.+!.+!.+!.+!.)__%[email protected]_ @__________:____$=____$+_$_%=(!.<<!.+!.)+(!.<<!.+!.+!.+!.)+(!.<<!.+!.+!.+!.+!.+!.)__%[email protected]_ @___________:____$=____$+_$_%=(!.<<!.+!.)+(!.<<!.+!.+!.+!.)+(!.<<!.+!.+!.+!.+!.+!.)__%[email protected]_ @____________:____$=____$+_$_%=((!.<<!.+!.+!.+!.)-!.<<.)+(!.<<!.+!.+!.+!.+!.+!.)__%[email protected]_ @_____________:____$=____$+_$_%=(!.+!.+!.+!.+!.+!.+!.<<!.)+(!.<<!.+!.+!.+!.+!.+!.)__%[email protected]_ @______________:____$=____$+_$_%=(!.+!.+!.<<!.)+(!.<<!.+!.+!.+!.)+(!.<<!.+!.+!.+!.+!.+!.)__%=!.+(!.+!.+!.<<!.+!.)GOTO @_:@_________________:_____$=_$_%=!.+!.+!.+(!.<<!.+!.+!.+!.)+(!.<<!.+!.+!.+!.+!.+!.)__%=(!.+!.+!.+!.+!.+!.+!.<<!.)GOTO @_:@__________________:_____$=_____$+_$_%=!.+(!.+!.+!.<<!.+!.+!.)+(!.<<!.+!.+!.+!.+!.+!.)__%=((!.<<!.+!.+!.+!.)-!.<<.)GOTO @_:@___________________:_____$=_____$+_$_%=(!.+!.+!.+!.+!.+!.+!.<<!.)+(!.<<!.+!.+!.+!.+!.+!.)__%=!.<<!.+!.+!.+!.GOTO @_:@____________________:_____$=_____$+_$_%=!.+!.+!.+(!.<<!.+!.+!.+!.+!.+!.)__%=!.+(!.<<!.+!.+!.+!.)GOTO @_:@_____________________:[email protected]_______________:__%=(!.<<!.)+(!.<<!.+!.+!.+!.)[email protected]__:@______________________:__%=(!.+!.+!.<<!.+!.)[email protected]___:@________________:___=_%__%=!.+!.+!.+(!.<<!.+!.+!.+!.)[email protected]__:@_______________________:?___:[email protected]_______________:[email protected]____:@_:_$=CHR$(_%)GOTO"@____"+"_"*__%@__:CALL _$GOTO"@____"+"_"*__%@___:_%=CALL(_$)GOTO"@____"+"_"*__%@____ #+END_SRC
stop using goto
>>26154 :thinkhang:
@yBASIC is dumb, like your face.
why rude? :3
#+BEGIN_SRC smilebasic 'Reserved Variables: ' accumulator : _% ' return ptr : __% (return label - 4) (for now) ' str accum : _$ ' stack : __$ 'Reserved Labels: ' @_ : str_accum=CHR$(accumulator) ' @__ : CALL str_accum ' @___ : _%=CALL(str_accum) ' @____ : HALT ' Should expand to 8 in future. ' 'Notes: ideally, the system labels would accept ' either or both input and return labels from ' the stack. However, at present, this is still ' a challenge, because all containers are ' CHAR or BOOL type (see bucket=snailbasic for ' more information) ' Well... return might not be so bad, actually ' if you just push a string like "______," ' it might work. Either way, there's no easy ' solution. 'Initialize strings 'CLS -> ___$ _%=(!.+!.+!.+(!.<<!.+!.+!.+!.+!.+!.)) __%=!. [email protected]_ 'call CHR$ @_____ ___$=_$ _%=((!.+!.+!.<<!.+!.)+(!.<<!.+!.+!.+!.+!.+!.)) __%=!.+!. [email protected]_ 'call CHR$ @______ ___$=___$+_$ _%=(!.+!.+!.+(!.<<!.+!.+!.+!.)+(!.<<!.+!.+!.+!.+!.+!.)) __%=!.+!.+!. [email protected]_ 'call CHR$ @_______ ___$=___$+_$ 'BUTTON -> ____$ _%=((!.<<!.)+(!.<<!.+!.+!.+!.+!.+!.)) __%=!.+!.+!.+!.+!. [email protected]_ 'call CHR$ @_________ ____$=_$ _%=(!.+(!.<<!.+!.)+(!.<<!.+!.+!.+!.)+(!.<<!.+!.+!.+!.+!.+!.)) __%=!.+!.+!.+!.+!.+!. [email protected]_ 'call CHR$ @__________ ____$=____$+_$ _%=((!.<<!.+!.)+(!.<<!.+!.+!.+!.)+(!.<<!.+!.+!.+!.+!.+!.)) __%=!.+!.+!.+!.+!.+!.+!. [email protected]_ 'call CHR$ @___________ ____$=____$+_$ _%=((!.<<!.+!.)+(!.<<!.+!.+!.+!.)+(!.<<!.+!.+!.+!.+!.+!.)) __%=!.+!.+!.+!.+!.+!.+!.+!. [email protected]_ 'call CHR$ @____________ ____$=____$+_$ _%=(((!.<<!.+!.+!.+!.)-!.<<.)+(!.<<!.+!.+!.+!.+!.+!.)) __%=!.+!.+!.+!.+!.+!.+!.+!.+!. [email protected]_ 'call CHR$ @_____________ ____$=____$+_$ _%=((!.+!.+!.+!.+!.+!.+!.<<!.)+(!.<<!.+!.+!.+!.+!.+!.)) __%=!.+!.+!.+!.+!.+!.+!.+!.+!.+!. [email protected]_ 'call CHR$ @______________ ____$=____$+_$ 'VSYNC -> _____$ _%=(!.+!.+!.<<!.)+(!.<<!.+!.+!.+!.)+(!.<<!.+!.+!.+!.+!.+!.) __%=!.+(!.+!.+!.<<!.+!.) GOTO @_ @_________________ _____$=_$ _%=!.+!.+!.+(!.<<!.+!.+!.+!.)+(!.<<!.+!.+!.+!.+!.+!.) __%=(!.+!.+!.+!.+!.+!.+!.<<!.) GOTO @_ @__________________ _____$=_____$+_$ _%=!.+(!.+!.+!.<<!.+!.+!.)+(!.<<!.+!.+!.+!.+!.+!.) __%=((!.<<!.+!.+!.+!.)-!.<<.) GOTO @_ @___________________ _____$=_____$+_$ _%=(!.+!.+!.+!.+!.+!.+!.<<!.)+(!.<<!.+!.+!.+!.+!.+!.) __%=(!.<<!.+!.+!.+!.) GOTO @_ @____________________ _____$=_____$+_$ _%=!.+!.+!.+(!.<<!.+!.+!.+!.+!.+!.) __%=!.+(!.<<!.+!.+!.+!.) GOTO @_ @_____________________ _____$=_____$+_$ 'main @_______________ 'VSYNC __%=(!.<<!.)+(!.<<!.+!.+!.+!.) _$=_____$ [email protected]__ @______________________ '___ = BUTTON() __%=((!.+!.+!.<<!.+!.)) _$=____$ [email protected]___ @________________ ___=_% 'CLS __%=!.+!.+!.+(!.<<!.+!.+!.+!.) _$=___$ [email protected]__ @_______________________ ?___ [email protected]_______________ 'exit [email protected]____ 'syscall @_ _$=CHR$(_%) GOTO"@____"+"_"*__% @__ CALL _$ GOTO"@____"+"_"*__% @___ _%=CALL(_$) GOTO"@____"+"_"*__% @____ 'four is death #+END_SRC