23 lines
604 B
Text
23 lines
604 B
Text
NORMAL MODE IS INTEGER
|
|
|
|
CUBE=1
|
|
NCUBE=1
|
|
SQR=1
|
|
NSQR=1
|
|
SEEN=0
|
|
|
|
SQRLP SQR = NSQR*NSQR
|
|
CUBELP WHENEVER SQR.G.CUBE
|
|
NCUBE = NCUBE+1
|
|
CUBE = NCUBE*NCUBE*NCUBE
|
|
TRANSFER TO CUBELP
|
|
END OF CONDITIONAL
|
|
WHENEVER SQR.NE.CUBE
|
|
SEEN = SEEN+1
|
|
PRINT FORMAT FMT,SQR
|
|
END OF CONDITIONAL
|
|
NSQR = NSQR+1
|
|
WHENEVER SEEN.L.30, TRANSFER TO SQRLP
|
|
|
|
VECTOR VALUES FMT = $I4*$
|
|
END OF PROGRAM
|