sim> deposit 20 7001
sim> deposit 21 2034
sim> deposit 22 5021
sim> deposit 23 5020
sim> run 20
CREATE INC.PA
#A
/----------------------------------------------------
*20 /START 20
A, IAC /INCREMENTS +1 INDEX AC C(AC)+1=C(AC)
B, ISZ 034 /INDEX AND SKIP IF ZERO (DELAY)
JMP B /DELAY
JMP A /CONTINUE
/----------------------------------------------------
CRTL L
#E
PAL INC
PAL INC,INC<INC/H
PAL INC
.TYPE INC.LS
0020 *20 /START 20
000020 7001 A, IAC /INCREMENTS +1 INDEX AC C(AC)+1=C(AC)
000021 2034 B, ISZ 034 /INDEX AND SKIP IF ZERO (DELAY)
000022 5021 JMP B /DELAY
000023 5020 JMP A /CONTINUE
$
A 0020
B 0021
ERRORS DETECTED: 0
LINKS GENERATED: 0