13 lines
257 B
Text
13 lines
257 B
Text
START ;Infinite Loop
|
|
|
|
RECORD SPAM
|
|
, A4, 'SPAM'
|
|
|
|
PROC
|
|
XCALL FLAGS (0007000000,1) ;Suppress STOP message
|
|
|
|
OPEN(8,O,'TT:')
|
|
LOOP,
|
|
WRITES(8,SPAM)
|
|
GOTO LOOP
|
|
END
|