Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0113/cada.bas
There are 2 other files named cada.bas in the archive. Click here to see a list.
00012REM **************************************************************
00013REM     CADA   CADA    CADA    CADA    CADA    CADA   CADA   CADA
00014REM***************************************************************
00100 FILES RFILE1,RFILE2,RFILE3,RF4,RF5,RF6,RF7,RF8 
00110 SCRATCH#4
00112 PRINT#4,"$$$$$$"
00114 SCRATCH #8
00116 PRINT#8,0
00220DIM M(112)
00230MAT M=ZER
00240 SCRATCH #2
00245 SCRATCH #1
00250 SCRATCH #3
00252 FOR I=1 TO 112
00254 PRINT #2,0
00255 PRINT #3,0
00256 PRINT #1,0
00257 NEXT I
00440CHAIN "CEXPLN"
00999END