by @Hazel Budoso Fork
{"functions":[],"name":"Next And B","main":{"rawId":"main","tpe":"Void","name":"main","statements":[{"@type":"Begin","id":"id_364d7c69_1850_49dc_a430_a3153e07fc2a"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"top","lengthValue2":"5","id":"id_e329895e_6eb5_45a4_b5e1_bc1ebd7073a8","initValue":"-1"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"current","lengthValue2":"5","id":"id_24541a6b_1a48_4b26_b449_50c7f65f6eee","initValue":"0"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"backTop","lengthValue2":"5","id":"id_9ad418ae_c0cb_4da1_b126_b551a8849afb","initValue":"-1"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"5","tpe":"Integer","name":"nextTop","lengthValue2":"5","id":"id_14740fb6_474d_46cd_b6ef_32cdd55bef60","initValue":"-1"},{"lengthValue":-1,"@type":"Declare","lengthValue1":"20","tpe":"IntegerArray","name":"backStack","lengthValue2":"5","id":"id_4edd3256_ad4b_415a_a5ee_a1f1c30a40b5","initValue":null},{"lengthValue":-1,"@type":"Declare","lengthValue1":"20","tpe":"IntegerArray","name":"nextStack","lengthValue2":"5","id":"id_562f023f_565b_41ae_bbd3_c91c07b6dc62","initValue":null},{"falseBlock":{"statements":[],"id":"id_bc4d4721_70ad_48b5_95c6_f88060f799b4"},"trueBlock":{"statements":[{"newline":true,"@type":"Output","id":"id_28412278_89dd_4e1e_a286_ae57fa005bc7","value":"\"Stack is empty\""}],"id":"id_b9f82b47_d0e3_40f4_bff8_d2eb38a70fa9"},"condition":"top == -1","@type":"If","id":"id_def648c3_0e3b_40c0_883e_855ef5464d32"},{"falseBlock":{"statements":[{"@type":"Assign","name":"backTop","id":"id_69387e53_6d48_479b_af5e_3a29f8f4f9c4","value":"backTop + 1"},{"@type":"Assign","name":"backStack[backTop]","id":"id_7e7c4ebc_b7bf_46a1_8d21_8fa4c85f35ef","value":"current"},{"@type":"Assign","name":"current","id":"id_7fe919cb_672d_4817_b7be_999c3107cd23","value":"nextStack[nextTop]"},{"@type":"Assign","name":"nextTop","id":"id_2bac20b5_1de9_47ca_8eab_18394e42d6f1","value":"nextTop - 1"}],"id":"id_75cf86cd_57a0_4983_a848_64b7dd0cc960"},"trueBlock":{"statements":[{"newline":true,"@type":"Output","id":"id_44a2489d_e7ea_4794_8dfa_131860d8622b","value":"\"No next record. You are at the end.\""}],"id":"id_38904d9c_9b1c_4ccf_a854_677fd1fa3f99"},"condition":"nextTop == -1","@type":"If","id":"id_936c5acf_274e_4612_bf56_c17fd7e3fffe"},{"falseBlock":{"statements":[],"id":"id_9a605839_b34f_494e_8f53_1cbb0dcfe6fa"},"trueBlock":{"statements":[{"newline":true,"@type":"Output","id":"id_14246ac0_6693_4ff0_89b4_9ae180f770da","value":"\"Stack is empty!\""}],"id":"id_69b4a8b2_a1a0_48f6_a27b_672fa4471f9f"},"condition":"top == -1","@type":"If","id":"id_64d6a86d_8270_461c_9e4a_2af51df2d562"},{"falseBlock":{"statements":[{"@type":"Assign","name":"nextTop","id":"id_55b3769f_06ef_41a1_9b4c_07f322a3d9c9","value":"nextTop + 1"},{"@type":"Assign","name":"nextStack[nextTop]","id":"id_b5a9c46e_8a11_416a_8c35_e008f54e4d1f","value":"current"},{"@type":"Assign","name":"current","id":"id_4a7f5ba7_2df0_41b9_b85e_ee7c29bb55c4","value":"backStack[backTop]"},{"@type":"Assign","name":"backTop","id":"id_a83e31d0_b61a_4969_872d_36df0676c741","value":"backTop - 1"}],"id":"id_fb7a925b_8eab_47d3_abd9_e2ec175936eb"},"trueBlock":{"statements":[{"newline":true,"@type":"Output","id":"id_339a4da8_f745_4186_873c_6de173545c80","value":"\"No previous record. You are at the beginning.\""}],"id":"id_c143ef83_add1_4ca4_9ac1_6340f37deeca"},"condition":"backTop == -1","@type":"If","id":"id_dad976b2_e0a4_4578_8606_d94fdf26cc30"},{"@type":"Return","id":"id_d194e72c_f9de_44f2_b6d5_350cd69bab65","maybeValue":null}],"parameters":[]},"id":"id_f03fe262_4b16_4139_b5ab_f54a152647d0","config":{"showDebugVars":true,"useInputPrompt":false,"echoEnteredValue":false,"showIoBtns":true,"showFunctions":false,"lang":"java","showGenCode":false},"version":"0.3","revision":974}