[vcf-midatlantic] Pdp-8 focal @ Kennett Classic

[Brian L. Stuart]

Very cool!  Here's a little FOCAL program that I show as part of
a demonstration to our freshmen every spring.  It finds the 3-digit
numbers that are equal to the sum of the cubes of the digits.

C-FOCAL,1969

01.10 FOR I=1,9; DO 1.20
01.11 QUIT
01.20 FOR J=0,9; DO 1.30
01.30 FOR K=0,9; DO 2

02.01 SET N1=I*I*I+J*J*J+K*K*K
02.02 SET N2=I*100+J*10+K
02.03 IF (N1-N2) 2.13,2.10,2.13
02.10 TYPE N2,!
02.13 RETURN
*

Following up on David's message, I too have seen FOCAL not
be able to take code faster than TTY speed.  As for the multiple
sections, I've had good luck with the version on the tape
DEC-08-AJAE-PB.  It seems to load fine in a single pass.
(Though I have to admit to faking the paper tape.)

BLS






On Friday, July 7, 2023 at 01:45:34 AM UTC, Bill Degnan via vcf-midatlantic <vcf-midatlantic at lists.vcfed.org> wrote: 





Saturday at the museum we're going to try to load FOCAL from papertape into
the PDP-8 system.  12 noon to ?  All are welcome.  Also going to document
system in detail, measure voltages, etc.
Kennettclassic.com
Bill