Revision as of 18:01, 5 August 2022 (view source) Markjreed (talk \| contribs) (→‎{{header\|UNIX Shell}}: make portable to other shells) ← Older edit		Revision as of 18:07, 5 August 2022 (view source) Markjreed (talk \| contribs) (→‎Using GOSUBs: Fix stack depth.) Newer edit →
Line 1,041: {{works with\|Commodore BASIC}} {{works with\|GW-BASIC}} <lang gwbasic>10 ~~DIM~~DEPTH=4: ~~N(1024),~~REM ~~F(1024),~~SHOULD ~~T(1024), V(1024): REM~~EQUAL ~~STACK~~NUMBER ~~PER~~OF ~~PARAMETER~~DISKS 20 SPDIM ~~= 0:~~N(DEPTH), F(DEPTH), T(DEPTH), V(DEPTH): REM STACK ~~POINTER~~PER PARAMETER 30 N(SP) = 40: ~~REM~~ ~~START~~ ~~WITH~~ 4REM STACK ~~DISCS~~POINTER 40 FN(SP) = 14: REM ONSTART ~~PEG~~WITH 14 DISCS 50 TF(SP) = 21: REM ~~MOVE TO~~ON PEG 21 60 VT(SP) = 32: REM ~~VIA~~MOVE TO PEG 32 70 V(SP) = 3: REM VIA PEG 3 ~~70 GOSUB 100~~ 80 ~~END~~GOSUB 100 90 END 9099 REM MOVE SUBROUTINE 100 IF N(SP) = 0 THEN RETURN 110 OS = SP: REM STORE STACK POINTER

Towers of Hanoi: Difference between revisions

Towers of Hanoi (view source)